program-program untuk Visual basic

Program untuk combo box

Private Sub Combo1_Click()

If Combo1 = "PENTIUM 4" Then

Text1.Text = 10000

End If

If Combo1 = "DUAL CORE" Then

Text1.Text = 50000

End If

If Combo1 = "CORE TWO DUO" Then

Text1.Text = 100000

End If

Text2.SetFocus

End Sub

Program untuk combo box

Private Sub Form_Load()

Combo1.AddItem "PENTIUM 4"

Combo1.AddItem "DUAL CORE"

Combo1.AddItem "CORE TWO DUO"

End Sub

Program untuk membersihkan text box

Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text1.SetFocus

End Sub

Program untun command button

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Program untun command button

Private Sub Command3_Click()

End

End Sub

ILMU BUDAYA DASAR

UNIVERSITAS GUNADARMA