Jumat, 16 Oktober 2009

contoh program Select Case pada vb6.0

- Buka program vb6.0
- Kemudian buat project baru baru dengan cara klik file,New Project,Pilih Standard,lalu OK
- Siapkan sebuah TextBox dan command button,kemudian hapus text yang berada di TextBox dan ganti nama command button sesuai dengan keinginan pada jendela Properties

Kemudian ketik script dibawah ini di command button
Private Sub Command1_Click()
Dim sBulan As String

Select Case Val(Text1.Text)
Case 1
sBulan = "Januari"
Case 2
sBulan = "Februari"
Case 3
sBulan = "Maret"
Case 4
sBulan = "April"
Case 5
sBulan = "Mei"
Case 6
sBulan = "Juni"
Case 7
sBulan = "Juli"
Case 8
sBulan = "Agustus"
Case 9
sBulan = "September"
Case 10
sBulan = "Oktober"
Case 11
sBulan = "November"
Case 12
sBulan = "Desember"
End Select

MsgBox "Bulan " & sBulan, vbOKOnly, "Bulan"

End Sub

- Kemudian jalankan program tersebut dengan cara Run>Start atau tekan F5

Tidak ada komentar:

Poskan Komentar