program sederhana visual basic 6.0

kode/syntaks :

Private Sub Command1_Click()

MsgBox ("yakin ingin melihat")

If Text1.Text = "SENIN" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "1-2"

Text5.Text = "E"

ElseIf Text1.Text = "SELASA" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "3-4"

Text5.Text = "G"

ElseIf Text1.Text = "RABU" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "5-6"

Text5.Text = "D"

ElseIf Text1.Text = "KAMIS" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "7-8"

Text5.Text = "G"

ElseIf Text1.Text = "JUMAT" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "1-2"

Text5.Text = "E"

ElseIf Text1.Text = "SABTU" Then

Text2.Text = "FISIKA"

Text3.Text = "RERE SEPTIADI"

Text4.Text = "3-4"

Text5.Text = "G"

Else

Text2.Text = "SALAH INPUT"

Text3.Text = "SALAH INPUT"

Text4.Text = "SALAH INPUT"

Text5.Text = "SALAH INPUT"

End If

End Sub

Private Sub Command2_Click()

MsgBox ("ANDA YAKIN INGIN MENGHAPUS")

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

MsgBox ("ANDA YAKIN MAU KELUAR")

End

End Sub