Tutorial Visual Basic nilai IPK

ini salah satu tutorial visual basic yg menampilkan program yg menampilkan nilai dan IPK :D
selamat mencoba gan :))......



1. Form 1 (Latihan IPK 1)


Private Sub Command1_Click()
nilai = Val(Text1.Text)
If nilai >= 70 Then
Text2.Text = "lulus"
Else
Text2.Text = "tidak lulus"
End If
End Sub

Private Sub Command2_Click()

Form2.Show

End Sub

satu 

Screenshotnya :

2. Form 2 (Latihan IPK 2)

Private Sub Command1_Click()

sem1 = Val(Text1.Text)

sem2 = Val(Text2.Text)

sem3 = Val(Text3.Text)

sem4 = Val(Text4.Text)

sem5 = Val(Text5.Text)

sem6 = Val(Text6.Text)

sem7 = Val(Text7.Text)

sem8 = Val(Text8.Text)

Text9.Text = (sem1 + sem2 + sem3 + sem4 + sem5 + sem6 + sem7 + sem8) / 8

IPK = Val(Text1.Text)

If IPK >= 3.51 Then

Text10.Text = "CUMLAUDE"

ElseIf 3# <= IPK <= 3.5 Then

Text10.Text = "SANGAT MEMUASKAN"

ElseIf 2.5 <= IPK <= 2.9 Then

Text10.Text = "MEMUASKAN"

ElseIf IPK <= 2.4 Then

Text10.Text = "MENGULANG"

End If

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

Private Sub Command3_Click()

MDIForm1.Show

End Sub

Screenshotnya : 

3. Form 3 (Login)

Private Sub Command1_Click()

username = (Text1.Text)

password = (Text2.Text)

If username = "Agung Fajar Riyadi" And password = "ti111034" Then

MsgBox ("Log In Succes")

Form1.Show

Else

MsgBox ("Log In Failed")

End If

End Sub

Screenshotnya :

4. Form 4 (About)

Screenshotnya :

5. MDIForm1 (Home) 

Private Sub mabout_Click()

Form4.Show

End Sub

Private Sub mexit_Click()

Unload Me

End Sub

Private Sub mlatihanipk1_Click()

Form1.Show

End Sub

Private Sub mlatihanipk2_Click()

Form2.Show

End Sub

Private Sub mlogin_Click()

Form3.Show

End Sub

Screenshotnya :