Rabu, 22 November 2017

PROGRAM 8 BP1 TUGAS 2

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm  Case "17100090"  nama = "LOLA"  jurusan = "Teknik Informatika"  Case "17100091"  nama = "LILI"  jurusan = "Manajemen Informatika"  Case "17100092"  nama = "PUTRI WAHYUNI"  jurusan...

PROGRAM 7 BP1 TUGAS 2

Normal 0 false false false EN-US X-NONE X-NONE Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm  Case "17100090"  nama = "LOLA"  jurusan...

PROGRAM 6 BP1 TUGAS 2

Normal 0 false false false EN-US X-NONE X-NONE Private Sub Check1_Click() lbl2.FontBold = Check1.Value End Sub Private Sub Command1_Click()     lbl2.Caption = text1.Text End...

PROGRAM 5 BP1 TUGAS 2

Normal 0 false false false EN-US X-NONE X-NONE Private Sub check1_Click() If check1.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub check2_Click() If...

PROGRAM 4 BP1 TUGAS 2

Normal 0 false false false EN-US X-NONE X-NONE Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Command1_click() Text4...