database mahasiswa

ayu1

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

 

 

 

 

 

Iklan

13program database

tipe A13

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkt.SetFocus

 

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text

txtjk.Text

txtjb.Text

txttp.Text

 

End Sub

 

Private Sub cmdproses_Click()

Dim KT, JK, JB As String

Dim HT As Currency

KT = Left(txtkt.Text, 3)

If KT = “BIM” Then

HT = “50000”

JK = “BIMA”

JB = “16.00”

ElseIf KT = “EKO” Then

HT = “35000”

JK = “EKONOMI”

JB = “19.00”

ElseIf KT = “MUT” Then

HT = “23000”

JK = “MUTIARA”

JB = “17.00”

ElseIf KT = “SEN” Then

HT = “20000”

JK = “SENJA”

JB = “20.00”

End If

txtkt.Text = KT

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

txtjt.SetFocus

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

 

End Sub

 

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttp.Text = Val(txtht.Text) * Val(txtjt.Text)

End IF

End Sub

tt

Private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

TIPE B

 

AYU B

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkt.SetFocus

 

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text

txtjk.Text

txtjb.Text

txttp.Text

 

End Sub

 

Private Sub cmdproses_Click()

Dim KT, JK, JB As String

Dim HT As Currency

KT = Left(txtkt.Text, 3)

If KT = “BIM” Then

HT = “50000”

JK = “BIMA”

JB = “16.00”

ElseIf KT = “EKO” Then

HT = “35000”

JK = “EKONOMI”

JB = “19.00”

ElseIf KT = “MUT” Then

HT = “23000”

JK = “MUTIARA”

JB = “17.00”

ElseIf KT = “SEN” Then

HT = “20000”

JK = “SENJA”

JB = “20.00”

End If

txtkt.Text = KT

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

txtjt.SetFocus

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

 

End Sub

 

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

 

End Sub

tt

Private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

TIPE C

C

Private Sub cbokode_Click()
Dim JENISKOMPUTER, HARGASATUAN As String
Select Case cbokode.Text
Case “P205”
JENISKOMPUTER = “Pentium II 500 Mega Hz”
HARGASATUAN = “1500000”
Case “P308”
JENISKOMPUTER = “Pentium III 800 Mega Hz”
HARGASATUAN = “2100000”
Case “P310”
JENISKOMPUTER = “Pentium III 1.0 Giga Hz”
HARGASATUAN = “3500000”
Case “P415”
JENISKOMPUTER = “Pentium IV 1.5 Giga Hz”
HARGASATUAN = “4000000”
Case “P417”
JENISKOMPUTER = “Pentium IV 1.7 Giga Hz”
HARGASATUAN = “4200000”
Case “P419”
JENISKOMPUTER = “Pentium IV 1.9 Giga Hz”
HARGASATUAN = “5500000”
End Select
txtjk.Text = JENISKOMPUTER
txths.Text = HARGASATUAN
txtjj.SetFocus
End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

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 = “”
txthb.Text = “”

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp > 20000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp > 15000000 Then
txtdis.Text = Val(txthp.Text) * 0.2
End If
txthb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub cmdsimpan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjj.SetFocus
End If

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)
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp > 20000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp > 15000000 Then
txtdis.Text = Val(txthp.Text) * 0.2
End If
txthb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

tt

Private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

TIPE D

D

Private Sub cbokb_Click()
Dim jb, peng, TH, pen, hg As String
Select Case cbokb.Text
Case “A-SIM-01”
jb = “SISTEM INFOMASI MANAJEMEN”
peng = “Yati Nur Oktavia”
TH = “2001”
pen = “Andi Offset Yogyakarta”
hg = “75900”
Case “I-EDP-02”
jb = “ELEKTRONIK DATA PROCESSING”
peng = “Imam Tarmizi”
TH = “2002”
pen = “Indah Surabaya”
hg = “62000”
Case “S-MNJ-03”
jb = “MANAJEMEN”
peng = “Valentina Mariana Adiwianti”
TH = “2003”
pen = “Salemba Empat”
hg = “42000”
Case “E-CDR-04”
jb = “corel draw”
peng = “Riyan Suhandi”
TH = “2004”
pen = “Elek Media Komputindo”
hg = “53000”
Case “M-RPL-05”
jb = “REKAYASA PERANGKAT LUNAK”
peng = “Sinta Umpu Singa”
TH = “2005”
pen = “Maxicom”
hg = “83000”
End Select
txtjb.Text = jb
txtpeng.Text = peng
txttahun.Text = TH
txtpenerbit.Text = pen
txthg.Text = hg
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokb.SetFocus

End Sub

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
Dim jb, peng, pen, hg As String
Txttt.Text = “20” & Right(cbokode, 2)
S = Mid(cbokode, 3, 3)
If S = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “YatiNurOktavia”
hg = “75900”
ElseIf S = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf S = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwianti”
hg = “42000”
ElseIf S = “CDR” Then
jb = “Corel Draw”
pg = “Riyan Suhandi”
hg = “53000”
ElseIf S = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Sinta UmpuSinga”
hg = “83000”
End If
txtjb.Text = jb
Txtpg.Text = pg
txthg.Text = hg
S = Mid(cbokode, 1, 1)
If S = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
pn = “Indah Surabaya”
ElseIf S = “S” Then
pn = “SalembaEmpat”
ElseIf S = “E” Then
pn = “Elek Media Komputindo”
ElseIf S = “M” Then
pn = “Maxicom”
End If
Txtpn.Text = pn

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

TIPE E

E

Private Sub cbokb_Click()
Dim jb, peng, TH, pen, hg As String
Select Case cbokb.Text
Case “A-SIM-01”
jb = “SISTEM INFOMASI MANAJEMEN”
peng = “Fadiya Ulfa”
TH = “2009”
pen = “Andi Offset Yogyakarta”
hg = “75900”
Case “I-EDP-02”
jb = “ELEKTRONIK DATA PROCESSING”
peng = “Nurul Agustina”
TH = “2010”
pen = “Indah Surabaya”
hg = “62000”
Case “S-MNJ-03”
jb = “MANAJEMEN”
peng = “Rian Hidayat”
TH = “2011”
pen = “Salemba Empat”
hg = “42000”
Case “E-CDR-04”
jb = “corel draw”
peng = “Siti Nur Khotimah”
TH = “2012”
pen = “Elek Media Komputindo”
hg = “53000”
Case “M-RPL-05”
jb = “REKAYASA PERANGKAT LUNAK”
peng = “Winda Erlianti”
TH = “2013”
pen = “Maxicom”
hg = “83000”
End Select
txtjb.Text = jb
txtpeng.Text = peng
txttahun.Text = TH
txtpenerbit.Text = pen
txthg.Text = hg
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokb.SetFocus

End Sub

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
Dim jb, peng, pen, hg As String
Txttt.Text = “20” & Right(cbokode, 2)
S = Mid(cbokode, 3, 3)
If S = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “Fadiya Ulfa”
hg = “75900”
ElseIf S = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Nurul Agustina”
hg = “62000”
ElseIf S = “MNJ” Then
jb = “Manajemen”
pg = “Rian Hidayat”
hg = “42000”
ElseIf S = “CDR” Then
jb = “Corel Draw”
pg = “Siti Nur Khotimah”
hg = “53000”
ElseIf S = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Winda Erlianti”
hg = “83000”
End If
txtjb.Text = jb
Txtpg.Text = pg
txthg.Text = hg
S = Mid(cbokode, 1, 1)
If S = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
pn = “Indah Surabaya”
ElseIf S = “S” Then
pn = “SalembaEmpat”
ElseIf S = “E” Then
pn = “Elek Media Komputindo”
ElseIf S = “M” Then
pn = “Maxicom”
End If
Txtpn.Text = pn

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

tt

PRIVATE SUB CMDNO_CLICK()

end

end sub

private sub cmdyes_click()

form1.show

end sub

TIPE F

F

Private Sub cbokode_Click()
Dim merk, hs As String
Select Case cbokode.Text
Case “asus A43SA”
merk = “asus A43SA-VX090D”
hs = “5500000”
Case “AsusA43SD”
merk = “Asus A43SD-VX052D”
hs = “4500000”
Case “AsusA43SJ”
merk = “Asus A43SJ-VX792D”
hs = “4300000”
Case “AsusA43TA”
merk = “Asus A43TA-VX034D”
hs = “4900000”
Case “AsusN43SL”
merk = “Asus N43SL-VX264D”
hs = “4300000”
Case “Apple MD311”
merk = “Apple MacBook Pro MD311”
hs = “19300000”
Case “Apple MD313”
merk = “Apple MacBook Pro MD313”
hs = “24200000”
Case “Apple MD314”
merk = “Apple MacBook Pro MD314”
hs = “11900000”
Case “Apple MD322”
merk = “Apple MacBook Pro MD322”
hs = “14700000”
Case “Apple MC965”
merk = “Apple MacBook Pro MC965”
hs = “21300000”
End Select
txtmerk.Text = merk
txths.Text = hs
txtjj.SetFocus

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)

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 A43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC314 MacBook Pro”
cbokode.AddItem “Apple MC318 MacBook Pro”
cbokode.AddItem “Apple MC322 MacBook Pro”
cbokode.AddItem “Apple MC965 MacBook Air”
cbokode.AddItem “Apple MC966 MacBook Air”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)
End If

End Sub

TIPE G

G

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkode.SetFocus

End Sub

Private Sub cmdcancle_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
txtbayar.Text = Val(txthb.Text) * Val(txtjb.Text)
If Val(txtjb.Text) > “5” Then
txtpot.Text = Val(txtbayar) * 0.02
txttb.Text = Val(txtbayar.Text) – (txtpot.Text)
End If

End Sub

Private Sub cmdkeluar_Click()
form2.Show

End Sub

Private Sub cmdproses_Click()
Dim h, nb, hb As String
h = Mid(txtkode, 5, 2)
If h = “sp” Or “h” = “sp” Then
txtnb.Text = “spidol”
txthb.Text = “9500”
ElseIf h = “bt” Or h = “bt” Then
txtnb.Text = “buku tulis”
txthb.Text = “12500”
ElseIf h = “tp” Or h = “tp” Then
txtnb.Text = “tipe ex”
txthb.Text = “3000”
ElseIf h = “pg” Or h = “pd” Then
txthb.Text = “penggaris”
txthb.Text = “2500”
ElseIf h = “pt” Or h = “pt” Then
txtnb.Text = “papantulis”
txthb.Text = “5000”
End If
txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.Update

End Sub

TIPE H

H

Private Sub cbokode_Click()
Dim jk, hs, HB 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 Mega Hz”
hs = “3500000”
Case “P415”
jk = “Pentium IV 1.5 Mega Hz”
hs = “4000000”
Case “P417”
jk = “Pentium IV 1.7 Mega Hz”
hs = “4200000”
Case “P419”
jk = “Pentium IV 1.9 Mega Hz”
hs = “5500000”
End Select
txtjk.Text = jk
txths.Text = hs
txtjj.SetFocus

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 35000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 30000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 25000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(Txtdiskon)

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 txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txthp) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 35000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 30000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 25000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(Txtdiskon)
End If

End Sub
I
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnk.SetFocus

End Sub

Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk.Text = “”
txtgol.Text = “”
txtkstat.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgp.Text = “”
txttun.Text = “”
txttg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk.Text = “”
txtgol.Text = “”
txtkstat.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgp.Text = “”
txttun.Text = “”
txttg.Text = “”

End Sub

Private Sub cmdproses_Click()
Dim R As String
R = Mid(txtnik.Text, 5, 1)
If R = “A” Then
txtgol = “A”
txtjabatan.Text = “MANAGER”
txtgp.Text = “4000000”
txttun.Text = “1025000”
ElseIf R = “B” Then
txtgol.Text = “B”
txtjabatan.Text = “Ka.SEKSI”
txtgp.Text = “3500000”
txttun.Text = “975000”
ElseIf R = “C” Then
txtgol.Text = “C”
txtjabatan.Text = “STAFF”
txtgp.Text = “3000000”
txttun.Text = “925000”
End If
R = Right(txtnik.Text, 3)
If R = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf R = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf R = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf R = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf R = “SPM” Then
txtbagian.Text = “SECURITY”
End If
R = Mid(txtnik.Text, 7, 1)
If R = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf R = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf R = “J” Then
kode = “J”
Status = “JANDA”
ElseIf R = “D” Then
kode = “D”
Status = “DUDA”
End If
txtkstat.Text = kode
txtstatus.Text = Status
txttahun.Text = Left(txtnik.Text, 4)
txttg.Text = Val(txtgp.Text) + Val(txttun.Text)
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

TIPE I

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

PROGAM 1

PROG 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
txttun.Text = tunjangan
txtpajak.Text = pajak
txttt.Text = total – pajak
End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus

End Sub

Private Sub cmdbatal_Click()
kosong

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
kosong

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

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

PROGAM2

PROG 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 = “”
txttahun.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttahun.Text = “”
txtnu.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”
txtbp.Text = “1950000”
ElseIf S = “2” Then
txtjur.Text = “menejemen informatika”
txtbp.Text = “1650000”
ElseIf S = “3” Then
txtjur.Text = “tehnik informatika”
txtbp.Text = “1750000”
ElseIf S = “4” Then
txtjur.Text = “menejemen &komp akutansi”
txtbp.Text = “1450000”

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 IfText = Right(txtnpm.Text, 3)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If

End Sub

PROGRAM3

PROG 3

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkode.SetFocus

End Sub

Private Sub cmdcancle_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
txtbayar.Text = Val(txthb.Text) * Val(txtjb.Text)
If Val(txtjb.Text) > “5” Then
txtpot.Text = Val(txtbayar) * 0.02
txttb.Text = Val(txtbayar.Text) – (txtpot.Text)
End If

End Sub

Private Sub cmdkeluar_Click()
form2.Show

End Sub

Private Sub cmdproses_Click()
Dim h, nb, hb As String
h = Mid(txtkode, 5, 2)
If h = “sp” Or “h” = “sp” Then
txtnb.Text = “spidol”
txthb.Text = “9500”
ElseIf h = “bt” Or h = “bt” Then
txtnb.Text = “buku tulis”
txthb.Text = “12500”
ElseIf h = “tp” Or h = “tp” Then
txtnb.Text = “tipe ex”
txthb.Text = “3000”
ElseIf h = “pg” Or h = “pd” Then
txthb.Text = “penggaris”
txthb.Text = “2500”
ElseIf h = “pt” Or h = “pt” Then
txtnb.Text = “papantulis”
txthb.Text = “5000”
End If
txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.Update

End Sub

12 program

1

Progam 1

Private Sub Cmdbatal_Click()

kosong

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

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 2000000

tunjangan = 200000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 4000000

tunjangan = 400000

Case “IV”

gapok = 5000000

tunjangan = 500000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

3 ayu

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 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 = “Managemen Informatika”

ElseIf S = “3” Then

txtjur.Text = “Ekonomi”

ElseIf S = “4” Then

txtjur.Text = “Komputer 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

3 ayu

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 S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Kesehatan Masyarakat”

ElseIf S = “2” Then

txtjur.Text = “Sosial Politik”

ElseIf S = “3” Then

txtjur.Text = “Bahasa dan Sastra Indonesia”

ElseIf S = “4” Then

txtjur.Text = “Kesenian”

End If

S = Mid(txtnpm.Text, 4, 3)

If S = “001” Then

txtps.Text = “Strata Satu”

ElseIf S = “002” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “003” Then

txtps.Text = “Diploma Empat”

ElseIf S = “004” 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

A AYU

A

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

txtjp = “”

txttotalp = “”

End Sub

 

Private Sub Cmdprosess_Click()

Dim B, E, M, S As String

B = Left(txtkt, 3)

If B = “BIM” Then

jk = “BIMA”

ht = “50000”

jb = “16.00”

ElseIf B = “EKO” Then

jk = “EKONOMI”

ht = “35000”

jb = “19.00”

ElseIf B = “MUT” Then

jk = “MUTIARA”

ht = “23000”

jb = “17.00”

ElseIf B = “SEN” Then

jk = “SENJA”

ht = “15000”

jb = “20.00”

End If

txtjk = jk

txtjb = jb

txtjt = jt

txttotalp = tp

txtht = ht

txtjt.SetFocus

End Sub

Private Sub cmdproses_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

b ayu

 

B

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlg_Click()

txtkb.SetFocus

txtjb = “”

txtp = “”

txttahun = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, B, C As String

A = Left(txtkb, 1)

If A = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf A = “I” Then

penerbit = “Indah Surabaya”

ElseIf A = “S” Then

penerbit = “Salemba Empat”

ElseIf A = “E” Then

penerbit = “Elek Media Komputindo”

ElseIf A = “M” Then

penerbit = “Maxicom”

End If

B = Mid(txtkb, 3, 3)

If B = “SIM” Then

jb = “Sistem Informasi Manajemen”

p = “Andra Setiawan”

harga = “75900”

ElseIf B = “EDP” Then

jb = “Elektronik Data Processing”

p = “Desi Istiqomah”

harga = “62000”

ElseIf B = “MNJ” Then

jb = “Manajemen”

p = “Sandy Fitrajaya”

harga = “42000”

ElseIf B = “CDR” Then

jb = “Corel Draw”

p = “Tri Indah Sari”

harga = “53000”

ElseIf B = “RPL” Then

jb = “Rekayasa Perangkat Lunak”

p = “Ernita”

harga = “83000”

End If

tahun = “20” & Right(txtkb, 2)

txtkb = kb

txtjb = jb

txtp = p

txttahun = tahun

txtpenerbit = penerbit

txthg = harga

End Sub

C

C

Private Sub cbokk_Click()

Select Case cbokk.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 = jk

txths = hs

txtjj.SetFocus

End Sub

 

Private Sub cmdclose_Click()

Unload Me

End Sub

 

Private Sub cmdhitung_Click()

cbokk = “Pilih kode”

txtjk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txthb = “”

End Sub

 

Private Sub cmdprosess_Click()

txthp = Val(txths) * Val(txtjj)

If txthp > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 15000000 Then

txtdis = Val(txthp) * 0.02

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

 

 

Private Sub Form_Load()

cbokk.AddItem “P205”

cbokk.AddItem “P308”

cbokk.AddItem “P310”

cbokk.AddItem “P415”

cbokk.AddItem “P417”

cbokk.AddItem “P419”

End Sub

D

D

Private Sub cmdlg_Click()

cbokb.SetFocus

txtjudul = “”

txtp engarang= “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, B, C As String

A = Left(cbokb, 1)

If A = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf A = “I” Then

penerbit = “Indah Surabaya”

ElseIf A = “S” Then

penerbit = “Salemba Empat”

ElseIf A = “E” Then

penerbit = “Elek Media Komputindo”

ElseIf A = “M” Then

penerbit = “Maxicom”

End If

B = Mid(cbokb, 3, 3)

If B = “SIM” Then

txtjudul.Text = “Sistem Informasi Manajemen”

txtpengarang.Text = “Yati Nur Oktavia”

harga = “75900”

ElseIf B = “EDP” Then

txtjudul.Text = “Elektronik Data Processing”

txtpengarang.Text = “Imam Tarmizi”

harga = “62000”

ElseIf B = “MNJ” Then

txtjudul.Text =  “Manajemen”

txtpengarang.Text = “Valentina Mariana Adiwianti”

harga = “42000”

ElseIf B = “CDR” Then

txtjudul.Text = “Corel Draw”

txtpengarang.Text = “Riyan Suhandi”

harga = “53000”

ElseIf B = “RPL” Then

txtjudul.Text = “Rekayasa Perangkat lunak”

txtpengarang.Text = “Sinta Umpu Singa”

txtharga.Text = “83000”

End If

tahun = “20” & Right(cbokb, 2)

cbokb.Text = “kb”

txtjudul.Text = “judul”

txtpengarang.Text = “pengarang”

txttahun.Text = “tahun”

txtpenerbit.Text = “penerbit”

txtharga.Text = “harga”

End Sub

 

Private Sub Form_Load()

cbokb.AddItem “A-SIM-01”

cbokb.AddItem “I-EDP-02”

cbokb.AddItem “S-MNJ-03”

cbokb.AddItem “E-CDR-04”

cbokb.AddItem “M-RPL-05”

End Sub

 

e ayu

E

Private Sub cmdproses_Click()

Dim A, B, C As String

A = Left(cbokb, 1)

If A = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf A = “I” Then

penerbit = “Indah Surabaya”

ElseIf A = “S” Then

penerbit = “Salemba Empat”

ElseIf A = “E” Then

penerbit = “Elek Media Komputindo”

ElseIf A = “M” Then

penerbit = “Maxicom”

End If

B = Mid(cbokb, 3, 3)

If B = “SIM” Then

txtjudul.Text = “Sistem Informasi Manajemen”

txtpengarang.Text = “Fadiya Ulfa”

txtharga.Text = “75900”

ElseIf B = “EDP” Then

txtjudul.Text = “Elektronik Data Processing”

txtpengarang.Text = “Nurul Agustina”

txtharga.Text = “62000”

ElseIf B = “MNJ” Then

txtjudul.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000”

ElseIf B = “CDR” Then

txtjudul.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000”

ElseIf B = “RPL” Then

txtjudul.Text = “Rekayasa Perangkat lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000”

End If

txttahun.Text = “20” & Right(txtkode, 2)

cbokb.Text = “kb”

txtjudul.Text = “judul”

txtpengarang.Text = “pengarang”

txttahun.Text = “tahun”

txtpenerbit.Text = “penerbit”

txtharga.Text = “harga”

End Sub

F

F

Private Sub cmdkeluar_click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txtjp = “”

txtdis = “”

txttb = “”

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

Dim kode, merk, Hs As String

Select Case cbokode.Text

Case Is = “Asus A43”

merk = “Asus A43SA-VX090D”

Hs = “5.500.000”

Case Is = “Asus A43SD”

merk = “Asus A43SD-VX052D”

Hs = “4.500.000”

Case Is = “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

Hs = ” 4.300.000″

Case Is = “Asus A43TA”

merk = ” Asus A43TA-VX034D   ”

Hs = ” 4.900.000″

Case Is = “Asus N43SL”

merk = “Asus N43SL-VX264D”

Hs = “4.300.000”

Case Is = “Apple MD311”

merk = “Apple MacBook Pro MD311″

Hs = ” 19.300.000″

Case Is = “Apple MD313″

merk = ” Apple MacBook Pro MD313 ”

Hs = “24.200.000”

Case Is = “Apple MD314”

merk = “Apple MacBook Pro MD314 ”

Hs = “11.900.000”

Case Is = “Apple MD322”

merk = “Apple MacBook Pro MD322 ”

Hs = ” 14.700.000″

Case Is = “Apple MC965”

merk = “Apple MacBook Air MC965”

Hs = “21.300.000”

End Select

Dim A As String

txthp = Val(txtjj) * Val(txths)

txthb = Val(txthp) – Val(txtdis)

A = Mid(txthp.Text)

If A =  “>140000000” Then

txtdis = “0.15”

ElseIf A = “>135000000” Then

txtdis = “0.1”

ElseIf A = “>130000000” Then

txtdis = “0.5”

ElseIf A = “>125000000” Then

txtdis = “0.2”

End If

End Sub

g ayu

G

Private Sub Cmdproses_Click()

Dim S As String

TxtTm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Managemen 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”

Bp = “1.950.000”

ElseIf S = “02” Then

Txtps.Text = “Diploma empat”

Bp = “1.750.000”

ElseIf S = “03” Then

Txtps.Text = “Diploma tiga”

Bp = “1.650.000”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

Bp = “1.450.000”

End If

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

End Sub

Private Sub cmdlagi_click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjurusan = “”

txtpstudi = “”

txttahun = “”

txtnurut = “”

txtbp = “”

End Sub

Private Sub cmdbatal()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjurusan = “”

txtpstudi = “”

txttahun = “”

txtnurut = “”

txtbp = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjurusan = “”

txtpstudi = “”

txttahun = “”

txtnurut = “”

txtbp = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

H AYU

H

Private Sub cmdhitungulang_Click()

txtkode.SetFocus

txtkode = “”

txtjk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub Cmdproses_Click()

Dim S, A As String

txtkode.Text = (txtkode)

S = Mid(txtkode)

If S = “P205” Then

txtjk = “Pentium II    500 Mega Hz”

ElseIf S = “P308″ Then

txtjk = ” Pentium III    800 Mega Hz”

ElseIf S = “P310” Then

txtjk = “Pentium III    1.0 Giga Hz”

ElseIf S = “P415” Then

txtjk = “Pentium IV     1.5 Giga Hz”

ElseIf S = “P417” Then

txtjk = “Pentium IV     1.7 Giga Hz”

ElseIf S = “P419” Then

txtjk = “Pentium IV     1.9 Giga Hz”

End If

S = Mid(txtkode)

If S = “P205” Then

txths = “1.500.000”

ElseIf S = “P308″ Then

Txtps.Text = ” 2.100.000″

ElseIf S = “P310” Then

Txtps.Text = “3.500.000”

ElseIf S = “P415″ Then

Txtps.Text = ” 4.000.000″

ElseIf S = “P417″ Then

Txtps.Text = ” 4.200.000″

ElseIf S = “P419″ Then

Txtps.Text = ” 5.500.000″

End If

A = Mid(txthp.Text)

If A = “>40.000.000” Then

txtdis = “0.15”

ElseIf A = “> 35.000.000” Then

txtdis = “0.1”

ElseIf A = “30.000.000” Then

txtdis = “0.5”

ElseIf A = “> 25.000.000” Then

txtdis = “0.2”

txthp = Val(txtjj) * Val(txths)

TXTHB = 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
II

I

Private Sub Cmdproses_Click()

txttahun.Text = “20” & Left(txtnik.Text, 2)

txttotg = Val(txtgapok) + Val(txttunjangan)

Dim A, B, C As String

txtkode.Text = (txtkode)

A = Mid(txtkode)

If S = “KEU” Then

txtbagian = “Accounting”

ElseIf A = “ADM” Then

txtbagian = “Administrasi”

ElseIf A = “SDM” Then

txtbagian = “General Alfair”

ElseIf A = “EDP” Then

txtbagian = “IT Unit”

ElseIf A = “SPM” Then

txtbagian = “Security”

End Sub

B = Mid(txtgol.Text)

If B = “A” Then

txtjbt = “Manager”

txtgapok = “4.000.000”

txttunjangan = “1.025.000”

ElseIf B = “B” Then

txtjbt = “Ka.Seksi”

txtgapok = “3.500.000”

txttunjangan = “975.000”

ElseIf B = “C” Then

txtjbt = “Staff”

txtgapok = “3.000.000”

txttunjangan = “925.000”

End Sub

C = Mid(txtkode)

If C = “S” Then

txtstatus = “Single”

ElseIf C = “M” Then

txtstatus = “Menikah”

ElseIf C = “J” Then

txtstatus = “Janda”

ElseIf C = “D” Then

txtstatus = “Duda”

End If

End Sub

Private Sub cmdlagi_Click()

txtgolongan.SetFocus

txtgolongan = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

txtnk = “”

txtnik = “”

End Sub

Private Sub cmdbatal_Click()

txtgolongan.SetFocus

txtgolongan = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

txtnk = “”

txtnik = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

program

PROGRAM 1

AYU1

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

‘MEMBUAT TEKS BERWARNA HIJAU

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Cmdexit_Click()

 

End Sub

 

 

 

PROGRAM 2

AYU2

Private Sub chkmiring_Click()

‘membuat teks miring

Label2.FontItalic = chkmiring.Value

End Sub

 

Private Sub Chktebal_Click()

‘membuat teks tebal

Label2.FontBold = Chktebal.Value

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

 

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Optbiru_Click()

‘membuat teks berwarna biru

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

‘membuat teks berwarna hijau

Label2.ForeColor = vbGreen

End Sub

PROGRAM 3

ayu3

Private Sub Cbonpm_Click()

Dim nama, jurusan 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 = “DICKY DIANTORO”

jurusan = “SISTEM INFORMASI”

Case “15100118”

nama = “ERLANGGA NUR FENANDO”

jurusan = “SISTEM INFORMASI”

Case “15100126”

nama = “ERMA DWIYANI”

jurusan = “SISTEM INFORMASI”

Case “15100116”

nama = “FAQIHUDIN”

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 FEBRIANTI”

jurusan = “SISTEM INFORMASI”

Case “15100131”

nama = “KUKUH PRASETYO”

jurusan = “SISTEM INFORMASI”

Case “15100139”

nama = “M.ARYA BIMO RIFKI”

jurusan = “SISTEM INFORMASI”

Case “14100123”

nama = “MAD MUHAIDI”

jurusan = “SISTEM INFORMASI”

Case “15100136”

nama = “MARATUS SOLEHAH”

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

nama = “SELTARINA”

jurusan = “SISTEM INFORMASI”

Case “15100206”

nama = “SITI MUKODIMAH”

jurusan = “SISTEM INFORMASI”

Case “15100205”

nama = “SUPRAPTI”

jurusan = “SISTEM INFORMASI”

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 = “YELY FITRI LIANUARI”

jurusan = “SISTEM INFORMASI”

Case “15100119”

nama = “YUDA FERDIANTARA”

jurusan = “SISTEM INFORMASI”

End Sub

 

Private Sub cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

Txtquis.Text = “”

Txttugas.Text = “”

Txtuts.Text = “”

txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

 

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(txtuas.Text)

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

Txtna.Text = NA

 

Select Case Txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = 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

programku

AYU 1.1

KALKUTOR MINI

 

Private Sub cmdbatal_Click()

ttxtperkalian = “”

txtpenjumlahan = “”

txtpengurangan = “”

txtpembagian = “”

End Sub

 

Private Sub cmdhitung_Click()

txtperkalian = Val(txtn1) * Val(txtn2)

txtpenjumlahan = Val(txtn3) * Val(txtn4)

txtpengurangan = Val(txtn5) * Val(txtn6)

txtpembagian = Val(txtn7) * Val(txtn8)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

ttxtperkalian = “”

txtpenjumlahan = “”

txtpengurangan = “”

txtpembagian = “”

End Sub

 

 

Private Sub txtpembagian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtpengurangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

 

 

 

2.1 HARGA SETELAH DISKON 10%

Private Sub CmdHitung_Click()

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) – Val(Txtdis)

 

End Sub

 

Private Sub CmdUlang_Click()

Txtha.SetFocus

Txtha = “”

Txtdis = “”

Txtak = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End If

End Sub

2.1 HARGA SETELAH DISKON 10%

Private Sub CmdHitung_Click()

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) – Val(Txtdis)

 

End Sub

 

Private Sub CmdUlang_Click()

Txtha.SetFocus

Txtha = “”

Txtdis = “”

Txtak = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End If

End Sub

 

 

apliikasi perhitungan gaji

3.1

 

3.1APLIKASI PERHITUNGAN GAJI

Private Sub Cmdproses_Click()

Txtgk = Val(Txtgk) + Val(TxtTun) – Val(TxtPot)

TxtPjk = Val(Txtgk) * 0.1

TxtGd = Val(Txtgk) – Val(TxtPjk)

End Sub

 

Private Sub Cmdulang_Click()

Txtgp.SetFocus

Txtgp = “”

TxtTj = “”

Txtpt = “”

Txtgk = “”

TxtPjk = “”

TxtGd = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

 

 

TUGAS PROGRAM

PROGRAM 1

 

Private Sub Txtnpm_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Txtnama_keypress(keyAscii As Integer)

Txtnama.SetFocus

End If

End Sub

 

Private Sub CmdLagi_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdBatal_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

PROGRAM 2

 

Private Sub Txtnpm_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Txtnama_keypress(keyAscii As Integer)

Txtnama.SetFocus

End If

End Sub

 

Private Sub CmdLagi_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdBatal_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

 

Private Sub Textagama_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Textjeniskelamin_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

 

Private Sub Textnamaayah_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

Private Sub Textnamaibu_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Textpekerjaanayah_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Textpekerjaanibu_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text9.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

PROGRAM 3

 

Private Sub Commandhitung_Click()

Txthasil = Val(Txtn1) * Val(Txtn2)

End If

End Sub

 

Private Sub Commandhasil_Click()

Txtn1.SetFocus

Txtn1 = “”

Txtn2 = “”

Txthasil = “”

End If

End Sub

 

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Textn2.SetFocus

End If

End Sub

 

 

 

 

PROGRAM 4

 

 

 

Private Sub Commandhitung_Click()

Txthasil = Val(Txtn1) * Val(Txtn2)

End If

End Sub

 

Private Sub Commandhasil_Click()

Txtn1.SetFocus

Txtn1 = “”

Txtn2 = “”

Txthasil = “”

End If

End Sub

 

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Textn2.SetFocus

End If

End Sub

Privat Sub Txtn2_keypress(keyascii As Integer)

IF keyascii = 13 Then

Tthasil= Val (txtn1)* Val(txtn2)

End IF

End Sub

Tugas program

PROGRAM 1

 

Private Sub Txtnpm_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Txtnama_keypress(keyAscii As Integer)

Txtnama.SetFocus

End If

End Sub

 

Private Sub CmdLagi_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdBatal_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

PROGRAM 2

 

Private Sub Txtnpm_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Txtnama_keypress(keyAscii As Integer)

Txtnama.SetFocus

End If

End Sub

 

Private Sub CmdLagi_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdBatal_Click()

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

 

Private Sub Textagama_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Textjeniskelamin_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

 

Private Sub Textnamaayah_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

Private Sub Textnamaibu_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Textpekerjaanayah_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Textpekerjaanibu_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text9.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

PROGRAM 3

 

Private Sub Commandhitung_Click()

Txthasil = Val(Txtn1) * Val(Txtn2)

End If

End Sub

 

Private Sub Commandhasil_Click()

Txtn1.SetFocus

Txtn1 = “”

Txtn2 = “”

Txthasil = “”

End If

End Sub

 

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Textn2.SetFocus

End If

End Sub

 

 

 

 

PROGRAM 4

 

 

 

Private Sub Commandhitung_Click()

Txthasil = Val(Txtn1) * Val(Txtn2)

End If

End Sub

 

Private Sub Commandhasil_Click()

Txtn1.SetFocus

Txtn1 = “”

Txtn2 = “”

Txthasil = “”

End If

End Sub

 

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Textn2.SetFocus

End If

End Sub

Privat Sub Txtn2_keypress(keyascii As Integer)

IF keyascii = 13 Then

Tthasil= Val (txtn1)* Val(txtn2)

End IF

End Sub

TUGAS PERTAMA

TEKNOLOGI

Ponsel Terbaru Xiaomi Redmi 2A, Harga 1 Jutaan

Artikel Teknologi.com – Dikutif dari Kompas.com bahwa Xiaomi merilis Redmi 2A, ponsel memiliki rentang layar 4,7 inci dengan harga  US $80 atau sekitar Rp 1,3 juta. Kali ini, Xiaomi menggandeng pabrikan semikonduktor asal Tiongkok, Leadcore, sebagai ”jeroan”. Berbeda dengan pendahulunya yaitu Redmi 1s dan Redmi 2 yang menggandeng Qualcomm Snapdragon 410 sebagai jeroan. Tepatnya Redmi 2A dipersenjatai Leadcore jenis L1860C.

Xiaomi Redmi 2A

Chipset Leadcore yang dimilik oleh Redmi 2A berisi CPU quadcore dengan kecepatan 1,5 GHz dan GPU Mali-T628 MP2. Spesifikasi lainnya termasuk RAM 1 GB dengan memori internal 8 GB. Memori masih bisa dioptimalkan dengan penambahan kapasitas lewat slot microSD.

Redmi 2A dibekali kamera cukup mumpuni dikelasnya, yakni 8 MP untuk kamera utama (belakang) sedangkan 2 MP untuk kamera depan. Ponsel ini mempercayakan baterai berkekuatan 2.200 mAH yang kini sudah menjadi standar untuk smartphone.

Xiaomi Redmi 2A sudah dibekali sistem operasi Android 5.0 atau Lolipop dengan antarmuka terbaru MIUI 6. Perangkat ini juga sudah mendukung koneksi LTE generasi keempat (4G). Dengan harga 1 jutaan memang xiaomi menargetkan untuk pasar menengah ke bawah. Untuk desain warna Redmi 2A dibekali dengan warna putih, merah muda, kuning, abu-abu dan hijau.

Di Tiongkok sendiri ponsel Redmi 2A ini sudah diperkenalkan sejak Maret 2015, namun untuk memasuki pasar Indonesia khususnya belum bisa dipastikan dan mungkin saja masih menunggu 1 semester.

Bagaimana pecinta Ponsel Xiaomi ? Apakah sudah tidak sabar menunggu Redmi 2A hadir di Indonesia ?

Berikut  Full spesifications yang AT.com kutif dari Gsmarena.

Preliminary specifications

Network Technology GSM / HSPA / LTE
2G bands GSM 900 / 1800 / 1900 – SIM 1 & SIM 2
3G bands HSDPA 850 / 1900 / 2100
TD-SCDMA 1900 / 2100
4G bands LTE band 3(1800), 7(2600), 38(2600), 39(1900), 40(2300), 41(2500)
Speed HSPA, LTE
GPRS Yes
EDGE Yes
Launch Announced 2015, March
Status Available. Released 2015, April
Body      Dimensions
Weight
SIM Dual SIM (Micro-SIM, dual stand-by)
Display  Type IPS LCD capacitive touchscreen, 16M colors
Size 4.7 inches (~67.6% screen-to-body ratio)
Resolution 720 x 1280 pixels (~312 ppi pixel density)
Multitouch Yes
Protection TBC
– MIUI 6.0
Platform  OS Android OS, v5.0 (Lollipop)
Chipset Leadcore L1860C
CPU Quad-core 1.5 GHz
GPU Mali-T628 MP2
Memory  Card slot TBC
Internal 8 GB, 1 GB RAM
Camera   Primary 8 MP, 3264 x 2448 pixels, autofocus, LED flash
Features Yes
Video Yes
Secondary 2 MP
Sound   Alert types Vibration; MP3, WAV ringtones
 Loudspeaker Yes
3.5mm jack Yes
Comms   WLAN Wi-Fi 802.11 b/g/n, hotspot
Bluetooth v4.0
GPS Yes, with A-GPS, GLONASS, Beidou
Radio TBC
USB microUSB v2.0
Features Sensors Accelerometer, proximity
Messaging SMS(threaded view), MMS, Email, Push Mail, IM
Browser HTML5
Java No
– Active noise cancellation with dedicated mic
– MP4/H.264 player
– MP3/WAV/eAAC+/FLAC player
– Photo/video editor
– Document viewer
Battery    Li-Ion 2200 mAh battery
Stand-by
Talk time

http://www.artikelteknologi.com/2015/06/ponsel-terbaru-xiaomi-redmi-2a-harga-1-jutaan.html

Mesin Cuci Top Loading vs Front Loading

Kumpulan.info – Pekerjaan mencuci sering dianggap salah satu pekerjaan berat dalam rumah tangga. Tetapi, dengan kehadiran mesin cuci, pekerjaan mencuci dapat dilakukan dengan mudah. Banyak orang yang merasa tertolong dengan hadirnya mesin ini. Bila saat ini anda berniat membeli mesin cuci, anda akan dihadapkan pada 3 jenis pilihan mesin cuci yang tersedia di pasaran. Agar dapat membuat pilihan yang tepat, anda harus mengetahui kelebihan dan kekurangan dari jenis yang ada.

Pilihan tersebut adalah mesin cuci dengan bukaan atas (top loading) atau mesin cuci dengan bukaan depan (front loading). Untuk mesin cuci dengan bukaan atas terbagi lagi atas 2 tabung dan 1 tabung. Perbedaan ini bukan hanya pada letak bukaan (tempat anda memasukkan pakaian) tetapi berbeda pula dalam hal penggunaan air, listrik, teknologi dan hasil dari pakaian yang dicuci.

Pertama, kita lihat dulu apa perbedaan antara mesin cuci bukaan atas 2 tabung dan 1 tabung. Bila mesin cuci dengan 2 tabung, tempat untuk mencuci dan mengeringkan dalam tabung yang berbeda. Pada jenis ini selama proses pencucian, ada baling-baling di dasar tabung yang berputar dan melakukan proses pencucian. Sedangkan pada 1 tabung, tabung untuk mencuci dan mengeringkan dilakukan dalam tabung yang sama. Tabung ini juga ikut berputar saat proses pencucian.

Dalam hal penggunaan air, mesin cuci dengan bukaan atas menggunakan air lebih banyak daripada mesin cuci bukaan depan. Hal ini karena pada mesin cuci bukaan atas, air harus diisi sampai penuh baru mesin dijalankan. Sedangkan pada mesin bukaan depan, air akan dikeluarkan secara sedikit-sedikit selama proses pencucian. Untuk listrik yang dipakai pada mesin cuci bukaan atas atau bukaan depan, secara umum hampir sama yaitu sekitar 300 W bila menggunakan air biasa. Pada mesin cuci bukaan depan, ada tambahan fasilitas untuk mencuci dengan air panas tetapi listrik yang dibutuhkan sekitar 2000 W.

Perbedaan yang paling dasar dari kedua jenis mesin cuci ini adalah teknologi yang dipakai. Mesin cuci bukaan atas karena perputarannya secara horisontal menyebabkan air yang ada di dalamnya membentuk pusaran air yang menyebabkan pakaian saling melilit. Sebaliknya, mesin cuci bukaan depan berputar secara vertikal menyerupai perputaran roda menyebabkan pakaian selalu jatuh ke bawah sehingga pakaian tidak saling melilit. Hasil pencucian mesin cuci bukaan depan lebih baik dari mesin cuci bukaan atas, karena teknologi yang digunakan sama seperti pakaian dibanting-banting. Tingkat kekeringan yang dihasilkan pada mesin cuci jenis ini mencapai 95% sedangkan mesin cuci bukaan atas hanya menghasilkan 70% tingkat kekeringan.

Secara harga, mesin cuci bukaan depan lebih mahal daripada jenis lainnya. Mesin cuci dengan 2 tabung harganya kurang dari Rp 1 juta , mesin cuci bukaan atas dengan 1 tabung harganya berkisar Rp 1 juta sampai Rp 2 juta. Sedangkan mesin cuci bukaan depan dijual dengan harga lebih dari Rp 3 juta.

htp://kumpulan.info/tech/artikel-teknologi/70-beda-mesin-cuci-top-loading-dan-front-loading.html

Mengenal dan Menggunakan Domain Dot Id (.id)

Kumpulan.info – Pernah mendengar beberapa nama domain seperti http://www.google.co.id, http://www.yahoo.co.id, http://www.binus.ac.id? Nama domain yang diakhiri dengan dot id (.id) merupakan identitas Indonesia di dunia maya yang bertujuan sebagai identitas untuk website yang berasal dari atau ditujukan unuk Indonesia (untuk mengetahui identitas domain berbagai negara dapat mengunjungi link ini www.swebee.com. Tetapi, memang masih lebih banyak website yang menggunakan domain dot com (.com), karena nama .com sudah lebih umum dikenal dan bercitra international. Selain itu, untuk mendapatkan domain .id lebih rumit dibanding saat kita mendaftar .com.

Tetapi sebenarnya penggunaan .id berarti kita bisa menghemat devisa karena devisa yang digunakan untuk membayar domain .com atau domain lainnya akan beralih ke pengelola dalam negeri. Jadi, bila kita ingin membantu menghemat devisa, kita bisa coba berpikir untuk memiliki domain .id.

Berikut langkah-langkah proses pendaftaran .id:

  1. Kunjungi website Register.net.id dan isi form pendaftaran
  2. Setelah mengisi secara lengkap, kita akan dikirimkan email konfirmasi untuk melakukan aktivasi account. Bila masih belum mendapatkan email konfirmasi, coba lakukan langkah berikut:
    • Cek “Bulk Mail” atau ‘Spam”, karena ada kemungkinan email tersesat ke folder tersebut
    • Jika masih tidak ada, kunjungi lagi http://www.register.net.id dan klik menu “Resend Activation”
    • Jika masih belum ada, hubungi helpdesk@pandi.org
  3. Bila account sudah diaktifkan, maka selanjutnya kita mendaftarkan nama domain .id baru dengan masuk ke account domain kita dan klik tombol “Domain Management”. Jika nama domain yang diinginkan masih tersedia, klik tombol “Register” yang selanjutnya kita akan diminta untuk mengisi form pendaftaran nama domain.
  4. Selanjutnya, kita harus menyertakan dokumen-dokumen pendukung yang diperlukan.
    • Klik menu “Document Management” dan submenu “Create Document”
    • Isi dokumen yang akan kita kirimkan sesuai persyaratan
    • Untuk mengirimkan dokumen, dapat kita lakukan dengan menscan dokumen dan mengupload lewat menu “Document management | Upload Document”
  5. Tunggu hasil konfirmasi apakah permintaan pendaftaran domain kita disetujui atau tidak yang akan dikirimkan lewat email. Konfirmasi ini bisa memakan waktu beberapa minggu, jadi terpaksa kita harus bersabar. Bila ternyata ditolak, ulangi langkah ke 3 untuk pendaftaran nama domain baru.
  6. Bila nama domain disetujui, maka selanjutnya adalah melakukan pembayaran melalui transfer
    • Transfer ke rekening a.n. Pengelola Nama Domain Internet Indonesia (PANDI) di Bank Central Asia cabang Sudirman, no rekening 0353095665 atau Bank mandiri cabang Jakarta Wisma Indosement, no rekening 122.0004848.647
    • Kirim email ke pembayaran@register.net.id dengan melampirkan bukti transfer pada email.
    • Pembayaran harus dilakukan paling lambat 14 hari kerja sejak email persetujuan dikirim.
    • Aktivasi nama domain baru adalah 7 hari kerja sejak pembayaran diterima oleh PANDI.

Arti akhiran domain (agar dapat membantu kita dalam pemilihan nama domain dalam langkah ke 3):

  • .co.id : Singkatan dari Company, digunakan untuk badan usaha yang sah.
  • .ac.id : Singkatan dari Academic, digunakan untuk sekolah tinggi mulai dari akademi.
  • .go.id : Singkatan dari Government, digunakan untuk lembaga pemerintahan.
  • .mil.id : Digunakan khusus di kalangan militer.
  • .net.id : Digunakan untuk penyelenggara jasa internet dan penyedia akses lainnya.
  • .sch.id : Digunakan khusus untuk sekolah
  • .or.id : Digunakan untuk organisasi yang tidak termasuk kategori yang ada.
  • .web.id : Tidak ada pengkhususan untuk domain ini, dapat digunakan oleh pengguna individual.

Topik: Internet

http://kumpulan.info/tech/artikel-teknologi/46-mengenal-domain-dot-id.html

Mobil Tanpa Pengemudi (Driverless Car)

Anda adalah orang modern yang sangat sibuk. Anda sering berpergian dengan mobil pribadi, tetapi Anda juga sibuk dengan aktivitas seperti makan, mengerjakan tugas, membaca, teks, berbicara di telepon, gunting kuku, makeup dan sebagainya. Singkatnya, Anda membutuhkan mobil tanpa pengemudi atau Driverless Car.

Walaupun proyek pengembangan ini telah ada sejak lama, tetapi yang paling terdepan dalam hal teknologi mobil robotik adalah Google si Perusahaan Raksasa Mesin Pencari Internet. Google berhasil mengembangkan mobil prototype tidak berpenumpang yang dilaporkan telah berjalan sejauh 200.000 mil (sekitar 321 ribu kilometer) pada jalan California.

Sekarang ini Google hanya menunggu pemerintah dan hukum negara menyetujui pengujian lebih lanjut, tapi masih tidak jelas apakah masyarakat umum dapat membeli mobil ini. Yah setidaknya harus diuji di Indonesia, khususnya Jakarta dulu dengan jalanan yang sangat ‘menantang’ ini.

http://www.tahupedia.com/content/show/73/10-Teknologi-Masa-Depan-yang-Ditunggu-Setiap-Orang

Jetpack Pribadi (Personal Jetpack)

Sudah waktunya setiap dari kita memiliki jetpack yang merupakan impian para pemimpi masa depan karena mereka sangat menakjubkan. Tapi yang kita bicarakan di sini juga bukan jetpack biasa yang terbang secara perlahan, bukan FANpack melainkan benar-benar JETpack.

Perasaan menggunakan jetpack akan setara dengan adrenalin yang terpacu pada saat mengendarai motor pada jalanan lapang dan terbuka tanpa adanya batasan bahwa Anda harus berbelok karena jalanan berliku.

Sama halnya seperti mobil terbang, hanya saja Anda dapat menikmati pemandangan dan Anda tidak perlu mengendarai benda yang besar hanya benda kecil seukuran tubuh Anda, yang juga mengizinkan Anda berpergian dari satu tempat ke tempat lain dalam waktu yang sangat cepat.

http://www.tahupedia.com/content/show/73/10-Teknologi-Masa-Depan-yang-Ditunggu-Setiap-Orang

Makanan dalam Bentuk Pil (Food in a Pill)

Makan makanan enak mungkin menarik untuk dinikmati secara perlahan-lahan dan Anda memang punya waktu untuk itu. Bagaimana jika makanan yang Anda makan tidak enak dan Anda adalah orang yang sangat sibuk dengan moto Anda ‘waktu adalah uang’? Makanan dalam bentuk pil adalah solusi dari pertanyaan ini.

Ide ini telah ada selama bertahun-tahun sebagai impian fiksi. Masalahnya adalah seseorang perlu mengetahui bagaimana cara agar manusia mendapatkan nutrisi yang cukup dari kapsul, pil atau tablet yang dimana dapat dikatakan tidak mungkin. Ini juga tidak terbatas hanya kepada nutrisi, orang tersebut harus mempertimbangkan protein, karbohidrat, vitamin, mineral dan sebagainya agar Anda tetap sehat.

Lagian, selalu makan pil juga tidak dapat dikatakan hidup walaupun Anda adalah orang sibuk. Rasa pil juga umumnya tidak enak.

http://www.tahupedia.com/content/show/73/10-Teknologi-Masa-Depan-yang-Ditunggu-Setiap-Orang

Android (Humanoid Robot)

Jika manusia dapat menciptakan robot pembantu atau komputer yang lebih pintar dari manusia seperti pada poin sebelumnya, mungkin menciptakan Android atau Robot yang menyerupai manusia bukan lagi impian.

Mereka dapat berperilaku, berbicara dan berpikir seperti manusia, bahkan bentuk mereka serupa dengan manusia. inilah yang kita bicarakan di sini, bukan sebatas robot dengan bentuk lingkaran dan kotak.

Android mungkin dapat berpikir seperti manusia dan berprilaku seperti manusia, tapi bagaimana dengan perasaannya? Jika Android tidak memiliki perasaan seperti manusia, maka ini dapat dikatakan sebagai awal mula dari akhir umat manusia. Bayangkan, robot dapat berpikir seperti manusia dan mereka akan berpikir ‘untuk apa mereka mematuhi umat manusia yang lebih bodoh dari mereka?’.

http://www.tahupedia.com/content/show/73/10-Teknologi-Masa-Depan-yang-Ditunggu-Setiap-Orang

Exoskeletons

Sebuah baju yang fit dengan tubuh Anda, memperbolehkan Anda untuk memiliki kekuatan seperti superhero. Berlari sangat cepat, melompat dengan ketinggian yang luar biasa, anti peluru seperti Superman. Terlebih jika memperbolehkan Anda mempunyai super-senses seperti Spiderman. Perasaan seperti ini pasti sangat menakjubkan.

Jika baju ini berhasil diciptakan, maka pekerjaan yang tadinya membutuhkan banyak orang sekarang hanya membutuhkan satu orang, yaitu Anda sendiri dan dalam waktu yang lebih cepat.

Tapi mungkin tidak semua orang dapat mengenakan pakaian ini jika memang ada, jika semua orang dapat memakai ini maka dunia akan berada dalam kekacauan. Penjahat Anti Peluru dengan kekuatan Superman? Woww… Jelasnya ini adalah impian yang sangat tinggi dan mungkin dapat dikatakan tidak mungkin diciptakan.

http://www.tahupedia.com/content/show/73/10-Teknologi-Masa-Depan-yang-Ditunggu-Setiap-Orang

 

 Cisco

Brand yang baru saja dikenal beberapa thaun belakangan ini kembali menunjukkan kebesarannya dalam dunia teknologi dengan terus berfokus ke teknologi Cloud. Produknya memperbolehkan user untuk memproses data di ponsel dan jaringan wireless. Selain itu Cisco juga merilis solusi mobile yang memperbolehkan jaringan dengan fungsionalitas yang lebih baik dalam hal fitur maupun pemograman.

http://www.tahupedia.com/content/show/311/10-Perusahaan-Teknologi-Terbesar-di-Dunia

HP

Merupakan perusahaan multinasional Amerika yang berpusatkan di California dan juga merupakan salah satu perusahaan teknologi terbesar di dunia, yang belakangan mengumumkan kerjasamanya dengan Google untuk mewujudkan solusi teknologi bagi bisnis menengah. Hingga tahun 2012 merupakan raksasa teknologi Cina, hingga akhirnya dilewati oleh Lenovo, namun tetap terkenal di Amerika.

http://www.tahupedia.com/content/show/311/10-Perusahaan-Teknologi-Terbesar-di-Dunia

POLITIK

KPK Acak-Acak Rumah Mantan Wakil Ketua DPRD Sumut

JAKARTA – Komisi Pemberantasan Korupsi (KPK) menggeledah rumah mantan Wakil Ketua DPRD Provinsi Sumatera Utara Kamaluddin Harahap dan Sigit Pramono Asri.

Penggeledahan dilakukan terkait kasus dugaan suap Gubernur Sumut nonaktif, Gatot Pujo Nugroho kepada anggota DPRD Sumut periode 2009-2014 dan 2014-2019.

“Hari ini dilakukan geledah di rumah KH (Kamaluddin Harahap) dan SPA (Sigit Pramono Asri). Masih berlangsung,” kata Plh Kepala Biro Humas KPK, Yuyuk Andriati saat dikonfirmasi, Kamis (12/11/2015).

Menurut Yuyuk, sehari sebelumnya penyidik juga telah menggeledah rumah Ketua DPRD Provinsi Sumut, Ajib Syah. Selain itu, lanjutnya, DPRD Provinsi Sumut juga tak lepas dari penyisiran yang dilakukan oleh lembaga antirasuah untuk mencari dokumen yang berkaitan dengan pusaran suap ini.”Ruang Ketua dan semua Ketua Fraksi (juga turut digeledah). Ada beberapa dokumen yang diambil,” tukasnya.

Seperti diketahui, penyidik lembaga antikorupsi telah menahan empat tersangka dari Anggota DPRD Sumut periode 2009-2014 dan 2014-2019. Mereka, yakni Ketua DPRD Sumut Ajib Shah, mantan Ketua DPRD Sumut, Saleh Bangun, serta mantan Wakil Ketua DPRD Sumut Chaidir Ritonga dan Sigit Pramono Asri.

Mereka berempat ditahan di Rumah Tahanan (Rutan) berbeda. Ajib ditahan di Rutan Salemba, Jakarta Pusat, Saleh ditahan di Polres Jakarta Selatan, Chaidir ditahan di Rutan Polda Metro Jaya, dan Sigit ditahan di Polres Jakarta Pusat. Sedangkan Kamaluddin Harahap lolos dari penahanan.

Pada kasus ini, pemberian suap dari Gatot terkait persetujuan laporan pertanggungjawaban Pemerintah Provinsi Sumut tahun 2012-2014, persetujuan perubahan APBD Sumut tahun 2013 dan 2014, pengesahan APBD Sumut tahun 2014 dan 2015 serta penolakan penggunaan hak interpelasi DPRD Provinsi Sumut tahun 2015.

Gatot yang diduga sebagai pemberi disangka Pasal 5 ayat (1) huruf a atau b atau Pasal 13 Undang-Undang Nomor 31 Tahun 1999 sebagaimana telah diubah dengan Undang-Undang Nomor 20 Tahun 2001 jo pasal 64 ayat (1) jo pasal 55 ayat (1) ke-1 KUHP.

Sedangkan, kelima legislator yang diduga penerima suap disangka Pasal 12 huruf a atau b atau pasal 11 Undang-Undang Nomor 31 Tahun 1999 sebagaimana telah diubah dengan Undang-Undang Nomor 20 Tahun 2001 jo Pasal 64 ayat (1) jo Pasal 55 ayat (1) ke-1 KUHP.

http://news.okezone.com/read/2015/11/12/337/1248254/kpk-acak-acak-rumah-mantan-wakil-ketua-dprd-sumut

Menteri Yuddy Diminta Segera Selesaikan Pengangkatan Tenaga Honorer

Anggitondi Martaon – 12 November 2015 10:59 wib

Menteri Yuddy Chrisnandi—–Ant/Fanny Oktavianus

Metrotvnews.com, Jakarta: Komisi II DPR mengingatkan Menteri Pemberdayaan Aparatur Negara dan Reformasi Birokrasi (PAN-RB) Yuddy Crishnandi agar segera menyelesaikan pengangkatan tenaga honorer pada 2016. Semula, Kementerin PAN-RB diminta menyelesaikan masalah itu pada 2015. Penyelesaian terkendala belum adanya regulasi.

Menurut anggota Komisi II DPR, Amran, ada kesepakatan antara komisinya dengan Kementerian PAN-RB untuk memulai proses pengangkatan tenaga honorer tahun 2016.

“Tenaga honorer K1 dan K2 akan diselesaikan secara bertahap yang jumlahnya 440 ribu, mulai 2015-2016-2019,” kata Amran melalui keterangan tertulis, Kamis (12/11/2015).

Soal anggaran pengangkatan yang tidak masuk ke APBN 2016, kata Amran, karena kementerian tersebut tak menganggarkan dan menyelesaikan peta jalan terkait proses pengangkatan tenaga honerer. Padahal, kata Amran, pihaknya sudah mengingatkan untuk segera menyusun anggaran. Oleh karena itu, Komisi II akan membahas anggaran pengangkatan tenaga honorer pada APBN Perubahan 2016.

“Karena kita sudah sampaikan di Badan Anggaran besar,” ujar dia.‎

Menteri Yuddy sebelumnya memutuskan akan mengangkat seluruh honorer K2 sebanyak 439.965 orang. Pengangkatan dilakukan bertahap. Proses pengangkatan dilakukan mulai 2016 hingga 2019. Keputusan ini diambil karena banyak honorer K2 berusia di atas 35 tahun. sehingga tidak bisa diberlakukan mekanisme UU Aparatur Sipil Negara. Adapun tenaga honorer K1 belum diangkat. TII

http://news.metrotvnews.com/read/2015/11/12/449943/menteri-yuddy-diminta-segera-selesaikan-pengangkatan-te

Presiden Harus Punya Parameter Jika Akan Reshuffle

diskusi reshuffle kabinet di mata nitizen Source : VIVA.co.id/Ikhwan Yanuar (VIVA.co.id/Ikhwan Yanuar)

VIVA.co.id – Soal Reshuffle Kabinet Jilid II, Wakil Ketua Komisi I DPR RI Syaifullah Tamliha mengatakan tentu Presiden memiliki hak prerogatif untuk menetapkan para menteri yang merupakan pembantu-pembantunya. Namun menurutnya Presiden harus punya parameter.

“Kalau ditanya menteri dari mana yang akan masuk, saya berasumsi karena saya jurusan matematika fisika, belum tentu reshuffle Kabinet Jilid II jika ada itu KIH senang. Sebab kalau rumus matematika kalau lima, kan koalisi lima sekarang, kalau ditambah satu lagi, berarti yang satu itu memliki peluang satu dibanding enam. Kalau ada potensi satu berbanding enam, berarti satu berbanding lima tadi berkurang. Karena itu saya tidak yakin KIH Senang,” ujarnya di Senayan, Kamis 12 November 2015.

Ia menambahkan, kalau Presiden ingin mengganti menterinya tentu harus memiliki parameter yang jelas. Misalnya sejauh mana seorang menteri bisa meningkatkan pendapatan negara bukan pajak.

“Misalnya PNBP, belum tentu menteri yang populer memiliki kinerja seperti itu, contoh Menteri Susi, di badan anggaran, katanya naik 400 persen anggarannya, begitu ditanya program ini tidak bisa jawab, anggaran naik, target PBNP nya Rp500 milyar tahun ini, dua bulan lalu baru tercapai RP30 milyar, apakah itu baik? Meledakan kapal apakah itu baik?,” jelasnya.

Ia menegaskan, boleh sesekali melakukan hal itu, tapi kalau meledakan itu ongkosnya terlalu besar, kan pekerjaanya bisa dihemat menjadi 10 ribu.

“Lobangin kapalnya lalu tenggelam, kapal itu nantinya menjadi rumpun ikan, kayak Pak Harto dulu dilempar ke Pulau Seribu, jadi rumpun ikan. Ikan beranak pinak disitu, tapi kalau diledakkan tidak jadi rumpun disitu,” ucap politisi PPP ini saat diskusi Reshuffle Kabinet Jilid II.
http://politik.news.viva.co.id/news/read/698686-presiden-harus-punya-parameter-jika-akan-reshuffle

 

 

 

 

Pemerintah Didesak Segera Pilih Pimpinan Baru KPK

Ketua PP Muhammadiyah, Haedar Nashir (kanan).  (NTARA FOTO/Yusran Uccang)

VIVA.co.id – Pimpinan Pusat (PP) Muhammadiyah minta pemerintah dan DPR segera menetapkan komisioner-komisioner Komisi Pemberantasan Korupsi (KPK) yang sudah diseleksi Pansel. Hanya saja, uji kepatutan dan kelayakan belum juga dilakukan DPR.

“Penundaan penetapan anggota KPK akan melemahkan eksistensi KPK secara psikologis, politis dan hukum,” ujar Ketua Umum PP Muhamadiyah, Haedar Nashir, dalam konferensi pers di Kantor PP Muhamadiyah, Jakarta pada Kamis, 12 November 2015.

Haedar menyatakan prihatin dengan masih tingginya korupsi di Indonesia. “Tingginya kasus korupsi di Indonesia disebabkan oleh beberapa permasalahan. Pertama adalah lemahnya penegakan hukum,” ujar Haedar.

Haedar mengatakan, indikasi lemahnya penegakan hukum terlihat dari adanya usaha-usaha sistematis yang berusaha melemahkan eksistensi dan peran KPK. Selain itu, juga terdapat tumpang tindih dan kurangnya kerjasama antara lembaga-lembaga penegak hukum baik Kepolisian, Kejaksaan dan KPK.

Permasalaha lainnya juga adalah adanya indikasi intervensi politik baik dari jajaran eksekutif maupun legislatif dalam kasus-kasus korupsi yang melibatkan pejabat publik atau partai politik tertentu.

“Masalah yang terakhir adalah belum tumbuh dan berkembangnya budaya anti korupsi baik di dalam tubuh birokrasi maupun masyarakat. Korupsi cenderung dilihat sebagai masalah politik dan hukum belaka sehingga aspek nilai, moral dan keadabannya kurang mendapatkan perhatian,” kata Haedar. (ren)

http://politik.news.viva.co.id/news/read/698660-pemerintah-didesak-segera-pilih-pimpinan-baru-kpk

Politikus Nasdem Usul DPR Buat Pansus Freeport

Itu menanggapi pernyataan Menteri ESDM ada yang catut nama Jokowi.

Kamis, 12 November 2015 | 13:53 WIB

Oleh : Suryanta Bakti Susila, Reza Fajri

Kurtubi (Antara/ Ismar Patrizki)

VIVA.co.id – Publik dikejutkan dengan pernyataan Menteri Energi dan Sumber Daya Mineral, Sudirman Said, yang menyatakan ada politikus ternama yang telah mencatut nama Presiden Joko Widodo dan Wakil Presiden Jusuf Kalla, untuk meminta jatah saham PT Freeport.

Untuk membongkar semuanya Anggota Komisi VII DPR RI Kurtubi mengajak kawan-kawannya di Komisi VII untuk membentuk Panitia Khusus (Pansus).

“Saya usulkan agar kasus-kasus ini biar tidak dimanfaatkan pihak-pihak tertentu,” kata politikus Nasdem itu lewat sambungan telepon, Kamis 12 November 2015.

Selain itu, ia berharap dengan adanya Pansus ini bisa lebih luas mengungkap dugaan adanya skandal di balik perpanjangan kontrak Freeport.

“Perlu dibentuk Pansus Freeport agar bisa ditelaah bisa dilihat secara terbuka apakah ini ada skandal, apakah ini ada pelanggaran hukum,” ujar Kurtubi.

Kurtubi juga mendorong Menteri Sudirman untuk membeberkan nama politisi berkuasa yang mengaku akan menjanjikan Freeport kontrak kerja sama.

“Kita minta Menteri yang bersangkutan supaya dibuka saja siapa orangnya,” kata Kurtubi.

http://politik.news.viva.co.id/news/read/698510-politikus-nasdem-usul-dpr-buat-pansus-freeport

 

 

 

 

 

 

 

SKB 3 Menteri Tak Mampu Lindungi Umat, DPR Desak Revisi

Petugas menyegel rumah ibadah Jamaah Ahmadiyah di Bukit Duri, Jakarta, (VIVA.co.id/Ahmad Rizaluddin)

VIVA.co.id – Wakil Ketua Komisi II Dewan Perwakilan Rakyat Republik Indonesia, Lukman Edy, menyesalkan terus belulangnya pembakaran rumah ibadah. Menurutnya Surat Keputusan Bersama 3 Menteri (SKB 3 Menteri) tentang pendirian rumah ibadah sudah tidak efektif dan harus direvisi.

“SKB 3 Menteri harus revisi, untuk menyesuaikan dengan kondisi masyarakat. Revisi SKB 3 Menteri harus dapat mengantisipasi kemungkinan konflik antar umat beragama dan antar keyakinan termasuk melindungi seluruh umat,” kata Lukman saat di hubungi, Kamis 12 November 2015.

Lukman, melihat banyak kelemahan SKB 3 Menteri saat ini. Menurutnya kelemahan tersebut, posisi SKB 3 Menteri  hanya berbentuk anjuran, bukan keharusan.

“Membuka peluang untuk diaplikasikan berbeda sesuai selera masing-masing daerah,” ujar Lukman.

Politisi Partai Kebangkitan Bangsa (PKB) ini menambahkan sifat SKB 3 Menteri yang hanya anjuran menjadikannya lemah, tidak sekuat hirarki perundang-undangan.

“Bahkan jika dihadapkan dengan Peraturan Daerah (Perda) bisa kalah. SKB 3 Menteri juga tidak memuat sanksi bagi pelanggarnya,” tegas Lukman.

Lukman mengungkapkan secara sosiologi dinamika kemungkinan konflik antar umat beragama dan keyakinan sekarang ini lebih kompleks dibanding dahulu. Ini menjadikan perlu peraturan yang lebih jelas dibanding SKB 3 Menteri.

“Jika memungkinkan perlu diterbitkannya peraturan yang lebih tinggi, misalnya menjadi Peraturan Pemerintah (PP), sehingga lebih memiliki kekuatan hukum dan memberikan rasa aman bagi umat beragama,” ujarnya.
http://politik.news.viva.co.id/news/read/698432-skb-3-menteri-tak-mampu-lindungi-umat–dpr-desak-revisi

Revolusi Mental Berantakan: NKRI Diadukan Warganya Sendiri ke Pengadilan Intl’

Negara Indonesia Didakwa Dalam Peristiwa 1965
NBC Indonesia 2015-11-11. 17:04

Koordinator IPT 1965 Nursyahbani Katjasungkana memberikan sambutan dalam pembukaan sidang.

NBCIndonesia.com – Ketua jaksa penuntut dalam sidang Pengadilan Rakyat Internasional (IPT) mengenai peristiwa tahun 1965 yang menewaskan ratusan ribu jiwa mendakwa negara Indonesia sebagai pihak yang bertanggung jawab.

Dalam pembukaan sidang di Den Haag, Selasa (10/11), ketua jaksa Todung Mulya Lubis mengatakan negara Indonesia secara umum dianggap bertanggung jawab karena adanya sembilan dakwaan.

Dakwaan itu antara lain meliputi penghilangan paksa, pemenjaraan, penyiksaan, dan kekerasan seksual pasca meletusnya peristiwa 30 September 1965.

Sidang diketuai dua hakim internasional, termasuk seorang hakim dari Afrika Selatan, kata anggota panitia, Joss Wibisono.

“Hakim bertanya apakah ada pihak lain yang hadir, selain saksi dan jaksa. Sebenarnya, dia bertanya tentang hal itu karena ia berharap pemerintah Indonesia datang, tetapi ternyata tidak datang. Ia menyesalkan ketidakhadiran pemerintah Indonesia,” jelas Joss Wibisono.

Tidak mengikat

Setidaknya 10 saksi dihadirkan dalam sidang selama empat hari.

Pemerintah Indonesia tidak mengakui proses yang berlangsung di Den Haag, Belanda ini.

“Pemerintah Indonesia sudah mempunyai proses tersendiri untuk rekonsiliasi terkait dengan sejarah kita yang masa lalu itu,” kata juru bicara Kementerian Luar Negeri, Arrmanatha Nasir.

“Baik pemerintah yang sebelumnya maupun yang saat ini sudah mengambil beberapa langkah dalam upaya untuk merealisasikan rekonsiliasi,” katanya.

Sidang Pengadilan Rakyat Internasional 1965 tidak menginduk ke badan-badan resmi sehingga proses maupun keputusan sidang tidak mempunyai kekuatan hukum.

Para hakim mendengarkan dakwaan jaksa yang terdiri dari sembilan dakwaan.

Namun penyelenggara berharap keputusan dapat digunakan sebagai dorongan moral bagi pemerintah Indonesia untuk segera menyelesaikan pembunuhan massal terhadap simpatisan dan pendukung PKI.

Jumlah korban yang dibunuh diperkirakan mencapai ratusan ribu orang hingga satu juta orang.

Sejauh ini peristiwa 1965 di Indonesia belum sampai ke pengadilan meskipun penyelidikan telah dilakukan.

Penyelidikan Komnas HAM pada 2012, yang diserahkan kepada Jaksa Agung, menyebutkan semua pejabat dalam struktur Komando Operasi Pemulihan Keamanan dan Ketertiban dan semua panglima militer daerah pada saat itu dapat dimintai pertanggungjawaban.(bbc)
(NBCIndonesia.com)
http://www.nbcindonesia.com/2015/11/…kwa-dalam.html

http://www.kaskus.co.id/thread/56432cd75074109e718b456b/revolusi-mental-berantakan-nkri-diadukan-warganya-sendiri-ke-pengadilan-intl/

Politikus Nasdem Usul DPR Buat Pansus Freeport

Itu menanggapi pernyataan Menteri ESDM ada yang catut nama Jokowi.

Kamis, 12 November 2015 | 13:53 WIB

Oleh : Suryanta Bakti Susila, Reza Fajri

Kurtubi (Antara/ Ismar Patrizki)

VIVA.co.id – Publik dikejutkan dengan pernyataan Menteri Energi dan Sumber Daya Mineral, Sudirman Said, yang menyatakan ada politikus ternama yang telah mencatut nama Presiden Joko Widodo dan Wakil Presiden Jusuf Kalla, untuk meminta jatah saham PT Freeport.

Untuk membongkar semuanya Anggota Komisi VII DPR RI Kurtubi mengajak kawan-kawannya di Komisi VII untuk membentuk Panitia Khusus (Pansus).

“Saya usulkan agar kasus-kasus ini biar tidak dimanfaatkan pihak-pihak tertentu,” kata politikus Nasdem itu lewat sambungan telepon, Kamis 12 November 2015.

Selain itu, ia berharap dengan adanya Pansus ini bisa lebih luas mengungkap dugaan adanya skandal di balik perpanjangan kontrak Freeport.

“Perlu dibentuk Pansus Freeport agar bisa ditelaah bisa dilihat secara terbuka apakah ini ada skandal, apakah ini ada pelanggaran hukum,” ujar Kurtubi.

Kurtubi juga mendorong Menteri Sudirman untuk membeberkan nama politisi berkuasa yang mengaku akan menjanjikan Freeport kontrak kerja sama.

“Kita minta Menteri yang bersangkutan supaya dibuka saja siapa orangnya,” kata Kurtubi.

http://politik.news.viva.co.id/news/read/698510-politikus-nasdem-usul-dpr-buat-pansus-freeport

Bottom of Form

Ini Peta Pemicu Konflik Pilkada Serentak Temuan Bawaslu  

Ketua Badan Pengawas Pemilu (Bawaslu) Muhammad. ANTARA/Hafidz Mubarak A

TEMPO.CO, Jakarta – Badan Pengawas Pemilu (Bawaslu) memetakan hal-hal yang dianggap  dapat berpotensi memicu terjadinya konflik dalam penyelenggaraan Pilkada Serentak 2015.

“Potensi konflik dapat muncul di daerah yang memiliki calon tunggal. Kemudian ada politisasi aparatur negara, politik uang, netralitas penyelenggara dan sengketa,” kata Ketua Bawaslu  Muhammad dalam acara Rapat Koordinasi Nasional Pemantapan Pelaksanaan Pilkada Serentak 2015 di Ecopark, Ancol, pada Kamis,  12 November 2015.

Menurut Muhammad, kerawanan konflik di daerah dengan calon tunggal berpotensi besar untuk terjadinya konflik karena hanya ada satu pasangan calon kepala daerah dan wakil kepala daerah di daerah tersebut yang diduga dapat mempolitisasi terjadinya pemilu. Terlebih, ini baru pertama kalinya pemerintah menyelenggarakan pilkada dengan calon tunggal setelah Mahkamah Konstitusi menyatakan calon tunggal dapat mengikuti pilkada serentak pada Desember 2015.

Untuk politisasi aparatur negara, menurut Muhammad,  hak itu berkaitan dengan petahana yang maju kembali dalam pemilu kepala daerah. “Para inkumben, karena mereka menguasai birokrasi, maka bisa berpotensi menggunakan kewenangan dan fasilitas negara dalam upaya pemenangan,” ujar Muhammad.

Politik uang sering kali ditemui dalam upaya penyelenggaraan pilkada. Para calon membagi-bagikan uang kepada masyarakat agar mereka mau mencoblos setelah memberi uang. Karena itu, Muhammad mengimbau para pengawas pemilu untuk tidak segan-segan melaporkan kepada Bawaslu apabila mereka menemui pelanggaran tersebut. “Mari kita bersama-sama membangun integritas melakukan pengawasan dari KPU dan Bawaslu tingkat pusat hingga KPUD dan pengawas pemilu tingkat daerah,” kata Muhammad.

Mengenai netralitas, Muhammad menyinggung masalah PNS dan aparat penegak hukum, seperti TNI dan Polri, yang berpotensi melanggar Undang-Undang Nomor 5 Tahun 2015 serta Undang-Undang Nomor 23 Tahun 2014 tentang Pemerintah Daerah yang menyebutkan aparatur sipil negara tidak boleh berpolitik.

Terkait soal sengketa, Muhammad merujuk pada wilayah-wilayah yang rawan konflik, seperti konflik agama dan konflik rasial di Indonesia, misalnya Aceh dan Papua. Karena itu, Bawaslu meminta daerah-daerah yang rawan terhadap sengketa diperketat pengawasan dan pengamanannya agar konflik dapat diredam.

Kurang dari sebulan, Indonesia akan menyelenggarakan pilkada serentak. Ada 269 daerah yang mengikuti pilkada serentak, termasuk Kabupaten Blitar, Kabupaten Tasikmalaya, dan Kabupaten Timor Tengah Utara yang memiliki calon tunggal.

http://nasional.tempo.co/read/news/2015/11/12/078718259/ini-peta-pemicu-konflik-pilkada-serentak-temuan-bawaslu

 

Calon Wali Kota Pasuruan Ini Hanya Bermodal Rp 46 Juta  

Aktivis dari Koalisi Kawal Pilkada menggelar poster di Gedung KPU, Jakarta, 9 November 2015. Koalisi tersebut, membentuk website KawalPilkada.id guna mengajak masyarakat berpartisipasi aktif melakukan pengawalan dan pengawasan selama proses pelaksanaan Pilkada serentak pada 9 Desember mendatang. TEMPO/Imam Sukamto

TEMPO.CO, Surabaya – Pasangan calon Wali Kota dan Wakil Wali Kota Pasuruan, Yus Samsul Hadi Subakir-Agus Wibowo, menjadi calon kepala daerah dengan  kekayaan yang paling kecil dibanding calon lain.

“Harta kekayaan saya hanya Rp 46,9 juta, sedangkan calon wakil saya, Pak Agus, sebesar Rp 10.436.000. Kekayaan kami yang paling kecil di antara semua calon kepala daerah di Jawa Timur,” kata calon wali kota dari jalur perseorangan itu di sela-sela acara deklarasi dan pembekalan calon kepala daerah di Universitas Negeri Surabaya, Kamis, 12 November 2015.

Berdasarkan data laporan harta kekayaan penyelenggara negara, harta Yus antara lain berupa logam mulia yang pada 2015 ini harganya ditaksir Rp 2,4 juta. Selain itu, Yus memiliki giro dan setara kas lain sebesar Rp 50 juta. “Piutang saya sebesar Rp 5,5 juta,” kata pria kelahiran 1961 tersebut.

Adapun harta kekayaan Agus terdiri atas kendaraan bermotor roda dua buatan 2012 seharga Rp 12 juta serta piutang Rp 1.546.000, jadi total harta kekayaannya hanya Rp. 10.436.000. “Rumah saya masih mengontrak,” ucap Agus.

Tentang profesinya, Yus mengaku sehari-hari bekerja sebagai pengusaha dan kontraktor. Sedangkan Agus menggeluti dunia percetakan. “Tapi cuma percetakan kecil-kecilan,” ujar Agus.

Selain diikuti Yus-Agus, pilkada Kota Pasuruan diikuti dua pasangan lain adalah Setiyono-Raharto Teno Prasetyo dan Hasani-Moch. Yasin. PasanganSetiyono-Rahar diusung Partai Demokrasi Indonesia Perjuangan, Partai Golongan Karya, Partai Gerakan Indonesia Raya, Partai Amanat Nasional, dan Partai Persatuan Pembangunan. Sedangkan Hasani-Yasin diusung Partai Kebangkitan Bangsa, Partai Keadilan Sejahtera, Partai Hati Nurani Rakyat, dan Partai NasDem.

http://nasional.tempo.co/read/news/2015/11/12/078718244/calon-wali-kota-pasuruan-ini-hanya-bermodal-rp-46-juta

Bursa Gubernur DKI, Ridwan Kamil Belum Minat Melawan Ahok

Kamis, 12 November 2015 | 14:12 WIB

Gubernur DKI Jakarta, Basuki Tjahaja Purnama ataau Ahok (kiri) dan Wali Kota Bandung, Ridwan Kamil. TEMPO/Aditia Noviansyah

TEMPO.CO, Bandung – Wali Kota Bandung Ridwan Kamil mengatakan belum berminat untuk dicalonkan menjadi Gubernur DKI Jakarta. “Sampai hari ini saya belum berminat. Jadi menteri juga sama. Apa pun tawarannya, di hari ini jawaban saya mau konsentrasi di Bandung,” kata Ridwan Kamil di Balai Kota Bandung, Kamis, 12 November 2015.

Hasil survei Cyrus Network Research and Consulting mengatakan Ridwan Kamil memiliki peluang besar untuk menandingi Basuki Tjahaja Purnama alias Ahok dalam pertarungan pilkada DKI Jakarta 2017. Sebelum hasil tersebut keluar, menurut Ridwan Kamil, sudah banyak pinangan dari beragam partai untuk menggandeng Ridwan Kamil bertarung di pilkada DKI. “Banyak pembicaraan, lebih dari 12 institusi parpol, ngajak ini-itu,” ujarnya.

Ia mengatakan impiannya adalah kembali menjadi warga biasa setelah selesai menjadi Wali Kota Bandung nanti. Belum ada pikiran untuk melanjutkan karier di dunia politik yang lebih tinggi. “50 persen mimpi saya kembali lagi jadi warga biasa,” katanya.

Ridwan Kamil juga mengisyaratkan bahwa ada kemungkinan ia tidak mencalonkan diri lagi menjadi Wali Kota Bandung. “Tiba-tiba surprise, saya enggak nerus dua kali jangan kaget, karena setengah hati saya ingin jadi orang biasa,” ujarnya.

http://pilkada.tempo.co/read/news/2015/11/12/306718202/bursa-gubernur-dki-ridwan-kamil-belum-minat-melawan-ahok

GAYA HIDUP

Tips Menjalani Gaya Hidup Sehat Dengan Mudah

Andre Fillophy 2 years ago Gaya Hidup Sehat, Tips Hidup Sehat, Tips Kesehatan

Apa Anda pernah membayangkan untuk mencoba menjalani gaya hidup sehat? Pola hidup yang kaya akan aturan, baik dalam segi makanan, perilaku dan aktivitas yang dikerjakan setiap hari. Menjalani gaya hidup yang lebih sehat membutuhkan kemauan dan tekad yang besar akan kualitas hidupnya, bagaimana pun gaya hidup mencerminkan kesehatan dan kesuksesan pada diri seseorang. Menjadi seseorang dengan pribadi yang 100% menganut sistem hidup yang sehat tidak semudah itu diperoleh, harus rela untuk menahan diri dari berbagai godaan untuk berhenti bahkan tidak jarang godaan yang paling berat berasal dari lingkungan dekat, seperti keluarga. Untuk membantu Anda para pemula agar menjadi pribadi yang 100% menganut gaya hidup yang sehat, silahkan simak tips rahasianya di bawah ini:

Ubah pola pikiran. Sama halnya ketika Anda berupaya untuk menguasai bahasa Inggris atau sama halnya ketika Anda bertekad untuk menikah di usia 25, untuk bisa menjani hidup yang lebih sehat, Anda butuh tekad dan keyakinan yang sangat besar sehingga meskipun banyak tantangan dan rintangan membentang yang menghalangi jalan Anda memperoleh kesuksesan, Anda tidak akan mudah goyah dan tetap serius untuk menjalankan program gaya hidup yang lebih baik ini.

Tips gaya hidup sehat dengan olahraga dan mengkonsumsi buah-buahan

Kemampuan. Anda bisa mencoba untuk melakukan gerakan hidup sehat bila Anda memang memilki kemampuan untuk menjaninya. Setiap orang memilki batas kemampuan yang berbeda, antara pria dan wanita, mungkin kebanyakan pria lebih suka menghabiskan waktu olahraganya di gym, sedangkan wanita lebih suka menghabiskan waktu luangnya dengan berbelanja pakaian. Keduanya merupakan aktivitas yang berbeda, namun secara tidak langsung aktivitas belanja yang dilakukan oleh para wanita juga mengandung nilai olahraga, seperti ketika wanita berjalan kesana kemari hanya untuk mendapatkan pakaian yang diinginkannya.

Banyak masukan agar Anda bisa menjalankan gaya hidup sehat ini sebaik mungkin. Pilih seseorang yang memang ahli pada bidang ini atau pilih saja seseorang yang sudah berhasil menjani hidup dengan gaya hidup yang sehat. Masukan ini dibutuhkan agar Anda bisa memetik pelajaran dari pengalaman orang lain sehingga Anda ikut terpacu untuk melakukan dengan serius program menyehatkan kualitas kesehatan dan hidup Anda.

Makanan yang sehat menjadi pertimbangan yang sangat penting, tidak bisa disebut sebagai gaya hidup sehat jika pada kenyataannya Anda masih rutin mengkonsumsi makanan berkolestrol tinggi, minuman bersoda, mengandung banyak pemanis dan pewarna buatan dan segala unsur makanan yang tidak menyehatkan lainnya.

Oleh karena itu, sebelum Anda memutuskan mengubah pola hidup sebaiknya Anda mencoba terlebih dahulu untuk menghentikan konsumsi makanan dan minuman yang tidak sehat tersebut sehingga Anda tidak akan terkejut ketika dihadapkan secara langsung pada aturan gaya hidup sehat yang telah dianut sejak lama.

Buah dan sayuran, khususnya yang berwarna hijau merupakan jenis makanan sehat yang dianjurkan untuk Anda konsumsi secara teratur setiap hari, namun Anda masih diperkenankan untuk mengolah makanan dari bahan protein nabati dll.

http://www.duniainformasikesehatan.com/2014/04/tips-menjalani-gaya-hidup-sehat-dengan.html

7 Gaya Hidup Sehat Untuk Mencegah Kematian Dini

Gaya hidup sehat menjadi hal yang sangat sulit di praktekkan pada era sekarang ini. Aktivitas yang sangat padat, membuat sebagian orang melupakan bahwa kesehatan tubuh memiliki nilai yang teramat penting dalam hidup ini. Namun, jikalau kita berpikir jernih, maka gaya hidup sehat itu sebenarnya mudah kita lakukan di setiap detik hidup kita. Langkah awalnya yaitu dengan mengetahui gaya hidup sehat yang benar. Lalu bagaimanan gaya hidup sehat yang benar untuk mencegah kematian dini…???

Sahabat, tips kesehatan. Mungkin gaya hidup sehat yang benar di pikiran anda yaitu dengan memakan makanan sehat, rutin berolahraga pagi dan juga tidak merokok. Ya memang, ke tiga elemen tersebut merupakan beberapa kiat agar seseorang selalu sehat dan bugar di sepanjang hari. Namun, bukan itu saja, gaya hidup sehat yang dimaksud. Sebab masih ada berbagai tips gaya hidup sehat yang harus anda praktekkan dalam kehidupan sehari-hari. Tips kesehatan, Berikut ini gaya hidup sehat untuk mencegah kematian dini :

  1. Selalu aktif. Dalam hal ini usahakan untuk tidak sering duduk terlalu lama baik itu di depan komputer atau menonton acara televisi yang anda sukai. Anda dapat memulainya dengan mengurangi waktu untuk berlama-lama di depan komputer atau televisi dengan melakukan aktivitas lainnya yang membuat anda tetap bergerak dan aktif.
  2. Sinar matahari pagi sangat baik untuk kesehatan tubuh anda. Ini dikarenakan, dengan terpapar sinar matahari pagi, maka tubuh akan terpacu untuk memproduksi vitamin D. Vitamin D pada tubuh memiliki fungsi untuk menangkal penyakit jantung, aneka jenis kanker dan juga mencegah pengeroposan tulang dini.
  3. Menambah atau memperbanyak untuk mengkonsumsi buah-buahan dan sayur-sayuran sangat baik untuk menutrisi tubuh anda. Berbagai buah-buahan seperti jeruk, semangka, pepaya, apel dan lain-lain serta aneka sayuran seperti bayam, sawi dan lain-lain merupakan buah-buahan dan sayur-sayuran yang dimaksud.
  4. Rutin berolahraga merupakan salah satu faktor yang dapat membuat badan anda lebih sehat dan fit sepanjang hari. Anda dapat memulainya, dengan menyisihkan waktu pagi untuk berolahraga pagi seperti berjalan, berlari maupun bersepeda santai.
  5. Stop merokok. Ini merupakan salah gaya hidup sehat yang sulit di lakukan bagi mereka yang menjadikan kebiasaan merokok sebagai kebutuhan. Tapi tahukah anda, kandungan rokok sangat tidak bersahabat untuk kesehatan tubuh anda.
  6. Mulai hari anda dengan tertawa atau tersenyum. Karena aktivitas tersenyum maupun tertawa berdampak sangat baik untuk meningkatkan daya tahan tubuh serta kesehatan tubuh itu sendiri. Anda dapat memulainya dengan sering bercanda dengan teman atau menonton berbagai acara komedi di televisi.
  7. Usahakan untuk membatasi, mengurangi atau bahkan menghilangkan untuk mengkonsumsi aneka makanan siap saji. Dengan mulai memasak makanan sendiri, anda akan lebih mengetahui, apakah makanan yang anda masak baik untuk kesehatan tubuh anda atau malah berdampak buruk bagi kesehatan tubuh anda.

http://intips-kesehatan.blogspot.co.id/2013/07/gaya-hidup-sehat-cegah-kematian-dini.html

 

 

Manfaat Dashyat Mandi Air Dingin Di Pagi Hari

Sahabat, tips kesehatan. Duingiiiiinnnn…….bangeeeettttt……, mungkin itulah yang pertama kita rasakan saat membasahi tubuh dengan air dingin di pagi hari. Setelah terbangun dari tidur panjang dimalam hari, mandi pagi merupakan aktivitas yang sebaiknya dilakukan oleh setiap orang yang sehat. Hal ini mungkin sudah terbiasa dilakukan oleh sebagian orang, tapi tidak sedikit dari kita yang meninggalkan rutinitas mandi di pagi hari dengan berbagai alasan yang mengiringinya. Mandi air dingin dipagi hari ternyata memiliki manfaaat luar biasa untuk kesehatan tubuh setiap orang. Lalu, apa saja manfaat dahsyat mandi air dingin di pagi hari tersebut….???

Ada tiga gaya hidup sehat yang dapat dilakukan setiap orang sebelum jam 6 pagi yaitu berolahraga pagi, minum air putih serta mandi dengan air dingin. Khusus untuk mandi pagi merupakan salah satu aktivitas yang begitu sulit dilakukan oleh sebagian orang. Dinginnya air di pagi hari akan membuat rasa malas untuk memulai aktivitas mandi pagi tersebut. Tapi ada kabar baik bagi anda yang mulai membiasakan diri dengan mandi air dingin di pagi hari. Tips kesehatan sangat antusias menguraikan berbagai manfaat yang akan didapatkan dari mandi air dingin di pagi hari. Berikut ini 5 manfaat dahsyat mandi air dingin di pagi hari :

  1. Meningkatkan Sistem Daya Tahan Tubuh Anda. Mandi air dingin dipagi hari akan merangsang tubuh anda untuk memproduksi sel darah putih lebih banyak. Sel darah putih inilah yang berperan menangkal serangan berbagai virus, kuman dan bakteri yang bisa membahayakan kesehatan tubuh anda.
  2. Melancarkan Sirkulasi Darah Anda. Dengan lancarnya aliran darah keseluruh tubuh maka seluruh organ tubuh pun juga tetap terjaga dan terpelihara kesehatannya. Disamping itu, manfaat lainnya yaitu mempercepat proses penyembuhan, serta menguragi berbagai jenis peradangan pada tubuh.
  3. Mengurangi Tingkat Stres Pada Pikiran Anda. Dengan mulai membasahi tubuh dengan air dingin dipagi hari akan memastikan seluruh bagian tubuh mendapatkan pasokan oksigen dalam jumlah yang cukup. Kebutuhan oksigen pada organ yang terpenuhi akan mampu mengurangi tingkat stres yang dialami.
  4. Meningkatkan Kesuburan Kaum Pria. Mandi air dingin dipagi hari sangat bermanfaat bagi para pria. Ini dikarenakan, dengan mulai mandi air dingin dipagi hari akan merangsang sekaligus memicu produksi salah satu hormon pada pria yaitu testoteron.
  5. Meningkatkan Kesehatan Rambut Di Kepala Anda. Mandi air dingin dipagi hari ternyata juga mampu menjaga dan meningkatkan kesehatan rambut atau mahkota kepala anda. Ini dikarenakan, dengan mulai mandi air dingi dpagi hari akan semakin memperkuat akar rambut yang membuat rambut tidak mudah rontok maupun kusam.

http://intips-kesehatan.blogspot.co.id/2014/03/manfaat-mandi-air-dingin-pagi-hari.html

Inilah Bahaya Tidur Dengan Lampu Menyala

Tidur merupakan aktivitas rutin yang dilakukan oleh setiap orang di berbagai lapisan usia. Banyak sekali manfaat yang dapat kita peroleh dari tidur khususnya di waktu malam hari. Beberapa manfaat tidur malam yaitu dapat mengistirahatkan fisik dan pikiran setelah seharian beraktivitas yang relatif padat. Ada sebagian orang yang suka tidur malam dengan lampu menyala. Namun ada pula yang tidur malam dengan tanpa cahaya dari lampu. Lalu, adakah bahaya dari tidur malam dengan lampu menyala bagi kesehatan tubuh tersebut…???

Sahabat, tips kesehatan. Tidur di malam hari dengan lampu menyala ternyata memiliki dampak yang tidak baik untuk kesehatan tubuh. Mungkin tak pernah anda bayangkan sebelumnya, terbiasa tidur malam dengan kondisi lampu menyala akan meningkatkan resiko penyakit kanker, kardiovaskular, gangguan sistem metabolisme dan bahkan mungkin diabetes. Artikel kali ini akan mengetengahkan sebuah bahasan tentang berbagai bahaya dari tidur dengan lampu menyala khususnya di malam hari, Berikut ini bahaya dari tidur dengan lampu menyala dimalam hari :

  1. Tidur Malam Dengan Lampu Menyala Menghambat Produksi Melatonin. Hormon melatonin berperan dalam mencegah dan menghambat perkembangan sel kanker pada tubuh. Sehingga sangat dianjurkan untuk mematikan lampu saat tidur malam agar hormon melatonin tersebut dapat berproduksi lebih maksimal saat anda tertidur pulas.
  2. Tidur Malam Dengan Lampu Menyala Sangat Tidak Baik Pada Wanita. Ini dikarenakan, paparan cahaya lampu dimalam hari dapat meningkatkan resiko terkena penyakit kanker payudara dan kanker usus besar bagi kaum wanita. Jadi, para ibu dan remaja putri sebaiknya memulai membiasakan diri tidur malam dengan tanpa nyala lampu.
  3. Berbagai Efek Buruk Juga Beresiko Mengancam Kesehatan Tubuh Anda. Ini dikarenakan, tidak membiasakan diri tidur malam dengan lampu mati akan berakibat pada berbagai gangguan tidur, penyakit kardiovaskular, gangguan pada sistem metabolisme tubuh serta kemungkinan besar terkena penyakit diabetes yang bisa mengancam jiwa anda.

http://intips-kesehatan.blogspot.co.id/2013/02/bahaya-tidur-lampu-nyala.html

Inilah 7 Buah Super Untuk Kesehatan Anda

Kesehatan merupakan hal yang terpenting yang harus kita perhatikan secara lebih serius. Berbagai makanan yang kita konsumsi tiap hari harus kita pikirkan dampaknya bagi kesehatan tubuh anda. Banyak makanan tersebut mungkin mengandung bahan-bahan yang bisa membahayakan bagi kesehatan organ-organ tubuh anda. Sehingga dari sekarang, mulailah dengan memakan-makanan yang sehat bagi tubuh anda, salah satunya buah-buahan. Lalu, buah apa saja yang memiliki manfaat besar bagi kesehatan tubuh anda…..?????

Sahabat, tips kesehatan. ternyata sayur-sayuran dan buah-buahan yang ada di sekeliling kita mengandung bahan-bahan yang sangat bermanfaat bagi kesehatan tubuh anda. Oleh karena itulah, tips kesehatan kali ini akan mengetengahkan sebuah artikel yang berhubungan dengan buah -buahan yang bermanfaat untuk kesehatan tubuh anda. Berikut ini 7 buah super untuk kesehatan tubuh anda :

  1. Buah-buahan dari keluarga berry seperti stroberi, blueberry, blackberry, dan rasberry merupakan buah-buahan yang sangat bermanfaat bagi kesehatan anda. Buah-buahan tersebut banyak mengandung tingkat anthocyanin yang tinggi. Anthocyanin berfungsi untuk melindungi sel-sel pada tubuh anda dari berbagai radikal bebas yang sangat berbahaya bagi tubuh anda, mengurangi tekanan darah anda secara significan, mempertajam penglihatan mata, menekan penyebaran sel kanker pada tubuh anda juga mampu mencegah berbagai penyakit seperti kanker, jantung, dan diabetes.
  2. Buah super yang kedua yaitu apel. Buah apel ternyata memiliki peranan yang sangat besar bagi kesehatan tubuh anda. Buah apel banyak mengandung flavanoid yang berfungsi untuk menurunkan resiko penyakit jantung. Bagi anda yang tidak ingin memiliki tekanan darah tinggi dan kadar gula darah tinggi,  mengkonsumsi buah apel merupakan solusi terbaik yang bisa anda lakukan untuk kesehatan tubuh anda.
  3. Buah super yang ketiga yaitu grapefruit. Grapefruit merupakan salah satu varian dari buah jeruk. Buah ini banyak mengandung vitamin C dan lycopen. Fungsi lycopen yaitu untuk menurunkan resiko penyakit jantung, menekan pertumbuhan tumor. Grapefruit juga mengandung fitonutrien yang berfungsi untuk melawan berbagai kanker yang menyerang tubuh anda seperti kanker mulut, kulit, paru-paru, payudara, perut dan usus.
  4. Buah super berikutnya yaitu pepaya. Buah pepaya ternyata banyak mengandung antioksidan, vitamin E, C  dan papain. Antioksidan, vitamin E, dan C tersebut sangat baik untuk kesehatan jantung anda. Sedangkan papain bermanfaat untuk membantu menurunkan peradangan dalam tubuh anda.
  5. Buah super yang kelima yaitu buah kiwi. Buah kiwi banyak mengandung vitamin C yang dapat mencukupi kebutuhan vitamin C harian kita. Buah kiwi juga berperan penting dalam mencegah penyakit kanker. Dengan memakan 2 sampai 3 buah kiwi perhari dapat membantu mencegah penyakit kanker. Manfaat lain buah kiwi yaitu mengurangi pembekuan darah, menghindarkan dari penyakit stroke.
  6. Buah super yang keenam yaitu semangka. Buah semangka ternyata banyak mengandung vitamin, lycopen B serta asam amino. Vitamin dan lycopen B berfungsi untuk produksi energi bagi tubuh kita. Asam amino berfungsi untuk menjaga kesehatan jantung anda dan memperkuat sistem kekebalan tubuh.
  7. Buah super yang ketujuh yaitu pisang. Buah pisang ternyata banyak mengandung potasium yang bermanfaat untuk membantu menurunkan tekanan darah serta melindungi jantung anda. Buah pisang juga mengandung fructooligosaccharide, yang merupakan prebiotik yang dapat membantu meningkatkan kemampuan tubuh anda untuk menyerap berbagai nutrisi yang diperlukan tubuh termasuk kalsium serta membantu bakteri baik di saluran pencernaan dalam proses pencernaan makanan pada tubuh anda.

http://intips-kesehatan.blogspot.co.id/2013/01/buah-sehat-tubuh.html

Makanan Terbaik Untuk Menu Sarapan Pagi Anda

Sahabat, tips kesehatan. Makan di pagi hari atau sarapan merupakan salah satu hal terpenting untuk memulai berbagai aktivitas maupun rutinitas harian setiap orang. Ini dikarenakan, tubuh membutuhkan pasokan energi dari berbagai nutrisi dan vitamin yang terkandung dalam menu sarapan pagi anda. Memilih jenis makanan yang tepat untuk menu sarapan pagi merupakan suatu hal yang teramat penting. Berikut ini 7 makanan terbaik untuk menu sarapan pagi anda :

  1. Buah Pisang. Buah ini ternyata sangat dianjurkan untuk dijadikan menu sarapan pagi anda. Selain teksturnya yang lembut serta rasanya yang manis, pisang mengandung karbohidrat yang cukup yang membuat perut dalam keadaan kenyang yang lebih lama. Disamping itu, buah ini mengandung potassium yang berperan menurunkan tekanan darah secara alami.
  2. Telur. Inilah makanan yang juga cocok dikonsumsi saat sarapan pagi. Selain mudah dalam menghidangkannya, telur merupakan salah satu makanan yang kaya protein serta mengandung vitamin D.
  3. Buah Semangka. Inilah salah buah yang memiliki kandungan air yang cukup melimpah. Sehingga sangat cocok dikonsumsi dipagi hari yang dapat menckupi kebutuhan cairan yang dibutuhkan oleh tubuh anda. Disamping itu, buah semangka kaya akan kandungan likopen. Likopen ini mampu menyehatkan organ mata dan jantung serta menangkal penyakit kanker.
  4. Buah Stroberi. Buah ini juga cocok untuk menu sarapan di pagi hari. Ini dikarenakan, stroberi mengaudung sumber antioksidan, vitamin C, asam folat serta sejumlah serat. Stroberi juga berperan penting untuk meningkatkan kesehatan jantung anda.
  5. Secangkir Kopi tanpa gula. Inilah salah satu minuman nikmat yang juga sesuai untuk sarapan di pagi hari. Minum kopi dalam jumlah yang wajar ternyata dapat menurunkan resiko terkena penyakit diabetes serta kanker prostat. Ini dikarenakan, kopi mengandung kafein serta antioksidan yang dibutuhkan oleh tubuh untuk menangkal penyakit tersebut.
  6. Secangkir Teh Hangat. Jika anda tidak suka minum kopi, maka teh juga bisa dijadikan alternatif terbaik untuk minuman di pagi hari. Ini dikarenakan, teh mengandung sumber antioksidan yang berperan meningkatkan sistem kekebalan tubuh anda.
  7. Buah Melon. Kandungan air yang melimpah dalam melon mampu mencukupi kebuutuhan cairan tubuh dipagi hari. Selain itu, melon juga mengaudung vitamin A dan C untuk menutrisi tubuh anda. Jadi, tidak salahnya menghidangkan buah melon di menu sarapan pagi anda.

http://intips-kesehatan.blogspot.co.id/2014/02/makanan-terbaik-sarapan-kesehatan.html

Kebiasaan Calon Orang-Orang Sukses

4. Kamu Tidak Akan Menghabiskan Waktumu Pada Hal Yang Diluar Kontrolmu

Daripada menghabiskan energi untuk mengeluh masalah yang berada di luar kuasamu, kamu lebih memilih untuk berfokus pada hal – hal yang bisa kamu lakukan. Kamu sadar hal terbaik yang bisa kamu lakukan adalah melakukan hal yang bisa kamu lakukan sebaik mungkin, tak terkecuali dengan menjaga sikapmu sendiri.

5. Kamu Sadar Kamu Tak Akan Bisa Menyenangkan Semua Orang

Kamu sadar kamu tidak akan pernah dapat menyenangkan setiap orang, oleh karena itu kamu tidak akan repot – repot untuk menyenangkan semua orang. Dan bukanlah menjadi masalah buatmu ketika ada yang kecewa kepadamu, sepanjang kamu telah melakukan yang terbaik yang kamu bisa lakukan.

http://www.hipwee.com/sukses/13/

4 POLA PIKIR ORANG SUKSES

orang sukses punya pola pikir…, atau cara berfikir yang berbeda dengan pola pikir kebanyakan orang yang tidak sukses. Apa saja itu ?

Banyak Buku Biography yang menceritakan tentang bagaimana perjalan hidup, dan karir bisnis dari orang-rang sukses yang ada di dunia ini – dan tentunya semua pola pikir dari orang-orang sukses tersebut dapat dijadikan tolok ukur – dan juga menjadi Inspirasi yang sangat berharga bagi setiap orang lain-nya yang ada di muka bumi ini, agar tentunya, setiap orang lain juga berhak dapat meraih rahasia dari “kesuksesan” tadi – sebelum action, dalam mencapai sukses tentunya, harus dimulai dari merubah kebiasan konsep pola pikir ( mind set ) yang lama, menjadi lebih baru, dan lebih terbuka dan tanggap terhadap setiap segala hal yang sedang terjadi – dalam memaknai setiap hal, dengan lebih cermat sehingga dapat menumukan solusi baru dalam melangkah mencapai menuju anak tangga kesuksesan tersebut. dan apa saja yag menjadi pola pikir orang sukses..

Sukses tidak ditentukan oleh nasib

Nasib seseorang sangat dipengaruhi oleh semua tindakan yang dilakukannya. Tentu saja tindakan-tindakan itu dimotori oleh pola pikirnya. Menjadi orang sukses dan kaya atau menjadi orang gagal dan miskin bukanlah karena nasib, melainkan karena pola pikir dan tindakannya yang berakibat pada keadaan sekarang. Untuk menjadi sukses dan kaya, orang harus berkemauan keras dan berusaha secara konsisten dari waktu ke waktu. Untuk mencapai sukses yang lebih besar, Kita sewajarnya harus meniru cara berpikir dan cara kerja orang sukses, yaitu mulai dengan sukses-sukses kecil setiap waktu dan dilandasi banyak kemampuan yang akan mempermudah jalan menunju sukses dan kaya.

Sukses adalah suatu kebiasaan

Orang sukses menjadi sukses sebagai suatu kebiasaan yang harus dijalani. Baginya, sukses bukanlah suatu destinasi (tujuan akhir), melainkan suatu proses perjalanan. Setiap keputusan dan tindakan jitu yang Anda lakukan sudah merupakan sukses. Dalam perjalanan hidup sehari-hari, Anda akan banyak mendapatkan sukses-sukses yang terkumpul menjadi sukses besar. Sukses besar tidak dihasilkan hanya dari satu keputusan dan satu tindakan saja, melainkan merupakan akumulasi dari setiap sukses yang Anda peroleh sehari-hari. Dengan demikian, sukses adalah suatu kebiasaaan positif di dalam hidup seseorang.

Kegagalan adalah bagian dari sukses

Orang sukses memandang kegagalan yang dialaminya sebagai bagian dari kesuksesan, sehingga tidak seharusnya membuatnya jera dan menghalangi peluang sukses di masa yang akan datang. Kegagalan hanyalah suatu kesuksesan yang tertunda. Justru dengan suatu kegagalan yang dialaminya ia akan bertambah pengalaman, aman, dan bertambah matang. Ia bertambah gigih dan berhasil. Sebaliknya, orang gagal akan memadang pengalaman ke gagalnya sebagai suatu “trauma” yang membuatnya menjadi jera dan takut untuk memulai lagi.

Orang sukses selalu berorentasi kepada solusi

Dalam hidup, orang yang tidak akan pernah lepas dari masalah. Orang sukses meyakini bahwa di balik suatu masalah yang datang pasti ada peluang dan solusinya. Pola pikir seperti inilah yang membuatnya tahan uji dan tak mudah menyetah. Sebaliknya, orang gagal akan memandang adanya masalah di setiap solusi yang dibuat. Akibatnya, ia cenderung pesimistis dalam menanggapi setiap peluang,. Ia lebih memilih status quo yang dirasa paling aman baginya. Orang gagal biasanya takut mencoba. Baginya lebih baik berdiam diri daripada mencoba dan gagal.

http://firman-telaumbanua-famika-pasca11.web.unair.ac.id/artikel_detail-59051-Umum-4%20%28empat%29%20POLA%20PIKIR%20ORANG%20SUKSES.html

Asuransi adalah Gaya Hidup Manusia Modern

Asuransi Adalah Gaya Hidup Masyarakat Modern

Asuransi adalah gaya hidup manusia modern. Hal ini mengandung arti bahwa di masa modern manusia sudah menganggap pemilikan polis asuransi sebagai bagian dari kelengkapan hidup yang harus ada, dan dipercayai sebagai solusi terbaik untuk mengatasi berbagai persoalan, mulai dari jaminan biaya pendidikan, kesehatan, jaminan properti, kendaraan, pita suara, kaki atlet dan lain-lain. Di masa kini, semua perlindungan atas segala macam resiko yang mungkin terjadi dalam hidup bisa diasuransikan.

http://kabarimbo.com/asuransi-adalah-gaya-hidup-manusia-modern/

Gaya Hidup Islami Dan Gaya Hidup Jahili

Gaya Hidup Islami Dan Gaya Hidup Jahili

Oleh: Surahmat

اَلْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِيْنَ. وَأَشْهَدُ أَنْ لاَ إِلَهَ إِلاَّ اللهُ وَحْدَهُ لاَ شَرِيْكَ لَهُ، وَأَشْهَدُ أَنَّ مُحَمَّدًا عَبْدُهُ وَرَسُوْلُهُ. اَللَّهُمَّ صَلِّ وَسَلِّمْ وَبَارِكْ عَلَى مُحَمَّدٍ عَبْدِكَ وَرَسُوْلِكَ، اَلنَّبِيِّ اْلأُمِّيِّ وَعَلَى آلِهِ وَصَحْبِهِ أَجْمَعِيْنَ. أَمَّا بَعْدُ؛

فَيَا أَيُّهَا الْمُسْلِمُوْنَ، اِتَّقُوا اللهَ مَا اسْتَطَعْتُمْ، وَاتَّقُوا اللهَ لَعَلَّكُمْ تُفْلِحُوْنَ. قَالَ اللهُ تَعَالَى فِي الْقُرْآنِ الْكَرِيْمِ،: {

Hadirin jamaah Jum’at yang berbahagia rahimakumullah

Ada dua hal yang umumnya dicari oleh manusia dalam hidup ini. Yang pertama ialah kebaikan (al-khair), dan yang kedua ialah kebahagiaan (as-sa’adah). Hanya saja masing-masing orang mempunyai pandangan yang berbeda ketika memahami hakikat keduanya. Perbedaan inilah yang mendasari munculnya bermacam ragam gaya hidup manusia.

Dalam pandangan Islam gaya hidup tersebut dapat dikelompokkan menjadi dua golongan, yaitu: 1) gaya hidup Islami, dan 2) gaya hidup jahili.

Gaya hidup Islami mempunyai landasan yang mutlak dan kuat, yaitu Tauhid. Inilah gaya hidup orang yang beriman. Adapun gaya hidup jahili, landasannya bersifat relatif dan rapuh, yaitu syirik. Inilah gaya hidup orang kafir.

Setiap Muslim sudah menjadi keharusan baginya untuk memilih gaya hidup Islami dalam menjalani hidup dan kehidupan-nya. Hal ini sejalan dengan firman Allah berikut ini:

Artinya: Katakanlah: “Inilah jalan (agama)ku, aku dan orang-orang yang mengikutiku mengajak (kamu) kepada Allah dengan hujjah yang nyata, Maha Suci Allah, dan aku tiada termasuk orang-orang yang musyrik”. (QS. Yusuf: 108).

Berdasarkan ayat tersebut jelaslah bahwa bergaya hidup Islami hukumnya wajib atas setiap Muslim, dan gaya hidup jahili adalah haram baginya. Hanya saja dalam kenyataan justru membuat kita sangat prihatin dan sangat menyesal, sebab justru gaya hidup jahili (yang diharamkan) itulah yang melingkupi sebagian besar umat Islam. Fenomena ini persis seperti yang pernah disinyalir oleh Rasulullah Shallallaahu alaihi wa Salam . Beliau bersabda:

لاَ تَقُوْمُ السَّاعَةُ حَتَّى تَأْخُذَ أُمَّتِيْ بِأَخْذِ الْقُرُوْنِ قَبْلَهَا شِبْرًا بِشِبْرٍ وَذِرَاعًا بِذِرَاعٍ. فَقِيْلَ: يَا رَسُوْلَ اللهِ، كَفَارِسَ وَالرُّوْمِ. فَقَالَ: وَمَنِ النَّاسُ إِلاَّ أُولَـئِكَ. (رواه البخاري عن أبي هريرة، صحيح).

Artinya: “Tidak akan terjadi kiamat sebelum umatku mengikuti jejak umat beberapa abad sebelumnya, sejengkal demi sejengkal dan sehasta demi sehasta”. Ada orang yang bertanya, “Ya Rasulullah, mengikuti orang Persia dan Romawi?” Jawab Beliau, “Siapa lagi kalau bukan mereka?” (HR. Al-Bukhari dari Abu Hurairah z, shahih).

لَتَتَّبِعَنَّ سَنَنَ مَنْ كَانَ قَبْلَكُمْ شِبْرًا بِشِبْرٍ وَذِرَاعًا بِذِرَاعٍ حَتَّى لَوْ دَخَلُوْا جُحْرَ ضَبٍّ تَبِعْتُمُوْهُمْ. قُلْنَا: يَا رَسُوْلَ اللهِ، اَلْيَهُوْدُ وَالنَّصَارَى. قَالَ: فَمَنْ. (رواه البخاري عن أبي سعيد الخدري، صحيح).

Artinya: “Sesungguhnya kamu akan mengikuti jejak orang-orang yang sebelum kamu, sejengkal demi sejengkal dan sehasta demi sehasta, bahkan kalau mereka masuk ke lubang biawak, niscaya kamu mengikuti mereka”. Kami bertanya,”Ya Rasulullah, orang Yahudi dan Nasrani?” Jawab Nabi, “Siapa lagi?” (HR. Al-Bukhari dari Abu Sa’id Al-Khudri z, shahih).

Hadirin jamaah Jum’at rahimakumullah.

Hadits tersebut menggambarkan suatu zaman di mana sebagian besar umat Islam telah kehilangan kepribadian Islamnya karena jiwa mere-ka telah terisi oleh jenis kepribadian yang lain. Mereka kehilangan gaya hidup yang hakiki karena telah mengadopsi gaya hidup jenis lain. Kiranya tak ada kehilangan yang patut ditangisi selain dari kehilangan kepribadian dan gaya hidup Islami. Sebab apalah artinya mengaku sebagai orang Islam kalau gaya hidup tak lagi Islami malah persis seperti orang kafir? Inilah bencana kepribadian yang paling besar.

Rasulullah Shallallaahu alaihi wa Salam bersabda:

مَنْ تَشَبَّهَ بِقَوْمٍ فَهُوَ مِنْهُمْ. (رواه أبو داود وأحمد عن ابن عباس).

Artinya: “Barangsiapa menyerupai suatu kaum, maka ia termasuk golongan mereka” (HR. Abu Dawud dan Ahmad, dari Ibnu Abbas Radhiallaahu anhu hasan).

Menurut hadits tersebut orang yang gaya hidupnya menyerupai umat yang lain (tasyabbuh) hakikatnya telah menjadi seperti mereka. Lalu dalam hal apakah tasyabbuh itu?

Al-Munawi berkata: “Menyerupai suatu kaum artinya secara lahir berpakaian seperti pakaian mereka, berlaku/ berbuat mengikuti gaya mereka dalam pakaian dan adat istiadat mereka”.

Tentu saja lingkup pembicaraan tentang tasyabbuh itu masih cukup luas, namun dalam kesempatan yang singkat ini, tetap mewajibkan diri kita agar memprihatinkan kondisi umat kita saat ini.

Hadirin jamaah Jum’at rahimakumullah

Satu di antara berbagai bentuk tasyabbuh yang sudah membudaya dan mengakar di masyarakat kita adalah pakaian Muslimah. Mungkin kita boleh bersenang hati bila melihat berbagai mode busana Muslimah telah mulai bersaing dengan mode-mode busana jahiliyah. Hanya saja masih sering kita menjumpai busana Muslimah yang tidak memenuhi standar seperti yang dikehendaki syari’at. Busana-busana itu masih mengadopsi mode ekspose aurat sebagai ciri pakaian jahiliyah. Adapun yang lebih memprihatinkan lagi adalah busana wanita kita pada umumnya, yang mayoritas beragama Islam ini, nyaris tak kita jumpai mode pakaian umum tersebut yang tidak mengekspose aurat. Kalau tidak memper-tontonkan aurat karena terbuka, maka ekspose itu dengan menonjolkan keketatan pakaian. Bahkan malah ada yang lengkap dengan dua bentuk itu; mempertontonkan dan menonjolkan aurat. Belum lagi kejahilan ini secara otomatis dilengkapi dengan tingkah laku yang -kata mereka- selaras dengan mode pakaian itu. Na’udzubillahi min dzalik.

Hadirin, marilah kita takut pada ancaman akhirat dalam masalah ini. Tentu kita tidak ingin ada dari keluarga kita yang disiksa di Neraka. Ingatlah, Rasulullah Shallallaahu alaihi wa Salam pernah bersabda:

صِنْفَانِ مِنْ أَهْلِ النَّارِ لَمْ أَرَهُمَا؛ قَوْمٌ مَعَهُمْ سِيَاطٌ كَأَذْنَابِ الْبَقَرِ يَضْرِبُوْنَ بِهَا النَّاسَ، وَنِسَاءٌ كَاسِيَاتٌ عَارِيَاتٌ مُمِيْلاَتٌ مَائِلاَتٌ رُؤُوْسُهُنَّ كَأَسْنِمَةِ الْبُخْتِ الْمَائِلَةِ لاَ يَدْخُلْنَ الْجَنَّةَ وَلاَ يَجِدْنَ رِيْحَهَا، وَإِنَّ رِيْحَهَا لَتُوْجَدُ مِنْ مَسِيْرَةِ كَذَا وَكَذَا. (رواه مسلم عن أبي هريرة، صحيح).

Artinya: “Dua golongan ahli Neraka yang aku belum melihat mereka (di masaku ini) yaitu suatu kaum yang membawa cambuk seperti ekor sapi, mereka memukuli manusia dengan cambuk itu. (Yang kedua ialah) kaum wanita yang berpakaian (tapi kenyataan-nya) telanjang (karena mengekspose aurat), jalannya berlenggak-lenggok (berpenampilan menggoda), kepala mereka seolah-olah punuk unta yang bergoyang. Mereka itu tak akan masuk Surga bahkan tak mendapatkan baunya, padahal baunya Surga itu tercium dari jarak sedemikian jauh”. (HR. Muslim, dari Abu Hurairah z, shahih).

Jika tasyabbuh dari aspek busana wanita saja sudah sangat memporak-porandakan kepribadian umat, maka tidak ada alasan bagi kita untuk tinggal diam. Sebab di luar sana sudah nyaris seluruh aspek kehidupan umat bertasyabbuh kepada orang-orang kafir yang jelas-jelas bergaya hidup jahili.

Nah, hadirin rahimakumullah

Sebagai penutup khutbah ini saya mengajak kepada kita semua untuk memperhatikan, merenungi dan mentaati sebuah firman Allah yang artinya:

“Hai orang-orang yang beriman, peliharalah dirimu dan keluargamu dari api Neraka yang bahan bakarnya adalah manusia dan batu; penjaganya malaikat-malaikat yang kasar, yang keras, yang tidak mendurhakai Allah terhadap apa yang diperintahkanNya kepada mereka dan selalu mengerjakan apa yang diperintahkan”. (QS. At-Tahrim: 6).