TUGAS 4

EFA I.2

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Cbonpm.Text

Case “14100154”

NAMA = “RIKA YULISTIANI”

JURUSAN = “Sistem Informasi”

Case “14100156”

NAMA = “EFA AFRI KIKI ADEFTI”

JURUSAN = “SISTEM INFORMASI”

Case “14100128”

NAMA = “SHELA RIZKI YULI ARUM”

JURUSAN = ” TEKNIK INFORMATIKA”

Case “14100133”

NAMA = “YULISTA”

JURUSAN = “SISTEM INFORMASI”

Case “14100164”

NAMA = “YENI ANGGRAINI”

JURUSAN = “SISTEM INFORMASI”

Case “14100088”

NAMA = “LOVITA MARTHA TILOVA”

JURUSAN = “SISTEM INFORMASI”

Case “14201018”

NAMA = “AYU DEVITA SARI”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “14100131”

NAMA = “ASIAH”

JURUSAN = “SISTEM INFORMASI”

Case “14100060”

NAMA = “EKA SUSI SURANTI”

JURUSAN = “SISTEM INFORMASI”

Case “14100061”

NAMA = “FITRI SARASWATI”

JURUSAN = “SISTEM INFORMASI”

End Select

Txtnama.Text = NAMA

Txtjurusan.Text = JURUSAN

Txtquis.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “14100154”

Cbonpm.AddItem “14100156”

Cbonpm.AddItem “14100128”

Cbonpm.AddItem “14100133”

Cbonpm.AddItem “14100164”

Cbonpm.AddItem “14100088”

Cbonpm.AddItem “14201018”

Cbonpm.AddItem “14100131”

Cbonpm.AddItem “14100060”

Cbonpm.AddItem “14100061”

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna.Text = NA

Select Case Txtna.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

Txthm.Text = HM

End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

Txtquis.Text = “”

Txttugas.Text = “”

Txtuts.Text = “”

Txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

End Sub

Private Sub Txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttugas.SetFocus

End If

End Sub

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

EFA3

Private Sub Cbogolongan_Click()

Dim gapok, tunjangan, pajak, total As String

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

Public Sub kosong()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

Cbogolongan.Text = “”

End Sub

Private Sub Cmdlagi_Click()

kosong

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

EFA4

Private Sub Cmdproses_Click()

Dim R As String

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

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

If R = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf R = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf R = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf R = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

R = Mid(Txtnpm.Text, 4, 2)

If R = “01” Then

Txtps.Text = “Strata Satu”

ElseIf R = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf R = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf R = “04” Then

Txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

EFA6

Private Sub Cbokode_Click()

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Dim R As String

R = Mid(Cbokode.Text, 7, 5)

If R = “MC965” Then

Txtmerk.Text = “Apple MacBook Air MC965”

Txths.Text = 12800000

ElseIf R = “MC966” Then

Txtmerk.Text = “Apple MacBook Air MC966”

Txths.Text = 15800000

ElseIf R = “MC968” Then

Txtmerk.Text = “Apple MacBook Air MC968”

Txths.Text = 9900000

ElseIf R = “MC969” Then

Txtmerk.Text = “Apple MacBook Air MC969”

Txths.Text = 11900000

ElseIf R = “MC700” Then

Txtmerk.Text = “Apple MacBook Pro MC700”

Txths.Text = 10800000

ElseIf R = “MC721” Then

Txtmerk.Text = “Apple MacBook Pro MC721”

Txths.Text = 15900000

ElseIf R = “MC723” Then

Txtmerk.Text = “Apple MacBook Pro MC723”

Txths.Text = 19300000

ElseIf R = “MC724” Then

Txtmerk.Text = “Apple MacBook Pro MC724”

Txths.Text = 13700000

ElseIf R = “MC311” Then

Txtmerk.Text = “Apple MacBook Pro MC311”

Txths.Text = 24200000

ElseIf R = “MC313” Then

Txtmerk.Text = “Apple MacBook Pro MC313”

Txths.Text = 11900000

ElseIf R = “MC314” Then

Txtmerk.Text = “Apple MacBook Pro MC314”

Txths.Text = 14700000

ElseIf R = “MC318” Then

Txtmerk.Text = “Apple MacBook Pro MC318”

Txths.Text = 17600000

ElseIf R = “MC322” Then

Txtmerk.Text = “Apple MacBook Pro MC322”

Txths.Text = 21300000

End If

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

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

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

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

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

EFA7

Private Sub Cbokode_Click()

Dim JENKOM, HARSA As String

Select Case Cbokode.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

Txtjk.Text = JENKOM

Txths.Text = HARSA

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

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

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

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

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txthb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

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

EFA8

Private Sub Cmdproses_Click()

Dim J As String

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

If J = “SIM” Then

Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

Txtp.Text = “YATI NUR OKTAFIA”

Txtharga.Text = “75900”

ElseIf J = “EDP” Then

Txtjb.Text = “ELEKTRONIK DATA PROCESSING”

Txtp.Text = “IMAM TARMIZI”

Txtharga.Text = “62000”

ElseIf J = “MNJ” Then

Txtjb.Text = “MANAJEMEN”

Txtp.Text = “VALINTINA MARIANAN”

Txtharga.Text = “42000”

ElseIf J = “CDR” Then

Txtjb.Text = “COREL DRAW”

Txtp.Text = “SITI FADILAH”

Txtharga.Text = “53000”

ElseIf J = “RPL” Then

Txtjb.Text = “REKAYASA PERANGKAT LUNAK”

Txtp.Text = “SINTA UMPU SINGA”

Txtharga.Text = “83000”

End If

J = Left(Txtkb.Text, 1)

If J = “A” Then

Txtpen.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Txtpen.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Txtpen.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Txtpen.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Txtpen.Text = “MAXICOM”

End If

Txtth.Text = “20” & Right(Txtkb.Text, 2)

End Sub

Private Sub Cmdlagi_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

TGS 9

Private Sub Cmdproses_Click()

Dim A As String

A = Mid(Txtkt.Text, 1, 3)

If A = “BIM” Then

Txtht.Text = 50000

Txtjk.Text = “BIMA”

Txtjb.Text = “16.00”

ElseIf A = “EKO” Then

Txtht.Text = 35000

Txtjk.Text = “EKONOMI”

Txtjb.Text = “19.00”

ElseIf A = “MUT” Then

Txtht.Text = 23000

Txtjk.Text = “MUTIARA”

Txtjb.Text = “17.00”

ElseIf A = “SEN” Then

Txtht.Text = 15000

Txtjk.Text = “SENJA”

Txtjb.Text = “20.00”

End If

Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt.Text = “”

Txtht.Text = “”

Txtjk.Text = “”

Txtjb.Text = “”

Txtjt.Text = “”

Txttotalp.Text = “”

End Sub

Private Sub Form_Load()

End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtjt.SetFocus

End If

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

TGS 10 EFAAA

Private Sub Cmdproses_Click()

Dim K As String

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

If K = “SIM” Then

txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

txtp.Text = “FADIYA ULFA”

txthg.Text = “75900”

ElseIf K = “EDP” Then

txtjb.Text = “ELEKTRONIK DATA PROCESSING”

txtp.Text = “NURUL AGUSTINA”

txthg.Text = “62000”

ElseIf K = “MNJ” Then

txtjb.Text = “MANAJEMEN”

txtp.Text = “RIAN HIDAYAT”

txthg.Text = “42000”

ElseIf K = “CDR” Then

Txjb.Text = “COREL DRAW”

txtp.Text = “SITI NUR KHOTIMAH”

txthg.Text = “53000”

ElseIf K = “RPL” Then

txtjb.Text = “REKAYASA PERANGKAT LUNAK”

txtp.Text = “WINDA ERLIANTI”

txthg.Text = “83000”

End If

K = Right(txtkb.Text, 1)

If K = “A” Then

txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)

End Sub

Private Sub Cmdlagi_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Iklan

TUGAS 3

TUGAS 1.1

EFA 1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

TUGAS 1.2

EFA 1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End If

End Sub

TUGAS 2.1

EFA1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

TUGAS 2.2

EFA1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

TUGAS 3.1

EFA

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End Sub

Private Sub lbltext_Change()

lbltext.Text = Text1.Text

End Sub

Private Sub Text1_Change()

End Sub

‘membuat teks tebal

If Chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chhitalic_click()

‘membuat teks miring

If Chhitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub Chkstrikeout_Click()

‘membuat teks bergaris tengah

If Chkstrikeout.Value = 1 Then

lbltext.Fontstrikeout = True

Else

lbltext.Fontstrikeout = False

End If

End Sub

Private Sub Chkunderline_Click()

‘membuat teks bergaris bawah

If Chkunderline.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optblue_Click()

‘membuat teks biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub Optgreed_Click()

‘membuat teks hijau

lbltext.ForeColor = vbGreen

End Sub

Private Sub OptRED_Click()

‘membuat teks merah

lbltext.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()

‘membuat teks kuning

lbltext.ForeColor = vbYellow

End Sub

TUGAS 3.2

KIKI

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End Sub

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End SubV

Private Sub chkitalic_Click()
‘membuat teks miring
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub cmdok_Click()
lbltext.Text = Val(Text1.Text)
End Sub

Private Sub cmdselesai_Click()
End
End Sub
Private Sub optblue_Click()
‘membuat teks berwarna biru
lbltext.ForeColor = vbBlue
End Sub
Private Sub chkbold_Click()
‘membuat teks tebal
If chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah
lbltext.ForeColor = vbRed
End Sub

TUGAS 2

EFA KLK
LISTING PROGRAM KALKULATOR
Private Sub Command1_Click()
Text9.Text = Val(Text1.Text) + Val(Text5.Text)
Text10.Text = Val(Text2.Text) – Val(Text6.Text)
Text11.Text = Val(Text3.Text) * Val(Text7.Text)
Text12.Text = Val(Text4.Text) / Val(Text8.Text)
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
Private Sub text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub

efa dt
LISTING PROGRAM DATA MAHASISWA
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
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

Home Bisnis CPNS Putri Presiden Tak Lulus Tes CPNS, Ini Kata MenPAN-RB

 

Liputan6.com, Jakarta – Hasil tes Calon Pegawai Negeri Sipil (CPNS) putri Presiden Jokowi, Kahiyang Ayu kembali menjadi pembicaraan berbagai pihak. Kalau menjelang pengumuman di awal pekan lalu ada sementara kalangan yang menghembuskan rumor Kahiyang akan diluluskan, kini masyarakat dapat menyaksikan  tidak ada hak istimewa dalam tes CPNS.

Dalam pengumuman hasil seleksi CPNS Pemerintah Kota Surakarta tidak muncul nama Kahiyang Ayu. Menanggapi hal itu, Menteri Pendayagunaan Aparatur Negara dan Reformasi Birokrasi Yuddy Chrisnandi menyampaikan  tanggapannya, putri seorang presiden saja bisa kandas menjadi CPNS atau Calon Aparatur Sipil Negara (ASN) karena proses seleksi yang begitu ketat, objektif dan transparan.

Namun di balik semua itu, peristiwa tersebut bisa dijadikan contoh kongkrit keteladanan Presiden Jokowi bagi seluruh bangsa Indoensia, termasuk para pejabat, “Putri Presiden saja tidak lulus, dan Presiden tidak membantunya, ” ujar Yuddy di sela-sela blusukkannya meninjau pelayanan publik di Purwakarta, Jumat (19/12/2014).

Yuddy menambahkan, kenyataan itu juga menjadi pembelajaran bagi bangsa Indonesia yang tengah gencar melaksanakan reformasi birokrasi. Generasi muda yang ingin menjadi pegawai ASN harus memiliki kemampuan, setidaknya untuk melampaui passing grade dalam Tes Kompetensi Dasar (TKD).

Melalui cara dan mekanisme ini, pegawai ASN ke depan akan diisi oleh putra-putri terbaik bangsa. “Mereka masing-masing memiliki  hak yang sama, tak perduli anak petani, anak presiden, anak menteri, semuanya punya hak yang sama. Ini sekaligus mengingatkan para birokrat untuk tidak menyalahgunakan wewenangnya dalam proses seleksi CPNS,” tegas Yuddy.

Yuddy juga menambahkan, untuk seleksi CPNS tahun 2014 ini,  pihaknya telah melarang Tes Kompetensi Bidang (TKB) untuk sejumlah instansi dan pemerintah daerah yang baru menyelesaikan TKD pada 20 November 2014. Selain untuk alasan efisiensi dan keterbatasan waktu, hal itu tidak lepas dari banyaknya  masukan bahwa pelaksanaan TKB menjadi celah bagi beberapa oknum untuk bermain dan menyalahgunakan wewenang.

Sejak semula, Yuddy berkomitmen untuk menghilangkan KKN dalam seleksi CPNS, dan dengan tegas menolak kebiasaan titip menitip seperti yang dulu lazim terjadi.

Dalam kesempatan terpisah, Deputi Bidang SDM Aparatur Kementerian PANRB Setiawan Wangsaatmaja mengatakan, kelulusan peserta tes CPNS harus mengacu pada Peraturan Menteri Pendayagunaan Aparatur Negara dan Reformasi Birokrasi (PANRB) No. 29/2014 tentang Nilai Ambang Batas Tes Kompetensi Dasar Seleksi CPNS Tahun 2014.

Dalam peraturan itu, Nilai Tes Karekteristik Pribadi (TKP) minimal 126, Nilai Tes Intelegensia Umum (TIU) minimal 75, dan Tes Wawasan Kebangsaan (TWK) paling rendah 70.  “Walaupun putri pejabat bahkan putri Presiden tidak mendapatkan hak istimewa terkait dengan kelulusannya. Kita tetap mengacu pada peraturan yang telah dibuat,” tegas Setiawan.

Hasil Tes Kompetensi Dasar (TKD) Kahiyang dengan sistem Computer Assisted Test (CAT) nilai totalnya 300. Rinciannya,  TWK :  50, TIU :  95, dan TKP :  155.  Meskipun totalnya 300, tapi karena TWK tidak memenuhi standar yang ditetapkan, maka dia tidak lolos.

Jika peserta tes yang tidak memenuhi passing grade diluluskan, berarti terjadi kecurangan dalam proses seleksi CPNS.  “Kalau hal itu terjadi, masyarakat bisa protes,” ujar Setiawan. (Ndw/Ahm)

Tahun 2014 Mahasiswa STMIK PRINGSEWU Bisa Kebagian Rezeki Ibadah Umroh Gratis

Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu Lampung kembali akan menggelar Undian Ibadah Umroh 2014 yang akan diikuti oleh seluruh mahasiswa STMIK Pringsewu baik yang baru masuk maupun mahasiswa senior, undian tersebut untuk dua mahasiswa pada tahun 2014 yang terjaring dalam undian ibadah umroh.

Di tahun 2013, Undian umroh untuk dua mahasiswa dilakukan pada bulan September 2013 berbarengan dengan kegiatan malam inagurasi Program Orientasi Pendidikan Tinggi (POSDIKTI) mahasiswa baru, dua mahasiswa yang mendapatkan rezeki ibadah umroh gratis tahun 2013 :
1. MUJID NPM. 12100048 (Kelas TWITTER 1, semester 3)
2. RISKA SARI NPM. 11201054 (Kelas Yahoo 2, semester 5)
3. dan Dosen Pendamping SAIFUL ISNANDAR, M.T.I

Pengundian tersebut diikuti oleh seluruh mahasiswa STMIK Pringsewu baik yang baru masuk maupun mahasiswa senior.

SILAHKAN UNDUH :
1. SYARAT DAN KETENTUAN UNDIAN IBADAH UMROH 2014
2. KUPON UNDIAN UMROH 2014

Miliarder Tim Sykes: Kebahagiaan Bukan Soal Uang

 

Tim Sykes

Liputan6.com, Jakarta – Satu lagi miliarder yang mengaku bahwa kebahagiaan bukan cuma soal uang semata. Adalah Tim Sykes yang mengaku sangat suka menjadi kaya raya. Tapi pemain saham handal ini menjelaskan, uang tak membuatnya jadi lebih bahagia.

Mengutip laman Business Insider, Sabtu (20/12/2014), dia menjelaskan, menjadi kaya memang membuatnya lebih bahagia, tapi uang bukan benda yang paling menarik dalam hidupnya.

Menurut dia, apa yang bisa dibeli menggunakan uang jauh lebih berharga daripada uang itu sendiri. “Saya benar-benar bahagia, tapi ini bukan cuma soal uang,” ujar dia saat ditanya bagaimana kekayaan mempengaruhi kebahagiaannya.

Menurut dia, uang hanya sebatas indikator bahwa bisnisnya berjalan dengan baik. Dengan begitu dirinya dapat mengetahui model bisnis yang dapat membuatnya sukses.

“Uang adalah tanda bahwa saya telah melakukan hal yang benar. Karena saya mengajarkan bagaimana caranya menjual saham, semakin banyak uang yang saya cetak, semakin banyak orang yang saya ajarkan,” terang Sykes.

Menurut Sykes, uang adalah hasil atau produk dari seluruh kerja kerasnya. Dia merasa bahagia karena mencapai tujuannya bukan karena uang yang dia peroleh.

“Banyak orang berpikir bahwa kaya berarti bisa membeli banyak hal dan membuat Anda lebih bahagia. Bukan uangnya yang lebih menyenangkan, tapi ini soal petualangan dan proses yang dijalani untuk mencetak uang,” tandasnya. (Sis/Nrm)

250 MAHASISWA STMIK PRINGSEWU BERTOLAK KE JOGJA BANDUNG

 

PRINGSEWU, Minggu (23/11) merupakan jadwal pemberangkatan mahasiswa/i STMIK Pringsewu melaksanakan Kunjungan Industri (KI) ke Jogja – Bandung.

 

Sejumlah 250 mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melakukan kunjungan industri di Penerbit dan Percetakan ANDI OFFSET, RT36 Kampoeng Cyber, dan PT Caladi Lima Sembilan (C59) perusahaan yang bergerak dalam industri garmen, khususnya T-Shirt sablon. Resmi berdiri pada tahun 1980, tepatnya 12 Oktober 1980.

Ketua Yayasan Fauzi,S.E,M.Kom, Akt dalam sambutannya mengatakan kegiatan Kunjungan Industri sangat efektif dan memberi masukan ilmu secara praktis kepada mahasiswa, bahkan bisa sekaligus menyaksikan proses kerja maupun produksi perusahaan bersangkutan. Sehingga mahasiswa STMIK Pringsewu bisa memadukan ilmu teoritis yang telah diperoleh didalam perkuliahan selama ini. Hal itu sangat berguna sekali saat bapak/ibu lulus kelak maupun memasuki dunia kerja atau industri,” katanya, (23/11).

Kegiatan Kunjungan Industri sangat berperan penting bagi perkembangan mahasiswa STMIK Pringsewu, terlebih bagi mereka para calon tenaga kerja yang handal dibidang komputer yang kelak terjun di masyarakat. Mahasiswa STMIK Pringsewu harus memiliki bekal ilmu secara matang dan wawasan yang bersifat praktis.

 

Ilmu itu ibarat cahaya yang selalu bersama kita, sudah pasti kita lebih suka cahaya dibandingkan dengan kegelapan. Hanya orang yang mau tidur saja yang pergi ke ruang yang gelap. Akan tetapi orang yang berilmu dimensinya bercahaya. Hati dan akalnya tetap bercahaya itu yang menjadi harapan kita semua untuk seluruh mahasiswa STMIK Pringsewu.