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
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
program iseng-iseng yang lumayan untuk belajar VB.6,
selamat mencoba..
0 komentar:
Posting Komentar