udin

Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
TxtNama.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
Unload Me
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
JUR = “Tehnik Komputer”
ElseIf S = “2” Then
JUR = “Manajemen Informatika”
ElseIf S = “3” Then
JUR = “Tehnik Informatika”
ElseIf S = “4” Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TxtJur.Text = JUR
S = Mid(TxtNpm.Text, 4, 2)
If S = “00” Then
PS = “Strata Satu”
ElseIf S = “01” Then
PS = “Diploma Tiga”
ElseIf S = “02” Then
PS = “Diploma Empat”
ElseIf S = “03” Then
PS = “Diploma Dua”
End If
TxtPs.Text = PS
TxtNu.Text = Right(TxtNpm.Text, 3)
End Sub

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

Advertisements

Tugas VB 3/1

 

Private Sub CboAMDNPM_Click()

Dim nama, jurusan As String

Select Case CboAMDNPM.Text

Case “12100376″

nama = “Ahmad Kaharudin”

jurusan = “Manajemen Informatika”

Case “12100564″

nama = “JUNAIDI”

jurusan = “Sistem Informasi”

Case “12100456″

nama = “SUGIONO”

jurusan = “Sistem Informasi”

Case “12100856″

nama = “SUWANTO”

jurusan = “Manajemen Informatika”

End Select

TxtAMDNAMA.Text = nama

TxtAMDJUR.Text = jurusan

TxtAMDQUIS.SetFocus

End Sub

 

Private Sub CmdAMDBATAL_Click()

CboAMDNPM.SetFocus

CboAMDNPM.Text = “”

TxtAMDNAMA.Text = “”

TxtAMDJUR.Text = “”

TxtAMDQUIS.Text = “”

TxtAMDTUGAS.Text = “”

TxtAMDUTS.Text = “”

TxtKRSUAS.Text = “”

TxtAMDAKHIR.Text = “”

TxtAMDHURUF.Text = “”

End Sub

 

Private Sub CmdAMDPROSES_Click()

Dim Nakhir As Integer

Dim Mutu As String

QUIS = Val(TxtAMDQUIS.Text)

TGS = Val(TxtAMDTUGAS.Text)

UTS = Val(TxtAMDUTS.Text)

UAS = Val(TxtAMDUAS.Text)

Nakhir = (QUIS + TGS + UTS + UAS) / 4

TxtAMDAKHIR.Text = Nakhir

Select Case TxtAMDAKHIR.Text

Case Is > 80

Mutu = “A”

Case Is > 70

Mutu = “B”

Case Is > 60

Mutu = “C”

Case Is > 50

Mutu = “D”

Case Is < 50

Mutu = “E”

End Select

TxtAMDHURUF.Text = Mutu

End Sub

 

Private Sub TxtAMDQUIS_KeyPress(keyascii As Integer)

If keyascii = 13 Then

TxtAMDTUGAS.SetFocus

End If

End Sub

 

Private Sub TxtAMDTUGAS_kEYPRESS(keyascii As Integer)

If keyascii = 13 Then

TxtAMDUTS.SetFocus

End If

End Sub

 

Private Sub TxtAMDUTS_Keypress(keyascii As Integer)

If keyascii = 13 Then

TxtAMDUAS.SetFocus

End If

End Sub

 

Private Sub CmdAMDEXIT_Click()

End

End Sub

 

Private Sub Form_Load()

CboAMDNPM.AddItem “12201103″

CboAMDNPM.AddItem “12101222″

CboAMDNPM.AddItem “12101020″

CboAMDNPM.AddItem “12201105″

End Sub

Tugas VB 3/2

 

Private Sub ChkAMDITALIC_Click()

LblAMDHASIL.FontItalic = ChkAMDITALIC.Value

End Sub

 

Private Sub ChkAMDTEBAL_Click()

LblAMDHASIL.FontBold = ChkAMDTEBAL.Value

End Sub

 

Private Sub ChkAMDUNDER_Click()

LblAMDHASIL.FontUnderline = ChkAMDUNDER.Value

End Sub

 

Private Sub CmdAMDEXIT_Click()

End

End Sub

 

Private Sub CmdAMDOK_Click()

LblAMDHASIL.Caption = TxtAMDOPINI.Text

End Sub

 

Private Sub OptAMDGRN_Click()

LblAMDHASIL.ForeColor = vbGreen

End Sub

 

Private Sub OptAMDRED_Click()

LblAMDHASIL.ForeColor = vbRed

End Sub

T

Tugas VB 3/3

 

Private Sub CboAMDLEV_Click()

Dim GP, PPH, TUNJANGAN, JUMLAH As Variant

Select Case CboAMDLEV.Text

Case “A”

GP = 4000000

TUNJANGAN = 400000

Case “B”

GP = 3000000

TUNJANGAN = 300000

Case “C”

GP = 2000000

TUNJANGAN = 200000

Case “D”

GP = 1000000

TUNJANGAN = 100000

Case Else

GP = 0

TUNJANGAN = 0

End Select

JUMLAH = GP + TUNJANGAN

PPH = JUMLAH * 0.1

TxtAMDGP.Text = GP

TxtKRSTUNJ.Text = TUNJANGAN

TxtAMDPPH = PPH

TxtAMDTERIMA.Text = JUMLAH – PPH

End Sub

 

Private Sub CmdAMDBTL_Click()

kosong

End Sub

 

Private Sub CmdAMDEXIT_Click()

Unload Me

End Sub

 

Private Sub CmdAMDULANG_Click()

kosong

End Sub

 

Private Sub TxtAMDNIK_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtAMDNAMA.SetFocus

End If

End Sub

Private Sub Form_load()

CboAMDLEV.AddItem “A”

CboAMDLEV.AddItem “B”

CboAMDLEV.AddItem “C”

CboAMDLEV.AddItem “D”

End Sub

Public Sub kosong()

TxtAMD.SetFocus

TxtAMDNIK.Text = “”

TxtKRSNAMA.Text = “”

CboAMDLEV.Text = “”

TxtAMDGP.Text = “”

TxtAMDTUNJ.Text = “”

TxtAMDPPH.Text = “”

TxtAMDTERIMA.Text = “”

End Sub

 

Tugas VB 3/4

 

Private Sub CmdAMDBTL_Click()

TxtAMDNAMA.SetFocus

TxtAMDNAMA.Text = “”

TxtAMDNPM.Text = “”

TxtAMDJUR.Text = “”

TxtAMDPS.Text = “”

TxtAMDTHN.Text = “”

TxtAMDNOMOR.Text = “”

End Sub

 

Private Sub CmdAMDEXIT_Click()

End

End Sub

 

Private Sub CmdAMD_Click()

TxtAMDNAMA.SetFocus

TxtAMDNAMA.Text = “”

TxtAMDNPM.Text = “”

TxtAMDJUR.Text = “”

TxtAMDPS.Text = “”

TxtAMDTHN.Text = “”

TxtAMDNOMOR.Text = “”

End Sub

 

Private Sub CmdAMDPROS_Click()

Dim S As String

TxtAMDTHN.Text = “20″ & Left(TxtAMDNPM.Text, 2)

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

If S = “1″ Then

TxtAMDJUR.Text = “Sistem Informasi”

ElseIf S = “2″ Then

TxtAMDJUR.Text = “Manajemen Informatika”

ElseIf S = “3″ Then

TxtAMDJUR.Text = “Tehnik Informatika”

ElseIf S = “4″ Then

TxtAMDJUR.Text = “Manajemen & Komp. Akutansi”

End If

S = Mid(TxtAMDNPM.Text, 4, 2)

If S = “00″ Then

TxtAMDPS.Text = “Strata Satu”

ElseIf S = “01″ Then

TxtAMDPS.Text = “Diploma Tiga”

ElseIf S = “03″ Then

TxtAMDPS.Text = “Diploma Empat”

ElseIf S = “04″ Then

TxtAMDPS.Text = “Diploma Dua”

End If

TxtAMDNOMOR.Text = Right(TxtAMDNPM.Text, 3)

End Sub

 

Private Sub Form_Activate()

TxtAMDNAMA.SetFocus

TxtAMDNAMA.Text = “”

TxtAMDNPM.Text = “”

TxtAMDJUR.Text = “”

TxtAMDPS.Text = “”

TxtAMDTHN.Text = “”

TxtAMDNOMOR.Text = “”

End Sub

 

Private Sub TxtAMDNAMA_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

TxtAMDNPM.SetFocus

End If

End Sub

 

1. membuat program 2 bilangan

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

2. membuat program 2 bilangan (part 2)

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

 

 

 

 

 

 

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

 

 

 

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command6_Click()

End

End Sub

 

3. membuat font style dan font colot

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

 

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

 

4. membuat program perhitungan diskon

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.2

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

5. membuat program perhitungan gaji

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

 

 

JAKARTA -Ketua Front Pembela Islam (FPI) Habib Muhammad Rizieq menilai sikap beberapa tokoh Islam di Indonesia yang memberi ucapan Natal kepada Umat Kristiani jelas-jelas menjerumuskan umat Islam.

“Sikap Tokoh Islam yang mengikuti Natal jelas bisa menjerumuskan umat,” kata Rizieq dikutip Tribunnews.com, Senin (24/12/2012), dari opini Habib Rizieq di situs FPI.

Menurut dia tidak ada alasan bagi tokoh Islam untuk menghalalkan Natal dengan dalih asal aqidah kuat.

“Bahkan ketokohan mereka semestinya membuat mereka lebih hati-hati dalam bersikap, karena mereka adalah teladan yang akan diikuti umat yang kebanyakan beraqidahkan lemah,” kata Rizieq.

Dikatakan belakangan ini tampil sejumlah “Tokoh Islam” yang menggulirkan “Fatwa” bahwa Natal Bersama bagi umat Islam hukumnya boleh dengan menyampaikan sejumlah argumentasi yang dinilainya tidak lepas dari manipulasi hujjah dan korupsi dalil.

“Fatwa Kontroversial mereka tersebut sangat digandrungi oleh kaum Sepilis (Sekularisme, Pluralisme dan Liberalisme), bahkan dijadikan Rujukan Utama hingga kini. Fatwa aneh tersebut telah menebar syubhat yang melahirkan fitnah di tengah umat Islam,” kata dia.

Jepang sebagai tempat kelahiran motor Yamaha masih menyisakan legenda moge-moge mereka. Salah satunya adalah Yamaha XV750 atau juga dikenal dengan Virago 750. Motor legendaris Yamaha ini terlahir pada tahun 1981-1996 silam.

Bentuk asli Yamaha XV750 atau Virago 750 dari pabrikan seperti ini:

Yamaha XV750Yamaha XV750

Motor berjenis cruiser ini mampu dipacu dengan kecepatan maksimal sekitar 180 kpj. Dengan rincian spesifikasi motor sebagai berikut:

Kapasitas Mesin : 748 cc air-cooled V-Twin
Tenaga : 55 hp @ 7000 rpm
Torsi : 64.73 Nm @ 6000 rpm
Rem Depan : 2,4-piston calipers, 298 mm discs
Rem ,Belakang : Double-action caliper, 282 mm disc
Dimensi : L 2,285 mm x W 840 mm
Bobot : 225 kg

Namun bagaimana jadinya setelah sang legenda ini coba ‘dihidupkan’ lagi dengan gaya modifikator asal Jepang. Gaya modifikasi yang diaplikasikan pada motor cruiser ini adalah gaya cafe racer, dimana aliran yang satu ini telah sukses mendunia, tidak terkecuali di Tanah Air.

Yamaha XV750Yamaha XV750

Yamaha XV750Yamaha XV750

Yamaha XV750Yamaha XV750

Yamaha XV750Yamaha XV750

Yamaha XV750Yamaha XV750

Bagi para pecinta modifikasi motor cafe racer, tidak ada salahnya mengambil referensi dari sang modifikator asli Jepang ini.

Surakarta–Pemerintah Kota Surakarta akan menggelar lelang sejumlah mobil dan sepeda motor dinas yang dianggap sudah cukup tua. Salah satunya adalah mobil dinas yang biasa digunakan oleh Joko Widodo saat menjabat sebagai wali kota.

Saat masih menjadi Wali Kota, Jokowi yang saat ini menjabat sebagai Gubernur DKI Jakarta itu memegang dua mobil dinas, yaitu sedan jenis Toyota Camry dan multi purpose vechile jenis KIA Sedona. “Yang akan dilelang adalah KIA Sedona,” kata Sekretaris Daerah Kota Surakarta, Budi Suharto, Rabu 26 Desember 2012.

Menurutnya, lelang kendaraan tersebut akan digelar dua pekan mendatang. Pihaknya akan membuka harga untuk mobil keluaran tahun 2004 tersebut seharga Rp 24 juta. “Mudah-mudahan bisa laku tinggi,” katanya.

Budi menyebutkan bahwa pihaknya belum berencana melelang bekas kendaraan dinas Jokowi lain yang berjenis Toyota Camry. Padahal, mobil tersebut usianya lebih tua lantaran diproduksi pada 2002. “Kondisinya masih terawat dan layak untuk digunakan,” katanya.

Dua kendaraan dinas tersebut merupakan peninggalan dari Wali Kota periode sebelumnya. Selama menjabat sebagai wali kota selama tujuh tahun, Jokowi memang belum pernah mengganti mobil dinasnya.

Selain mobil tersebut, Pemerintah Kota Surakarta juga akan melelang 43 mobil dinas serta 290 sepeda motor dinas. “Rata-rata sudah berusia tua sehingga perawatannya boros,” katanya. KIA Sedona berplat nomor AD 45 A yang akan dilelang tersebut termasuk mobil yang paling muda.

Menurut bekas sopir Jokowi, Suliadi mengatakan bahwa mobil yang akan dilelang itu sebenarnya masih cukup bagus. “Tapi bahan bakarnya boros dan onderdilnya susah,” katanya.

Menurut Suliadi, dia memiliki kenangan yang cukup menarik saat mengantar Jokowi dengan mobil bermesin 2.500 cc tersebut. Pada saat itu Jokowi sedang meninjau banjir di sekitar Bengawan Solo. “Tepatnya di Kelurahan Joyontakan, pada akhir tahun 2007,” katanya.

Saat harus melintasi genangan tinggi, mobil itu tiba-tiba mogok. Jokowi langsung turun dan mendorong mobil itu dengan dibantu warga. “Saya sendiri diminta tetap di belakang kemudi,” katanya. Akhirnya mobil tersebut terpaksa diderek ke bengkel lantaran mesin tetap ngadat.

Palembang : Grup band Slank bakal tampil pada acara pembukaan kompetisi Liga Super Indonesia 2013 di Stadion Gelora Sriwijaya Jakabaring, Palembang, Sumatra Selatan, 5 Januari 2013. Pembukaan juga akan mempertandingkan Sriwijaya FC dan Persiba Balikpapan.

“PT Liga Indonesia memilih Slank sebagai pengisi acara berdasarkan hasil rapat beberapa waktu lalu. Para pencinta sepak bola Sumsel sangat menyambut baik,” kata Direktur Teknik PT Sriwijaya Optimis Mandiri, Hendri Zainuddin, di Palembang, Kamis (27/12).

Grup band yang dikomandoi Kaka itu juga tampil pada launching Liga Super Indonesia pada 13 Desember lalu yang disiarkan salah satu televisi swasta nasional. Kehadiran Slank ini diharapkan mengundang puluhan ribu penonton untuk menyaksikan pertandingan perdana Sriwijaya FC itu.

Terkait pelaksanaan acara pembukaan, menurutnya akan dikemas sedemikian rupa agar meriah dan memuaskan para pencinta sepak bola tanah air. Manajemen klub juga menargetkan kemenangan pada laga itu untuk menyempurnakan kemeriahan acara.(ANT/JUM)