Search

ALI MARWAN

PROFIL

NAMA                            : ALI MARWAN

TEMPAT/TGL LAHIR  : TRITUNGGAL-22-05-1997

JENIS KELAMIN         : LAKI-LAKI

ALAMAT                      : ROWOREJO

KECAMATAN             : SUOH

KABUPATEN              : LAMPUNG BARAT

AGAMA                       : ISLAM

HOBI                           : OLAHRAGA

NONTON FILM AKSI

 

Advertisements

PEMOGRAMAN VB SPESIPIKASI HP

SP

Private Sub CMDBARU_Click()

Data1.Recordset.AddNew

End Sub

Private Sub CMDHAPUS_Click()

Data1.Recordset.Delete

End Sub

Private Sub CMDKELUAR_Click(Index As Integer)

End

End Sub

Private Sub CMDPROSES_Click()

If TXTHP = “nokia” Then

TXTHAR.Text = “800.000”

TXTRAM.Text = “1 gb”

TXTMEMO.Text = “16”

TXTKA.Text = “5 mp”

ElseIf TXTHP = “samsung” Then

TXTHAR.Text = “1000.000”

TXTRAM.Text = “1 gb”

TXTMEMO.Text = “64”

TXTKA.Text = “13 mp”

ElseIf TXTHP = “Iphone” Then

TXTHAR.Text = “8000.000”

TXTRAM.Text = “3 gb”

TXTMEMO.Text = “124”

TXTKA.Text = “20 mp”

Data1.Recordset.Update

End If

End Sub

Private Sub CMDSIMPAN_Click()

Data1.Recordset.Update

End Sub

PEMROGRAMAN VB TOKO ALAT TULIS

ALI SALSA

Private Sub CMDADD_Click()

Data1.Recordset.AddNew

End Sub

Private Sub CMDCANCEL_Click()

Data1.Recordset.Delete

End Sub

Private Sub CMDHITUNG_Click()

TXTBY.Text = Val(TXTJB.Text) * Val(TXTHB.Text)

TXTPOT.Text = Val(TXTBY.Text) * 0.02

TXTTB.Text = Val(TXTBY.Text) – Val(TXTPOT.Text)

End Sub

Private Sub CMDKELUAR_Click()

If MsgBox(“anda yakin mau keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

End

End If

End Sub

Private Sub CMDPROSES_Click()

Dim nb, hb As String

S = Mid(TXTKODE.Text, 5, 2)

If S = “SP” Then

TXTNB = “SPIDOL”

TXTHB = “9500”

ElseIf S = “BT” Then

TXTNB = “BUKU TULIS”

TXTHB = “12500”

ElseIf S = “TP” Then

TXTNB = “TIP EX”

TXTHB = “3000”

ElseIf S = “PG” Then

TXTNB = “PENGGARIS”

TXTHB = “25000”

ElseIf S = “PT” Then

TXTNB = “PAPAN TULIS”

TXTHB = “50000”

End If

TXTJB.SetFocus

End Sub

Private Sub CMDSAVE_Click()

Data1.Recordset.Update

End Sub

PEMROGRAMAN VB NPM MAHASISWA

ali npm

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim s As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf s = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf s = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtps.Text = “Strata Satu”

ElseIf s = “2” Then

Txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

Textps.Text = “Diploma Empat”

ElseIf s = “4” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Textnama_Change()

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Textnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

End Sub

PEMROGRAMAN VB GAJI PEGAWAI

ali pegawai

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

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnama.Text = “”

Cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

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

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

PEMOGRAMAN VB JURUSAN MAHASISWA

ali npm

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim s As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf s = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf s = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtps.Text = “Strata Satu”

ElseIf s = “2” Then

Txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

Textps.Text = “Diploma Empat”

ElseIf s = “4” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Textnama_Change()

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Textnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

End Sub

PEMOGRAMAN VB DATA KARYAWAN

ali i

 

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

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

If r = “A” Then

txtgol = “A”

txtjbt.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

r = Right(txtnik.Text, 3)

If r = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

txtbagian.Text = “SECURITY”

End If

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

If r = “S” Then

kode = “S”

Status = “SINGLE”

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

txtkstat.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotg.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub Command1_Click()

Data1.Recorset.Update

End Sub

Private Sub Command2_Click()

Data1.Recorset.Addnew

End Sub

Private Sub Command3_Click()

Data1.Recorset.Delete

End Sub

program vb penjualan komputer db

ALI H

 

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II  500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jk = “Pentium III 1.0 Giga Hz ”

hs = “3500000”

Case “P415”

jk = “Pentium IV  1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV  1.7 Giga Hz ”

hs = “4200000”

Case “P419”

jk = “Pentium IV  1.9 Giga Hz”

hs = “5500000”

End Select

Txtjk.Text = jk

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

cbokode.AddItem “P205”

cbokode.AddItem “P308”

cbokode.AddItem “P310”

cbokode.AddItem “P415”

cbokode.AddItem “P417”

cbokode.AddItem “P419”

End Sub

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II  500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jk = “Pentium III 1.0 Giga Hz ”

hs = “3500000”

Case “P415”

jk = “Pentium IV  1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV  1.7 Giga Hz ”

hs = “4200000”

Case “P419”

jk = “Pentium IV  1.9 Giga Hz”

hs = “5500000”

 

End Select

Txtjk.Text = jk

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

cbokode.AddItem “P205”

cbokode.AddItem “P308”

cbokode.AddItem “P310”

cbokode.AddItem “P415”

cbokode.AddItem “P417”

cbokode.AddItem “P419”

End Sub

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

program vb data mahasiswa db

ALI G

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjurusan = “”

Txtstudi = “”

Txttahun = “”

Txtnurut = “”

Txtbp = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjurusan = “”

Txtstudi = “”

Txttahun = “”

Txtnurut = “”

Txtbp = “”

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”

Txtstudi.Text = “strata satu”

Txtbp.Text = “1.950.000”

ElseIf s = “2” Then

Txtjurusan.Text = “tehnik informatika”

Txtstudi.Text = “diploma empat”

Txtbp.Text = “1.750.000”

ElseIf s = “3” Then

Txtjurusan.Text = “manajemen informatika”

Txtstudi.Text = “diploma tiga”

Txtbp.Text = “1.650.000”

ElseIf s = “4” Then

Txtjurusan.Text = “Manajemen & Komp. Akuntansi”

Txtstudi.Text = “diploma dua”

Txtbp.Text = “1.450.000”

End If

Txtnurut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Create a free website or blog at WordPress.com.

Up ↑