Tanpa kategori

12 program

Tugas 1

tugas 1

Private Sub Cmdbatal_Click()

txtnidn.SetFocus

txtnidn = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan

Case “I”

gapok = 3500000

tunjangan = 350000

Case “II”

gapok = 2400000

tunjangan = 240000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 1000000

tunjangan = 100000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok = gapok

txttunjangan = tunjangan

txtpajak = pajak

txttotal = total – pajak

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Tugas npm

program npm

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim A As String

Texttm = “20” & Left(Textnpm, 2)

A = Mid(Textnpm, 3, 3)

If A = “100” Then

Textjur = “sistem informasi”

Textps = “strata 1”

ElseIf A = “200” Then

Textjur = “manajemen informatika”

Textps = “diploma 3”

ElseIf A = “300” Then

Textjur = “teknik informatika”

Textps = “diploma 4”

ElseIf A = “400” Then

Textjur = “komputer administrasi”

Textps = “diploma 2”

End If

Textnu = Right(Textnpm, 3)

End Sub

Tugas 3

tugas 3

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

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, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

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

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, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

 

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

 

Tugas a

program a

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textkt.SetFocus

Textkt = “”

Textht = “”

Textjk = “”

Textjb = “”

Textjt = “”

Texttp = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

S = Left(Textkt.Text, 3)

If S = “BIM” Then

Textjk.Text = “BIMA”

Textht.Text = “50000”

Textjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Textjk.Text = “EKONOMI”

Textht.Text = “35000”

Textjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Textjk.Text = “MUTIARA”

Textht.Text = “23000”

Textjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Textjk.Text = “SENJA”

Textht.Text = “15000”

Textjb.Text = “20.00 WIB”

End If

Texttp.Text = Val(Textht.Text) * Val(Textjt.Text)

Textjt.SetFocus

End Sub

 

 

Private Sub Textjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttp = Val(Textht) * Val(Textjt)

End If

End Sub

Tugas 3

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

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, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

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

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, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Tugas b

program b

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttp.Text = “20” & Right(Txtkode, 2)

S = Mid(Txtkode, 3, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Left(Txtkode, 1)

If S = “A” Then

Txtpen.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpen.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpen.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpen.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpen.Text = “Maxicom”

End If

End Sub

 

Tugas c

program c

 

Private Sub Cbocode_Click()

Dim jenis, hs As String

Select Case Cbocode

Case “P205”

jenis = “Pentium II 500 Meg a Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Textjk = jenis

Texths = hs

Textjj.SetFocus

End Sub

 

 

Private Sub Cmdclose_Click()

End

End Sub

 

 

Private Sub Cmdhl_Click()

Cbocode.SetFocus

Cbocode = “”

Textjk = “”

Texths = “”

Textjj = “”

Textdis = “”

Texthb = “”

End Sub

 

 

 

Private Sub Cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > “30000000” Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > “25000000” Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > “20000000” Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > “15000000” Then

Textdis = Val(Texthp) * 2 / 100

End If

Texthb = Val(Texthp) – Val(Textdis)

End Sub

 

 

 

Private Sub Form_Load()

Cbocode.AddItem “P205”

Cbocode.AddItem “P308”

Cbocode.AddItem “P310”

Cbocode.AddItem “P415”

Cbocode.AddItem “P417”

Cbocode.AddItem “P419”

End Sub

 

Tugas d

program d

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub cmdproses_Click()

Dim judul, pengarang, tahun, penerbit, harga As String

Select Case Cmbcode

Case “A-SIM-01”

judul = “SistemInformasiManajemen”

pengarang = “YatiNurOktavia”

tahun = “2001”

penerbit = “Andi Offset Yogyakarta”

harga = “75900”

Case “I-EDP-02”

judul = “ElektronikData Processing”

pengarang = “Imam Tarmizi”

tahun = “2002”

penerbit = “Indah Surabaya”

harga = “62000”

Case “S-MNJ-03”

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

tahun = “2003”

penerbit = “SalembaEmpat”

harga = “42000”

Case “E-CDR-04”

judul = “Corel Draw”

pengarang = “RiyanSuhandi”

tahun = “2004”

penerbit = “Elek Media Komputindo”

harga = “53000”

Case “M-RPL-05”

judul = “RekayasaPerangkatLunak”

pengarang = “SintaUmpuSinga”

tahun = “2005”

penerbit = “Maxicom”

harga = “83000”

End Select

Textjb = judul

Textpeng = pengarang

Texttt = tahun

Textpen = penerbit

Textharga = harga

End Sub

 

Private Sub Cndbatal_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub Form_Load()

Cmbcode.AddItem “A-SIM-01”

Cmbcode.AddItem “I-EDP-02”

Cmbcode.AddItem “S-MNJ-03”

Cmbcode.AddItem “E-CDR-04”

Cmbcode.AddItem “M-RPL-05”

End Sub

tugas e

program b

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttp.Text = “20” & Mid(Txtkode, 5, 2)

S = Left(Txtkode, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Right(Txtkode, 1)

If S = “A” Then

Txtpen.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpen.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpen.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpen.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpen.Text = “Maxicom”

End If

End Sub

 

 

Tugas F

program f

 

Private Sub Cbocode_Click()

Dim merk, hs As String

Select Case Cbocode

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

hs = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

hs = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

hs = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

hs = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

hs = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

hs = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD313”

hs = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

hs = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

hs = “14700000”

Case “Apple MC965”

merk = “Apple MacBook Air MC965”

hs = “21300000”

End Select

Textmerk = merk

Texths = hs

Textjj.SetFocus

End Sub

 

 

 

Private Sub cmdhitung_Click()

Cbocode.SetFocus

Cbocode = “”

Textmerk = “”

Texths = “”

Textjj = “”

Texthp = “”

Textdis = “”

Texttotal = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > 140000000 Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > 135000000 Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > 130000000 Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > 125000000 Then

Textdis = Val(Texthp) * 2 / 100

End If

Texttotal = Val(Texthp) – Val(txtdis)

End Sub

 

Private Sub Form_Load()

Cbocode.AddItem “Asus A43SA”

Cbocode.AddItem “Asus A43SD”

Cbocode.AddItem “Asus A43SJ”

Cbocode.AddItem “Asus A43TA”

Cbocode.AddItem “Asus N43SL”

Cbocode.AddItem “Apple MD311”

Cbocode.AddItem “Apple MD313”

Cbocode.AddItem “Apple MD314”

Cbocode.AddItem “Apple MD322”

Cbocode.AddItem “Apple MC965”

End Sub

 

 

Private Sub Textjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texthp.SetFocus

End If

End Sub

Tugas g

program g

 

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim jr As String

Dim ps As String

Dim A As String

A = Mid(Textnpm, 3, 1)

If A = 1 Then

jr = “sistem informasi”

ElseIf A = 2 Then

jr = “teknik informatika”

ElseIf A = 3 Then

jr = “menejemen informatika”

ElseIf A = 4 Then

jr = “komputer akuntansi”

End If

Textjur = jr

 

A = Mid(Textnpm, 4, 2)

If A = “01” Then

ps = “strata 1”

ElseIf A = “02” Then

ps = “diploma 4”

ElseIf A = “03” Then

ps = “diploma 3”

ElseIf A = “04” Then

ps = “diploma 2”

End If

Textps = ps

Texttm = “20” & Left(Textnpm, 2)

Textnu = Right(Textnpm, 3)

 

End Sub

 

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

tugas h

program c

 

Private Sub Cbocode_Click()

Dim jenis, hs As String

Select Case Cbocode

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Textjk = jenis

Texths = hs

Textjj.SetFocus

End Sub

 

 

Private Sub Cmdclose_Click()

End

End Sub

 

 

Private Sub Cmdhl_Click()

Cbocode.SetFocus

Cbocode = “”

Textjk = “”

Texths = “”

Textjj = “”

Textdis = “”

Texthb = “”

End Sub

 

 

 

Private Sub Cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > “30000000” Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > “25000000” Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > “20000000” Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > “15000000” Then

Textdis = Val(Texthp) * 2 / 100

End If

Texttotal = Val(Texthp) – Val(Textdis)

End Sub

 

 

 

Private Sub Form_Load()

Cbocode.AddItem “P205”

Cbocode.AddItem “P308”

Cbocode.AddItem “P310”

Cbocode.AddItem “P415”

Cbocode.AddItem “P417”

Cbocode.AddItem “P419”

End Sub

 

 

 

Tugas i

program i

Private Sub Cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnik = “”

Textgol = “”

Textks = “”

Textstt = “”

Textt = “”

Textjab = “”

Textbag = “”

Textgp = “”

Texttun = “”

Texttg = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnik = “”

Textgol = “”

Textks = “”

Textstt = “”

Textt = “”

Textjab = “”

Textbag = “”

Textgp = “”

Texttun = “”

Texttg = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim r As String

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

If r = “A” Then

Textgol = “A”

Textjab.Text = “MANAGER”

Textgp.Text = “4000000”

Texttun.Text = “1025000”

ElseIf r = “B” Then

Textgol.Text = “B”

Textjab.Text = “Ka.SEKSI”

Textgp.Text = “3500000”

Texttun.Text = “975000”

ElseIf r = “C” Then

Textgol.Text = “C”

Textjab.Text = “STAFF”

Textgp.Text = “3000000”

Texttun.Text = “925000”

End If

r = Right(Textnik.Text, 3)

If r = “KEU” Then

Textbag.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Textbag.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Textbag.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Textbag.Text = “IT UNIT”

ElseIf r = “SPM” Then

Textbag.Text = “SECURITY”

End If

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

If r = “S” Then

ks = “S”

Stt = “SINGLE”

ElseIf r = “M” Then

ks = “M”

Stt = “MENIKAH”

ElseIf r = “J” Then

ks = “J”

Stt = “JANDA”

ElseIf r = “D” Then

ks = “D”

Stt = “DUDA”

End If

Textks.Text = ks

Textstt.Text = Stt

Textt.Text = Left(Textnik.Text, 4)

Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text)

End Sub

Private Sub Form_Activate()

Textnama.SetFocus

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnik.SetFocus

End If

End Sub

 

Iklan
Standar
Tanpa kategori

tugas2. bahasa pemrograman

Diki2

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Text1_Keypress(keyascii 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

 

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

 

 

Standar
Tanpa kategori

tugas1. bahasa pemrograman

Diki1

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Text1_Keypress(keyascii 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

Standar
berita gaya hidup 8

Aksi Peduli Komunitas Rindu Menanti untuk Pengguna Halte

abu, 11 november 2015 | 12:04 WIB

Aksi Peduli Komunitas Rindu Menanti untuk Pengguna Halte

Pengguna transportasi umum yang tergabung dalam komunitas Rindu Menanti menunjukkan buku bacaan dan stiker yang akan dibagikan pada sesama pengguna angkutan umum di halte Jalan Pelajar Pejuang, Bandung, Jawa Barat, 11 November. Komunitas ini rutin membersihkan halte, menyediakan buku bacaan, dan membantu pengguna angkutan umum yang buta rute angkutan umum. TEMPO/Prima Mulia
Standar
berita gaya hidup 7

Kaki Yang Kuat Dapat Mencegah Kepikunan

amis, 12 November 2015 | 06:07 WIB

Kaki Yang  Kuat Dapat Mencegah Kepikunan

Berjalan cepat

TEMPO.CO, London –┬áSebuah penelitian yang dikembangkan King’s College London meyebutkan otot kaki yang kuat dapat mencegah kepikunan di usia tua. Penelitian yang dipimpin oleh Dokter Claire Stevens ini mengungkap ada hubungan perlindungan yang sangat nyata dari kekuatan kaki terhadap kemampuan mental dan struktur kesehatan otak dalam kurun waktu 10 tahun.

Penelitian dilakukan terhadap kembar identik yang terdapat dalam populasi orang normal dan sehat, karena dapat menggambarkan hubungan antara kekuatan kaki dan kinerja otak. Kembar identik dipilih sebagai subyek penelitian karena memiliki gen yang hampir sama. Sehingga apabila ada perbedaan di antara subyek penelitian dapat ditelusuri, seperti apakah karena faktor gaya hidup atau menjaga kesehatan.

“Sangat menarik melihat perbedaan dan struktur otak pada kembar identik yang memiliki perbedaan kekuatan kaki sejak 10 tahun lalu, karena dapat menunjukkan bahwa perubahan sederhana dalam gaya hidup dengan meningkatkan aktivitas fisik dapat menjaga kesehatan fisik dan mental setiap orang,” kata Claire Stevens seperti yang dikutip dari Guardian, Senin 9 November 2015.

Sebanyak 324 kembar identik perempuan berumur lima puluhan menjadi sukarelawan dalam penelitian ini. Selama 10 tahun sejak tahun 1999 dipantau gaya hidupnya, khususnya yang terkait dengan kesehatan. Hasil penelitian yang dipublikasikan di Jurnal Gerontology ini menunjukkan bahwa kekuatan kaki memiliki hubungan yang sangat erat dengan fungsi mental dan faktor kesehatan lain

sumber: http://gaya.tempo.co/read/news/2015/11/12/060718084/kaki-yang-kuat-dapat-mencegah-kepikunan

Standar