PULANG PETANG SETIAP HARI

Untitled

Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTNIK.SetFocus
End If
End Sub

Private Sub cmdproses_Click()
TXTTAHUN = Left(TXTNIK.Text, 4)
G = Mid(TXTNIK.Text, 5, 1)
If G = “A” Then
TXTGOL = “A”
TXTJABATAN = “Manager”
TXTGAPOK = “4000000”
TXTTUN = “1025000”
ElseIf G = “B” Then
TXTGOL = “B”
TXTJABATAN = “Ka.Seksi”
TXTGAPOK = “3500000”
TXTTUN = “975000”
ElseIf G = “C” Then
TXTGOL = “C”
TXTJABATAN = “Staff”
TXTGAPOK = “3000000”
TXTTUN = “925000”
End If
S = Mid(TXTNIK.Text, 7, 1)
If S = “S” Then
TXTKODE = “S”
TXTSTATUS = “Single”
ElseIf S = “M” Then
TXTKODE = “M”
TXTSTATUS = “Menikah”
ElseIf S = “J” Then
TXTKODE = “J”
TXTSTATUS = “Janda”
ElseIf S = “D” Then
TXTKODE = “D”
TXTSTATUS = “Duda”
End If
B = Right(TXTNIK.Text, 3)
If B = “KEU” Then
TXTBAGIAN = “Accounting”
ElseIf B = “ADM” Then
TXTBAGIAN = “Administrasi”
ElseIf B = “SDM” Then
TXTBAGIAN = “General Affair”
ElseIf B = “EDP” Then
TXTBAGIAN = “IT Unit”
ElseIf B = “SPM” Then
TXTBAGIAN = “Security”
End If
TXTTOTAL = Val(TXTGAPOK.Text) + Val(TXTTUN.Text)
End Sub

Private Sub cmdlagi_Click()
TXTNAMA.SetFocus
TXTNAMA = “”
TXTNIK = “”
TXTGOL = “”
TXTKODE = “”
TXTSTATUS = “”
TXTTH = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUN = “”
TXTTOTAL = “”
End Sub
Private Sub cmdbatal_Click()
TXTNAMA.SetFocus
TXTNAMA = “”
TXTNIK = “”
TXTGOL = “”
TXTKODE = “”
TXTSTATUS = “”
TXTTHN = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUN = “”
TXTTOTAL = “”
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda yakin akan keluar”, vbQuestion + vbOKCancel, “informasi”)
If p = vbOK Then
End
End If
End Sub

Advertisements
By sitimahmudahstmikpringsewu

NIDN

Untitled

Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan.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
Txtgapok.Text = gapok
Txttunjangan.Text = tunjangan
Txtpajak.Text = pajak
Txttotal.Text = total – pajak
End Sub

Private Sub CMDBatal_Click(Index As Integer)
Txtnidn.SetFocus
Txtnidn.Text = “”
TxtNP.Text = “”
Cbogolongan.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub

Private Sub CMDKeluar_Click()
End
End Sub

Private Sub CMDLagi_Click(Index As Integer)
Txtnidn.SetFocus
Txtnidn.Text = “”
TxtNP.Text = “”
Cbogolongan.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub
Public Sub kosong()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogolongan.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub

By sitimahmudahstmikpringsewu

Penjualan Laptop APPLE

 

Untitled

Private Sub cbokode_Click()
Txtjj.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim penjualan, discount, kode, merk, bayar, a, b As String
Dim harga As Variant
kode = Mid(Cbokode.Text, 7, 5)
If kode = “MC965” Then
merk = “Apple MacBook Air MC965”
harga = “12800000”
ElseIf kode = “MC966” Then
merk = “Apple MacBook Air MC966”
harga = “15800000”
ElseIf kode = “MC968” Then
merk = “Apple MacBook Air MC968”
harga = “9900000”
ElseIf kode = “MC969” Then
merk = “Apple MacBook Air MC969”
harga = “11900000”
ElseIf kode = “MC700” Then
merk = “Apple MacBook Air MC700”
harga = “10800000”
ElseIf kode = “MC721” Then
merk = “Apple MacBook Air MC721”
harga = “15900000”
ElseIf kode = “MC723 ” Then
merk = “Apple MacBook Air MC723”
harga = “19300000”
ElseIf kode = “MC724” Then
merk = “Apple MacBook Air MC724”
harga = “13700000”
ElseIf kode = “MC311” Then
merk = “Apple MacBook Air MC311”
harga = “24200000”
ElseIf kode = “MC313” Then
merk = “Apple MacBook Air MC313”
harga = “11900000”
ElseIf kode = “MC314” Then
merk = “Apple MacBook Air MC314”
harga = “14700000”
ElseIf kode = “MC318” Then
merk = “Apple MacBook Air MC318”
harga = “17600000”
ElseIf kode = “MC322” Then
merk = “Apple MacBook Air MC322”
harga = “21300000”
ElseIf kode = “MC965” Then
merk = “Apple MacBook Air MC965”
harga = “12800000”
ElseIf kode = “MC966” Then
merk = “Apple MacBook Air MC966”
harga = “15800000”
End If
Txtmerk.Text = merk
Txths.Text = harga
a = Val(Txtjj.Text)
b = Val(Txths.Text)
penjualan = a * b
txthp.Text = penjualan
Select Case txthp.Text
Case Is > 140000000
discount = 0.15 * penjualan
Case Is > 135000000
discount = 0.1 * penjualan
Case Is > 130000000
discount = 0.05 * penjualan
Case Is > 125000000
discount = 0.02 * penjualan
End Select
penjualan = Val(txthp.Text)
Txtdis.Text = discount
Txttb.Text = Val(txthp.Text) – Val(Txtdis.Text)
End Sub
Private Sub cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
txthp.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
Cbokode.AddItem “Apple MC968 MasBook Air”
Cbokode.AddItem “Apple MC969 MasBook Air”
Cbokode.AddItem “Apple MC700 MasBook Pro”
Cbokode.AddItem “Apple MC721 MasBook Pro”
Cbokode.AddItem “Apple MC723 MasBook Pro”
Cbokode.AddItem “Apple MC724 MasBook Pro”
Cbokode.AddItem “Apple MC311 MasBook Pro”
Cbokode.AddItem “Apple MC313 MasBook Pro”
Cbokode.AddItem “Apple MC314 MasBook Pro”
Cbokode.AddItem “Apple MC318 MasBook Pro”
Cbokode.AddItem “Apple MC322 MasBook Pro”
Cbokode.AddItem “Apple MC965 MasBook Air”
Cbokode.AddItem “Apple MC966 MasBook Air”
End Sub

By sitimahmudahstmikpringsewu

Nama,NPM

 

 

Untitled

Private Sub Cmdbatal_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJ.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtNU.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJ.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtNU.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim B As String
TxtTM.Text = “20” & Left(TxtNPM.Text, 2)
B = Mid(TxtNPM.Text, 3, 1)
If B = “1” Then
TxtJ.Text = “Sistem Informasi”
ElseIf B = “2” Then
TxtJ.Text = “Manajemen Informatika”
ElseIf B = “3” Then
TxtJ.Text = “Tehnik Informatika”
ElseIf B = “4” Then
TxtJ.Text = “Manajemen & Komp. Akuntansi”
End If
B = Mid(TxtNPM.Text, 4, 2)
If B = “01” Then
TxtPS.Text = “Strata Satu”
ElseIf B = “02” Then
TxtPS.Text = “Diploma Tiga”
ElseIf B = “03” Then
TxtPS.Text = “Diploma Empat”
ElseIf B = “04” Then
TxtPS.Text = “Diploma Dua”
End If
TxtNU.Text = Right(TxtNPM.Text, 3)
End Sub

Private Sub Form_Activate()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJ.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtNU.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub

By sitimahmudahstmikpringsewu

Tulis Nama Anda

Untitled

Private Sub tebal_Click()
Label2.FontBold = tebal.Value
End Sub

Private Sub miring_Click()
Label2.FontItalic = miring.Value
End Sub
Private Sub CmdOK_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Cmdselesai_Click()
Unload Me
End Sub

Private Sub biru_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub merah_Click()
Label2.ForeColor = vbRed
End Sub

By sitimahmudahstmikpringsewu

penjualan harga tiket

Untitled

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jenis, harga, jam As String
Select Case txtkt.Text
Case Is = “BIM”
jenis = “BIMA”
harga = “50000”
jam = “16.00”
Case Is = “EKO”
jenis = “EKONOMI”
harga = “35000”
jam = “19.00”
Case Is = “MUT”
jenis = “MUTIARA”
harga = “23000”
jam = “17.00”
Case Is = “SEN”
jenis = “SENJA”
harga = “15000”
jam = “20.00”
End Select
txtjk.Text = jenis
txtht.Text = harga
txtjb.Text = jam
txtjt.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAsci = 13 Then
txttotalp.SetFocus
End If
txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)
End Sub

 

By sitimahmudahstmikpringsewu

Aplikasi penghitungan gaji

Untitled

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 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
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

By sitimahmudahstmikpringsewu

MEMBUAT NAMA

Untitled

Private Sub Check1_Click()
Label2.FontBold = CHECK1VALUE
End Sub

Private Sub Check2_Click()
Label2.FontItalic = CHECK2VALUE
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
Private Sub Check1_Click()
Label2.FontBold = CHECK1VALUE
End Sub

Private Sub Check2_Click()
Label2.FontItalic = CHECK2VALUE
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

By sitimahmudahstmikpringsewu

perhitungan harga

Untitled

Private Sub Command1_Click()
textB.Text = Val(textA.Text) * 0.1
textC.Text = Val(textA.Text) – Val(textB.Text)
End Sub

Private Sub Command2_Click()
textA.SetFocus
textA = “”
textB = “”
textC = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub textA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textB.SetFocus
End If
End Sub

By sitimahmudahstmikpringsewu

perkalian dua bilangan

Untitled

Private Sub Command1_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub

Private Sub Command2_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub

By sitimahmudahstmikpringsewu