Caranya sangat mudah, buka program vb(visual basic 6.0) lalu buat sebuah form seperti gambar dibawah ini!!!
Agar mempermudah dalam memasukan rumusnya namanya harus diubah.
Misalkan:
Combo1
JP1
Label yg nomor 1
J1
Label yg nomor 2
J2
Label yg nomor 3
J3
Label yg nomor 4
J4
Label yg nomor 5
J5
Label yg nomor 6
J6
Lalu masukan rumus seperti ini!!!
Private Sub Form_Load()
'code program untuk combo1'
JP1.AddItem "SENIN"
JP1.AddItem "SELASA"
JP1.AddItem "RABU"
JP1.AddItem "KAMIS"
JP1.AddItem "JUM'AT"
JP1.AddItem "SABTU"
End Sub
Private Sub JP1_Click()
If JP1.Text = "SENIN" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
else
If JP1.Text = "SELASA" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
else
If JP1.Text = "RABU" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
else
If JP1.Text = "KAMIS" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
else
If JP1.Text = "JUM’AT" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
else
If JP1.Text = "SABTU" Then
j1.Caption = "jam"
j2.Caption = "Mata pelajaran"
j3.Caption = "nama guru"
j4.Caption = "jam"
j5.Caption = "mata pelajaran"
j6.Caption = "nama guru"
end if
end if
end if
end if
end if
end sub
*untuk rumus "jam, mata pelajaran, dan nama guru" disesuaikan dengan yang ingin anda buat!
