Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu MNWINDOWS
End If
End Sub
Private Sub MNYES_Click()
End
End Sub
pembelian dan penjualan
Tinggalkan Balasan
form utama
Private Sub MNABOUT_Click()
Form1.Show
End Sub
Private Sub MNYA_Click()
End
End Sub
menu child dan windows
Private Sub MNANAK1_Click()
Form2.Show
End Sub
Private Sub MNANAK2_Click()
Form3.Show
End Sub
Private Sub MNANAK3_Click()
Form4.Show
End Sub
Private Sub MNCASCADE_Click()
Arrange vbCascade
End Sub
Private Sub MNEXIT_Click()
End
End Sub
Private Sub MNTUTUP1_Click()
Form2.Hide
End Sub
Private Sub MNTUTUP2_Click()
Form3.Hide
End Sub
Private Sub MNTUTUP3_Click()
Form4.Hide
End Sub
Private Sub MNUEXIT_Click()
End
End Sub
Private Sub TILEHORIZONTAL_Click()
Arrange vbHorizontal
End Sub
Private Sub TILEVERTICAL_Click()
Arrange vbVertical
End Sub
hide menu windows
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu MNWINDOWS
End If
End Sub
Private Sub MNCASCADE_Click()
Arrange vbCascade
End Sub
Private Sub MNHORIZONTAL_Click()
Arrange vbTileHorizontal
End Sub
Private Sub MNVERTIKAL_Click()
Arrange vbTileVertikal
End Sub
Private Sub MNYA_Click()
Unload Me
End Sub
pull down menu
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu MNEDIT
End If
End Sub
Private Sub MNEXIT_Click()
End
End Sub
nomor 5
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtbagian.Text = “”
txtjabatan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttoga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
s = Left(txtnik.Text, 4)
txttahun.Text = “2015”
s = Mid(txtnik.Text, 5, 1)
If s = “A” Then
txtgol.Text = “A”
txtjabatan.Text = “MANAJER”
txtgapok.Text = “4000000”
txttunjangan.Text = “1025000”
ElseIf s = “B” Then
txtgol.Text = “B”
txtjabatan.Text = “KA.SEKSI”
txtgapok.Text = “3500000”
txttunjangan.Text = “975000”
ElseIf s = “C” Then
txtgol.Text = “C”
txtjabatan.Text = “STAF”
txtgapok.Text = “3000000”
txttunjangan.Text = “925000”
End If
s = Mid(txtnik.Text, 7, 1)
If s = “S” Then
txtkode.Text = “S”
txtstatus.Text = “SINGLE”
ElseIf s = “M” Then
txtkode.Text = “M”
txtstatus.Text = “MENIKAH”
ElseIf s = “J” Then
txtkode.Text = “J”
txtstatus.Text = “JANDA”
ElseIf s = “D” Then
txtkode.Text = “D”
txtstatus.Text = “DUDA”
End If
s = Right(txtnik.Text, 3)
If s = “KEU” Then
txtbagian.Text = “ACOUNTING”
ElseIf s = “ADM” Then
txtbagian.Text = “Administrasi”
ElseIf s = “SDM” Then
txtbagian.Text = “General affair”
ElseIf s = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf s = “SPM” Then
txtbagian.Text = “SECURITY”
End If
txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub
Private Sub cmdbatal_click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtbagian.Text = “”
txtjabatan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttoga.Text = “”
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub
nomor 4
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txtttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txtttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdkeluar_click()
End
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Right(txtkb.Text, 2)
S = Mid(txtkb.Text, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi manajemen”
txtp.Text = “Andra setiawan”
ElseIf S = “EDP” Then
txtjb.Text = “elektronik data Procesing”
txtp.Text = “Desi istiqomah”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Sandi fitrajaya”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Tri indah sari”
ElseIf S = “RPL” Then
txtjb.Text = “Rekaya Perangkat Lunak ”
txtp.Text = “Ernita sari”
End If
S = Left(txtkb.Text, 1)
If S = “A” Then
txtpenerbit.Text = “Andi offset yogyakarta”
txthg.Text = “75900”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
txthg.Text = “62000”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
txthg.Text = “42000”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
txthg.Text = “53000”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
txthg.Text = “83000”
End If
End Sub
nomor 3
Private Sub cbokode_Click()
Dim merk, satuan As String
Select Case cbokode.Text
Case “Asus A43SA”
merk = “Asus A43SA-VX090D”
satuan = “5500000”
Case “Asus A43SD”
merk = “Asus A43SD-VX052D”
satuan = “4500000”
Case “Asus A43SJ”
merk = “Asus A43SJ-VX792D”
satuan = “4300000”
Case “Asus A43TA”
merk = “Asus A43TA-VX034D”
satuan = “4900000”
Case “Asus A43SL”
merk = “Asus A43Sl-VX264D”
satuan = “4300000”
Case “Apple MD311”
merk = “Apple MacBook Pro MD311”
satuan = “19300000”
Case “Apple MD313”
merk = “Apple MacBook Pro MD313”
satuan = “24200000”
Case “Apple MD314”
merk = “Apple MacBook Pro MD314”
satuan = “11900000”
Case “Apple MD322”
merk = “Apple MacBook Pro MD322”
satuan = “14700000”
Case “Apple MC965”
merk = “Apple MacBook Air MC965”
satuan = “21300000”
End Select
txtmerk.Text = merk
txths.Text = satuan
txtjj.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.SetFocus
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
End If
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub cmdproses_Click()
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus A43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
End Sub
nomor 2
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
Txtbp.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
Txtbp.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
s = Mid(txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “manajemen informatika”
ElseIf s = “3” Then
txtjurusan.Text = “tehnik informatika”
ElseIf s = “4” Then
txtjurusan.Text = “manajemen & komp.akuntansi”
End If
s = Mid(txtnpm.Text, 4, 2)
If s = “00” Then
txtpstudi.Text = “strata satu”
Txtbp.Text = “1950000”
txtterbilang.Text = “satu juta sembilan ratus lima puluh ribu rupiah”
ElseIf s = “01” Then
txtpstudi.Text = “diploma empat”
Txtbp.Text = “1750000”
txtterbilang.Text = “satu juta tujuh ratus lima puluh ribu rupiah”
ElseIf s = “02” Then
txtpstudi.Text = “diploma tiga”
Txtbp.Text = “1650000”
txtterbilang.Text = “satu juta enam ratus lima puluh ribu rupiah”
ElseIf s = “03” Then
txtpstudi.Text = “diploma dua”
Txtbp.Text = “1450000”
txtterbilang.Text = “satu juta empat ratus lima puluh ribu rupiah”
End If
txtnurut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
Txtbp.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
nomor 1
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Mid(txtnpm.Text, 3, 2)
s = Mid(txtnpm.Text, 5, 1)
If s = “1” Then
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “manajemen informatika”
ElseIf s = “3” Then
txtjurusan.Text = “manajemen & komp.akuntansi”
End If
s = Mid(txtnpm.Text, 6, 2)
If s = “01” Then
txtpstudi.Text = “strata satu”
ElseIf s = “02” Then
txtpstudi.Text = “diploma tiga”
ElseIf s = “03” Then
txtpstudi.Text = “diploma satu”
End If
s = Left(txtnpm.Text, 1) & Mid(txtnpm.Text, 6, 2)
If s = “E” & “01” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “200000”
txtbiaya.Text = “1900000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “E” & “02” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “150000”
txtbiaya.Text = “1650000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “E” & “03” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “150000”
txtbiaya.Text = “1350000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “R” & “01” Then
txtkelas.Text = “Reguler”
txtuang.Text = “200000”
txtbiaya.Text = “1500000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
ElseIf s = “R” & “02” Then
txtkelas.Text = “Reguler”
txtuang.Text = “150000”
txtbiaya.Text = “1250000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
ElseIf s = “R” & “03” Then
txtkelas.Text = “Reguler”
txtuang.Text = “150000”
txtbiaya.Text = “1250000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
End If
txttb.Text = Val(txtuang.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)
txtnurut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
rizkiwidastmikpringsewu 