SOURCE CODE :
ENTRI PENJUALAN LAPTOP APPLE
Private Sub cbokode_Click()
Select Case cbokode.Text
Case “Apple MC965 MacBook Air”
txtmerk.Text = “Apple MacBook Air MC965”
txths.Text = “12800000”
Case “Apple MC966 MacBook Air”
txtmerk.Text = “Apple MacBook Air MC966”
txths.Text = “15800000”
Case “Apple MC968 MacBook Air”
txtmerk.Text = “Apple MacBook Air MC968”
txths.Text = “9900000”
Case “Apple MC969 MacBook Air”
txtmerk.Text = “Apple MacBook Air MC969”
txths.Text = “11900000”
Case “Apple MC700 MacBook Pro”
txtmerk.Text = “Apple macBook Pro MC700”
txths.Text = “10800000”
Case “Apple MC721 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC721”
txths.Text = “15900000”
Case “Apple MC723 Macbook Pro”
txtmerk.Text = “Apple MacBook pro MC723”
txths.Text = “19300000”
Case “Apple MC724 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC724”
txths.Text = “13700000”
Case “Apple MC311 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC311”
txths.Text = “24200000”
Case “Apple MC313 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC313”
txths.Text = “11900000”
Case “Apple MC314 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC314”
txths.Text = “14700000”
Case “Apple MC318 MacBook Pro”
txtmerk.Text = “Apple MacBook Pro MC318”
txths.Text = “17600000”
Case “Apple MC322 Macbook Pro”
txtmerk.Text = “Apple MacBook pro MC322”
txths.Text = “21300000”
End Select
txtjj.SetFocus
End Sub
Private Sub cmdhitunglagi_Click()
cbokode.SetFocus
cbokode = “”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
txtterbilang = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
Select Case txthp.Text
Case Is > 140000000
discount = Val(txthp.Text) * 0.15
Case Is > 135000000
discount = Val(txthp.Text) * 0.1
Case Is > 130000000
discount = Val(txthp.Text) * 0.05
Case Is > 125000000
discount = Val(txthp.Text) * 0.02
End Select
txtdis.Text = discount
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub Form_Load()
cbokode.AddItem “Apple MC965 MacBook Air”
cbokode.AddItem “Apple MC966 MacBook Air”
cbokode.AddItem “Apple MC968 MacBook Air”
cbokode.AddItem “Apple MC969 MacBook Air”
cbokode.AddItem “Apple MC700 MacBook Pro”
cbokode.AddItem “Apple MC721 MacBook Pro”
cbokode.AddItem “Apple MC723 MacBook Pro”
cbokode.AddItem “Apple MC724 MacBook Pro”
cbokode.AddItem “Apple MC311 MacBook Pro”
cbokode.AddItem “Apple MC313 MacBook Pro”
cbokode.AddItem “Apple MC314 MacBook Pro”
cbokode.AddItem “Apple MC318 MacBook Pro”
cbokode.AddItem “Apple MC322 MacBook Pro”
End Sub
SOURCE CODE :
PT. PULANG PERGI
Private Sub cmdbatal_Click()
txtgolongan.SetFocus
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
txtterbilang = “”
txtnama.Text = “”
txtnik.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtgolongan.SetFocus
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
txtterbilang = “”
txtnama.Text = “”
txtnik.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim X As String
txttahun = Left(txtnik.Text, 4)
X = Mid(txtnik.Text, 5, 1)
If X = “A” Then
txtgolongan.Text = “A”
txtjabatan.Text = “Manager”
txtgaji.Text = “4000000”
txttunjangan.Text = “1025000”
ElseIf X = “B” Then
txtgolongan.Text = “B”
txtjabatan.Text = “Ka.Seksi”
txtgaji.Text = “3500000”
txttunjangan.Text = “975000”
ElseIf X = “C” Then
txtgolongan.Text = “C”
txtjabatan.Text = “Staff”
txtgaji.Text = “3000000”
txttunjangan = “925000”
End If
X = Mid(txtnik.Text, 7, 1)
If X = “S” Then
txtkode.Text = “S”
txtstatus.Text = “Single”
ElseIf X = “M” Then
txtkode.Text = “M”
txtstatus.Text = “Menikah”
ElseIf X = “J” Then
txtkode.Text = “J”
txtstatus.Text = “Janda”
ElseIf X = “D” Then
txtkode.Text = “D”
txtstatus.Text = “Duda”
End If
X = Right(txtnik.Text, 3)
If X = “KEU” Then
txtbagian.Text = “Accounting”
ElseIf X = “ADM” Then
txtbagian.Text = “Administrasi”
ElseIf X = “SDM” Then
txtbagian.Text = “General Affair”
ElseIf X = “EDP” Then
txtbagian.Text = “IT Unit”
ElseIf X = “SPM” Then
txtbagian.Text = “Security”
End If
txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub
Private Sub Form_Load()
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
txtterbilang = “”
txtnama.Text = “”
txtnik.Text = “”
End Sub
SOURCE CODE :
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbGreen
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
SOURCE CODE :
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtprodi.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtprodi.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim F As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
F = Mid(txtnpm.Text, 2, 1)
If F = “1” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf F = “2” Then
txtjurusan.Text = “Manajemen Informatika”
ElseIf F = “3” Then
txtjurusan.Text = “Teknik Informatika”
ElseIf F = “4” Then
txtjurusan.Text = “Manajemen dan Komputer Akuntansi”
End If
F = Mid(txtnpm.Text, 4, 2)
If F = “01” Then
txtprodi.Text = “Strata Satu”
ElseIf F = “02” Then
txtprodi.Text = “Diploma Tiga”
ElseIf F = “03” Then
txtprodi.Text = “Diploma Empat”
ElseIf F = “04” Then
txtprodi.Text = “Diploma Dua”
End If
txtnomor.Text = Right(txtnpm, 3)
End Sub
Private Sub Form_Load()
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtprodi.Text = “”
txttahun.Text = “”
txtnomor.Text = “”
End Sub
Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub
SOURCE CODE :
Public Sub kosong()
txtnidn.Text = “”
txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub cbogolongan_Click()
Dim total As String
Select Case cbogolongan.Text
Case “I”
txtgapok.Text = “1500000”
txttunjangan.Text = “150000”
Case “II”
txtgapok.Text = “2000000”
txttunjangan.Text = “200000”
Case “III”
txtgapok.Text = “2500000”
txttunjangan.Text = “250000”
Case “IV”
txtgapok.Text = “3000000”
txttunjangan.Text = “300000”
Case Else
txtgapok.Text = 0
txttunjangan.Text = 0
End Select
total = Val(txtgapok.Text) + Val(txttunjangan.Text)
txtpajak.Text = total * 0.1
txttotal = Val(total) – Val(txtpajak.Text)
End Sub
Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.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
Private Sub txtnidn_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = “”
txtht = “”
txtjk = “”
txtjb = “”
txtjt = “”
txttotalp = “”
End Sub
Private Sub cmdproses_Click()
kodetiket = Left(txtkt.Text, 3)
If kodetiket = “BIM” Then
hargatiket = “50000”
jeniskereta = “BIMA”
jamberangkat = “16.00”
ElseIf kodetiket = “EKO” Then
hargatiket = “35000”
jeniskereta = “EKONOMI”
jamberangkat = “19.00”
ElseIf kodetiket = “MUT” Then
hargatiket = “23000”
jeniskereta = “MUTIARA”
jamberangkat = “17.00”
ElseIf kodetiket = “SEN” Then
hargatiket = “15000”
jeniskereta = “SENJA”
jamberangkat = “20.00”
End If
txtkt.Text = kodetiket
txtht.Text = hargatiket
txtjk.Text = jeniskereta
txtjb.Text = jamberangkat
txtjt.SetFocus
End Sub
Private Sub txtjt_keypress(keyascii As Integer)
If keyascii = 13 Then
txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub ChkBold_Click()
‘membuat teks tebal
If ChkBold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub
Private Sub ChkItalic_Click()
‘membuat teks miring
If ChkItalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub
Private Sub ChkStrike_Click()
‘membuat garis tengah
If ChkStrike.Value = 1 Then
lblteks.fontstrike = True
Else
lblteks.fontstrike = False
End If
End Sub
Private Sub ChkUnder_Click()
‘membuat garis bawah
If ChkUnder.Value = 1 Then
lblteks.fontunder = True
Else
lblteks.fontunder = False
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub OptBlue_Click()
‘membuat teks berwarna biru
lblteks.forocolor = vbBlue
End Sub
Private Sub OptGreen_Click()
‘membuat teks berwarna hijau
lblteks.ForeColor = vbGreen
End Sub
Private Sub OptRed_Click()
‘membuat teks berwarna merah
lblteks.ForeColor = vbRed
End Sub
Private Sub OptYellow_Click()
‘membuat teks berwarna kuning
lblteks.ForeColor = vbYellow
End Sub
Private Sub Combo1_Change()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100056”
nama = “ADIL RAHMAWATI”
jurusan = “Sistem Informasi”
Case “12021003”
nama = “RIAN ADITIA”
jurusan = “Manajemen Informatika”
Case “12100071”
nama = “KIROAH”
jurusan = “Tehnik Informtika”
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 Text7.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 “12100056”
Combo1.AddItem “12021003”
Combo1.AddItem “12100071”
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 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(Keyscii 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