Program Viual Basic
Menggunakan Statement IF Then dan Select Case
Program yang saya buat ini ceritanya Program untuk melihat nama dokter beserta jadwal prakteknya. :D
Komponen-komponen yang terdapat pada Formnya yaitu 11 Label, 2 TextBox, dan 3 Command Button (OK, CLEAR, dan EXIT)
Langsung saja, tampilan formnya setelah dapat di running sebagai berikut :
Codingannya sebagai berikut :
Untuk Command OK
Private Sub Command1_Click()
intPilihan = Text1.Text
Label11.Caption = Pilihan
If Text1.Text = 1 Then
Label11.Caption = "Senin, Rabu, dan Jumat Jam 10.00-15.00"
End If
If Text1.Text = 2 Then
Label11.Caption = "Selasa, Kamis, dan Sabtu Jam 08.30-14.30"
End If
If Text1.Text = 3 Then
Label11.Caption = "Senin dan Rabu Jam 09.00-1600"
End If
If Text1.Text = 4 Then
Label11.Caption = "Selasa dan Kamis Jam 08.00-14.00"
End If
If Text1.Text = 5 Then
Label11.Caption = "Kamis, Jumat, dan Sabtu Jam 09.30-15.00"
End If
If Text1.Text = 6 Then
Label11.Caption = "Jumat dan Sabtu Jam 10.00-15.30"
End If
End Sub
Untuk Command CLEAR
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Label11.Caption = ""
End Sub
Untuk Command EXIT
Private Sub Command2_Click()
Unload Me
MsgBox "Anda Yakin Ingin Keluar?", vbYesNoCancel, "Header"
End Sub
Pada Text1 (TextBox untuk mengisi "Pilihan Anda"), isikan dengan Codingan dibawah ini, untuk menampilkan nama dokter :
Private Sub Text1_Change()
Dim Pilihan As Integer
intPilihan = Text1.Text
Select Case intPilihan
Case 1: Text2.Text = "dr. Rizma Nadira sp.PD."
Case 2: Text2.Text = "dr. Hidayat Syafi'i sp.PS."
Case 3: Text2.Text = "dr. Gie Fransisco sp.OG."
Case 4: Text2.Text = "dr. Indira Shinaa sp.M."
Case 5: Text2.Text = "dr. Sultan Ghani sp.KK."
Case 6: Text2.Text = "dr. Kiesha Ananda sp.B"
End Select
End Sub
Selamat Belajar dan Selamat Mencoba :)
_Semoga Bermanfaat_
0 komentar:
Posting Komentar