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

0 komentar:

Poskan Komentar