LA VB ke 6

Listing program pada form1
Private Sub Command1_Click()
If Text1.Text = "tes" And Text2.Text = "123" Then
    a = MsgBox("welcome", vbOKOnly, "login")
    Form1.Hide
    Form2.Show
   
Else: a = MsgBox("Password Salah", vbOKOnly, "login")
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub


-          Listing Program Form2
Private Sub Command1_Click()
c = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = c

End Sub

Private Sub Command2_Click()
c = Val(Text1.Text) - Val(Text2.Text)
Label3.Caption = c
End Sub

Private Sub Command3_Click()
c = Val(Text1.Text) * Val(Text2.Text)
Label3.Caption = c

End Sub

Private Sub Command4_Click()
c = Val(Text1.Text) / Val(Text2.Text)
Label3.Caption = c
End Sub
Private Sub Form_Load()
End Sub

Listing Program pada MDIform1
Private Sub EXIT_Click()
End
End Sub

Private Sub KALKULATOR_Click()
Form2.Show
MDIForm1.Hide
End Sub

Private Sub LOGIN_Click()
Form1.Show
MDIForm1.Hide
End Sub

Private Sub MDIForm_Load()
Form2.Show
End Sub

LOGIKA

Private Sub Command1_Click()

If Text1.Text = "tes" And Text2.Text = "123" Then

    a = MsgBox("welcome", vbOKOnly, "login")

    Form1.Hide

    Form2.Show

Else: a = MsgBox("Password Salah", vbOKOnly, "login")

End If Program diatas adlaha statement untuk jika suatu variabel yang terdiri dari text 1 dengan di variabel  2 dan varabel yang menggunakan jika dan pengulangan pada form 2. 

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

End Sub

Sebuah statement yang yang memeberi focus pada suatu form, agar bisa mengeluarkan inputan melalui mdi.

Private Sub Command1_Click()

c = Val(Text1.Text) + Val(Text2.Text)

Label3.Caption = c 

End Sub

Program diatas adalah statement untuk menjumlahkan variabel yang ada di text 1 dengan di variabel 2 dan jumlahnya dioper ke variabel c, dan dikeluarkan di label 3.

Private Sub Command2_Click()

c = Val(Text1.Text) - Val(Text2.Text)

Label3.Caption = c

End Sub

Program diatas adalah statement untuk menjumlahkan variabel yang ada di text 1 dengan di variabel 2 dan mengurangkan dengan  dioper ke variabel c, dan dikeluarkan di label 3.

Private Sub Command3_Click()

c = Val(Text1.Text) * Val(Text2.Text)

Label3.Caption = c 

End Sub Program diatas adalah statement untuk menjumlahkan variabel yang ada di text 1 dengan di variabel 2 dan kali kan dengan  dioper ke variabel c, dan dikeluarkan di label 3.

Private Sub Command4_Click()

c = Val(Text1.Text) / Val(Text2.Text)

Label3.Caption = c

End Sub

Program diatas adalah statement untuk menjumlahkan variabel yang ada di text 1 dengan di variabel 2 dan pembagian dengan  dioper ke variabel c, dan dikeluarkan di label 3.

Private Sub Form_Load()

End Sub

Pertama user menggunakan  private sub form, karena jendela utama dalam mengerjakan program vb

Listing Program pada MDIform1

Private Sub EXIT_Click()

End

End Sub

Sebuah mengeluarkan inputannya melalui variabel exit, apabila memasukkan data inputannya, agar bisa exit.

 

Private Sub KALKULATOR_Click()

Form2.Show

MDIForm1.Hide

End Sub

 User membuat kalkulator dengan menggunkan program vb dengan membuat kalkulator, dan menampilkan form 2 ke form 1.

Private Sub LOGIN_Click()

Form1.Show

MDIForm1.Hide

End Sub

User membuat menu program login, agar bisa user menglogin program yang dia buat. 

Private Sub MDIForm_Load()

Form2.Show

End Sub

 User menngunakan mdi, agar inputan dari form 1 bisa ke input di form 2.

OUTPUT
Form 1

MDI form 1