Prosedur untuk membuatnya ialah:

  1. Buat 3 buah textbox yang berjejer ke samping.
  2. Sejajarkan posisinya.
  3. Tambahkan sebuah button dibawahnya.
  4. Klik 2 kali pada button untuk menambahkan formula.

Berikut contoh syntaxnya.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Key As Integer
Key = Int(Rnd() * 15)
Select Case Key
Case 0
TextBox1.Text = “Saya”
Case 1
TextBox1.Text = “Dia”
Case 2
TextBox1.Text = “Anda”
Case 3
TextBox1.Text = “Kita”
Case 4
TextBox1.Text = “Mereka”
Case 5
TextBox2.Text = “Memakan”
Case 6
TextBox2.Text = “Mencium”
Case 7
TextBox2.Text = “Memakai”
Case 8
TextBox2.Text = “Mengendarai”
Case 9
TextBox2.Text = “Mencicipi”
Case 10
TextBox3.Text = “Kuburan”
Case 11
TextBox3.Text = “Tai Kotok”
Case 12
TextBox3.Text = “Munding Edan”
Case 13
TextBox3.Text = “Sepatu”
Case 14
TextBox3.Text = “Teh Botol”
End Select
End Sub
End Class

Keterangan:

Format syntax dibawah case –> TextBoxn.Text = “TEXT“.

dengan

n= bilangan bulat dengan nilai maksimalnya jumlah TextBox yang dibuat.

TEXT = text sesuai kehendak kita. Dapat berupa angka maipun huruf.

Penjelasan:

  • Case, adalah suatu kondisi dimana bila kita memperlakukan button dengan cara menglik, maka TextBox sesuai yang tertulis dalam syntax akan memunculkan tulisan sesuai dengan syntax.
  • TextBox2.Text = “A”.  (Artinya, bila kita mengklik Button, pada TextBox2 akan muncul tulisan A)
  • Key = Int(Rnd() * 15). (Artinya, Int adalah singkatan dari “integer”, atau dalam bahasa indonesia artinya bilangan bulat.
  • Angka 15 menunjukkan bahwa tersedia 15 Case atau efek yang ditimbulkan bila kita mengklik Button.
  • Case dimulai dari Case 0 s/d Case n. bila n = 15, maka ada limabelas Case, artinya Case dimulai dari Case 0 sampai Case 14

Bila tidak jelas atau sangat tidak jelas, maklum, saya juga masih belajar. Namun, bila ingin lebih jelas, atau agak jelas sedikt, boleh menghubungi saya melalui “ikhlasfathurahman@gmail.com”.