VISUAL BASIC Form tampilan awal        Tampilan awal saat program di jelaskan yang menampilkan gambit seperti  di atas isi dari... 07:37

VISUAL BASIC

Form tampilan awal

       Tampilan awal saat program di jelaskan yang menampilkan gambit seperti  di atas isi dari menu  file : exit , form : kelulusan , predikat , log in help : aboutus
 Form setelah di pilih kelulusan 
      
       Tampilan saat memesukan kelulusan apa bila kurang dari 70 maka tidak akan lulus . apa bila lebih akan lulus seperti gambar di bawah :

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

Private Sub Command3_Click()
MDIForm1.Show

End Sub


 Form setelah di pilih Predikat 

        Tampilan saat memesukan predikat apa bila IPK akhir lebih dari 3.51 maka  akan CUMLAUDE. apa bila IPK lebih  3.00  akan  sangat memuaskan apa bila IPK lebih dari 2.50 maka akan memuaskan ,klu IPK kurang dari 2 maka akan memalukan   seperti gambar di bawah : 

 Private Sub Command1_Click()
IPKSemester1 = Val(Text1.Text)
IPKSemester2 = Val(Text2.Text)
IPKSemester3 = Val(Text3.Text)
IPKSemester4 = Val(Text4.Text)
IPKSemester5 = Val(Text5.Text)
IPKSemester6 = Val(Text6.Text)
IPKSemester7 = Val(Text7.Text)
IPKSemester8 = Val(Text8.Text)

Text9.Text = (IPKSemester1 + IPKSemester2 + IPKSemester3 + IPKSemester4 + IPKSemester5 + IPKSemester6 + IPKSemester7 + IPKSemester8) / 8

IPK = Val(Text9.Text)
If Text9.Text >= 3.51 Then
Text10.Text = "CUMLAUDE"
ElseIf 3.5 <= 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
End Sub

Private Sub Command2_Click()
Form3.Show
End Sub

Private Sub Command3_Click()
MDIForm1.Show
End Sub

 Form setelah di pilih login

       Tampilan saat memasukan form login saat memasukan user name nya poltek dan masukan password nya tedc maka doa akan membuka login berhasil klu yidak akan gagal ,,

Private Sub Command1_Click()

USERNAME = Text1.Text

PASWORD = Text2.Text

If USERNAME = "poltek" And PASWORD = "tedc" Then

MsgBox ("login berhasil")

MDIForm1.Show

Else

MsgBox ("login GAGAL")

End If

End Sub

Private Sub Command2_Click()

MDIForm1.Show

End Sub