RUMUS VISUAL BASIC 0.6
jika ingin membuat daftar biaya menggunakan vb 0.6
Private Sub Combo1_Click()
If Combo1.Text = "KM" Then
Text3.Text = "DCC KAMPUS METRO"
Text4.SetFocus
ElseIf Combo1.Text = "BL" Then
Text3.Text = "DCC KAMPUS BANDAR LAMPUNG"
Text4.SetFocus
ElseIf Combo1.Text = "UN" Then
Text3.Text = "DCC KAMPUS UNIT2 "
Text4.SetFocus
ElseIf Combo1.Text = "PR" Then
Text3.Text = "DCC KAMPUS PRINGSEWU"
Text4.SetFocus
End If
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "KM"
Combo1.AddItem "BL"
Combo1.AddItem "UN"
Combo1.AddItem "PR"
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text4.Text = "MANAGEMEN INFORMATIKA"
Text5.Text = 20000
Text6.Text = 250000
Text7.Text = Val(Text5.Text) + (Text6.Text)
Text8.SetFocus
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text4.Text = "KAMPUTER AKUNTANSI"
Text5.Text = 30000
Text6.Text = 275000
Text7.Text = Val(Text5.Text) + (Text6.Text)
Text8.SetFocus
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Text4.Text = "DESAIN GRAFIS"
Text5.Text = 40000
Text6.Text = 300000
Text7.Text = Val(Text5.Text) + (Text6.Text)
Text8.SetFocus
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Text10.Text = Val(Text9.Text) - (Text9.Text)
Text11.Text = Val(Text9.Text) - (Text9.Text)
End If
End Sub
Private Sub Option5_Click()
If Option4.Value = True Then
Text10.Text = (Text9.Text)
Text11.Text = (Text9.Text)
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.Text = Val(Text8.Text) + (Text7.Text)
End If
End Sub
Private Sub Timer1_Timer()
If Label6.ForeColor = vbRed Then
Label6.ForeColor = vbWhite
Else
Label6.ForeColor = vbWhite
Label6.ForeColor = vbRed
End If
Label11.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label11.Left + Label11.Width) <= 0 Then
Label11.Left = Me.Width
End If
Label11.Left = Label11.Left - 100
End Sub
Share this on your favourite network
0 comments:
Post a Comment