Skip to content

ENTRI PENJUALAN LAPTOP APPLE

Gambar

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

Iklan

PT. PULANG PETANG SETIAP HARI

Gambar

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

 

LABEL NAMA “ADIL RAHMAWATI”

Gambar

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

 

INFORMASI MAHASISWA

Gambar

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

GAJI SETELAH PAJAK (11 JANUARI 2013)

Gambar

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

penjualan tiket kereta api (3 januari 2013)

penjualan tiket kereta

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

 

 

calculator

vb 6

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