Membuat Program lulus/tidak Menggunakan VB 6.0
Program satu ini merupakan program dimana kita menginput data nilai yang kemudian secara otomatis program akan menghasilkan output berupa pernyataan, “Lulus”, atau “Tidak Lulus”.
Private Sub Command1_Click()
If Text1.Text >= 60 Then
Text2.Text = "Lulus"
Else
Text2.Text = "Tidak Lulus"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Sama seperti program sebelumnya (No.1) hanya saja, program satu ini menambahkan grade di tiap nilai yang kita Input jadi hanya menambahkan codingan ini di commandbutton1.
If Text1.Text >= 80 Then
Text3.Text = "A"
ElseIf Text1.Text >= 70 Then
Text3.Text = "B"
ElseIf Text1.Text >= 60 Then
Text3.Text = "C"
ElseIf Text1.Text >= 30 Then
Text3.Text = "D"
Else
Text3.Text = "E"
End if
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar