Minggu, 11 April 2010

Membuat Program Sederhana dengan VB6



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


program iseng-iseng yang lumayan untuk belajar VB.6,

selamat mencoba..


0 komentar: