- 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:
Posting Komentar