Visual Basic : Menampilkan Nama Bulan

Pada tutorial ini akan dibahas bagaimana menggunakan percabangan dan perulangan pada Visual Basic. Untuk kali pembuatan program ini menggunakan percabangan select case dan perulangan do-while. Langkah-langkah untuk membuat program dengan memakai percabangan select case yaitu :

1.      Masuk ke Visual Basic 6.0 lalu klik standard EXE dan klik OK

setelah itu akan muncul tampilan seperti berikut :

1.      Setelah muncul kotak form seperti di atas, lalu membuat 2 label, untuk judul dan keterangan dengan menggunakan tools :

       

Lalu buat 2 label untuk (untuk judul dan keterangan)

1 textbox untuk memasukan angka

3 button (untuk Submit menampilkan, Clear, dan Exit)

1.      Setelah itu masukan syntak pada Form_load () untuk tampilan Form

Private Sub Form_Load()

Label1.Caption = "MENAMPILKAN NAMA BULAN"

Label2.Caption = "MASUKAN NOMOR URUTAN BULAN"

Text1.Text = ""

Command1.Caption = "TAMPILKAN NAMA BULAN"

Command2.Caption = "CLEAR"

Command3.Caption = "EXIT"

End Sub

Untuksedikit memberi efek pada tampilan, disini menggunakan properties agar lebih mudah, untuk label1klik property untuk tulisan berwarna abu-abu dan tulisan center         

Lalu akan muncul seperti gambar berikut :

Setelah tampilan sudah jadi, kemudian ketikkan syntak pada command1 :

Dengan menggunaka fungsi percabangan yaitu select case, kenapa di command1 karena, fungsi tersebut akan berfungsi ketika mengklik pada command button1, maka syntak tersebut di ketikkan pada Command1_Click() :

Private Sub Command1_Click()

Dim nBulan As String

Dim urut As Integer

urut = Val(Text1.Text)

Select Case Val(Text1.Text)

Case 1

nBulan = "JANUARI"

Case 2

nBulan = "FEBRUARI"

Case 3

nBulan = "MARET"

Case 4

nBulan = "APRIL"

Case 5

nBulan = "MEI"

Case 6

nBulan = "JUNI"

Case 7

nBulan = "JULI"

Case 8

nBulan = "AGUSTUS"

Case 9

nBulan = "SEPTEMBER"

Case 10

nBulan = "OKTOBER"

Case 11

nBulan = "NOVEMBER"

Case 12

nBulan = "DESEMBER"

End Select

MsgBox "Bulan urutan ke- " & urut & nBulan, vbOKOnly, "Bulan"

End Sub

ketika mengklik button tampilkan bulan  :

Agar button2 = Clear berfungsi, maka ketikkan syntak :

Private Sub Command2_Click()

Text1.Text = ""

Text1.SetFocus

End Sub

Ketika mengklik button Clear maka text akan kosong :

Agar button3 = Exit berfungsi, maka ketikkan syntak :

Private Sub Command3_Click()

Unload Me

End Sub

   Setelah mengklik button exit maka akan kembali ke awal lagi.

OUTPUT