aplikasi-gaji1.jpg

Image

 

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.1
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_Change()

End Sub

Advertisements

warna

Image

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

warna huruf

Image

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

program study

Image

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command4_Click()
Dim A, JS, PS, ASSTRING
Text6.Text = “20” & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “manajemen informatiaka”
ElseIf A = “3” Then
jr = “teknik informasi”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
Text4.Text = jr
A = Mid(Text2.Text, 4, 2)
If A = “00” Then
PS = “strata satu”
ElseIf A = “01” Then
PS = “diploma tiga”
ElseIf A = “02” Then
PS = “diploma empat”
ElseIf A = “03” Then
PS = “diploma dua”
End If
Text5.Text = PS
Text7.Text = Right(Text2.Text, 3)
End Sub

huruf mutu

Image

Private Sub Combo1_CLICK()
Dim NAMA, JURUSAN As String
Select Case Combo1.Text
Case “12201030”
NAMA = “MARIA CAMELIA”
JURUSAN = “M.INFORMATIKA”
Case “12201012”
NAMA = “AHMAD TOHIR”
JURUSAN = “M.INFORMATIKA”
Case “12201022”
NAMA = “ALEX BUDIYANTO”
JURUSAN = “M.INFORMATIKA”
End Select
Text1.Text = NAMA
Text2.Text = JURUSAN
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim Hm As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
Text8.Text = Hm
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “12201030”
Combo1.AddItem “12201012”
Combo1.AddItem “12201022”
End Sub

Private Sub Text3_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub Text4_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Dim NA As Integer
Dim HA As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
Text8.Text = Hm
End If
End Sub

nidn

Image

 

Private Sub Combo1_CLICK()
Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant
Select Case Combo1.Text
Case “I”
GAPOK = 1500000
TUNJANGAN = 150000
Case “II”
GAPOK = 2000000
TUNJANGAN = 200000
Case “III”
GAPOK = 2500000
TUNJANGAN = 250000
Case “IV”
GAPOK = 3000000
TUNJANGAN = 300000
Case Else
GAPOK = 0
TUNJANGAN = 0
End Select
TOTAL = GAPOK + TUNJANGAN
PAJAK = TOTAL * 0.1
Text3.Text = GAPOK
Text4.Text = TUNJANGAN
Text5.Text = PAJAK
Text6.Text = TOTAL – PAJAK
End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Kalkulator Visual Basic

1. Perkalian 2 bilangan

A12345

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

End Sub

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Rumus (bersih )End

End Sub

2. Kalkulator mini

A22222222

Private Sub Command1_Click()

Rumus (hitung)                 Text3.Text = Val(Text1.Text) + Val(Text2.Text)

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

Text5.Text = Val(Text1.Text) – Val(Text2.Text)

Text6.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Rumus  (lagi)      Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Rumus (keluar) End

End Sub

3. Perhitungan Harga Setelah Diskon 10%

A33456

Private Sub Text1_KeyPress(KeyAscii As Integer)

Rumus(manual diskon dan harga) If KeyAscii = 13 Then

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

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

End If

End Sub