Diklogi

Code programnya :

Dim gp As Currency
Dim ul As Currency
Dim ut As Currency
Dim tk As Currency
Dim ti As Currency
Dim ta As Currency
Dim pj As Currency
Dim jst As Currency
Dim jml As Currency
Dim pot As Currency

Private Sub Form_Load()
Label3.Caption = Format(Now, " dddd" & vbCrLf & "  dd MMMM yyyy")

Combo1.AddItem "Marketing"
Combo1.AddItem "Promosi"
Combo1.AddItem "Keuangan"
Combo1.AddItem "Personalia"
Combo1.AddItem "Logistik"
Combo1.AddItem "Humas"
Combo2.AddItem "Manager"
Combo2.AddItem "Staff"
End Sub

Private Sub Combo2_Click()
If Combo2.Text = "Manager" Then
gp = 3000000
ut = 1000000
tk = 500000
ti = 1000000
ta = 1000000
pj = 3000000 * (10 / 100)
jst = 300000
Text4.Text = gp
Text6.Text = ut
Text7.Text = tk
Text8.Text = ti
Text9.Text = ta
Text10.Text = pj
Text11.Text = jst
ElseIf Combo2.Text = "Staff" Then
gp = 1500000
ut = 500000
tk = 250000
ti = 1000000
ta = 1000000
pj = 1500000 * (10 / 100)
jst = 300000
Text4.Text = gp
Text6.Text = ut
Text7.Text = tk
Text8.Text = ti
Text9.Text = ta
Text10.Text = pj
Text11.Text = jst
End If
End Sub

Private Sub Command1_Click()
ul = Text5.Text
jml = gp + ul + ut + tk + ti + ta
pot = pj + jst
Text12.Text = jml
Text13.Text = pot
Text14.Text = jml - pot
End Sub

Private Sub Command2_Click()
End
End Sub



Atau ingin tampilan seperti ini yang tidak memakai struktur kontrol IF.






















Code programnya :

Dim gp As Currency
Dim ul As Currency
Dim um As Currency
Dim ut As Currency
Dim tk As Currency
Dim ti As Currency
Dim ta As Currency
Dim pj As Currency
Dim jst As Currency
Dim jml As Currency
Dim pot As Currency

Private Sub Form_Load()
Label3.Caption = Format(Now, " dddd" & vbCrLf & "  dd MMMM yyyy")

Combo1.AddItem "Marketing"
Combo1.AddItem "Promosi"
Combo1.AddItem "Keuangan"
Combo1.AddItem "Personalia"
Combo1.AddItem "Logistik"
Combo1.AddItem "Humas"
End Sub

Private Sub Option2_Click()
gp = 3000000
um = 1000000
ut = 1000000
tk = 500000
ti = 750000
ta = 750000
pj = 3000000 * (10 / 100)
jst = 300000
Text5.Text = gp
Text7.Text = um
Text8.Text = ut
Text9.Text = tk
Text10.Text = ti
Text11.Text = ta
Text12.Text = pj
Text13.Text = jst
End Sub

Private Sub Option3_Click()
gp = 1500000
um = 500000
ut = 500000
tk = 250000
ti = 500000
ta = 500000
pj = 1500000 * (10 / 100)
jst = 300000
Text5.Text = gp
Text7.Text = um
Text8.Text = ut
Text9.Text = tk
Text10.Text = ti
Text11.Text = ta
Text12.Text = pj
Text13.Text = jst
End Sub

Private Sub Command1_Click()
ul = Text6.Text
jml = gp + ul + um + ut + tk + ti + ta
pot = pj + jst
Text14.Text = jml
Text15.Text = pot
Text16.Text = jml - pot
End Sub

Private Sub Command2_Click()
End
End Sub

Salam ilmu pengetahuan ^^