penjualan apple laptop

Posted: 19 Januari 2015 in Tak Berkategori

Untitled

Private Sub cbokode_Click()

Txtjj.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim penjualan, discount, kode, merk, bayar, R, S 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

R = Val(Txtjj.Text)

S = Val(Txths.Text)

penjualan = R * S

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 cmdhitunglagi_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

PT PULANG TIAP HARI

PP

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

txtg.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txttn.Text = “”

Txttg.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

r = Mid(Txtmn.Text, 5, 1)

If r = “A” Then

txtg = “A”

Txtj.Text = “MANAGER”

Txtgp.Text = “4000000”

Txttn.Text = “1025000”

ElseIf r = “B” Then

txtg.Text = “B”

Txtj.Text = “Ka.SEKSI”

Txtgp.Text = “3500000”

Txttn.Text = “975000”

ElseIf r = “C” Then

txtg.Text = “C”

Txtj.Text = “STAFF”

Txtgp.Text = “3000000”

Txttn.Text = “925000”

End If

r = Right(Txtmn.Text, 3)

If r = “KEU” Then

Txtb.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Txtb.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Txtb.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Txtb.Text = “IT UNIT”

ElseIf r = “SPM” Then

Txtb.Text = “SECURITY”

End If

r = Mid(Txtmn.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGEL”

ElseIf r = “M” Then

kode = “M”

Status = “MENIKAH”

ElseIf r = “J” Then

kode = “J”

Status = “JANDA”

ElseIf r = “D” Then

kode = “D”

Status = “DUDA”

End If

Txtks.Text = kode

Txts.Text = Status

Txtt.Text = Left(Txtmn.Text, 4)

Txttg.Text = Val(Txtgp.Text) + Val(Txttn.Text)

End Sub

Private Sub Form_Activate()

Txtmnk.SetFocus

End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtmn.SetFocus

End If

End Sub

Private Sub cmdbatal_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

txtg.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txttn.Text = “”

Txttg.Text = “”

End Sub

Iklan

PENJUALAN LEPTOP APLLE
Private Sub Combo1_Click()
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim H As String
H = Mid(Combo1.Text, 7, 5)
If H = “MC965” Then
Text1.Text = “Apple MacBook Air MC965”
Text2.Text = 12800000
ElseIf H = “MC966” Then
Text1.Text = “Apple MacBook Air MC966”
Text2.Text = 15800000
ElseIf H = “MC968” Then
Text1.Text = “Apple MacBook Air MC968”
Text2.Text = 9900000
ElseIf H = “MC969” Then
Text1.Text = “Apple MacBook Air MC969”
Text2.Text = 11900000
ElseIf H = “MC700” Then
Text1.Text = “Apple MacBook Pro MC700”
Text2.Text = 10800000
ElseIf H = “MC721” Then
Text1.Text = “Apple MacBook Pro MC721”
Text2.Text = 15900000
ElseIf H = “MC723” Then
Text1.Text = “Apple MacBook Pro MC723”
Text2.Text = 19300000
ElseIf H = “MC724” Then
Text1.Text = “Apple MacBook Pro MC724”
Text2.Text = 13700000
ElseIf H = “MC311” Then
Text1.Text = “Apple MacBook Pro MC311”
Text2.Text = 24200000
ElseIf H = “MC313” Then
Text1.Text = “Apple MacBook Pro MC313”
Text2.Text = 11900000
ElseIf H = “MC314” Then
Text1.Text = “Apple MacBook Pro MC314”
Text2.Text = 14700000
ElseIf H = “MC318” Then
Text1.Text = “Apple MacBook Pro MC318”
Text2.Text = 17600000
ElseIf H = “MC322” Then
Text1.Text = “Apple MacBook Pro MC322”
Text2.Text = 21300000
End If
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
If Text4.Text >= 15000000 Then
Text5.Text = Val(Text4.Text) * 2 / 100
ElseIf Text4.Text <= 25000000 Then
Text5.Text = Val(Text4.Text) * 5 / 100
ElseIf Text4.Text <= 30000000 Then
Text5.Text = Val(Text4.Text) * 10 / 100
ElseIf Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 15 / 100
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem “Apple MC965 MacBook Air”
Combo1.AddItem “Apple MC966 MacBook Air”
Combo1.AddItem “Apple MC968 MacBook Air”
Combo1.AddItem “Apple MC969 MacBook Air”
Combo1.AddItem “Apple MC700 MacBook Pro”
Combo1.AddItem “Apple MC721 MacBook Pro”
Combo1.AddItem “Apple MC723 MacBook Pro”
Combo1.AddItem “Apple MC724 MacBook Pro”
Combo1.AddItem “Apple MC311 MacBook Pro”
Combo1.AddItem “Apple MC313 MacBook Pro”
Combo1.AddItem “Apple MC314 MacBook Pro”
Combo1.AddItem “Apple MC318 MacBook Pro”
Combo1.AddItem “Apple MC322 MacBook Pro”
End Sub

DATA ENTRI PENJUALAN KOMPUTER

Posted: 12 Januari 2015 in Tak Berkategori

PENJUALAN K

Private Sub Combo1_Click()
Dim JENKOM, HARSA As String
Select Case Combo1.Text
Case “P205”
JENKOM = “Pentium II 500 MegaHz”
HARSA = 1500000
Case “P308”
JENKOM = “Pentium III 800 MegaHz”
HARSA = 2100000
Case “P310”
JENKOM = “Pentium III 1.0 GigaHz”
HARSA = 3500000
Case “P415”
JENKOM = “Pentium IV 1.5 GigaHz”
HARSA = 4000000
Case “P417”
JENKOM = “Pentium IV 1.7 GigaHz”
HARSA = 4200000
Case “P419”
JENKOM = “Pentium IV 1.9 GigaHz”
HARSA = 5500000
Case Else
JENKOM = 0
HARSA = 0
End Select
Text1.Text = JENKOM
Text2.Text = HARSA
Text3.SetFocus

End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
If Text4.Text >= 15000000 Then
Text5.Text = Val(Text4.Text) * 2 / 100
ElseIf Text4.Text <= 25000000 Then
Text5.Text = Val(Text4.Text) * 5 / 100
ElseIf Text4.Text <= 30000000 Then
Text5.Text = Val(Text4.Text) * 10 / 100
ElseIf Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 15 / 100
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “P205”
Combo1.AddItem “P308”
Combo1.AddItem “P310”
Combo1.AddItem “P415”
Combo1.AddItem “P417”
Combo1.AddItem “P419”
End Sub

DATA BUKU 1

Posted: 12 Januari 2015 in Tak Berkategori


K

Private Sub Command1_Click()

Dim K As String

K = Mid(Text6.Text, 1, 3)

If K = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “FADIYA ULFA”

Text5.Text = “75900”

ElseIf K = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “NURUL AGUSTINA”

Text5.Text = “62000”

ElseIf K = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “RIAN HIDAYAT”

Text5.Text = “42000”

ElseIf K = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI NUR KHOTIMAH”

Text5.Text = “53000”

ElseIf K = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “WINDA ERLIANTI”

Text5.Text = “83000”

End If

K = Right(Text6.Text, 1)

If K = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Mid(Text6.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

data buku 2 stmik pringsewu

Posted: 12 Januari 2015 in Tak Berkategori

Untitled

Private Sub Command1_Click()

Dim J As String

J = Mid(Text6.Text, 3, 3)

If J = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “YATI NUR OKTAFIA”

Text5.Text = “75900”

ElseIf J = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “WAGIANTO”

Text5.Text = “62000”

ElseIf J = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “VALINTINA MARIANAN”

Text5.Text = “42000”

ElseIf J = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI FADILAH”

Text5.Text = “53000”

ElseIf J = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “FRENDI SETIADI”

Text5.Text = “83000”

End If

J = Left(Text6.Text, 1)

If J = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Right(Text6.Text, 2)

End Sub

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

huruf mutu

Private Sub Combo1_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Combo1.Text

Case “09100027”

NAMA = “AFNAN ZALFA SALSABILAA”

JURUSAN = “Sistem Informasi”

Case “09200048”

NAMA = “AMALIA AMANAH”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “09300024”

NAMA = “SASKIA MECHA”

JURUSAN = ” TEKNIK 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 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”

Case Is < 50

HM = “BL”

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 “09100027”

Combo1.AddItem “09200048”

Combo1.AddItem “09300024”

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

data NIDN

Posted: 12 Januari 2015 in Tak Berkategori

nidn

Private Sub Combo1_Click()

Dim gapok, tunjangan, pajak, total As String

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 TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

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()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub