pelajaran vb

Private Sub Command2_Click()
Text1.Text = ” ”
Text2.Text = ” ”
Text3.Text = ” ”
Text4.Text = ” ”
Text5.Text = ” ”

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.List(0) = “VERLINA”
Combo1.List(1) = “NIA”
Combo1.List(2) = “YULI”
Combo1.List(3) = “YAKA”
Combo1.List(4) = “SHELA”
End Sub

Private Sub Text2_Change()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2
If (Text3.Text) < 60 Then
Text4.Text = “D”
ElseIf (Text3.Text) < 75 Then
Text4.Text = “C”
ElseIf (Text3.Text) < 85 Then
Text4.Text = “B”
Else
Text4.Text = “A”
End If
If (Text3.Text) > 60 Then
Text5.Text = “LULUS”
Else
Text5.Text = “GAGAL”
End If

End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: