Category Archives: Uncategorized

Tugas Membuat DataBase   Private Sub cmdbaru_Click() Data1.Recordset.AddNew End Sub Private Sub cmdbatal_Click() cbokb = “(pilih kode)” txtjb = “” txtp = “” txttahun = “” txtpen = “” txthg = “” End Sub Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub … Continue reading →

1.PENJUALAN TIKET KERETA API Private Sub cmdbaru_Click() Data1.Recordset.AddNew txtkt = “” txtkt.SetFocus End Sub Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub Private Sub cmdkeluar_Click() If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then End End If End Sub … Continue reading →

TIPE A Private Sub cmdkeluar_Click() End End Sub   Private Sub cmdlagi_Click() Txtkt.SetFocus Txtkt = “” Txtht = “” Txtjk = “” Txtjb = “” Textjt = “” Txttotalp = “” End Sub   Private Sub Cmdproses_Click() Dim S As … Continue reading →

  TUGAS 1 Private Sub ChkBold_Click() ‘Membuat Teks tebal If ChkBold.Value = 1 Then lblteks.FontBold = True Else lblteks.FontBold = False End If End Sub Private Sub ChkItalic_Click() ‘Membuat Teks Miring If ChkItalic.Value = 1 Then lblteks.FontItalic = True Else … Continue reading →

PROGRAM KALKULATOR MINI 1.1  Private Sub Command1_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) Text6.Text = Val(Text4.Text) + Val(Text5.Text) Text9.Text = Val(Text7.Text) – Val(Text8.Text) Text12.Text = Val(Text10.Text) / Val(Text11.Text) End Sub Private Sub Command2_Click() Text1.Text = “” Text2.Text = “” Text3.Text = … Continue reading →

TUGAS 1 Private Sub Command1_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” End Sub Private Sub Command2_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” End Sub Private Sub Command3_Click() Unload Me End Sub Private … Continue reading →