Tutorial Visual Basic

Kali ini saya akan mempost Tutorial VB , tentang  menentukan Nilai Kelulusan , Predikat IPK, dan Login.
langsung saja tidak usah banyak bacot.
1.Form MDI

Coding MDI
Private Sub mExit_Click()
End
End Sub

Private Sub mkelulusan_Click()
Form1.Show
End Sub

Private Sub mLogin_Click()
Form3.Show
End Sub

Private Sub mPredikat_Click()
Form2.Show
End Sub





2.Form 1 (Menentukan Kelulusan)

Coding Kelulusan
Private Sub Command1_Click()
Nilai = Val(Text1.Text)
If Nilai > 70 Then
Text2.Text = "Lulus"
Else
Text2.Text = "Tidak Lulus"
End If
End Sub





3.Form 2 (Menentukan Predikat)

Coding Predikat
Private Sub Command1_Click()
Nilai1 = Val(Text1.Text)
Nilai2 = Val(Text2.Text)
Nilai3 = Val(Text3.Text)
Nilai4 = Val(Text4.Text)
Nilai5 = Val(Text5.Text)
Nilai6 = Val(Text6.Text)
Nilai7 = Val(Text7.Text)
Nilai8 = Val(Text8.Text)
Text9.Text = (Nilai1 + Nilai2 + Nilai3 + Nilai4 + Nilai5 + Nilai6 +

Nilai7 + Nilai8) / 8
If Text9.Text >= 3.51 Then
Text10.Text = "CUMLAUDE"
ElseIf 3# >= Text9.Text >= 3.5 Then
Text10.Text = "sangat memusakan"
ElseIf 2.5 >= Text9.Text < 3# Then
Text10.Text = "Memuaskan"
ElseIf Text9.Text < 2.5 Then
Text10.Text = "memalukan"
End If


4.Form 3(Login)

Coding Login
Private Sub Command1_Click()
Username = (Text1.Text)
Pasword = (Text2.Text)
If Username = "poltek" And Pasword = "TEDC" Then
MsgBox ("Log in Sukses")
Form2.Show
Else
MsgBox ("Log in gagal")
Form3.Show
End If
End Sub


"Cukup sekian Tutorial Visual Basic yang bisa saya Post, jika ada yang kurang di mengerti itu tergantung amal Ibadah :D ....