Private sub cmd1_click()
Data1.Recordset.Addnew
Text1.setfocus
End sub
Private sub cmd2_click()
Data1.Recordset.update
End sub
Private sub cmd3_click()
Data1.Recordset.delete
End sub
Private sub cmd4_click()
End
end sub
Advertisements
tugas database
Program 1
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()
kosong
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub
Private Sub Form_Load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub txtnidn_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
program 2
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
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 J, P, 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
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
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
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
program 3
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
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
Private Sub Cmdproses_Click()
Dim J, P, 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
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE A
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkt.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
form2.Show
End Sub
Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim JK As String
Dim HT, JB As Variant
A = Left(txtkt, 3)
If A = “BIM” Then
JK = “BIMA”
HT = “50000”
JB = “16.00”
ElseIf A = “EKO” Then
JK = “EKONOMI”
HT = “35000”
JB = “19.00”
ElseIf A = “MUT” Then
JK = “MUTIARA”
HT = “23000”
JB = “17.00”
ElseIf A = “SEN” Then
JK = “SENJA”
HT = “15.000”
JB = “20.00”
ElseIf KeyAscii = 13 Then
txtjt.SetFocus
End If
txtht = HT
txtjk = JK
txtjb = JB
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub
Private Sub txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjt.SetFocus
End If
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE B
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Right(txtkb, 2)
S = Mid(txtkb, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtp.Text = “Andra Setiawan”
txthg.Text = “75900”
ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtp.Text = “Desi Istiqomah”
txthg.Text = “62000”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Sandy Fitriajaya”
txthg.Text = “42000”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Tri Indah Sari”
txthg.Text = “53000”
ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtp.Text = “Ernita Sari”
txthg.Text = “83000”
End If
S = Left(txtkb, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE C
Private Sub cbokode_Click()
Select Case cbokode.Text
Case “P205”
txtjk.Text = “pentiumII 500 Mega Hz”
txths.Text = “1500000”
Case “P308”
txtjk.Text = “pentiumIII 800 Mega Hz”
txths.Text = “2100000”
Case “P310”
txtjk.Text = “pentiumIII 1.0 Giga Hz”
txths.Text = “3500000”
Case “P415”
txtjk.Text = “pentiumIV 1.5 Giga Hz”
txths.Text = “4000000”
Case “P417”
txtjk.Text = “pentiumIV 1.7 Giga Hz”
txths.Text = “4200000”
Case “P419”
txtjk.Text = “pentiumIV 1.9 Giga Hz”
txths.Text = “5500000”
End Select
End Sub
Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp.Text > 20000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp.Text > 15000000 Then
txtdis = Val(txthp) * 0.2
End If
txthb = Val(txthp) – Val(txtdis)
End Sub
Private Sub cmdhl_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txthb.Text = “”
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub
Private Sub cmdclose_Click()
form2.Show
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
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 txths_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjj.SetFocus
End If
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp.Text > 20000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp.Text > 15000000 Then
txtdis = Val(txthp) * 0.2
End If
txthb = Val(txthp) – Val(txtdis)
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE D
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub cmdproses_Click()
Dim A, B, C, D As String
Dim H As Double
txttahun = “20” & Right(cbokode, 2)
A = Mid(cbokode, 3, 3)
If A = “SIM” Then
B = “SISTEM INFORMASI MANAJEMEN”
C = “YATI NUR OKTAVIA”
H = “75900”
ElseIf A = “MNJ” Then
B = “MANAJEMEN”
C = “VALENTINA MARIANA ADIWIANTI”
H = “42000”
ElseIf A = “EDP” Then
B = “ELECTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
H = “62000”
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHANDI”
H = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINGA”
H = “83000”
End If
txtjb.Text = B
txtp.Text = C
txthg.Text = H
D = Left(cbokode, 1)
If D = “A” Then
txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
txtpenerbit.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
txtpenerbit.Text = “MAXICOM”
ElseIf D = “S” Then
txtpenerbit.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode = “”
txtjb = “”
txtp = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode = “”
txtjb = “”
txtp = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub Form_Load()
cbokode.AddItem “A-SIM-01”
cbokode.AddItem “I-EDP-02”
cbokode.AddItem “S-MNJ-03”
cbokode.AddItem “E-CDR-04”
cbokode.AddItem “M-RPL-05”
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE E
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Mid(txtkb, 5, 2)
S = Left(txtkb, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtp.Text = “Fadiya Ulfa”
txthg.Text = “75900”
ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtp.Text = “Nurul Agustina”
txthg.Text = “62000”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Rian Hidayat”
txthg.Text = “42000”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Siti Nur Khotimah”
txthg.Text = “53000”
ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtp.Text = “Winda Erlianti”
txthg.Text = “83000”
End If
S = Right(txtkb, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE F
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If txthp > 140000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp > 135000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp > 130000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp > 125000000 Then
txtdis = Val(txthp) * 0.02
End If
txttb = Val(txthp) – Val(txtdis)
End Sub
Private Sub cmdhl_Click()
cbokode.SetFocus
cbokode = “”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub
Private Sub cmdkeluar_Click()
form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
cbokode.AddItem “ASUS A43SA”
cbokode.AddItem “ASUS A43SD”
cbokode.AddItem “ASUS A43SJ”
cbokode.AddItem “ASUS A43TA”
cbokode.AddItem “ASUS N43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp = Val(txtjj) * Val(txths)
If txthp > 140000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp > 135000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp > 130000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp > 125000000 Then
txtdis = Val(txthp) * 0.02
End If
txttb = Val(txthp) – Val(txtdis)
End If
End Sub
Private Sub cbokode_Click()
Select Case cbokode.Text
Case “ASUS A43SA”
txtmerk.Text = “VX090D”
txths = “5500000”
Case “ASUS A43SD”
txtmerk = “VX052D”
txths = “4500000”
Case “ASUS A43SJ”
txtmerk = “VX7792D”
txths = “4300000”
Case “ASUS A43TA”
txtmerk = “VX034D”
txths = “4900000”
Case “N43SL”
txtmerk = “VX264D”
txths = “4300000”
Case “Apple MD311”
txtmerk = “Apple MacBook Pro MD311”
txths = “19300000”
Case “Apple MD313”
txtmerk = “Apple MacBook Pro MD313”
txths = “24200000”
Case “Apple MD314”
txtmerk = “Apple MacBook Pro MD314”
txths = “11900000”
Case “Apple MD322”
txtmerk = “Apple MacBook Pro MD322”
txths = “14700000”
Case “Apple MC965”
txtmerk = “Apple MacBook Air MC965”
txths = “21300000”
End Select
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE G
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txturut = “”
txtbp = “”
End Sub
Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txturut = “”
txtbp = “”
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”
txtps.Text = “strata satu”
txtbp.Text = “1.950.000”
ElseIf s = “2” Then
txtjur.Text = “tehnik informatika”
txtps.Text = “diploma empat”
txtbp.Text = “1.750.000”
ElseIf s = “3” Then
txtjur.Text = “manajemen informatika”
txtps.Text = “diploma tiga”
txtbp.Text = “1.650.000”
ElseIf s = “4” Then
txtjur.Text = “Manajemen & Komp.Akuntansi”
txtps.Text = “diploma dua”
txtbp.Text = “1.450.000”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE H
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub Cmdkeluar_Click()
form2.Show
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
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 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 = Val(txthp) * 0.15
Case Is > 35000000
txtdis = Val(txthp) * 0.1
Case Is > 30000000
txtdis = Val(txthp) * 0.05
Case Is > 25000000
txtdis = Val(txthp) * 0.02
End Select
txttb = Val(txthp) – Val(txtdis)
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 = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis = Val(txthp) * 0.15
Case Is > 35000000
txtdis = Val(txthp) * 0.1
Case Is > 30000000
txtdis = Val(txthp) * 0.05
Case Is > 25000000
txtdis = Val(txthp) * 0.02
End Select
txttb = Val(txthp) – Val(txtdis)
End If
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
TIPE I
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnk.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotal = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotal = “”
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 = “1025000”
ElseIf r = “B” Then
txtgol.Text = “B”
txtjbt.Text = “Ka.SEKSI”
txtgapok.Text = “3500000”
txttunjangan = “975000”
ElseIf r = “C” Then
txtgol.Text = “C”
txtjbt.Text = “STAFF”
txtgapok.Text = “3000000”
txttunjangan = “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
txtks.Text = kode
txtstatus.Text = Status
txttahun.Text = Left(txtnik.Text, 4)
txttotal = Val(txtgapok) + Val(txttunjangan)
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
PROGRAM 13
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkode.SetFocus
End Sub
Private Sub cmdcancel_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdhitung_Click()
txtby = Val(txthb) * Val(txtjb)
If txtjb > 5 Then
txtpot = Val(txtby) * 0.02
End If
txttb = Val(txtby) – Val(txtpot)
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdproses_Click()
Dim s As String
s = Mid(txtkode, 5, 2)
If s = “SP” Then
txtnb.Text = “Spidol”
txthb.Text = “9500”
ElseIf s = “BT” Then
txtnb.Text = “Buku Tulis”
txthb.Text = “12500”
ElseIf s = “TP” Then
txtnb.Text = “Tip Ex”
txthb.Text = “3000”
ElseIf s = “PG” Then
txtnb.Text = “Penggaris”
txthb.Text = “25000”
ElseIf s = “PT” Then
txtnb.Text = “Papan Tulis”
txthb.Text = “50000”
End If
txtjb.SetFocus
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.Update
End Sub
Ketika di klik keluar maka :
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
bahasa pemrograman 1 , 12 program
program 1
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()
kosong
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub
Private Sub Form_Load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub txtnidn_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub
program 2
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 J, P, 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
txtps.Text = “Diploma Empat”
ElseIf S = “4” 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
program 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 J, P, 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
TIPE A
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim JK As String
Dim HT, JB As Variant
A = Left(txtkt, 3)
If A = “BIM” Then
JK = “BIMA”
HT = “50000”
JB = “16.00”
ElseIf A = “EKO” Then
JK = “EKONOMI”
HT = “35000”
JB = “19.00”
ElseIf A = “MUT” Then
JK = “MUTIARA”
HT = “23000”
JB = “17.00”
ElseIf A = “SEN” Then
JK = “SENJA”
HT = “15.000”
JB = “20.00”
ElseIf KeyAscii = 13 Then
txtjt.SetFocus
End If
txtht.Text = HT
txtjk.Text = JK
txtjb.Text = JB
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub
Private Sub txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjt.SetFocus
End If
End Sub
TIPE B
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Right(txtkb, 2)
S = Mid(txtkb, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtp.Text = “Andra Setiawan”
txthg.Text = “75900”
ElseIf S = “EDP” Then
txtjb.Text = “lektronik Data Processing”
txtp.Text = “Desi Istiqomah”
txthg.Text = “62000”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Sandy Fitriajaya”
txthg.Text = “42000”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Tri Indah Sari”
txthg.Text = “53000”
ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtp.Text = “Ernita Sari”
txthg.Text = “83000”
End If
S = Left(txtkb, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
TIPE C
Private Sub cbokode_Click()
Select Case cbokode.Text
Case “P205”
txtjk.Text = “pentiumII 500 Mega Hz”
txths.Text = “1500000”
Case “P308”
txtjk.Text = “pentiumIII 800 Mega Hz”
txths.Text = “2100000”
Case “P310”
txtjk.Text = “pentiumIII 1.0 Giga Hz”
txths.Text = “3500000”
Case “P415”
txtjk.Text = “pentiumIV 1.5 Giga Hz”
txths.Text = “4000000”
Case “P417”
txtjk.Text = “pentiumIV 1.7 Giga Hz”
txths.Text = “4200000”
Case “P419”
txtjk.Text = “pentiumIV 1.9 Giga Hz”
txths.Text = “5500000”
End Select
End Sub
Private Sub cmbproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp.Text > 20000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp.Text > 15000000 Then
txtdis = Val(txthp) * 0.2
End If
txthb = Val(txthp) – Val(txtdis)
End Sub
Private Sub cmdhl_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txthb.Text = “”
End Sub
Private Sub cmdclose_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
Private Sub txths_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjj.SetFocus
End If
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp.Text > 20000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp.Text > 15000000 Then
txtdis = Val(txthp) * 0.2
End If
txthb = Val(txthp) – Val(txtdis)
End Sub
TIPE D
Private Sub cmdproses_Click()
Dim A, B, C, D As String
Dim H As Double
txttt = “20” & Right(cbokode, 2)
A = Mid(cbokode, 3, 3)
If A = “SIM” Then
B = “SISTEM INFORMASI MANAJEMEN”
C = “YATI NUR OKTAVIA”
H = “75900”
ElseIf A = “MNJ” Then
B = “MANAJEMEN”
C = “VALENTINA MARIANA ADIWIANTI”
H = “42000”
ElseIf A = “EDP” Then
B = “ELECTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
H = “62000”
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHANDI”
H = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINGA”
H = “83000”
End If
txtjb.Text = B
txtp.Text = C
txthg.Text = H
D = Left(cbokode, 1)
If D = “A” Then
txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
txtpenerbit.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
txtpenerbit.Text = “MAXICOM”
ElseIf D = “S” Then
txtpenerbit.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode = “”
txtjb = “”
txtp = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode = “”
txtjb = “”
txtp = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
cbokode.AddItem “A-SIM-01”
cbokode.AddItem “I-EDP-02”
cbokode.AddItem “S-MNJ-03”
cbokode.AddItem “E-CDR-04”
cbokode.AddItem “M-RPL-05”
End Sub
TIPE E
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Mid(txtkb, 5, 2)
S = Left(txtkb, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtp.Text = “Fadiya Ulfa”
txthg.Text = “75900”
ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtp.Text = “Nurul Agustina”
txthg.Text = “62000”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Rian Hidayat”
txthg.Text = “42000”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Siti Nur Khotimah”
txthg.Text = “53000”
ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtp.Text = “Winda Erlianti”
txthg.Text = “83000”
End If
S = Right(txtkb, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
TIPE F
Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If txthp > 140000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp > 135000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp > 130000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp > 125000000 Then
txtdis = Val(txthp) * 0.02
End If
txttb = Val(txthp) – Val(txtdis)
End Sub
Private Sub cmdhl_Click()
txtkode.SetFocus
txtkode = “”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
cbokode.AddItem “ASUS A43SA”
cbokode.AddItem “ASUS A43SD”
cbokode.AddItem “ASUS A43SJ”
cbokode.AddItem “ASUS A43TA”
cbokode.AddItem “ASUS N43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp = Val(txtjj) * Val(txths)
If txthp > 140000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp > 135000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp > 130000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp > 125000000 Then
txtdis = Val(txthp) * 0.02
End If
txttb = Val(txthp) – Val(txtdis)
End If
End Sub
Private Sub cbokode_Click()
Select Case cbokode.Text
Case “ASUS A43SA”
txtmerk.Text = “VX090D”
txths = “5500000”
Case “ASUS A43SD”
txtmerk = “VX052D”
txths = “4500000”
Case “ASUS A43SJ”
txtmerk = “VX7792D”
txths = “4300000”
Case “ASUS A43TA”
txtmerk = “VX034D”
txths = “4900000”
Case “N43SL”
txtmerk = “VX264D”
txths = “4300000”
Case “Apple MD311”
txtmerk = “Apple MacBook Pro MD311”
txths = “19300000”
Case “Apple MD313”
txtmerk = “Apple MacBook Pro MD313”
txths = “24200000”
Case “Apple MD314”
txtmerk = “Apple MacBook Pro MD314”
txths = “11900000”
Case “Apple MD322”
txtmerk = “Apple MacBook Pro MD322”
txths = “14700000”
Case “Apple MC965”
txtmerk = “Apple MacBook Air MC965”
txths = “21300000”
End Select
End Sub
TIPE G
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txturut = “”
txtbp = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txturut = “”
txtbp = “”
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”
txtps.Text = “strata satu”
txtbp.Text = “1.950.000”
ElseIf s = “2” Then
txtjur.Text = “tehnik informatika”
txtps.Text = “diploma empat”
txtbp.Text = “1.750.000”
ElseIf s = “3” Then
txtjur.Text = “manajemen informatika”
txtps.Text = “diploma tiga”
txtbp.Text = “1.650.000”
ElseIf s = “4” Then
txtjur.Text = “Manajemen & Komp.Akuntansi”
txtps.Text = “diploma dua”
txtbp.Text = “1.450.000”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
TIPE 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 = Val(txthp) * 0.15
Case Is > 35000000
txtdis = Val(txthp) * 0.1
Case Is > 30000000
txtdis = Val(txthp) * 0.05
Case Is > 25000000
txtdis = Val(txthp) * 0.02
End Select
txttb = Val(txthp) – Val(txtdis)
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 = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis = Val(txthp) * 0.15
Case Is > 35000000
txtdis = Val(txthp) * 0.1
Case Is > 30000000
txtdis = Val(txthp) * 0.05
Case Is > 25000000
txtdis = Val(txthp) * 0.02
End Select
txttb = Val(txthp) – Val(txtdis)
End If
End Sub
TIPE I
Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotal = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotal = “”
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 = “1025000”
ElseIf r = “B” Then
txtgol.Text = “B”
txtjbt.Text = “Ka.SEKSI”
txtgapok.Text = “3500000”
txttunjangan = “975000”
ElseIf r = “C” Then
txtgol.Text = “C”
txtjbt.Text = “STAFF”
txtgapok.Text = “3000000”
txttunjangan = “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
txtks.Text = kode
txtstatus.Text = Status
txttahun.Text = Left(txtnik.Text, 4)
txttotal = Val(txtgapok) + Val(txttunjangan)
End Sub
tugas 4 bahasa pemrograman
Program 1
Private Sub chkBold_Click()
‘Membuat teks Tebal
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub
Private Sub chkItalic_Click()
‘Membuat teks Miring
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub
Private Sub chkStrike_Click()
‘Membuat teks Bergaristengah
If chkStrike.Value = 1 Then
lblTeks.FontStrikeout = True
Else
lblTeks.FontStrikeout = False
End If
End Sub
Private Sub chkUnder_Click()
‘Membuat teks Bergarisbawah
If chkUnder.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub optBlue_Click()
‘Membuat teks berwarna biru
lblTeks.ForeColor = vbBlue
End Sub
Private Sub optGreen_Click()
‘Membuat teks berwarna hijau
lblTeks.ForeColor = vbGreen
End Sub
Private Sub optRed_Click()
‘Membuat teks berwarna merah
lblTeks.ForeColor = vbRed
End Sub
Private Sub optYellow_Click()
‘Membuat teks berwarna kuning
lblTeks.ForeColor = vbYellow
End Sub
Program 2
Private Sub chkmiring_Click()
Label2.FontItalic = chkmiring.Value
End Sub
Private Sub chktebal_Click()
Label2.FontBold = chktebal.Value
End Sub
Private Sub cmdok_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub cmdselesai_Click()
End
End Sub
Private Sub optbiru_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub optmerah_Click()
Label2.ForeColor = vbRed
End Sub
Program 3
Private Sub cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case cbonpm.Text
Case “15100201”
nama = “AFRIZA UTAMA”
jurusan = “SISTEM INFORMASI”
Case “15100120”
nama = “A.N IMAM BUCHORI”
jurusan = “SISTEM INFORMASI”
Case “15100197”
nama = “AGUNG PRAMUDI”
jurusan = “SISTEM INFORMASI”
Case “15100196”
nama = “ALI MARWAN”
jurusan = “SISTEM INFORMASI”
Case “15100140”
nama = “ANDI SUCIPTO”
jurusan = “SISTEM INFORMASI”
Case “15100125”
nama = “ANDRI AGUNG DWI SAPUTRA”
jurusan = “SISTEM INFORMASI”
Case “15100203”
nama = “ARGA PURNAMA AJI”
jurusan = “SISTEM INFORMASI”
Case “15100121”
nama = “AYU ALFANI”
jurusan = “SISTEM INFORMASI”
Case “15100135”
nama = “AYU KRISMIATI”
jurusan = “SISTEM INFORMASI”
Case “15100127”
nama = “BAYU EKA ALFIANTO”
jurusan = “SISTEM INFORMASI”
Case “15100199”
nama = “BAYU PRABOWO”
jurusan = “SISTEM INFORMASI”
Case “15201018”
nama = “DESI IRSANTI”
jurusan = “MANAJEMEN INFORMATIKA”
Case “15100122”
nama = “DIAN SAPUTRA”
jurusan = “SISTEM INFORMASI”
Case “15100130”
nama = “DIKI DIANTORO”
jurusan = “SISTEM INFORMASI”
Case “15100118”
nama = “ERLANGGA NURFERNANDO”
jurusan = “SISTEM INFORMASI”
Case “15100126”
nama = “ERMA DWIYANI”
jurusan = “SISTEM INFORMASI”
Case “15100116”
nama = “FAQIHUDDIN”
jurusan = “SISTEM INFORMASI”
Case “15100138”
nama = “FEBRI ARIYANTO”
jurusan = “SISTEM INFORMASI”
Case “15100198”
nama = “FEBRIANSYAH”
jurusan = “SISTEM INFORMASI”
Case “15100128”
nama = “HASAN HAFIDIN”
jurusan = “SISTEM INFORMASI”
Case “15100124”
nama = “ITA FIBRIYANTI”
jurusan = “SISTEM INFORMASI”
Case “15100131”
nama = “KUKUH PRASETYO”
jurusan = “SISTEM INFORMASI”
Case “15100139”
nama = “M.ARYA BIMO RIFKI”
jurusan = “SISTEM INFORMASI”
Case “15100123”
nama = “MAD MUHAIDI”
jurusan = “SISTEM INFORMASI”
Case “15100136”
nama = “MAR’ATUS SHOLEHAH”
jurusan = “SISTEM INFORMASI”
Case “15100117”
nama = “MAYMANAH”
jurusan = “SISTEM INFORMASI”
Case “15100202”
nama = “RINANDA”
jurusan = “SISTEM INFORMASI”
Case “15100133”
nama = “RISKI SAFITRA RAMADON”
jurusan = “SISTEM INFORMASI”
Case “15100195”
nama = “RULLY INDRIANTO”
jurusan = “SISTEM INFORMASI”
Case “1510032”
nama = “SELTARINA”
jurusan = “SISTEM INFORMASI”
Case “15100206”
nama = “SITI MUKODIMAH”
jurusan = “SISTEM INFORMASI”
Case “15100205”
nama = “SUPRAPTI”
jurusan = “SISTEM INFORMASI”
Case “13100457”
nama = “SUSANTO”
jurusan = “SISTEM INFORMASI”
Case “15100137”
nama = “TIARA HERMADITA”
jurusan = “SISTEM INFORMASI”
Case “15100134”
nama = “WAHYU CANDRA WIJAYA”
jurusan = “SISTEM INFORMASI”
Case “15100129”
nama = “YELI FITRI LIANUARI”
jurusan = “SISTEM INFORMASI”
Case “15100119”
nama = “YUDA FERDIANTARA”
jurusan = “SISTEM INFORMASI”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
End Sub
Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm = “”
txtnama = “”
txtjurusan = “”
txtquis = “”
txttugas = “”
txtuts = “”
txtuas = “”
txtna = “”
txthm = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna = NA
Select Case txtna
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”
End Select
txthm = HM
End Sub
Private Sub Form_Load()
cbonpm.AddItem “15100201”
cbonpm.AddItem “15100120”
cbonpm.AddItem “15100197”
cbonpm.AddItem “15100196”
cbonpm.AddItem “15100140”
cbonpm.AddItem “15100125”
cbonpm.AddItem “15100203”
cbonpm.AddItem “15100121”
cbonpm.AddItem “15100135”
cbonpm.AddItem “15100127”
cbonpm.AddItem “15100199”
cbonpm.AddItem “15201018”
cbonpm.AddItem “15100122”
cbonpm.AddItem “15100130”
cbonpm.AddItem “15100118”
cbonpm.AddItem “15100126”
cbonpm.AddItem “15100116”
cbonpm.AddItem “15100138”
cbonpm.AddItem “15100198”
cbonpm.AddItem “15100128”
cbonpm.AddItem “15100124”
cbonpm.AddItem “15100131”
cbonpm.AddItem “15100139”
cbonpm.AddItem “15100123”
cbonpm.AddItem “15100136”
cbonpm.AddItem “15100117”
cbonpm.AddItem “15100202”
cbonpm.AddItem “15100133”
cbonpm.AddItem “15100195”
cbonpm.AddItem “15100132”
cbonpm.AddItem “15100206”
cbonpm.AddItem “15100205”
cbonpm.AddItem “13100457”
cbonpm.AddItem “15100137”
cbonpm.AddItem “15100134”
cbonpm.AddItem “15100129”
cbonpm.AddItem “15100119”
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
Program 4
Private Sub cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case cbonpm.Text
Case “15100201”
nama = “AFRIZA UTAMA”
jurusan = “SISTEM INFORMASI”
Case “15100120”
nama = “A.N IMAM BUCHORI”
jurusan = “SISTEM INFORMASI”
Case “15100197”
nama = “AGUNG PRAMUDI”
jurusan = “SISTEM INFORMASI”
Case “15100196”
nama = “ALI MARWAN”
jurusan = “SISTEM INFORMASI”
Case “15100140”
nama = “ANDI SUCIPTO”
jurusan = “SISTEM INFORMASI”
Case “15100125”
nama = “ANDRI AGUNG DWI SAPUTRA”
jurusan = “SISTEM INFORMASI”
Case “15100203”
nama = “ARGA PURNAMA AJI”
jurusan = “SISTEM INFORMASI”
Case “15100121”
nama = “AYU ALFANI”
jurusan = “SISTEM INFORMASI”
Case “15100135”
nama = “AYU KRISMIATI”
jurusan = “SISTEM INFORMASI”
Case “15100127”
nama = “BAYU EKA ALFIANTO”
jurusan = “SISTEM INFORMASI”
Case “15100199”
nama = “BAYU PRABOWO”
jurusan = “SISTEM INFORMASI”
Case “15201018”
nama = “DESI IRSANTI”
jurusan = “MANAJEMEN INFORMATIKA”
Case “15100122”
nama = “DIAN SAPUTRA”
jurusan = “SISTEM INFORMASI”
Case “15100130”
nama = “DIKI DIANTORO”
jurusan = “SISTEM INFORMASI”
Case “15100118”
nama = “ERLANGGA NURFERNANDO”
jurusan = “SISTEM INFORMASI”
Case “15100126”
nama = “ERMA DWIYANI”
jurusan = “SISTEM INFORMASI”
Case “15100116”
nama = “FAQIHUDDIN”
jurusan = “SISTEM INFORMASI”
Case “15100138”
nama = “FEBRI ARIYANTO”
jurusan = “SISTEM INFORMASI”
Case “15100198”
nama = “FEBRIANSYAH”
jurusan = “SISTEM INFORMASI”
Case “15100128”
nama = “HASAN HAFIDIN”
jurusan = “SISTEM INFORMASI”
Case “15100124”
nama = “ITA FIBRIYANTI”
jurusan = “SISTEM INFORMASI”
Case “15100131”
nama = “KUKUH PRASETYO”
jurusan = “SISTEM INFORMASI”
Case “15100139”
nama = “M.ARYA BIMO RIFKI”
jurusan = “SISTEM INFORMASI”
Case “15100123”
nama = “MAD MUHAIDI”
jurusan = “SISTEM INFORMASI”
Case “15100136”
nama = “MAR’ATUS SHOLEHAH”
jurusan = “SISTEM INFORMASI”
Case “15100117”
nama = “MAYMANAH”
jurusan = “SISTEM INFORMASI”
Case “15100202”
nama = “RINANDA”
jurusan = “SISTEM INFORMASI”
Case “15100133”
nama = “RISKI SAFITRA RAMADON”
jurusan = “SISTEM INFORMASI”
Case “15100195”
nama = “RULLY INDRIANTO”
jurusan = “SISTEM INFORMASI”
Case “1510032”
nama = “SELTARINA”
jurusan = “SISTEM INFORMASI”
Case “15100206”
nama = “SITI MUKODIMAH”
jurusan = “SISTEM INFORMASI”
Case “15100205”
nama = “SUPRAPTI”
jurusan = “SISTEM INFORMASI”
Case “13100457”
nama = “SUSANTO”
jurusan = “SISTEM INFORMASI”
Case “15100137”
nama = “TIARA HERMADITA”
jurusan = “SISTEM INFORMASI”
Case “15100134”
nama = “WAHYU CANDRA WIJAYA”
jurusan = “SISTEM INFORMASI”
Case “15100129”
nama = “YELI FITRI LIANUARI”
jurusan = “SISTEM INFORMASI”
Case “15100119”
nama = “YUDA FERDIANTARA”
jurusan = “SISTEM INFORMASI”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
End Sub
Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm = “”
txtnama = “”
txtjurusan = “”
txtquis = “”
txttugas = “”
txtuts = “”
txtuas = “”
txtna = “”
txthm = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna = NA
Select Case txtna
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”
End Select
txthm = HM
End Sub
Private Sub Form_Load()
cbonpm.AddItem “15100201”
cbonpm.AddItem “15100120”
cbonpm.AddItem “15100197”
cbonpm.AddItem “15100196”
cbonpm.AddItem “15100140”
cbonpm.AddItem “15100125”
cbonpm.AddItem “15100203”
cbonpm.AddItem “15100121”
cbonpm.AddItem “15100135”
cbonpm.AddItem “15100127”
cbonpm.AddItem “15100199”
cbonpm.AddItem “15201018”
cbonpm.AddItem “15100122”
cbonpm.AddItem “15100130”
cbonpm.AddItem “15100118”
cbonpm.AddItem “15100126”
cbonpm.AddItem “15100116”
cbonpm.AddItem “15100138”
cbonpm.AddItem “15100198”
cbonpm.AddItem “15100128”
cbonpm.AddItem “15100124”
cbonpm.AddItem “15100131”
cbonpm.AddItem “15100139”
cbonpm.AddItem “15100123”
cbonpm.AddItem “15100136”
cbonpm.AddItem “15100117”
cbonpm.AddItem “15100202”
cbonpm.AddItem “15100133”
cbonpm.AddItem “15100195”
cbonpm.AddItem “15100132”
cbonpm.AddItem “15100206”
cbonpm.AddItem “15100205”
cbonpm.AddItem “13100457”
cbonpm.AddItem “15100137”
cbonpm.AddItem “15100134”
cbonpm.AddItem “15100129”
cbonpm.AddItem “15100119”
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
Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna = NA
Select Case txtna
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”
End Select
txthm = HM
End If
End Sub
BAHASA PEMROGRAMAN I
TUGAS 1
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdbatal_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil1 = “”
txtn3 = “”
txtn4 = “”
txthasil2 = “”
txtn5 = “”
txtn6 = “”
txthasil3 = “”
txtn7 = “”
txtn8 = “”
txthasil4 = “”
End Sub
Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil1 = “”
txtn3 = “”
txtn4 = “”
txthasil2 = “”
txtn5 = “”
txtn6 = “”
txthasil3 = “”
txtn7 = “”
txtn8 = “”
txthasil4 = “”
End Sub
Private Sub cmdhitung_Click()
txthasil1 = Val(txtn1) * Val(txtn2)
txthasil2 = Val(txtn3) + Val(txtn4)
txthasil3 = Val(txtn5) – Val(txtn6)
txthasil4 = Val(txtn7) / Val(txtn8)
End Sub
Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub
Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
End If
End Sub
Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If
End Sub
Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
End If
End Sub
Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If
End Sub
Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
End If
End Sub
Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If
End Sub
Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
TUGAS 2
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdbatal_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil1 = “”
txtn3 = “”
txtn4 = “”
txthasil2 = “”
txtn5 = “”
txtn6 = “”
txthasil3 = “”
txtn7 = “”
txtn8 = “”
txthasil4 = “”
End Sub
Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil1 = “”
txtn3 = “”
txtn4 = “”
txthasil2 = “”
txtn5 = “”
txtn6 = “”
txthasil3 = “”
txtn7 = “”
txtn8 = “”
txthasil4 = “”
End Sub
Private Sub cmdhitung_Click()
txthasil1 = Val(txtn1) * Val(txtn2)
txthasil2 = Val(txtn3) + Val(txtn4)
txthasil3 = Val(txtn5) – Val(txtn6)
txthasil4 = Val(txtn7) / Val(txtn8)
End Sub
Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub
Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
txthasil1 = Val(txtn1) * Val(txtn2)
End If
End Sub
Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If
End Sub
Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
txthasil2 = Val(txtn3) + Val(txtn4)
End If
End Sub
Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If
End Sub
Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
txthasil3 = Val(txtn5) – Val(txtn6)
End If
End Sub
Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If
End Sub
Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthasil4 = Val(txtn7) / Val(txtn8)
End If
End Sub
TUGAS 3
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdulang_Click()
txtha.SetFocus
txtha = “”
txtdis = “”
txtak = “”
End Sub
Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) – Val(txtdis)
End Sub
TUGAS 4
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdulang_Click()
txtha.SetFocus
txtha = “”
txtdis = “”
txtak = “”
End Sub
Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) – Val(txtdis)
End Sub
Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) – Val(txtdis)
End If
End Sub
TUGAS 5
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdulang_Click()
txtgp.SetFocus
txtgp = “”
txttj = “”
txtpt = “”
txtgk = “”
txtpjk = “”
txtgdt = “”
End Sub
Private Sub cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpjk = Val(txtgk) * 0.1
txtgdt = Val(txtgk) – Val(txtpjk)
End Sub
Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub
Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If
End Sub
TUGAS 6
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdulang_Click()
txtgp.SetFocus
txtgp = “”
txttj = “”
txtpt = “”
txtgk = “”
txtpjk = “”
txtgdt = “”
End Sub
Private Sub cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpjk = Val(txtgk) * 0.1
txtgdt = Val(txtgk) – Val(txtpjk)
End Sub
Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub
Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If
End Sub
Private Sub txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpjk = Val(txtgk) * 0.1
txtgdt = Val(txtgk) – Val(txtpjk)
End If
End Sub
BAHASA PEMROGRAMAN I
TUGAS 1
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
End Sub
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
TUGAS 2
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjeniskelamin = “”
txtnamaayah = “”
txtnamaibu = “”
txtpekerjaanayah = “”
txtpekerjaanibu = “”
End Sub
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjeniskelamin = “”
txtnamaayah = “”
txtnamaibu = “”
txtpekerjaanayah = “”
txtpekerjaanibu = “”
End Sub
Private Sub txtpekerjaanayah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaanibu.SetFocus
End If
End Sub
Private Sub txtnamaibu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaanayah.SetFocus
End If
End Sub
Private Sub txtnamaayah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamaibu.SetFocus
End If
End Sub
Private Sub txtjeniskelamin_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamaayah.SetFocus
End If
End Sub
Private Sub txtagama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjeniskelamin.SetFocus
End If
End Sub
Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtagama.SetFocus
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
TUGAS 3
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdbersih_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil = “”
End Sub
Private Sub cmdhitung_Click()
txthasil = Val(txtn1) * Val(txtn2)
End Sub
Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub
TUGAS 4
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdbersih_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil = “”
End Sub
Private Sub cmdhitung_Click()
txthasil = Val(txtn1) * Val(txtn2)
End Sub
Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthasil = Val(txtn1) * Val(txtn2)
End If
End Sub
Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub
30 RINCIAN BERITA
Pemberian Gelar Pahlawan Soeharto & Gus Dur Tinggal Tunggu Waktu
Foto: Okezone
Lina Fitria
Jurnalis
JAKARTA – Menteri Sosial Khofifah Indar Parawansa mengatakan proses pengajuan gelar pahlawan nasional bagi mantan Presiden Soeharto dan Abdurahman Wahid (Gus Dur) sudah dalam proses uji di Tim Pengaji Gelar Daerah (TP2GP).
“Untuk gelar pahlawan nasional Soeharto dan Gus Dur telah selesai di Tim Pengaji Gelar Daerah (TP2GP) dan Dewan Gelar. Dewan Gelar memberikan catatan supaya diendapkan sambil menunggu saat yang tepat,” ujar Khofifah usai memberikan sambutan kepada siswa/i SMA di Museum Satria Mandala, Jakarta Pusat, Kamis (12/11/2015).
Khofifah menjelaskan, permohonan usulan gelar pahlawan nasional dilakukan bila ada pengajuan dari masyarakat, kemudian diajukan melalui bupati atau wali kota, dilanjutkan ke jenjang lebih tinggi yakni gubernur, menteri sosial baru ke TP2GP dan terakhir disetujui oleh Presiden.
Politikus PKB itu pun meminta masyarakat untuk sabar menunggu waktu yang tepat pemberian gelar pahlawan nasional itu.
“Tunggu saja, sebetulnya tinggal pemberian penganugerahannya saja,” tegasnya.
ndonesia Tidak Akui Klaim ‘Nine Dash Line‘ di LCS
Pulau buatan China di Laut China Selatan. (Foto: Reuters)
Rahman Asmardika
Jurnalis
JAKARTA – Nine Dash Line atau sembilan garis imajiner yang meliputi klaim China di Laut China Selatan (LCS), dianggap tidak sesuai dengan hukum internasional. Hal itu disampaikan oleh Juru Bicara Kementerian Luar Negeri Indonesia Arrmanatha Christiawan Nasir.
Arrmanatha menambahkan bahwa mengenai klaim tersebut, sikap Indonesia telah jelas dan tidak mengakui klaim tersebut.
“Nine Dash Line adalah sebuah klaim. Bagi Indonesia, kita sudah menyampaikan beberapa kali pada Pemerintah Tiongkok (China) bahwa klaim ini tidak berdasarkan hukum internasional. Kita juga menyampaikan pada (United Nation Convention on Law of the Sea/UNCLOS), jadi posisi Indonesia sudah jelas,” kata Arrmanatha dalam Press briefing mingguan di Kantor Kementerian Luar Negeri Republik Indonesia, Jakarta, Kamis (12/11/2015).
Di luar sikap mengenai Nine Dash Line, Arrmanatha juga menjelaskan bahwa Indonesia bukanlah negara claimant atau negara yang memiliki klaim di Laut China Selatan.
Meski begitu, dia kembali menegaskan kepentingan Indonesia di wilayah itu adalah memastikan adanya perdamaian dan keamanan melalui mekanisme Declaration of Conduct (DoC) dan Code of Conduct (CoC). Karena gejolak yang terjadi di wilayah tersebut akan memberikan dampak tidak hanya bagi Indonesia, China, Amerika Serikat (AS) atau negara-negara ASEAN namun juga pada dunia.
Tata, sapaan akrab Arrmanatha mengatakan, dirinya tidak mau berspekulasi mengenai pernyataan Menteri Koordinator Politik dan Keamanan (Menko Polhukam) Luhut Binsar Panjaitan yang menyatakan, akan membawa kasus LCS ke Pengadilan Arbitrase Internasional (ICC), jika masalah ini tidak dapat selesai dengan dialog.
Pengajuan sengketa ini, jika dilakukan, berpotensi mengganggu hubungan Indonesia dengan Tiongkok, seperti yang terjadi pada Filipina yang telah lebih dahulu mengajukan klaimnya.
Dari: http://news.okezone.com/read/2015/11/12/18/1248227/indonesia-tidak-akui-klaim-nine-dash-line-di-lcs
Jokowi Blusukan ke Tanah bang, Lalin Amburadul
Kemacetan terjadi di sekitar Pasar Tanah Abang, efek dari kunjungan Presiden Jokowi (Achmad Fardiansyah/Okezone)
Achmad Fardiansyah
Jurnalis
JAKARTA – Kedatangan Presiden RI, Joko Widodo (Jokowi) beserta pejabat negara sahabat ke Blok A, Pasar Tanah Abang, mengakibatkan arus lalu lintas di kawasan tersebut amburadul.
Kendaraan sempat tidak bisa bergerak sekira 20 menit, karena petugas melakukan pengalihan arus lalu lintas.
“Kami berlakukan pengalihan jalan, bagi pengguna jalan dari arah Blok G yang mau ke arah Blok A-Stasiun Tanah Abang, dialihkan ke Jalan Jati Baru,” kata salah satu petugas Dishub DKI Jakarta, Kamis (12/11/2015).
Kedatangan Jokowi, menjadi daya tarik warga yang sedang belanja di kawasan tersebut. Berdasarkan pantauan Okezone. Lalu lintas di sekitar Tanah Abang saat ini masih terjadi kepadatan.
Dari:
http://news.okezone.com/read/2015/11/12/338/1248215/jokowi-blusukan-ke-tanah-bang-lalin-amburadul
Inilah Posisi Resmi Indonesia soal Konflik Laut China Selatan
Victor Maulana
Kamis, 12 November 2015 − 14:53 WIB
Inilah Posisi Resmi Indonesia soal Konflik Laut China Selatan
Indonesia jadi penengah negara-negara yang terlibat konflik Laut China Selatan. | (Reuters)
A+ A-
JAKARTA – Pemerintah Indonesia menegaskan posisi resminya dalam menyikapi konflik Laut China Selatan. Indonesia akan tetap pada posisi sebagai penengah negara-negara yang berkonflik atau bersengketa atas kawasan kaya energi itu.
Indonesia akan mendorong tercapainya Code of Conduct (CoC) antara ASEAN dan China soal wilayah tersebut. Menurut Direktur Mitra Wicara dan Antar-Kawasan Kementerian Luar Negeri Indonesia, Derry Aman, saat ini adalah waktu yang tepat untuk membahas CoC.
“Posisi indonesia tetapa berada dalam bagaimana menjaga kestabilan dan perdamaian di wilayah tersebut. Implementasikan penuh CoC. Pencapaian COC saat ini sudah masuk tahap negosiasi. Indonesia menyampaikan tegas, ini saatnya dibahas soal elemen yang ada dalam CoC,” ucap Derry.
“Indonesia mendorong negara-negara yang terkait konflik menyelesaikannya secara damai. CoC ada dalam rangka menjaga wilayah itu tetap stabil, aman, damai, dan terjamin arus perdagangan di sana. Penyelesaian sengketa tetap di tangan negara-negara yang bersangkutan,” sambung dia pada Kamis (12/11/2015).
Menurutnya, masalah Laut China Selatan akan turut dibahas dalam Konferensi Tingkat Tinggi (KTT) ASEAN yang akan digerlar di Malaysia pada pekan depan, meski sebenarnya hal itu tidak ada dalam agenda inti ASEAN. Masalah itu kemungkinan juga akan diangkat dalam pertemuan KTT Asia Timur- ASEAN.
source
Menteri ESDM Diminta Jangan Buat Kegaduhan Politik
Alfani Roosy Andinni
Kamis, 12 November 2015 − 14:48 WIB
Menteri ESDM Diminta Jangan Buat Kegaduhan Politik
Menteri Energi dan Sumber Daya Mineral, Sudirman Said. (Dok. Sindo).
A+ A-
JAKARTA – Menteri Energi dan SUmber Daya Mineral (ESDM) Sudirman Said diminta jangan membuat kegaduhan politik dengan melontarkan adanya mafia migas.
Wakil Ketua Komisi VI DPR Heri Gunawan mengingatkan Sudirman Said harus mengungkapkan secara terbuka siapa mafia migas dimaksud , termasuk terkait Freeport.
“Ketimbang membuat pernyataan tidak jelas, alangkah lebih bermanfaat menteri-menteri itu tingkatkan koordinasi yang seringkali tumpang-tindih,” ujar Heri, Jakarta, Kamis (12/11/2015).
Politikus Partai Gerindra ini mengingatkan, energi bangsa sudah terlalu banyak terbuang sia-sia untuk pernyataan-pernyataan yang tidak jelas. Maka itu dia meminta Sudirman Said konsentrasi terhadap tugasnya sebagai Menteri ESDM.
“Baiknya, hindari membuat pernyataan yang tidak jelas yang hanya menambah ketidaknyamanan dan ketidakjelasan arah negara ini,” ucapnya.
Baca: Terungkap Ada Pihak Ketiga Mainkan Tender Petral.
Sudirman Diminta Ungkap Politikus Catut Jokowi-JK di Kontrak Freeport.
source
Susi Tolak Rizal Ramli Hentikan Ledakkan Kapal Asing
Lily Rusna Fajriah
Selasa, 27 Oktober 2015 − 16:30 WIB
Susi Tolak Rizal Ramli Hentikan Ledakkan Kapal Asing
Menteri Kelautan dan Perikanan Susi Pudjiastuti tak mau mengikuti permintaan Menko Kemaritiman Rizal Ramli untuk berhenti meledakkan kapal asing ilegal. Foto: Grafis/SindoPhoto
A+ A-
JAKARTA – Menteri Kelautan dan Perikanan Susi Pudjiastuti tidak mau mengikuti permintaan Menteri Koordinator (Menko) bidang Kemaritiman Rizal Ramli untuk berhenti meledakkan dan menenggelamkan kapal asing yang melintasi perairan Tanah Air, selama Presiden Joko Widodo (Jokowi) tidak memerintahkan hal tersebut.
Dia menegaskan, sejauh ini Rizal Ramli juga belum mengutarakan langsung kepadanya perihal permintaannya itu. “Bilang ke siapa? Ke kamu? Pak Rizal Ramli belum ngomong ke saya (minta berhenti ledakkan kapal). Kalau Pak Presiden masih suruh tenggelemin ya dengerin Pak Presiden dong,” kata dia di kantornya, Jakarta, Selasa (27/10/2015).
Menurutnya, kapal tersebut tidak bisa diserahkan ke nelayan jika tidak ditenggelamkan atau diledakkan. Pasalnya, saat ini masih banyak kapal yang diserahkan ke nelayan mangkrak dan tidak terurus.
“Karena banyak yang mangkrak (kapal diserahkan ke nelayan). Yang dulu-dulu diserahkan pada mangkrak jadinya kita enggak bisa bedain kapal asing sama kapal nelayan,” tutur Susi.
Mantan Bos Susi Air ini menambahkan, sejauh ini Presiden Jokowi belum mengubah perintahnya untuk memberikan efek jera terhadap pelaku Illegal Unreported Unregulated (IUU) Fishing yang berlayar ke Indonesia dengan kapal berbendera asing tanpa izin.
“Pak Rizal belum bilang ke saya. Kalau Pak Rizal bilang, terus Pak Presiden masih suruh tenggelamkan. Ya tenggelamkan,” ujarnya.
Seperti diberitakan sebelumnya, Rizal Ramli meminta Susi tidak melulu menenggelamkan kapal ex asing yang berlayar dan menangkap ikan tanpa surat (illegal) di perairan Indonesia. Meski dia mendukung sepenuhnya langkah Susi, namun aksi penenggelaman kapal tidak bisa terus dilakukan.
Dia akan mengirimkan jaksa muda dan hakim ke Norwegia untuk belajar mengenai penegakan hukum terkait IUU Fishing.
“Tenggelamin kapal itu bagus, Bu Susi kasih shock terapi, tapi enggak mungkin begini sampai 2019 tenggelamin kapal terus,” ujarnya dalam acara Rembug Nasional Satu Tahun Pemerintahan Jokowi-JK di Jakarta, Selasa (20/10/2015).
Dalam program pemberian pendidikan ini, sambung Rizal, rencananya pemerintah akan mengirim 40 jaksa muda dan 40 hakim muda ke Norwegia. Dengan adanya pendidikan ini, diharapkan para penegak hukum dapat lebih mengerti tugasnya dalam memerangi IUU Fishing, sehingga kapal-kapal hasil tangkapan dapat diberikan kepada nelayan, bukan ditenggelamkan.
“Enggak lagi ditenggelamkan. Kalau perlu nanti hakim putuskan kapal ini diberikan ke nelayan atau koperasi nelayan gratis buat mereka,” tandas Rizal.
Janji Jokowi kepada Netizen: Saya Tidak Marah Dikritik Sekasar Apapun
Kurnia Illahi
Jum’at, 6 November 2015 − 17:12 WIB
Janji Jokowi kepada Netizen Saya Tidak Marah Dikritik Sekasar Apapun
Cuplikan Diskusi Jokowi dengan Netizen sebelum Menjadi Presiden. (Dok. Twitter).
A+ A-
JAKARTA – Sindiran terhadap Presiden Joko Widodo (Jokowi) masih meramaikan media sosial setelah keluarnya surat edaran Kapolri Jenderal Badrodin Haiti mengenai ujaran kebencian (hate speech).
Surat tersebut menimbulkan kecemasan di kalangan netizen, karena tidak ada penjelasan secara detail mengenai aturan hate speech tersebut.
Salah satu sindiran yang meramaikan media sosial adalah dimunculkan lagi cuplikan video saat Jokowi berdiskusi dengan para blogger atau netizen di salah satu stasiun televisi nasional sebelum dirinya resmi terpilih sebagai presiden.
Pada kesempatan itu salah satu netizen melontarkan pertanyaan kecemasan akan kehilangan kebebasan dalam berekspresi dan aspirasi terhadap pemerintahan ke depan.
“Saya sebagai blogger politik itu sangat takut sama pemerintah yang bisa represif oleh blogger-blogger yang berani menyuarakan pendapatnya mengenai pemerintah. Nah saya ingin tahu bagaimana bapak bisa membuat kita merasa aman kalau bapak nanti menjadi presiden dan bagaimana bapak menanggapi masyarakat para netizen itu yang mengkritisi bapak, karena saya yakin bapak nanti tidak sempurna,” ujar salah satu netizan yang hadir dalam diskusi tersebut.
Pertanyaan ini dijawab dengan lugas oleh Jokowi dengan janji dirinya tidak akan marah jika dikritik sekeras apapun apabila dirinya terpilih sebagai presiden dalam Pemilihan Presiden (Pilpres) 2015.
“Tapi kalau hanya berkaitan dengan saling mengkritik atau saling memberikan kritikan yang pedas, saya kira tidak ada masalah. Saya pun juga biasa ke masyarakat juga ada yang suka teriak-teriak seperti itu ya biasa saja. Apalagi di sosial media tidak ada masalah buat saya. Mau ngomong sekasar apapun kepada saya, enggak akan marah saya. Saya akan pakai sebagai koreksi,” jawab Jokowi dengan lugas.
Berikut ini cuplikan video dialog Jokowi dengan salah seorang blogger yang disiarkan televisi nasional tahun lalu.
Dialog Jokowi di Amerika Jadi Guyonan Netizen
Mohammad Atik Fajardin
Senin, 2 November 2015 − 15:09 WIB
Dialog Jokowi di Amerika Jadi Guyonan Netizen
Presiden Joko Widodo (Jokowi) saat acara diskusi.
A+ A-
JAKARTA – Sebuah dialog berbahasa Inggris antara Presiden Joko Widodo (Jokowi) dengan para peserta forum di Brookings Institution Amerika, beredar situs Youtube. Rekaman video berdurasi 5.47 menit ini menjadi guyonan para netizen.
Video tersebut dipublikasikan oleh MandongTV, pada 31 Oktober 2015. Apa dasar netizen membuatnya jadi guyonan?
Ini gambaran dialog yang terjadi antara Jokowi dengan peserta forum.
Dalam diskusi tersebut dengan menggunakan teks pidato, Jokowi mengawali pemaparan kondisi Negara Indonesia.
Kemudian disambut tepuk tangan peserta dialog, tak berapa lama mantan Gubernur DKI Jakarta itu dipersilakan duduk oleh moderator (Mr. Richard Brush). Sang moderator pun menawarkan kepada Jokowi untuk menerima beberapa pertanyaan dari peserta diskusi.
“Do you have time answer the question”? tanya moderator
“Can be one or two… or three,” jawab Jokowi.
Sebelum pertanyaan diajukan, moderator memberi isyarat kepada Jokowi menggunakan translator penerjemah bahasa asing. Namun dengan gesture yang ada, Jokowi enggan menggunakannya dan mempersilakan moderator melanjutkan dialog.
Selanjutnya salah seorang peserta dialog mengajukan pertanyaan. Namun dari pengamatan Sindonews di Youtube, Senin (2/11/2015), tidak terlihat penanya tersebut. Sang penanya meminta penjelasan kepada Jokowi terkait cara Indonesia agar investor asing mudah menanamkan modalnya di RI.
Tetapi setelah pertanyaan diajukan, Jokowi bukan langsung menjawab pertanyaan tersebut. Namun mempersilakan Menteri Pedagangan Thomas Lembong untuk menjawabnya.
“I want to test my ministry (saya ingin uji pengetahun menteri saya). Please answer the question (silakan ditanggapi Pak Menteri),” ucap Jokowi tertawa sambil menunjuk Thomas Lembong.
“But don’t speak longer than my speech (tapi jangan lebih panjang dari pidato saya),” sambung Jokowi.
Thomas Lembong pun langsung memberi respons dan menjawab pertanyaan tersebut dengan menggunakan bahasa Inggris.
“Thank you Mr President,”… ujar Thomas.
Setelah memberi jawaban, moderator Richard Bush sedikit bercanda kepada Jokowi. “Saya salut dengan cara Anda (Jokowi) sebagai pemimpin. Anda bisa memerintahkan tanggung jawab, tapi tidak serta merta menyerahkan kekuasaan,” canda Bush.
Berlanjut pada pertanyaan kedua soal masa depan hubungan masyarakat Indonesia dan Amerika.
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Alfani Roosy Andinni
Kamis, 5 November 2015 − 18:02 WIB
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Wakil Ketua Umum Partai Golkar kubu Agung, Yorrys Raweyai, (SINDOphoto).
A+ A-
JAKARTA – Politikus Golkar Yoryys Raweyai kecewa dengan langkah Partai Golkar kubu Agung Laksono yang mengajukan kasasi atas putusan Pengadilan Tinggi (PT) DKI Jakarta. Pasalnya, Yorrys yang selama ini loyalis Agung, sangat ingin konflik kedua kubu partai beringin tuntas.
Menurutnya, semua pihak harus mengedepankan penyelesaian masalah Golkar untuk kepentingan partai bukan berdasarkan ego kelompok.
Wakil Ketua Umum Partai Golkar pro Agung ini menyampaikan, dirinya sudah tak sepandangan lagi dengan Agung sejak Agustus lalu pasca penetapan Komisi Pemilihan Umum (KPU).
“Ego Agung untuk terus mengajukan upaya hukum tak akan menyelesaikan masalah, bahkan justru membuat Golkar bisa tak ikuti pilkada,” ujar Yorrys di Kompleks Parlemen, Senayan, Jakarta, Kamis (5/11/2015).
Melihat polemik yang ada, Yoryys mengaku telah membentuk tim penyelamat Golkar yang diisi Airlangga, Ibnu Munzir, Agung Gunandjar, Melkias Mekeng, Agus, beserta tim dari kubu Ical, yakni Nurdin Halid dengan lima orang timnya.
“Di situ saya ambil garis, saya stop. Karena dulu kita berusaha untuk bagaimana tidak mengakui Aburizal karena manajemen yang dia buat. Kita bersepakat, kita punya idealisme yang sama. Kok kemudian kita mengulangi kesalahan itu yang dibuat oleh Agung dengan kelompoknya. Enggak usalah,” tegasnya.
Belum lagi terkait kasasi yang diajukan Agung, Yorrys berpandangan bahwa kasasi belum tentu akan menyelesaikan masalah. Justru yang dia takutkan jika masih ada proses hukum, maka Golkar akan mengalami kesulitan dalam perhelatan pilkada.
“Saya lihat pengalaman sejarah kita, kalau proses politik yang dikedepankan, proses hukum. Kita punya pengalaman zaman orde baru, Suryadi sama Megawati. Di zaman reformasi, Anda lihat Gus Dur itu presiden, bapak reformasi, sama Muhaimin (Ketua Umum PKB). Hasilnya apa coba? Apakah Golkar akan mengalami nasib yang sama kayak begitu?,” tegasnya.
Namun begitu Yorrys menegaskan, masalah kasasi tak akan mengganggu komitmen yang dibentuk di Silaturahmi Nasional (Silatnas) Golkar beberapa waktu lalu. Dia berjanji akan menyelamatkan partai Golkar dengan tim yang telah dibentuknya.
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Alfani Roosy Andinni
Kamis, 5 November 2015 − 18:02 WIB
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Wakil Ketua Umum Partai Golkar kubu Agung, Yorrys Raweyai, (SINDOphoto).
A+ A-
JAKARTA – Politikus Golkar Yoryys Raweyai kecewa dengan langkah Partai Golkar kubu Agung Laksono yang mengajukan kasasi atas putusan Pengadilan Tinggi (PT) DKI Jakarta. Pasalnya, Yorrys yang selama ini loyalis Agung, sangat ingin konflik kedua kubu partai beringin tuntas.
Menurutnya, semua pihak harus mengedepankan penyelesaian masalah Golkar untuk kepentingan partai bukan berdasarkan ego kelompok.
Wakil Ketua Umum Partai Golkar pro Agung ini menyampaikan, dirinya sudah tak sepandangan lagi dengan Agung sejak Agustus lalu pasca penetapan Komisi Pemilihan Umum (KPU).
“Ego Agung untuk terus mengajukan upaya hukum tak akan menyelesaikan masalah, bahkan justru membuat Golkar bisa tak ikuti pilkada,” ujar Yorrys di Kompleks Parlemen, Senayan, Jakarta, Kamis (5/11/2015).
Melihat polemik yang ada, Yoryys mengaku telah membentuk tim penyelamat Golkar yang diisi Airlangga, Ibnu Munzir, Agung Gunandjar, Melkias Mekeng, Agus, beserta tim dari kubu Ical, yakni Nurdin Halid dengan lima orang timnya.
“Di situ saya ambil garis, saya stop. Karena dulu kita berusaha untuk bagaimana tidak mengakui Aburizal karena manajemen yang dia buat. Kita bersepakat, kita punya idealisme yang sama. Kok kemudian kita mengulangi kesalahan itu yang dibuat oleh Agung dengan kelompoknya. Enggak usalah,” tegasnya.
Belum lagi terkait kasasi yang diajukan Agung, Yorrys berpandangan bahwa kasasi belum tentu akan menyelesaikan masalah. Justru yang dia takutkan jika masih ada proses hukum, maka Golkar akan mengalami kesulitan dalam perhelatan pilkada.
“Saya lihat pengalaman sejarah kita, kalau proses politik yang dikedepankan, proses hukum. Kita punya pengalaman zaman orde baru, Suryadi sama Megawati. Di zaman reformasi, Anda lihat Gus Dur itu presiden, bapak reformasi, sama Muhaimin (Ketua Umum PKB). Hasilnya apa coba? Apakah Golkar akan mengalami nasib yang sama kayak begitu?,” tegasnya.
Namun begitu Yorrys menegaskan, masalah kasasi tak akan mengganggu komitmen yang dibentuk di Silaturahmi Nasional (Silatnas) Golkar beberapa waktu lalu. Dia berjanji akan menyelamatkan partai Golkar dengan tim yang telah dibentuknya.
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Alfani Roosy Andinni
Kamis, 5 November 2015 − 18:02 WIB
Yorrys Kecewa Golkar Kubu Agung Ajukan Kasasi
Wakil Ketua Umum Partai Golkar kubu Agung, Yorrys Raweyai, (SINDOphoto).
A+ A-
JAKARTA – Politikus Golkar Yoryys Raweyai kecewa dengan langkah Partai Golkar kubu Agung Laksono yang mengajukan kasasi atas putusan Pengadilan Tinggi (PT) DKI Jakarta. Pasalnya, Yorrys yang selama ini loyalis Agung, sangat ingin konflik kedua kubu partai beringin tuntas.
Menurutnya, semua pihak harus mengedepankan penyelesaian masalah Golkar untuk kepentingan partai bukan berdasarkan ego kelompok.
Wakil Ketua Umum Partai Golkar pro Agung ini menyampaikan, dirinya sudah tak sepandangan lagi dengan Agung sejak Agustus lalu pasca penetapan Komisi Pemilihan Umum (KPU).
“Ego Agung untuk terus mengajukan upaya hukum tak akan menyelesaikan masalah, bahkan justru membuat Golkar bisa tak ikuti pilkada,” ujar Yorrys di Kompleks Parlemen, Senayan, Jakarta, Kamis (5/11/2015).
Melihat polemik yang ada, Yoryys mengaku telah membentuk tim penyelamat Golkar yang diisi Airlangga, Ibnu Munzir, Agung Gunandjar, Melkias Mekeng, Agus, beserta tim dari kubu Ical, yakni Nurdin Halid dengan lima orang timnya.
“Di situ saya ambil garis, saya stop. Karena dulu kita berusaha untuk bagaimana tidak mengakui Aburizal karena manajemen yang dia buat. Kita bersepakat, kita punya idealisme yang sama. Kok kemudian kita mengulangi kesalahan itu yang dibuat oleh Agung dengan kelompoknya. Enggak usalah,” tegasnya.
Belum lagi terkait kasasi yang diajukan Agung, Yorrys berpandangan bahwa kasasi belum tentu akan menyelesaikan masalah. Justru yang dia takutkan jika masih ada proses hukum, maka Golkar akan mengalami kesulitan dalam perhelatan pilkada.
“Saya lihat pengalaman sejarah kita, kalau proses politik yang dikedepankan, proses hukum. Kita punya pengalaman zaman orde baru, Suryadi sama Megawati. Di zaman reformasi, Anda lihat Gus Dur itu presiden, bapak reformasi, sama Muhaimin (Ketua Umum PKB). Hasilnya apa coba? Apakah Golkar akan mengalami nasib yang sama kayak begitu?,” tegasnya.
Namun begitu Yorrys menegaskan, masalah kasasi tak akan mengganggu komitmen yang dibentuk di Silaturahmi Nasional (Silatnas) Golkar beberapa waktu lalu. Dia berjanji akan menyelamatkan partai Golkar dengan tim yang telah dibentuknya.
10 BERITA GAYA HIDUP
Berdiri, Sanggup Turunkan Berat Badan
Oleh : Mia Umi Kartikawati | Rabu, 11 November 2015 | 15:15 WIB
Berita Terkait
Gaya hidup
(Foto: Istimewa)
INILAHCOM, Jakarta – Menurutkan berat badan memang tidak mudah. Butuh usaha keras mendapatkan berat badan ideal. Namun ada satu cara sederhana dan mudah berberat badan sempurna, yaitu berdiri.
Mengutip Boldsky, Rabu (11/11/2015), banyak orang yang menghabiskan sebagian besar waktu terjebak di kursi kantor atau rumah. Ada begitu banyak rencana diet dan latihan yang memastikan penurunan berat badan dalam waktu singkat, tapi kemudian ketika menjalankan membuat ingin menyerah dan hasilnya, tidak sesuai.
Salah satu cara terbaik mendapatkan badan berat badan ideal adalah berdiri. Berikut manfaat berdiri bagi tubuh. [aji]
Kenali Penyakit Asma Hingga Ancaman Mematikan
Oleh : Reza Aditya Digambiro * | Rabu, 11 November 2015 | 05:27 WIB
PENYAKIT asma (dalam medis dikenal sebagai asthma bronchiale) merupakan penyakit dengan gejala sesak nafas akibat cabang bronkus yang terlalu aktif (hipereaktif). Asma dapat disebabkan oleh beberapa faktor, seperti di antaranya: pengaruh lingkungan (disebut dengan alergen), infeksi virus, polusi udara, bahan-bahan kimiawi bahkan faktor keturunan.
Kejadian asma ini lebih banyak didapati pada bayi dan anak-anak, sebab pada golongan usia tersebut ukuran diameter bronkus (cabang saluran pernafasan yang menuju ke paru-paru) lebih kecil sehingga penyumbatan pada organ ini lebih rentan.
Beberapa gejala yang perlu dikenali pada asma adalah: bunyi mengi (ngiiiik) yang merupakan suara udara saat melewati bronkus yang menyempit, nafas terasa pendek serta rasa berat di dada. Pada sebagian anak-anak hanya ditandai dengan batuk atau gejala yang tidak terlalu jelas.
Respon asma dapat timbul segera, kurang lebih 15-39 menit setelah paparan alergen, juga dapat melambat (timbul 4-8 jam setelah terpapar dan hilang setelah beberapa hari serta kombinasi dari keduanya).
Beberapa jenis alergen penyebab asma antara lain: debu rumah yang terhirup, bulu-bulu hewan peliharaan, spora dari jamur, kapuk, sari bunga dan lain sebagainya. Alergen yang berasal dari makanan umumnya berasal dari konsumsi pangan yang proteinnya tinggi, seperti telur atau ikan laut, dapat juga dari coklat maupun kacang-kacangan.
Selain alergen, faktor infeksi juga dapat memicu serangan asma. Pada anak-anak umumnya setelah terserang influenza atau pneumonia. Para ahli menduga infeksi merusak dinding mukosa saluran pernafasan sehingga menyebabkan proses peradangan yang mempermudah perangsangan sistem syaraf otonom pada tonus otot polos saluran nafas.
Beberapa faktor lainnya yang dapat mencetuskan serangan asma adalah olahraga (disebut exercise induced asthma), asma pada tempat kerja (occupational asthma) akibat menghirup debu, gas, tepung terigu dan lain sebagainya serta asma yang disebabkan konsumsi obat tertentu, misalnya aspirin.
Asma dapat bersifat mematikan pada anak, terutama jika pengobatan terlambat atau saat mengalami serangan, penderita asma tersebut jauh dari fasilitas kesehatan. Kematian umumnya akibat kejang (spasme) pada bronkus yang terjadi secara terus menerus (persisten).
Dari:
http://gayahidup.inilah.com/read/detail/2251537/kenali-penyakit-asma-hingga-ancaman-mematikan
Nasi Kapau, Menu Istimewa Ranah Minang
Penting, Memakai Masker Saat Kabut Asap
Nasi Kapau – (Foto: Istimewa)
INILAHCOM, Padang – Setelah publik kenal rendang makanan terenak di dunia versi CNN, salah satu masakan Minang enak, nasi kapau.
Makanan asal Nagari Kapau, Kabupaten Agam, Sumatera Barat itu sudah berbagai kalangan pemburu kuliner cicipi Nasi kapau menu istimewa terdiri nasi, sambal, dan lauk pauk khas, yaitu gulai cubadak (nangka), gulai cangcang (tulang dan daging sapi), gulai babek (bagian perut sapi) dan gulai tunjang (kulit, urat daging sapi). Lauk lainnya dendeng balado, dendeng lado hijau, randang, gulai ikan, goreng belut dan goreng ayam.
Namun yang paling utama gulai tambunsu, yaitu campuran telur dan tahu yang masuk ke dalam usus sapi sehingga menghasilkan rasa gurih. Jika hendak mencicipi nasi kapau, siapa pun bisa berkunjung ke Los Lambuang di Kota Bukittinggi persis berada di tengah-tengah Pasar Lereng dan Pasar Putih. Los Lambuang, tempat berkumpulnya para pedagang yang menyediakan makanan mengisi perut atau lambung, khususnya nasi kapau itu telah ada sejak tahun 1988, yang sebelumnya los daging dan sempat pula menjadi los maco.
Sejak pagi pedagang nasi kapau siap dengan aneka ragam lauk di atas meja panjang bertingkat. Mereka siap melayani setiap orang yang hendak menyantap nasi yang tersajikan melanjung dengan berbagai macam sambal.
Uniknya, pedagang menggunakan sendok bertangkai kayu panjang dengan ujung tempurung mengambil sambal yang telah ditata di atas piring pelanggan yang ingin makan.
“Masuak lah ni, masuak lah ni,” Demikian sapaan khas pedagang yang sebagian besar perempuan itu mengajak calon pembeli mencicipi hidangannya, yang artinya “Silahkan masuk uni (kakak perempuan).”
Saat ini terdapat delapan kedai nasi kapau di Los Lambung tersebut yang masing-masing hanya terbatasi dinding bambu bercat biru setinggi pinggang orang dewasa dan kain putih dengan tali rafia penutup bagian atasnya. Di tiap kedai terdapat papan nama masing-masing kedai mulai Hj Ana, Hj Mes, Uni Lis, Ni Lis, Hj Sam, Linda, Uni I dan Ni Nita yang menyajikan berbagai macam sambal. Semuanya terlihat sama, namun mempunyai cita rasa tersendiri karena olahan pribadi.
Tia (35), salah seorang penjual nasi kapau mengatakan tidak ada persaingan antarpedagang karena makanan yang terjual sama, harga satu dan lainnya tidak jauh berbeda, hanya saja cita rasa masing-masing mempunyai ciri khas.
“Kami sama-sama berjualan nasi kapau untuk memenuhi kebutuhan sehari-hari. Setiap orang juga sudah ada rezekinya masing-masing, jadi tidak perlu merasa bersaing,” ujar dia.
Penjual yang telah sekitar satu tahun lebih di Los Lambuang itu mengaku pendapatannya tidak menentu, karena penjualan kadang sepi dan kadang ramai.
“Pengunjung biasanya ramai saat Hari Raya dan hari libur termasuk Minggu, untuk hari lainnya tidak menentu bahkan sangat sepi,” jelas dia.
Sementara penjual nasi kapau lainnya, Lis (47) mengatakan terdapat 12 macam lauk doi kedainya setiap hari, diantaranya ikan gulai, ikan batalua, tambunsu, rendang ayam, tunjang, usus, dendeng, baluik, ayam gulai, ayam balado, ayam bumbu. Keunikan nasi kapau dibandingkan nasi lainnya karena banyaknya lauk di piring. Walaupun pelanggan minta makan dengan ayam gulai, nanti akan mendaat dendeng sedikit, bumbu rendang, ayam bumbu dan beragam sayur sehingga satu piring makan bisa penuh dan melanjung.
Lis menggungkapkan kata kapau sebenarnya berasal dari nama salah satu daerah di Kabupaten Agam yang terkenal dengan penyajian sayur yang bercampur-campur.
“Kalau rumah makan biasanya memberikan satu macam sayur yang direbus, sedangkan nasi kapau diberi bermacam sayur mulai dari pucuk ubi rebus, lobak yang digulai dengan nangka, rebung dan sebagainya,” terang dia.
Pemilik kedai yang telah berjualan turun temurun ini menjual nasi kapau seharga Rp25.000 per porsi saat makan di tempat dan Rp27.000 saat terbungkus.
Perbedaan harga terjadi di setiap penjual nasi kapau dengan perbedaan Rp1.000 hingga Rp2.000 antara makan di tempat dengan bungkus karena porsi nasi yang terbungkus lebih banyak. Jika pengunjung sedang ramai, ia bisa menjual nasi kapau hingga 30 kilogram beras per hari dengan omzet bisa mencapai Rp10 juta.
Selain berjualan nasi kapau, beberapa pedagang di Los Lambuang juga menjual jenis makanan lainnya seperti katupek kapau, katupek pical, soto dan cindua langkok yang berisi lopis, cendol dan emping.
Salah seorang penikmat nasi kapau, Amsuis (49) mengaku selalu menikmati nasi kapau setiap berkunjung ke Kota Bukittinggi karena makanan tersebut mengandung lebih banyak protein dan aneka lauk sesuai selera.
dari:
Zalora Indonesia Meriahkan Hari Belanja Online
Oleh : Mia Umi Kartikawati | Rabu, 11 November 2015 | 02:20 WIB
Berita Terkait
(Foto: Ilustrasi)
INILAHCOM, Jakarta – Perayaan belanja online setiap tahun tepat 12 Desember 2015. Zalora Indonesia siap memeriahkan acara yang terkenal dengan 12.12.
“Desember ini adalah satu perayaan besar bagi para pecinta belanja online. Kami ikut merayakaannya untuk para pecinta fesyen,” tegas Managing Director Zalora IndonesiaAnthony Fung di Senayan, Jakarta, Selasa (10/11/2015).
Untuk menikmati hari belanja online, menurut Anthony, para pecinta belanja bisa menikmati berbagai diskon menarik yang dapat tergunakan untuk menambah koleksi busana dan aksesoris fesyen.
“Kami punya banyak diskon dari berbagai merk ternama. Semuanya mulai dari 80 persen off,” tandas dia.
Dari:
Berjalan Kaki Mampu Atasi Obesitas
Oleh : Mia Umi Kartikawati |
Terlalu Sering Diberi Antibiotik, Anak Anda Obes
(Foto: Istimewa)
INILAHCOM, Jakarta – Berjalan teratur hal terbaik mencapai dan mempertahankan berat badan yang sehat . Menurut studi dari London School of Economics , jalan cepat cara tepat menghalau obesitas daripada olahraga lain.
Jika Anda lebih menyukai gym, lari, zumba atau olahraga lainnya, berjalan adalah kegiatan atau olahraga sangat bermanfaat bagi tubuh. Demikian mengutip the telegraph, Selasa (10/11/2015).
Tercatat, pria dan wanita yang berjalan cepat lebih dari 30 menit sehari memiliki pinggang lebih kecil daripada yang lain.
“Mengingat epidemi obesitas, dan fakta bahwa sebagian besar orang di Inggris tidak aktif, merekomendasikan orang untuk berjalan cepat lebih sering merupakan pilihan kebijakan yang murah dan mudah dilakukan,” kata Dr Grace Lordon , yang memimpin penelitian.
dari:
Jalan-jalan Murah Jelajahi Indonesia Indah
Oleh : Mia Umi Kartikawati
Natalia Ardianto, CTO and Co Founder Tiket.com – (Foto: Istimewa)
INILAHCOM, Jakarta – Wahai pecinta travelling, jalan-jalan menikmati keindahan alam Indonesia tidak lagi harus berbiaya mahal. Satu caranya, mendapatkan tiket murah saat hari belanja online 12 Desember 215 mendatang.
“Tiket promo terbesar yang kami berikan adalah ke Bali dan Surabaya, itu untuk destinasi di Indonesia. Mengapa Bali, karena masyarakat masih banyak yang ingin ke Bali, antusiasme masyarakat masih tinggi ke Bali. Untuk Surabaya, kami memilih karena trafik Jakarta – Surabaya juga tinggi,” tegas CTO and Co Founder Tiket.com Natalia Ardianto di Senayan, Jakarta, Selasa (10/11/2015).
Tak hanya di dalam negeri, para pecinta belanja online juga bisa menghabiskan waktu liburan di luar negeri dengan harga tiket terjangkau. Natalie mengatakan salah satunya destinasi ke Singapura.
“Kalau pada sering booking tiket di online, pasti bisa melihat harga tiket ke Singapore lebih murah dibanding ke Bali. Nah, untuk hari belanja online ini, kami menberikan penawaran khusus untuk destinasi favorit ke Singapura,” tandas dia.
dari:
Kambalu, Makanan Tradisional Khas Wakatobi
Berita Terkait
INILAHCOM, Wangiwangi – Wakatobi, Sulawesi Tenggara (Sultra) memamerkan makanan tradisional Kambalu. Itu rangkaian Festival Keraton Nusantara (FKN) dan Musyawarah Masyarakat Adat Asean di Kendari, 12-15 November 2015 mendatang.
Bupati Wakatobi Hugua di Wangiwangi, Senin (10/11/2015) mengatakan selain memamerkan Kambalu, Wakatobi juga akan menampilkan masakan tradisional Kapusu Nosu.
“Kambalu merupakan jenis makanan tradisional masyarakat Wakatobi yang terbuat dari bahan uwi (jenis tanaman umbian lokal). Uwi tersebut diparut kemudian dibungkus daun kelapa, lalu dimasak,” jelas Hugua.
Sementara Kapusu Nosu, jenis makanan berbahan baku jagung yang terbuang kulit arinya, lalu masak pakai santan kelapa. Kedua jenis makanan tradisional tersebut, kata dia, sangat enak pakai lauk ayam panggang masak bumbu kelapa goreng dan santan atau masak pakai daun kendondong hutan.
“Kedua jenis makanan tradisional itu sudah menjadi makanan pokok masyarakat Wakatobi sejak dari leluhur,” ujar dia. Itu sebabnya, kata dia, masyarakat Wakatobi tidak pernah mengalami kesulitan pangan ketika harga beras di sejumlah pasar tradisional mengalami kenaikan harga.
“Masyarakat Wakatobi baru merasakan dampak ekonomi yang luar biasa, kalau terjadi kenaikan harga BBM karena berdampak pada ongkos transportasi, sehingga barang yang berasal dari luar Wakatobi akan mengalami kenaikkan harga,” terang dia.
Ia berharap melalui pameran kuliner dalam rangkaian FKN di Kendari tersebut, makanan tradisional masyarakat Wakatobi akan semakin dikenal luas oleh masyarakat dunia dan dapat menyukai makanan khas daerah tersebut.
“Makanan khas daerah Wakatobi juga cocok dikonsumsi dengan dengan berbagai jenis ikan dan sayur daun kelor dicampur pepaya, bayam, kangkung, bunga pepaya atau sayur nangka dan lain-lain,” kata dia.
Langkah- Langkah Ke Arah Gaya Hidup Sihat
- a) Makan Makanan Yang Seimbang Dan Berkhasiat
- b) Menjalinkan hubungan baik dengan keluarga, jiran dan rakan- rakan
- c) Mengambil rehat yang mencukupi
- d) Melakukan aktiviti fizikal
- e) Menjaga kebersihan
Kesimpulannya, amalan gaya hidup sihat amat penting kepada semua lapisan masyarakat untuk menikmati tahap kesihatan yang baik serta optimum. Oleh itu, kita harus mempunyai kesedaran untuk menggiatkan lagi mutu penjagaan kesihatan.
Dari: http://kesihatansemua.blogspot.co.id/2010/09/gaya-hidup-sihat-gaya-hidup-sihat.html
Tips Tampil Cantik Tanpa Harus Merepotkan
Cantik tanpa merepotkan (Foto: Popsugar)
TAMPIL menarik tidak harus merepotkan. Sebab, kebiasaan sehari-hari juga bisa menentukan penampilan.
Seperti dilansir Popsugar, Kamis (12/11/2015), wanita harus sadar jika kebiasan sehari-hari dan perawata ekstra dapat mempengaruhi penampilan. berikut tips tampil menarik tanpa harus repot.
– Mereka memilih sarung bantal, dan seprai berbahan sutra untuk mengurangi rambut-rambut patah, dan juga bintik-bintik hitam di wajah.
– Biasanya, mereka tidur selama 8 jam.
– Mereka memulai hari dengan jus smoothie yang mengandung antioxidant untuk menjaga kecantikan kulit dari dalam.
– Mandi di pagi hari dengan shower agar kepala hingga ujung kaki basah secara menyeluruh.
– Melembabkan badan dengan lemon atau lavender.
– Menggunakan SPF untuk wajah untuk melindungi penuaan.
– Menggunakan pasta gigi khusus untuk whitening.
– Menggunakan krim mata untuk siang dan malam.
– Mengeritingkan bulu mata sebelum memakai mascara.
– Meminum delapan gelas air H20 dalam sehari. Biasanya mereka menggunakan potongan lemon atau timun ke dalam minuman mereka.
Dari: http://lifestyle.okezone.com/read/2015/11/12/194/1248065/tips-tampil-cantik-tanpa-harus-merepotkan
Takut Lebih Berbahaya dari Kecemasan
Takut lebih bahaya dari kecemasan (Foto: Roughcity)
Erika Kurnia
Jurnalis
MEMBAYANGKAN kemungkinan terburuk tentang sesuatu bisa membuat kita takut atau cemas. Walau kedua respons tersebut merupakan hal yang manusiawi, namun bila salah satunya muncul terlalu sering, itu bisa menjadi sesuatu yang buruk dan perlu dikhawatirkan.
Pakar Kesehatan Jiwa yang juga Ketua Umum Pengurus Pusat Perhimpunan Dokter Spesialis Kedokteran Jiwa Indonesia (PDSKJI) dan Presiden ASEAN Federation for Psychiatry and Mental Health (AFPMH), dr Danardi Sosrosumihardjo, SpKJ (K) mengatakan bahwa takut dan cemas berbeda.
“Takut atau ‘fear’ adalah respons fisiologis yang muncul saat kita sudah berhadapan dengan bencana. Sementara, cemas atau ansietas muncul ketika bencana belum terjadi, dan ini sifatnya patologik atau menyebabkan penyakit,” terangnya dalam acara seminar media berjudul ‘Mengendalikan Kecemasan untuk Hidup Lebih Berkualitas’ bersama Pfizer, di Jakarta, kemarin.
Cemas sendiri bisa menjadi sesuatu yang buruk bila tidak dikontrol. Namun, kecemasan sering tidak disadari dan bisa menjadi sesuatu yang mengkhawatirkan, kata dr Danardi. Faktor genetik bawaan, kepribadian, dan kondisi lingkungan adalah hal-hal terkait munculnya kecemasan.
“Kecemasan tidak hanya memicu gejala fisik, tetapi juga psikologis. Selain mengalami gejala seperti jantung berdebar, diare, pusing, keringat dingin, dan sesak napas orang cemas juga bisa memiliki gejala psikologis, seperti khawatir, was-was, gugup, atau ketakutan,” lanjutnya.
Sebenarnya, setiap manusia mempunya karakter dan berbagai mekanisme perlawanan yang membentuk pola seseorang dalam menghadapi kecemasan yang dialami, kata dr Danardi. Jika karakter yang dimiliki positif dan mekanisme perlawanan yang digunakan tepat, maka individu tersebut bisa menghadapi dan mengendalikan gangguan dengan baik.
“Namun bila karakter yang dimiliki negatif, maka seseorang bisa menghadapi gangguan kecemasan atau ketegangan yang terus-menerus. Bila gangguan kecemasan diidap oleh seseorang, penanganan dengan pengobatan atau farmakologis dan non-farmakologik atau terapi psikis mungkin diperlukan,” pungkasnya.
Dari: http://lifestyle.okezone.com/read/2015/11/12/481/1248154/takut-lebih-berbahaya-dari-kecemasan
10 berita teknologi
Perbedaan Sleep, Hibernate, Shut Down, dan Restart pada Komputer
agung November 12, 2015 Hardware
Komputer dan laptop menjadi barang elektronik yang digunakan untuk membantu proses pekerjaan. Dengan adanya PC (Perangkat Computer) atau laptop pekerjaan menjadi lebih mudah bagi para pelajar maupun pekerja. Di dalam komputer dengan sistem operasi Windows memiliki pilihan yakni sleep, hibernate, shut down, dan juga restart. Keempat pilihan tersebut memiliki perbedaan yang mendasar dan perlu Anda ketahui. Untuk mengetahui apa saja perbedaan tersebut, di bawah ini pembahasan mengenai perbedaan sleep, hibernate, shut down, dan restart.
Berikut Perbedaan Sleep, Hibernate, Shut Down, dan Restart
Mode Sleep
Untuk mode yang satu ini ketika Anda mengaktifkannya maka semua aplikasi yang berjalan pada komputer atau laptop yang sedang berjalan maka akan segera dihentikan. Untuk menghentikan mode dan mengaktifkan komputer kembali, maka Anda tinggal klik resume kemudian secara otomatis komputer Windows akan berjalan normal kembali. Tujuan dari mode sleep ini adalah untuk membantu agar baterai pada laptop tetap awet, ini dikarenakan hanya sedikit memori dan daya yang digunakan. Untuk pengguna Windows XP mode sleep sama dengan mode stand by.
Dari: http://tech.dbagus.com/perbedaan-sleep-hibernate-shut-down-dan-restart-pada-komputer
EVERCOSS
Evercoss Elevate Y3 Plus akan bersaing dengan smartphone 4G besutan vendor luar. Smartphone ini pada awalnya memulai debut dengan seri Winner T3 yang dilengkapi dengan beberapa fitur menarik. Dengan spesifikasi cukup memuaskan ditambah dengan harga yang terjangkau, membuat Evercoss Elevate Y3 Plus bersahabat untuk kalangan entry level. Nah untuk mengetahui lebih lanjut mengenai harga Evercoss Elevate Y3 Plus dan bagaimana saja spesifikasinya? Simak ulasannya di bawah ini!
Layar dan Desain
Evercoss Elevate Y3 Plus akan mengusung layar sebesar 5 inci dengan jenis layar IPS lapisan Rhino Screen untuk membantu menjaga layar dari goresan. Layar tersebut telah dilengkapi dengan resolusi HD sebesar 1280 x 720 piksel yang membuat smartphone ini lebih berkualitas dalam menghasilkan tampilan. Sementara untuk kerapatan layar sebesar ~294 ppi. Smartphone ini didesain dengan 2 pilihan warna hitam dan biru dengan bahan body plastik.
Dari:
http://tech.dbagus.com/harga-evercoss-elevate-y3-plus-smartphone-4g-berkualitas
Berikut Daftar Aplikasi Internet Mobile Banking
internet serta mobile banking kini menjadi bagian hidup masyarakat. Pasalnya dengan menggunakan mobile banking nasabah tanpa perlu repot pergi ke ATM atau bank jika ingin melakukan pengecekan saldo ataupun transaksi finansial. Semua hal tersebut dapat dilakukan hanya dengan menggunakan smartphone. Pihak Bank sendiri juga sudah menyediakan aplikasinya untuk mempermudah para nasabah. Nah pada pembahasan kali ini membahas mengenai beberapa daftar aplikasi internet dan mobile banking yang dapat Anda gunakan melalui perangkat smartphone dengan OS Android, iOS, Backberry, dan juga Windows Phone.
BCA Mobile
Aplikasi BCA Mobile dapat Anda gunakan sebagai nasabah Bank BCA yang didukung dengan semua operator di Indonesia. Dengan menggunakan aplikasi ini pengguna dapat melakukan akses m-BCA dan Klik BCA. Adapun fitur lain yang dimiliki seperti cek saldo, transfer, info rekening, pembayaran, pembelian, menyediakan kode bank lengkap, daftar lokasi ATM BCA dan cabang, dan banyak lagi.
Dari:
http://tech.dbagus.com/aplikasi-internet-dan-mobile-banking-untuk-smartphone
6 Cara Merawat Keyboard Laptop Agar Awet
agung November 9, 2015 Hardware
Keyboard merupakan salah satu komponen penting pada laptop, smartphone, tablet, dan juga PC. Keyboard menjadi perangkat keras yang digunakan untuk memasukkan perintah pada perangkat tersebut. Hampir semua keyboard pada perangkat elektronik menggunakan susunan berjenis QWERTY.
Dengan sering digunakannya perangkat keyboard, maka salah satu perangkat keras tersebut membutuhkan perawatan agar lebih awet. Merawat keyboard tergantung juga dengan cara penggunaan setiap harinya. Untuk mengetahui lebih lanjut mengenai bagaimana saja cara merawat keyboard laptop agar awet, simak ulasannya di bawah ini!
Berikut Cara Merawat Keyboard Agar Awet
Gunakan Cover pada Keyboard
Cara merawat keyboard yang pertama adalah dengan menggunakan cover pada keyboard. Dengan memasang cover khusus pada keyboard, menghindarkan keyboard dari debu atau air. Seperti yang kita ketahui debu yang masuk ke dalam sela-sela keyboard dapat membuat salah satu tombol pada keyboard menjadi terganggu. Selain itu debu juga dapat menyebabkan laptop menjadi cepat panas, sehingga kinerja cenderung lemot.
Hindari Menekan Keyboard Terlalu Kencang
Cara yang kedua adalah dengan menghindari menekan keyboard terlalu kencang. Terlalu sering menekan keyboard terlalu kencang, dapat merusak tombol pada keyboard laptop Anda. Hal ini biasanya dilakukan ketika bermain game yang tidak sadar terbawa akan suasana, sehingga akan menekan tombol menjadi keras dan kencang. Oleh sebab itu sebaiknya hindari hal sepele tersebut, agar keyboard lebih awet mengingat harga keyboard pada laptop cenderung mahal.
Membeli Keyboard Eksternal untuk Gaming
Cara merawat keyboard agar awet berikutnya adalah dengan membeli keyboard untuk gaming bagi Anda yang suka bermain game. Untuk menghindari menekan tombol keyboard terlalu keras, Anda dapat memilih alternatif lainnya dengan membeli keyboard eksternal bertipe USB. Dengan menggunakan keyboard khusus gaming, membuat bermain game lebih asik.
Hindarkan Cairan dari Laptop
Untuk poin yang satu ini cukup dengan menghindarkan cairan dari laptop. Cairan yang dimaksudkan seperti air putih, teh, kopi, atau berbagai macam minuman lainnya. Hindarkan berbagai jenis minuman tersebut ketika sedang menggunakan laptop. Hal ini bertujuan untuk mengurangi resiko minuman tersebut tumpah di atas laptop.
Bersihkan Keyboard secara Berkala
Cara merawat berikutnya adalah dengan membersihkan keyboard secara berkala. Untuk membersihkan keyboard perlu dilakukan untuk menghindari penumpukan debu di dalam laptop. Seperti pada penjelasan poin pertama tadi, bahwa debu yang terlalu banyak dapat menyebabkan laptop menjadi cepat panas dan berakibat lemot. Untuk proses membersihkan, Anda dapat menggunakan vaccum portable khusus laptop untuk menyedot debu.
Tidak Menempatkan Benda Berat di Atas Keyboard
Cara yang terakhir adalah tidak menempatkan benda berat di atas keyboard. Sama halnya dengan menghindari menekan keras pada tombol keyboard, menaruh benda berat di atas keyboard juga menyebabkan resiko kerusakan pada keyboard. Yang membedakan dengan poin nomor dua adalah menempatkan benda berat biasanya lebih dari 5 detik.
Nah cukup mudah bukan mengenai bagaimana cara merawat keyboard laptop agar awet. Meskipun terlihat sepele sebaiknya membiasakan menggunakan cara tersebut ketika sedang menggunakan laptop.
Dari:
http://tech.dbagus.com/6-cara-merawat-keyboard-laptop-agar-awet
Cara Merawat Baterai Laptop Agar Awet
Mengisi Daya Sesuai Lampu Indikator
Untuk pembelian laptop baru biasanya baterai laptop hanya terisi daya sedikit dan bahkan kosong. Oleh sebab itu anda perlu mengisi ulang daya baterai selama 4-8 jam dalam keadaan laptop mati. Jika lampu indikasi laptop sudah berubah warna menjadi hijau, maka anda tinggal melepaskan kabel cas pada laptop anda.
Jangan Terlalu Lama Menjalankan Game Berat Sambil Mengisi Daya
Cara merawat baterai laptop yang berikutnya adalah jangan terlalu lama bermain game dengan kondisi laptop menyala sambil mengisi daya. Hal ini memang tidak berdampak langsung, tetapi jika anda melakukan hal tersebut terus menerus maka kinerja baterai anda akan berkurang. Akibatnya daya baterai anda akan cepat habis ketika anda pakai. Solusinya adalah ketika bermain game berat jangan terlalu lama, dan jika bisa jangan sambil mengisi daya. Baca Juga Aplikasi Pemutar Musik PC
Dari:
http://tech.dbagus.com/cara-merawat-baterai-laptop-agar-awet
Berikut Cara Mengatasi Keyboard Laptop yang Eror
Cara Pertama
Cara mengatasi keyboard eror yang pertama adalah dengan melihat pengaturan bahasa melalui “Control Panel”. Hal ini biasanya sering dialami oleh kebanyakan orang setelah melakukan install ulang sistem operasi pada laptop mereka. Salah dalam pemilihan pengaturan bahasa dapat membuat huruf-huruf pada laptop berganti-ganti. Biasanya untuk proses instalasi pengaturan bahasa akan menggunakan “English(United Kingdom)”. Untuk itu Anda perlu menggantinya menjadi “English(United States)”.
Untuk menggantinya Anda dapat masuk melalui “Control Panel -> Klik View By (terletak di pojok kanan) -> Pilih Large Category -> Klik Language -> Berikutnya Gunakan atau ubah menjadi English(United States). Jika sebelumnya menggunakan bahasa lain ubah menjadi bahasa “English( United States)” dan remove bahasa yang digunakan sebelumnya. Setelah mengganti dengan bahasa tersebut coba ketikkan, maka tombol keyboard akan berfungsi dengan semestinya.
Dari:
http://tech.dbagus.com/cara-mengatasi-keyboard-laptop-yang-error
Inbox: Email Client Terbaru Dari Google
Posted By: Ajeng Puspitasari May 6, 2015
Kabardigital.com – Baru baru ini Google melalui Gmail meluncurkan layanan email client (pembaca email) terbaru mereka yang dinamakan Inbox. Inbox diklaim mempunyai fitur yang lebih canggih daripada sekedar menggunakan Gmail, lalu apa sajakan fitur andalah Inbox? Simak ulasan berikut ini.
Di luncurkan awal Mei 2015, Inbox diklaim mempunyai semua fitur Gmail dan dengan penambahan beberara fitur yang canggih diantaranya adalah fitur preview email tanpa harus membuka email dan juga fitur “scrolling” konten email tanpa load halaman sehingga Anda tidak perlu menekan tombol kembali. Cukup dengan klik judul email Anda akan disuguhkan dengan konten email tersebut.
Fitur lain yang tak kalah menarik adalah fitur snooze atau tunda, sehingga Anda bisa menunda membaca email atau jika Anda sedang sibuk maka Anda bisa membacanya nanti tanpa takut kelupaan.
To-do list yang langsung bisa Anda pakai didalam Inbox Anda tanpa perlu aplikasi tambahan juga merupakan salah satu fitur Inbox yang sangat berguna untuk produktivitas Anda.
Selain itu ada beberapa fitur yang di rubah dan disempurnakan dari fitur fitur yang ada di Gmail, diantaranya:
Pengaturan Promo: seperti halnya Gmail, Inbox juga memfilter email promosi, bedanya jika gmail menggunakan tab di atas, Inbox menggunakan grouping.
Dari:
https://kabardigital.com/480/inbox-email-client-dari-google.html
Project Spartan Browser Baru Microsoft Pengganti IE
TOPICS:BrowserInternet ExplorerMicrosoftProject Spartan
Posted By: Ajeng Puspitasari Apr 27, 2015
Kabardigital.com – bersamaan dengan peluncuran technical preview Windows 10, Microsoft juga membenamkan proyek browser terbaru mereka yang mereka sebut Project Spartan. Berbeda dengan browser pendahulunya Internet Explorer (IE), Spartan diklain akan lebih ringan, lebih cepat dan juga mempunya kompatibilitas yang baik.
Project Spartan adalah project yang sangat ambisius dari Microsoft mengingat turunnya pangsa pasar browser andalan mereka yaitu IE. Project Spartan diyakini sebagai browser tandingan untuk Google Chrome yang kini merejai pasaran.
Apapun itu Project Spartan memang patut untuk dicoba mengingat browser ini mempunyai banyak fitur unggulan yang unik dan tidak dimiliki browser lainnya.
Apa saja featurenya?
- Cortana Support: Cortana yang merupakan Google Now nya Microsoft akan menjadi bagian yang tidak terpisahkan dari Spartan sehingga memudahkan Anda untuk melakukan pencarian suara dan sugesti pencarian menggunakan asisten pribadi Cortana
- Shortcut pencarian informasi langsung dari address bar seperti cuaca dll
- Hub untuk menyimpan segala daftar bacaan Anda
- Write On The Web: seperti namanya, dengan fitur ini Anda dapat menulis dan mencorat coret langsung dihalaman website dengan menggunakan browser Spartan
- Distraction free reading: adalah mode membaca dimana Anda akan disuguhkan tampilan simple Spartan untuk memudahkan Anda membaca seperti layaknya sebuah buku
- Support Google Chrome extension yang memungkinkan Anda menginstall extensi Chrome kesayangan Anda di Spartan
Dari:
https://kabardigital.com/457/project-spartan-browser-baru-microsoft-pengganti-ie.html
5 Aplikasi Project Management (Manajemen Proyek) – To Do Lists Terbaik
KabarDigital.com – Dalam manajemen proyek kadangkala kita sering kesulitan dalam melakukan pelacakan (tracking) akan tugas tugas yang harus dikerjakan setiap tim. Seiring banyaknya tugas (task list/to do lists) kadangkala ada beberapa tugas yang mungkin saja terlewatkan. Untuk itulah aplikasi project management/task list ini diperlukan.
Banyaknya aplikasi task list atau project management kadang membuat bingung, untuk itulah KabarDIgital.com berusaha memberikan review aplikasi manajemen proyek terbaik menurut kami.
Basecamp
Basecamp adalah aplikasi manajemen proyek online atau biasa di kenal sebagi cloud project management. Dalam Basecamp orang akan dimudahkan untuk memanage proyek proyeknya. Selain itu di Basecamp Anda bisa juga mendelegasikan tugas ke tim Anda, mebuat to do lists, kalender proyek dan juga dapat mengupload file file dan juga bisa di integrasikan dengan Google Drive.
Asana
Untuk proyek proyek skala menengah yang membutuhkan interaksi tim yang lebih kompleks, Anda bisa menggunakan Asana. Asana dilengkapi berbagai modul yang lengkap untuk memanage suatu proyek lengkap dengan kalender, role dan juga to do lists.
Bitrix24
Bitrix24 adalah aplikasi manajemen proyek yang cukup komprehensif. Bukan hanya to do list, dalam Bitrix24 Anda juga bisa membuat role perusahaan/organisasi Anda. Sehingga alur/flow informasi, tugas dan pemimpin dari suatu departemen bisa di ketahui degan mudah
Trello
Trello adalah manajemen proyek yang sangat simpel dan mudah digunakan. Berisi “card” yang mewakili dari suatu pekerjaan/proyek tertentu. Anda dapan memberikan tugas kepada member di card tersebut. Anda juga bisa berkomentar dan memberikan tanggapan. Salah satu kelebihan Trello adalah terdapatnya aplikasi Trello di hampir semua sistem operasi termasuk di mobile.
Jira
Jira adalah software manajemen proyek yang sangat fleksibel. Bisa diintegrasikan dengan flow bisnis perusahaan. Selain itu JIRA dilengkapi dengan berbagai fitur bugs tracking dan fitur lainnya yang sangat cocok untuk perusahan IT ataupun developer.
Dari: https://kabardigital.com/104/5-aplikasi-project-management-manajemen-proyek-to-do-lists-terbaik.html
Google Mematikan Layanan PageSpeed Service 3 Agustus 2015
Kabardigital.com – Setelah kurang lebih tiga tahun beroprasi, Google akhirnya mematikan layanan Google PageSpeed Service. PageSpeed service ini adalah layanan Google untuk para webmaster dan pemilik website yang ingin mempercepat website mereka menggunakan layanan Google PageSpeed.
Layanan Google PageSpeed diluncurkan pada 28 Juli 2011 dan akan dimatikan pada tanggal 3 Agustus 2015. Belum jelas apakah alasan utama
Google mematikan layanan PageSpeed ini, yang jelas adalah Google PageSpeed module yang tersedia secara open source untuk Apache dan NGINX masih akan tetap bisa digunakan (self hosted PageSpeed module). Dengan demikian layanan PageSpeed di Google Coud Platform juga dimatikan.
Bagi pengguna Google PageSpeed service disarankan untuk merubah DNS kembali ke DNS semula dan menghapus DNS Google PageSpeed Service.
Dari: https://kabardigital.com/492/google-mematikan-layanan-pagespeed-service-3-agustus-2015.html
