Membuat Aplikasi Administrasi Pembayaran SPP Sekolah

Untuk kali ini penulis akan mengajak vbthok mania untuk mencoba membuat program jadi "aplikasi pembayaran spp" yang berfungsi untuk menangani dan mencatat transaksi pembayaran spp pada sekolah, program ini juga menyediakan report yang berfungsi untuk membuat laporan transaksi yang sudah terjadi.Semoga dengan program ini para vbthok mania bisa mengaplikasikannya dan mengembangkan tentunya menjadi yang lebih bagus dan lengkap.

Berikut tampilan menu yang sudah jadi.

untuk component yang dibutuhkan adalah :

untuk yang missing activeskin 4.3 coba untuk melakukan install programnya activeskin kalau sudah cb jalankan lagi, tambahkan juga componen crystal report.

Untuk script codenya bisa dicontoh seperti dibawah ini

'code form1

Private Sub Command1_Click()

formSiswa.Show

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = QBColor(Rnd * 15)

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "siswa"

formSiswa.Show 1

Case "guru"

formGuru.Show

Case "transaksi"

frmspp.Show

Case "laporan"

frmcetakspp.Show

Case "keluar"

End

End Select

End Sub

'code form guru

Private Sub Command1_Click()

On Error Resume Next

CrystalReport1.WindowState = crptMaximized

CrystalReport1.RetrieveDataFiles

CrystalReport1.Action = 1

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\spp.mdb"

Data1.RecordSource = "guru"

CrystalReport1.ReportFileName = App.Path & "\lapguru.rpt"

End Sub

Private Sub optlaki_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTTL.SetFocus

End If

End Sub

Private Sub optper_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTTL.SetFocus

End If

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

optlaki.SetFocus

End If

End Sub

Private Sub txtcarikode_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub txtjab_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtmengajar.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Private Sub txtnip_Change()

Dim X As Byte

If Len(txtnip.Text) < 11 Then

Exit Sub

End If

txtnama.SetFocus

cmdsimpan.Enabled = True

Data1.Recordset.Index = "idx_nip"

Data1.Recordset.Seek "=", txtnip.Text

If Not Data1.Recordset.NoMatch Then

cmdupdate.Enabled = True

cmdsimpan.Enabled = False

tampil

Exit Sub

End If

End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub txtnip_LostFocus()

End Sub

Private Sub DBGrid1_DblClick()

txtnip.Text = DBGrid1.Text

End Sub

Private Function bersih()

txtnip.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

txtTTL.Text = ""

txtjab.Text = ""

txtmengajar.Text = ""

optlaki.Value = False

optper.Value = False

End Function

Private Sub cmdbatal_Click()

bersih

cmdsimpan.Enabled = False

cmdupdate.Enabled = False

txtnip.Enabled = True

txtnip.SetFocus

End Sub

Private Function tampil()

txtnip.Enabled = False

txtnama.Text = Data1.Recordset!Nama

txtalamat.Text = Data1.Recordset!alamat

If Data1.Recordset!jk = "L" Then

optlaki.Value = True

Else

optper.Value = True

End If

txtTTL.Text = Data1.Recordset!ttl

txtjab.Text = Data1.Recordset!jabatan

txtmengajar.Text = Data1.Recordset!mengajar

cmdsimpan.Enabled = False

End Function

Private Sub cmdclose_Click()

formGuru.Hide

End Sub

Private Sub cmdhapus_Click()

On Error Resume Next

X = MsgBox("Data akan dihapus ? ", vbOKCancel, "PERHATIAN")

If X = vbOK Then

Data1.Recordset.Delete

bersih

End If

End Sub

Private Sub cmdsimpan_Click()

If txtnip.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" _

Or txtTTL.Text = "" Or txtjab.Text = "" Or txtmengajar.Text = "" _

Or (optlaki.Value = False And optper.Value = False) Then

MsgBox "Entry Data isn't complite..!!"

bersih

Exit Sub

Else

Data1.Recordset.AddNew

Data1.Recordset!nip = txtnip.Text

Data1.Recordset!Nama = txtnama.Text

Data1.Recordset!alamat = txtalamat

If optlaki.Value = True Then

Data1.Recordset!jk = "L"

Else

Data1.Recordset!jk = "P"

End If

Data1.Recordset!ttl = txtTTL.Text

Data1.Recordset!jabatan = txtjab.Text

Data1.Recordset!mengajar = txtmengajar.Text

Data1.Recordset.Update

bersih

cmdsimpan.Enabled = False

End If

End Sub

Private Sub cmdupdate_Click()

Data1.Recordset.Edit

Data1.Recordset!Nama = txtnama.Text

Data1.Recordset!alamat = txtalamat.Text

If optlaki.Value = True Then

Data1.Recordset!jk = "L"

Else

Data1.Recordset!jk = "P"

End If

Data1.Recordset!ttl = txtTTL.Text

Data1.Recordset!jabatan = txtjab.Text

Data1.Recordset!mengajar = txtmengajar.Text

Data1.Recordset.Update

bersih

cmdupdate.Enabled = False

cmdsimpan.Enabled = True

txtnip.Enabled = True

End Sub

Private Sub Form_Activate()

bersih

txtnip.SetFocus

cmdsimpan.Enabled = False

End Sub

Private Sub txtcarinama_Change()

Data1.Recordset.Index = "idx_nama"

Data1.Recordset.Seek "<=", Trim(txtcarinama.Text) & "zzz"

End Sub

Private Sub txtcarikode_Change()

Data1.Recordset.Index = "idx_nip"

Data1.Recordset.Seek "<=", Trim(txtcarikode.Text) & "zzz"

End Sub

Private Sub txtTTL_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjab.SetFocus

End If

End Sub

'code formguru

Private Sub cmbAgama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTelepon.SetFocus

End If

End Sub

Private Sub cmbKelas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

mskTgl.SetFocus

End If

End Sub

Private Sub Command1_Click()

On Error Resume Next

CrystalReport1.WindowState = crptMaximized

CrystalReport1.RetrieveDataFiles

CrystalReport1.Action = 1

End Sub

Private Sub Form_Load()

Dim tang As String

Data1.DatabaseName = App.Path & "\spp.mdb"

Data1.RecordSource = "siswa"

mskTgl.Text = Format(Date, "dd/mm/yyyy")

CrystalReport1.ReportFileName = App.Path & "\lapsis.rpt"

End Sub

Private Function bersih()

txtnis.Text = ""

txtNama.Text = ""

txtAlamat.Text = ""

txtTgllahir.Text = ""

cmbAgama.Text = ""

txtTelepon.Text = ""

cmbKelas.Text = ""

mskTgl.Mask = ""

txtspp.Text = ""

opt1.Value = False

opt2.Value = False

cmdsimpan.Enabled = False

End Function

Private Sub DBGrid1_DblClick()

txtnis.Text = DBGrid1.Text

End Sub

Private Function tampil()

On Error Resume Next

txtnis.Enabled = False

txtNama.Text = Data1.Recordset!Nama

txtAlamat.Text = Data1.Recordset!alamat

txtTelepon.Text = Data1.Recordset!telepon

txtTgllahir.Text = Data1.Recordset!ttl

cmbAgama.Text = Data1.Recordset!agama

mskTgl.Text = Data1.Recordset!thnmsk

If Data1.Recordset!jk = "L" Then

opt1.Value = True

Else

opt2.Value = True

End If

txtspp.Text = Format(Data1.Recordset!spp, "#,#,0")

cmbKelas.Text = Data1.Recordset!kelas

cmdsimpan.Enabled = False

End Function

Private Sub cmdbatal_Click()

txtspp.Text = ""

bersih

cmdupdate.Enabled = False

txtnis.Enabled = True

txtnis.Text = ""

txtnis.SetFocus

End Sub

Private Sub cmdclose_Click()

formSiswa.Hide

' frmMenu.Show

End Sub

Private Sub cmdhapus_Click()

On Error Resume Next

s = MsgBox("Data akan dihapus ?", vbOKCancel, "PERHATIAN")

If s = vbOK Then

Data1.Recordset.Delete

End If

End Sub

Private Sub cmdsimpan_Click()

On Error Resume Next

If txtnis.Text = "" Then

MsgBox "NIS belum diisi", vbOKOnly, "Message Siswa"

Exit Sub

End If

If txtNama.Text = "" Or txtAlamat.Text = "" Or txtTgllahir.Text = "" _

Or cmbAgama.Text = "" Or cmbKelas.Text = "" _

Or (opt1.Value = False And opt2.Value = False) Or mskTgl.Text = "" Then

MsgBox "Ada yang belum diisi", vbOKOnly, "Message Siswa"

Exit Sub

End If

Data1.Recordset.AddNew

Data1.Recordset!nis = txtnis.Text

Data1.Recordset!Nama = txtNama.Text

Data1.Recordset!alamat = txtAlamat.Text

Data1.Recordset!telepon = txtTelepon.Text

Data1.Recordset!ttl = txtTgllahir.Text

Data1.Recordset!agama = cmbAgama.Text

Data1.Recordset!kelas = cmbKelas.Text

Data1.Recordset!thnmsk = mskTgl.Text

If opt1.Value = True Then

Data1.Recordset!jk = "L"

Else

Data1.Recordset!jk = "P"

End If

Data1.Recordset!spp = txtspp.Text

Data1.Recordset.Update

bersih

cmdsimpan.Enabled = False

End Sub

Private Sub cmdupdate_Click()

Data1.Recordset.Edit

Data1.Recordset!nis = txtnis.Text

Data1.Recordset!Nama = txtNama.Text

Data1.Recordset!alamat = txtAlamat.Text

Data1.Recordset!telepon = txtTelepon.Text

Data1.Recordset!ttl = txtTgllahir.Text

Data1.Recordset!agama = cmbAgama.Text

Data1.Recordset!kelas = cmbKelas.Text

Data1.Recordset!thnmsk = mskTgl.Text

If opt1.Value = True Then

Data1.Recordset!jk = "L"

Else

Data1.Recordset!jk = "P"

End If

Data1.Recordset!spp = txtspp.Text

Data1.Recordset.Update

bersih

cmdupdate.Enabled = False

txtnis.Enabled = True

cmdsimpan.Enabled = True

End Sub

Private Sub Form_Activate()

bersih

txtnis.SetFocus

End Sub

Private Sub text1_Change()

End Sub

Private Sub mskTgl_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtspp.SetFocus

End If

End Sub

Private Sub opt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTgllahir.SetFocus

End If

End Sub

Private Sub opt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTgllahir.SetFocus

End If

End Sub

Private Sub SSTab1_DblClick()

Data1.Refresh

DBGrid1.Refresh

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

opt1.SetFocus

End If

End Sub

Private Sub txtcarinama_Change()

Data1.Recordset.Index = "namapel"

Data1.Recordset.Seek "<=", Trim(Txtcarinama.Text) & "zzz"

If Data1.Recordset.NoMatch Then

MsgBox "Data tidak ada", vbOKOnly, "Message Siswa"

Exit Sub

End If

cmdhapus.Enabled = True

End Sub

Private Sub Txtcarinis_Change()

cmdhapus.Enabled = False

If Len(Txtcarinis.Text) < 5 Then

Exit Sub

End If

Data1.Recordset.Index = "nispel"

Data1.Recordset.Seek "=", Txtcarinis.Text

If Data1.Recordset.NoMatch Then

MsgBox "Data tidak ada", vbOKOnly, "Message Siswa"

Exit Sub

End If

cmdhapus.Enabled = True

End Sub

Private Sub txtkelas_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("1") And KeyAscii <= Asc("3") Or KeyAscii = vbKeyBack) Then

Beep

KeyAscii = 0

End If

End Sub

Private Sub txtcariNis_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

txtAlamat.SetFocus

End If

End Sub

Private Sub txtnis_Change()

Dim X As Byte

If Len(txtnis.Text) < 10 Then

Exit Sub

End If

cmdsimpan.Enabled = True

txtNama.SetFocus

Data1.Recordset.Index = "nispel"

Data1.Recordset.Seek "=", txtnis.Text

If Not Data1.Recordset.NoMatch Then

cmdupdate.Enabled = True

tampil

End If

End Sub

Private Sub Txtnis_LostFocus()

cmdbatal.Enabled = True

End Sub

Private Sub txtspp_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then

Beep

KeyAscii = 0

End If

End Sub

Private Sub txtnis_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub txtTelepon_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cmbKelas.SetFocus

End If

End Sub

Private Sub txtTgllahir_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cmbAgama.SetFocus

End If

End Sub

'code form cetak

Dim p As Printer

Private Sub cmdList_Click()

End Sub

Private Sub preview()

Dim mno, mhal, mbaris, X As Integer

Dim mnilai, msubtotal, mtotal As Single

Dim mgrs As String

On Error GoTo 0

With dbtran.Recordset

'pb.Min = 1

'pb.Max = .RecordCount

.MoveFirst

Printer.CurrentX = 5

Printer.CurrentY = 5

mhal = 0

mno = 0

mtotal = 0

Do

mhal = mhal + 1

Form2.FontSize = Val(cbs.Text) * 2

Form2.FontBold = True

Form2.Print "Data Pembayaran SPP"

Form2.Print "SD Negeri 01 Blimbing - Malang"

Form2.FontSize = cbs.Text

Form2.FontBold = False

Form2.Print

Form2.Print Tab(10); "Kelas : "; !kelas;

Form2.Print Tab(100); "Hal :"; Format(mhal, "###")

Form2.Print

mgrs = String$(200, "-")

Form2.Print mgrs

Form2.Print Tab(2); "No. Tran";

Form2.Print Tab(10); "Tgl. Pem";

Form2.Print Tab(20); "NIS";

Form2.Print Tab(45); "Kelas";

Form2.Print Tab(60); "NIP";

Form2.Print Tab(70); "Bayar";

Form2.Print

Form2.Print mgrs

Form2.Print

mbaris = 0

msubtotal = 0

Do

mno = mno + 1

pb.Value = mno

Form2.Print Tab(1); rkanan(mno, "#####");

Form2.Print Tab(10); !nis;

Form2.Print Tab(20); !kelas;

Form2.Print Tab(45); rkanan(!bayar, "###,###,###");

Form2.Print Tab(60); !terlambat;

Form2.Print Tab(70); !sanksi;

mbaris = mbaris + 1

.MoveNext

If .EOF Then

Exit Do

End If

Loop Until mbaris > 55

Form2.Print

Form2.Print mgrs

' Form2.NewPage

If .EOF Then

Exit Do

End If

Loop

'Form2.EndDoc

pb.Value = .RecordCount

End With

On Error GoTo 0

Exit Sub

salahcetak:

Beep

d = MsgBox("Printer Error !" & Chr(13) & "Betulkan Printer lalu klik ok", vbOKCancel)

If d = 0 Then

Resume

Else

'Printer.KillDoc

End If

End Sub

Private Sub cmdprev_Click()

With CrystalReport1

.ReportFileName = App.Path & "\laptran.rpt"

.SelectionFormula = "month({transaksi.tgl_pem})=" & Combo1.ListIndex + 1 & " "

.RetrieveDataFiles

.WindowShowCloseBtn = True

.WindowState = crptMaximized

.Action = 1

End With

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

CrystalReport2.ReportFileName = App.Path & "\laptran.rpt"

CrystalReport2.WindowState = crptMaximized

CrystalReport2.RetrieveDataFiles

CrystalReport2.Action = 1

End Sub

Private Sub Form_Activate()

frmPrint.Visible = True

End Sub

Private Sub Form_Load()

dbtran.DatabaseName = App.Path & "\spp.mdb"

dbtran.RecordSource = "Select * From transaksi"

For bln = 1 To 12

bulan = Choose(bln, "januari", "februari", "maret", "april", "mei", "juni", "juli", "agustus", "september", "oktober", "november", "desember") & " " & Str(Year(Date))

Combo1.AddItem bulan

Next

End Sub

Private Sub cmdRefresh_Click()

dbtran.DatabaseName = App.Path & "\spp.mdb"

dbtran.RecordSource = "Select * From transaksi"

dbtran.Refresh

End Sub

Private Sub cbf_Click()

cbf.FontName = cbf.Text

End Sub

Private Sub cbp_Click()

For Each p In Printers

If p.DeviceName = cbp.Text Then

Set Printer = p

Exit For

End If

Next

End Sub

Private Sub cbs_Click()

cbs.FontSize = cbs.Text

End Sub

Private Sub cmdcetak_Click()

Dim mno, mhal, mbaris, X As Integer

Dim mnilai, msubtotal, mtotal As Single

Dim mgrs As String

On Error GoTo 0

With dbtran.Recordset

'pb.Min = 1

'pb.Max = .RecordCount

.MoveFirst

Printer.CurrentX = 5

Printer.CurrentY = 5

mhal = 0

mno = 0

mtotal = 0

Do

mhal = mhal + 1

Printer.FontSize = Val(cbs.Text) * 2

Printer.FontBold = True

Printer.Print "Data Pembayaran SPP"

Printer.Print "SD Negeri 01 Blimbing - Malang"

Printer.FontSize = cbs.Text

Printer.FontBold = False

Printer.Print

Printer.Print Tab(10); "Kelas : "; !kelas;

Printer.Print Tab(100); "Hal :"; Format(mhal, "###")

Printer.Print

mgrs = String$(200, "-")

Printer.Print mgrs

Printer.Print Tab(2); "No. Tran";

Printer.Print Tab(10); "Tgl. Pem";

Printer.Print Tab(20); "NIS";

Printer.Print Tab(45); "Kelas";

Printer.Print Tab(60); "NIP";

Printer.Print Tab(70); "Bayar";

Printer.Print

Printer.Print mgrs

Printer.Print

mbaris = 0

msubtotal = 0

Do

mno = mno + 1

pb.Value = mno

Printer.Print Tab(1); rkanan(mno, "#####");

Printer.Print Tab(10); !nis;

Printer.Print Tab(20); !kelas;

Printer.Print Tab(45); rkanan(!bayar, "###,###,###");

Printer.Print Tab(60); !terlambat;

Printer.Print Tab(70); !sanksi;

mbaris = mbaris + 1

.MoveNext

If .EOF Then

Exit Do

End If

Loop Until mbaris > 55

Printer.Print

Printer.Print mgrs

Printer.NewPage

If .EOF Then

Exit Do

End If

Loop

Printer.EndDoc

pb.Value = .RecordCount

End With

On Error GoTo 0

Exit Sub

salahcetak:

Beep

d = MsgBox("Printer Error !" & Chr(13) & "Betulkan Printer lalu klik ok", vbOKCancel)

If d = 0 Then

Resume

Else

Printer.KillDoc

End If

End Sub

Private Sub opmiring_Click()

Printer.Orientation = vbPRORLandscape

End Sub

Private Sub opportait_Click()

Printer.Orientation = vbPRORPortrait

End Sub

Private Sub txtcopy_LostFocus()

If Val(txtcopy.Text) <> 10 Then

Beep

txtcopy.SetFocus

End If

End Sub

Private Function rkanan(ndata, cformat) As String

rkanan = Format(ndata, cformat)

rkanan = Space(Len(cformat) - Len(rkanan)) + rkanan

End Function

Private Sub UpDown1_Change()

txtcopy.Text = UpDown1.Value

End Sub

'code formspp

Dim DB As Database

Dim RSsiswa As Recordset

Dim RStran As Recordset

Private Function clear()

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text12.Text = ""

DBCombo1.Text = ""

DBCombo2.Text = ""

Combo1.Text = ""

Cmdsimpan.Enabled = False

cmdupdate.Enabled = False

End Function

Private Sub cmdupdate_Click()

Data1.Recordset.Edit

Data1.Recordset!Notran = Text1.Text

Data1.Recordset!tgl_pem = Text2.Text

Data1.Recordset!nis = DBCombo1.Text

Data1.Recordset!kelas = Text4.Text

Data1.Recordset!nip = DBCombo2.Text

Data1.Recordset!bayar = Text7.Text

Data1.Recordset!ket = Text8.Text

Data1.Recordset!terlambat = Text10.Text

Data1.Recordset!sanksi = Combo1.Text

Data1.Recordset!ket_sanksi = Text12.Text

Data1.Recordset.Update

clear

Text1.Enabled = True

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Command1_Click()

On Error Resume Next

s = MsgBox("Data akan dihapus ?", vbOKCancel, "PERHATIAN")

If s = vbOK Then

Data1.Recordset.Delete

End If

End Sub

Private Sub DBCombo1_Change()

Data2.Recordset.Index = "nispel"

Data2.Recordset.Seek "=", DBCombo1.Text

If Not Data2.Recordset.NoMatch Then

Text3.Text = Data2.Recordset!Nama

Text4.Text = Data2.Recordset!kelas

Text5.Text = Format(Data2.Recordset!spp, "#,#,0")

Text9.Text = Format$(Data2.Recordset!thnmsk, "dddd, dd MMMM yyyy")

'Text10.Text = Val(Data2.Recordset!thnmsk) - (Format$(Date, "dd mm"))

End If

End Sub

Private Sub DBCombo2_Change()

Data3.Recordset.Index = "idx_nip"

Data3.Recordset.Seek "=", DBCombo2.Text

If Not Data3.Recordset.NoMatch Then

Text6.Text = Data3.Recordset!Nama

End If

End Sub

Private Sub Form_Activate()

Text1.Text = ""

Text1.SetFocus

clear

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\spp.mdb"

Data1.RecordSource = "transaksi"

Data2.DatabaseName = App.Path & "\spp.mdb"

Data2.RecordSource = "siswa"

Data3.DatabaseName = App.Path & "\spp.mdb"

Data3.RecordSource = "guru"

Text2.Text = Date

Combo1.List(0) = "Peringatan"

Combo1.List(1) = "Denda"

Combo1.List(2) = "Skors"

Combo1.List(3) = "Dikeluarkan"

End Sub

Private Sub cmdbatal_Click()

clear

Text1.Enabled = True

Text1.Text = ""

Text1.SetFocus

End Sub

'Private Sub mnentry_Click()

' Dim I As Byte

' For I = 0 To 3

' txtno.Text = ""

'Next I

'txtno.SetFocus

'End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub mnreport_Click()

'frmlapspp.Show

'frmspp.Hide

End Sub

Private Sub cmdsimpan_Click()

Dim tgl As Date

If Text1.Text = "" Or Text2.Text = "" Or DBCombo1.Text = "" Or DBCombo2.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then

MsgBox "Ada yang belum terisi !!", vbOKOnly, "Pesan Transaksi"

Else

Data1.Recordset.AddNew

Data1.Recordset!Notran = Text1.Text

Data1.Recordset!tgl_pem = Text2.Text

Data1.Recordset!nis = DBCombo1.Text

Data1.Recordset!kelas = Text4.Text

Data1.Recordset!nip = DBCombo2.Text

Data1.Recordset!bayar = Text7.Text

Data1.Recordset!ket = Text8.Text

Data1.Recordset!terlambat = Text10.Text

Data1.Recordset!sanksi = Combo1.Text

Data1.Recordset!ket_sanksi = Text12.Text

Data1.Recordset.Update

clear

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Private Sub text1_Change()

If Len(Text1.Text) < 6 Then

Exit Sub

End If

Cmdsimpan.Enabled = True

DBCombo1.SetFocus

Data1.Recordset.Index = "notran"

Data1.Recordset.Seek "=", Text1.Text

If Not Data1.Recordset.NoMatch Then

tampil

Text7.Text = Format(Data1.Recordset!bayar, "#,#,0")

Text8.Text = Data1.Recordset!ket

Text10.Text = Data1.Recordset!terlambat

Combo1.Text = Data1.Recordset!sanksi

Text12.Text = Data1.Recordset!ket_sanksi

cmdupdate.Enabled = True

Cmdsimpan.Enabled = False

End If

End Sub

Private Function tampil()

On Error Resume Next

Text1.Enabled = False

DBCombo1.Text = Data1.Recordset!nis

DBCombo2.Text = Data1.Recordset!nip

Text7.Text = Data1.Recordset!bayar

Text8.Text = Data1.Recordset!ket

Text9.Text = Data1.Recordset!batas

Text10.Text = Data1.Recordset!terlambat

Text12.Text = Data1.Recordset!ket_sanksi

End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub Text11_Change()

Cmdhapus.Enabled = False

If Len(Text11.Text) < 6 Then

Exit Sub

End If

Data1.Recordset.Index = "notran"

Data1.Recordset.Seek "=", Text11.Text

If Data1.Recordset.NoMatch Then

MsgBox "Data tidak ada", vbOKOnly, "PERHATIAN"

Exit Sub

End If

Cmdhapus.Enabled = True

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub Text2_Change()

Text2.Text = Date

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_Change()

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

Sumber

Baca Selengkapnya

10 Alat Rumah Tangga Pemicu Kanker

Berbagai peralatan rumah tangga seperti pembersih kaca, karpet, hingga oven microwave sangat berjasa membantu pekerjaan rumah tangga. Namun di balik manfaatnya, berbagai alat rumah tangga ini bisa menyimpan ancaman kesehatan. Mengapa?

Seperti dikutip dari Shine, hal tersebut terjadi karena banyak di antara peralatan rumah tangga yang mengandung bahan kimia berbahaya pemicu kanker seperti formaldehida, nitrobenzena, metilen klorida, dan napthelene, serta racun reproduksi dan pengganggu hormon. Ada juga bahan yang menyebabkan kerusakan hati, ginjal dan otak, alergi dan asma.

Buku 'Cancer: 101 Solutions to a Preventable Epidemic' karya Armstrong memuat daftar beberapa peralatan dan pembersih rumah tangga yang sarat racun karsinogen. Berikut 10 diantaranya :

1. Penyegar udara
Penyegar udara semprot terbuat dari bahan napthelene dan formaldehida. Coba ganti wewangian ruangan dengan zeolit atau pewangi alami dari minyak esensial.

2. Pajangan
Kebanyakan pajangan berupa lukisan menggunakan Epoxy dan lem karet semen, cat akrilik, pelarut (thinner), dan spidol permanen yang mengandung karsinogen. Jika ingin mempercantik ruangan, pilih pajangan yang mengandung lebih sedikit bahan kimia.

3. Suku cadang otomotif
Sebagian besar suku cadang otomotif mengandung racun. Jauhkan mereka dari rumah. Bila tak dipakai segera buang ke tempat pembuangan limbah berbahaya.

4. Lilin
Hindari lilin parafin artifisial beraroma yang menghasilkan jelaga. Lebih baik gunakan lilin lebah dengan sumbu kapas.

5.Pembersih karpet
Biasanya pembersih karpet digunakan dalam keadaan kering mengandung unsur karsinogen. Gunakan pembersih karpet cair dari bahan alami seperti cuka dan jeruk lemon dicampur sedikit sabun.

6. Dry-cleaning
Pilih pakaian yang tidak memerlukan pembersih perkloroetilena. Mintalah agar pencucian basah, bukan kering. Atau, gunakan pembersihan kering dengan pembersih cair karbon atau jeruk.

7. Pembasmi hama kutu dan serangga
Hindari penggunaan pestisida. Lebih baik simpan makanan lebih baik untuk menghindari berkembangnya serangga dan kutu.

8. Cat dan pernis
Bila mengecat rumah, pilih produk cat yang memiliki VOC rendah atau yang ramah lingkungan.

9. Pestisida rumah tangga
Gunakan pestisida alami, misalnya yang diolah dari bawang putih dan cabai atau dari daun pepaya.

10. Microwave
Jangan panaskan makanan dalam microwave di wadah plastik. Lebih baik gunakan wadah dari kaca khusus untuk microwave.

Baca Selengkapnya

Download Modul Visual Basic

Untuk kalian semua yang hobi pemrograman dengan visual basic, saya memiliki beberapa e-book tentang pemrograman menggunakan visual basic yang bisa kalian semua download secara gratis. Langsung saja download dengan klik link-link di bawah ini !

1. Tips & Trik Visual Basic
2. Teknik Pemrograman dengan menggunakan Visual Basic
3. Serba serbi aplikasi Visual Basic Vol.1
4. Serba serbi aplikasi Visual Basic Vol.2
5. Modul Visual Basic untuk pemula

Baca Selengkapnya

Membuat Aplikasi Data Karyawan

Wah ternyata masih banyak ya pecinta pemrograman vb yg masih setia,,terutama teman2 newbie semua. Meskipun skrg dah mulai beranjak ke vb.net tp cinta saya kpd vb msh tetep (upss kok jd cinta cinta'an ya) wkwkwk,,,oke disni saya akan berbagi bagaimana membuat program yg bs terhubung dengan lebih dari satu database dalam 1 form, mksudnya??
mungkin teman2 newbie banyak yg bingung bagaimana misalnya akan menyimpan suatu data kedalam database yg berbeda2 dalam 1 tombol simpan,nah disini saya akan memberikan contohnya..plus ada skinXPnya jg,,,
program yg akan saya bahas disini mengenai input data karyawan yg terbagi dalam 2 database
berikut preview gambar dan database nya serta coding lengkapnya...

keterangan :
1. Finger Id : ID otomatis yg diambil dr database yg sudah dibuat jd tidak usah repot buat id manual
2. Database ada 2 yaitu kasir.mdb dan employee.mdb
3. Agar program bs berjalan & tdk error,,app path database kasir pd module hrus diedit & disesuaikan dg letak drive dmana database berada.

Buat yang gak mau repot, silahkan download program yang sudah jadinya di sini !

Baca Selengkapnya

17 Alasan Mengapa Indonesia Sulit Menjadi Negara Maju

17. Harga Nyawa di Indonesia = Rp 20.000
Terjadi pada saat kasus pembentukan provinsi tapanuli, massa diberi 20.000 untuk berdemo dan untuk membunuh Ketua DPRDnya. Ada lagi kasus nyawa melayang cuma gara2 hutang 500 perak.

16. Percaya Batu Kobokan PONARI SWEAT
Kalo kekuatan supranatural dari batu emang segitu gedenya, ngapain berlomba lomba buat rumah sakit internasional ? toh biaya bangun satu rumah sakit bisa buat beli jutaan botol PONARI SWEAT !

15. Ramalan = ?
Liat aja tiap taun baru apa yang ada di infotainment, RAMAL RAMAL dan RAMAL. Tiap tahun baru heboh banget mikirin ramalan, ampe Mama Laurent, Ki Kusumo, Joko Bodo panen duit

14. Kelakuan Hewan Perwakilan Rakyat
yang makin mirip hewan Liat aja kerjaan DPR saban hari ! cakar fraksi sana, cakar sini, koalisi sana, sentil fraksi ini. Kapan INDONESIA mau maju kalo terus begini ?

13. Dikibulin ama Aburizal Bakrie
Jadi Menko Kesra, Orang terkaya di Asia Tenggara, Punya ANTV, LATIVI alias tv0ne, Punya Esia, bakrie dll kok ngakunya keberatan untuk ganti rugi warga Porong? Bakrie kan punya developer, buat aja perumahan baru untuk warga porong! selesai kan ?.

12. Bangga banget sama yang namanya Jakarta
Patutkah kita bangga akan Ibukota Indonesia ini?. Kota Jakarta adalah kota metropolis yang di cap GAGAL oleh dunia luar. Bahkan kemacetan Jakarta sudah jadi bahan acara THE AMAZING RACE 2 ASIA AXN, dengan tantangan melewati jalan tol bandara sampe ke Monas yang macet naujubilah.

11. Boikot Amerika !
Emang segampang itu? Kalo Pemerintah Indonesia langsung putus hubungan dgn USA, Indonesia pasti akan mengalami krisis 5x lebih besar dari tahun '97

10. Menghitung kesuksesan pemerintah dari Sembako
Emang sembako mempengaruhi tingkat perekonomian? Dan pemerintah yang tak sanggup mewujudkannya bisa dibilang gagal? Ya enggak lah! Negara mana coba yang bakal nulis HEADLINE news di surat kabarnya: Harga Beras di Indonesia 500/liter

9. Ditipu Orang Asing
Orang asing menipu Rakyat Indonesia dengan pelan, disadari atau tidak. China dengan mengimpor barang sebanyak2nya, Amerika dgn pertambangannya (emang ada orang papua kerja di Freeport? Paling jadi pembantu umum), dan INDIA dengan Sinetron juga Film perusak mental bangsa (Liat aja creditsnya sinetron. Raakhe Punjabi, Gobin Punjabi, Amitabacham (?))

8. Mengutamakan diam itu emas
Liat aja apa yang dilakuin pejabat pejabat. Diem diem, dapet duit. Diem diem, dapet tunjangan. Diem diem, korupsi. Diem diem, bau !

7. Menghalalkan Segala Cara
Mau dapet gelar Doktor dalam 1 minggu? Bisa!
Mau mengetahui keburukan musuh sehari2? Bisa!
Mau ngebunuh siapapun tanpa ketauan? Bisa!
Duit adalah segalanya, Inikah Indonesia? =’(

6. Melakukan Pemborosan di segala bidang
Di bidang media, buat apa PH membuat sinetron sinetron low budget dan low quality (sebut saja = INDOSIAR) Naga Terbang lah, Buaya bunting lah. Mendingan kaga usah buat deh!

5. Pentingan Pulsa daripada Makanan di Warteg
Pengguna handphone di Indonesia tuh buanyaak banget. Dari tukang somay, ketoprak smp presiden. Bahkan ada pengamen yang ngamen cuma buat beli PULSA. Daripada begitu kan mendingan uangnya buat mereka sekolah ato makan!

4. Hobby Telat
Kenapa sih orang Indonesia ini telat semua! Giliran Malaysia SUDAH mengambil Sipadan dan Ligitan kita bekoar GANJANG MALAYSIA! MERDEKA ATO MATI! Lah, emang kemana aja kita pas Sipadan disini? Kita anggurin aja. Dan sekarang Sipadan udah jadi the best dive site in the world ama Malaysia!

3. Terus menaikkan Standar Kelulusan
Dari tahun ke tahun, batas minimal UAN terusss naik. Dari 3.14 ampe besok 5.50. Tujuan depdiknas apa ? Mau memperbanyak ketidaklulusan di bangku sekolah? Standar 3.14 aja banyak yang gagal apalagi 5! Bahkan bisa2 standar naik jadi 7!

2. OSPEK adalah sarana membentuk mental pemimpin ?
nonono ! ospek bisa dibilang cuma sarana para senior buat bales dendam. Kalo uda dipukul, Dimarahin dll terus mau diapain? bunuh?

1. Banyak Partai = demokrasi ?
Jumlah partai di Indonesia mungkin bisa dibilang TERBANYAK di dunia. Kalau mau dikalkulasiin dari zaman Sukarno sampe SBY jumlahnya berkisar 150. Dari segitu, paling partai besarnya 15, sisanya partai gurem. Buat apa partai banyak2 coba? Manjang manjangin kertas pemilih aja. dan yang jelas buang buang DUIT aje.

Baca Selengkapnya

Buat yang Jerawatan - 5 Tanaman Obat Untuk Jerawat

Jerawat timbul akibat produksi minyak yang berlebihan. Banyak factor yang bisa memicu munculnya jerawat yaitu faktor keturunan, makanan, faktor psikis juga mempengaruhi, misalnya saja ketika datang bulan, stress, pemakaian kosmetik yang tidak cocok atau mengkonsumsi obat tertentu bisa saja menyebabkan timbulnya jerawat. Sampai saai ini, belum ada obat jerawat yang bisa menyembuhkan secara tuntas. Namun banyak upaya yang bisa dilakukan untuk membantu menyembuhkan atau paling tidak mengurangi tumbuhnya jerawat. Salah satunya dengan menggunakan lima tanaman obat yaitu tomat, belimbing wuluh, mentimun, jeruk nipis, dan temulawak yang dipercaya bisa membasmi jerawat yang membandel.

Tomat (Lycopercisum esculentum Mill) yang mengandung aneka vitamin, antara lain vitamin C, viamin A dan B1 serta mengandung zat-zat seperti protein, kalsium, besi, dan belerang. Untuk mengusir jerawat, pilih tomat yang sudah masak, kemudian potong-potong sama rata, setelah itu langsung dipakai untuk menggosok wajah berjerawat. Jika tekun membiasakan diri memakai buah tomat, wajah mbak anti dijamin bakal kembali berseri-seri, bebas dari jerawat.

Belimbing wuluh (Averrhoa bilimbi L.) yang daging buahnya banyak mengandung air yang berasa asam. Warna buahnya ada yang hijau, ada pula yang putih. Belimbing wuluh mengandung kalsium oksalat, flavonoid, pectin, tanin, asam galat dan asam ferulat. Guna menyingkirkan jerawat, ambil 5 buah belimbing wuluh, cuci bersih kemudian tumbuk sampai halus. Setelah itu remas-remas dengan air garam secukupnya. Gosokkan pada wajah atau bagian tubuh lain yang berjerawat. Lakukan tiga kali sehari. Bisa juga dengan ramuan tradisional sebagai berikut sediakan 6 buah belimbing wuluh, ? sendok teh serbuk belerang, dan satu buah jeruk nipis. Caranya, belimbing wuluh dan serbuk belerang digiling sampai halus, kemudian remas-remas dengan air jeruk nipis. Lalu gosokkan pelan-pelan pada wajah yang berjerawat. Lakukan 3 kali sehari. Dijamin, wajah anda akan kembali kinclong.

Mentimun (Cucumis sativus) juga dapat digunakan untuk melawan jerawat yang nakal, disamping mengandung banyak air, juga mengandung vitamin A, B1 dan C serta beberapa zat seperti saponin, protein, lemak, kalsium, fosfor, besi dan belerang. Berkaitan dengan jerawat, pilih mentimun yang masih muda. Cuci bersih, lalu potong-potong, kemudian perlahan-lahan gosokkan pada wajah yang berjerawat. Biasakan minimal tiga kali sehari.

Jeruk nipis (Citrus aurantifolia Swingle) yang buahnya sebesar bola pingpong berwarna hijau atau kekuning-kuningan, dan rasanya asam. Buah jeruk nipis mengandung unsur senyawa kimia antara lain limonene, linalin asetat, geranil asetat, felladren, sitral, dan asam sitrat. Untuk menghalangi jerawat, pilih buah jeruk nipis yang sudah tua lalu potong-potong sama rata. Gosokkan pada wajah yang berjerawat, sekitar 2-3 kali sehari. Atau dengan ramuan tradisional yaitu Sediakan 20 kuntum bunga melati, 2 jari asam jawa (bahasa jawa : asam kawak), 1 buah jeruk nipis. Caranya, bunga melati, asam jawa dan belerang dicuci bersih lalu ditumbuk halus. Remas-remas dengan air jeruk nipis. Kemudian gosok perlahan-lahan pada wajah yang berjerawat.

Temulawak (Curcuma xanthorhiza Roxb) juga bisa digunakan untuk membasmi jerawat karena didalamnya terdapat komponen utama kandungan zat yaitu kurkumin dan minyak atsiri. Kurkumin bermanfaat sebagai acnevulgaris, antiflamasi (antiradang), dan anti-hepatoksik (antikeracunan empedu). Sedangkan minyak atsiri temulawak mengandung phelandren, kamfer, bomeol, xanthorrhizol, dan sineal. Bila ingin wajah tidak ternodai jerawat, ambil satu jari rimpang temulawak, cuci bersih dan potong-potong. Rebus dengan air bersih sebanyak 4 gelas lalu biarkan mendidih hingga tinggal separuhnya. Setelah dingin, dapat disaring dan diminum (dapat ditambahkan madu). Minumlah dua kali sehari dan sekali minum sebanyak satu gelas.

Selain menggunakan tanaman obat di atas, juga perlu melakukan perawatan. Perawatan sangat penting dilakukan agar kulit terlihat sehat, berseri dan cantik. Apa saja yang harus dikerjakan:
1. bersihkan wajah sekurang-kurangnya dua kali sehari dengan sabun khusus pembersih wajah dan air hangat.
2. Lakukan olahraga pagi hari di lokasi yang mendapat sinar matahari.
3. Kurangi makanan berlemak, termasuk gorengan dan minuman beralkohol.
4. Tingkatkan konsumsi sayur-sayuran dan (bayam, bawang daun, ercis, wortel, daun melinjo dan sebagainya) dan buah-buahan (pisang, tomat, jeruk, nanas, dan sebagainya)
5. Hindari pemakaian kosmetik yang berbahan dasar minyak.
6. Yang tak kalah penting, jangan sembarangan menusuk dan memijit-mijit jerawat. Bisa-bisa malah infeksi dan meninggalkan bekas noda.

Baca Selengkapnya

5 Kota yang Berada di Pinggir Tebing

1. Ronda (Spanyol)

Ronda adalah sebuah kota di Spanyol, Propinsi Malaga Yang berlokasi di daerah Pegunungan Yang berada 750 meter di atas permukaan laut. "El Tajo", sebuah ngarai sedalam 100 meter, memisahkan kota tua dari kota yang baru, meninggalkan beberapa bangunan dan rumah-rumah tepat di tepi jurang. Orang-orang bisa pergi dari satu sisi ke sisi lain karena ngarai yang membentang terdapat 3 jembatan, masing-masing dibangun pada zaman yang berbeda: Romawi, Moor dan abad ke-18.

2. Bonifacio (Corsica)

Di ujung selatan pulau Corsica, Bonifacio merupakan komune terbesar pulau. Benteng yang kelihatan rapuh ini berada di atas tebing batu kapur putih setinggi 70 meter. Sebuah surga angkatan laut sepanjang abad, Bonifacio sekarang menjadi dermaga kecil bagi kapal-kapal pesiar mahal dari seluruh dunia.

3. Castellfolit de la Roca (Spanyol)

Sebuah kota di Catalonia, Spanyol, Castellfollit de la Roca dibatasi oleh pertemuan antara sungai Fluvià dan Toronell. Karang tempat dimana kota ini berada tingginya mencapai lebih dari 50 meter dan panjangnya hampir 1 kilometer. Kota ini terbentuk oleh hamparan dua aliran lava dan merupakan salah satu kota terkecil di provinsi ini.

4. Santorini (Yunani)

Terletak sekitar 200 km tenggara dari daratan Yunani, kepulauan Santorini terbentuk oleh sisa-sisa dari ledakan gunung api yang sangat besar yang menghancurkan permukiman yang sebelumnya merupakan satu pulau. Letusan Minoan yang terjadi sekitar 3.600 tahun yang lalu pada puncak peradaban Minoan, meninggalkan kaldera besar yang dikelilingi oleh ratusan abu endapan vulkanik dan mungkin menjadi penyebab secara tidak langsung runtuhnya peradaban Minoan di Pulau Kreta. Kecantikan spektakuler fisiknya dan kehidupan malam yang dinamis, membuat kota ini menjadi salah satu tujuan favorit wisatawan Eropa.

5. Manarola (Italia)

Berlokasi di Liguria, Manarola merupakan salah satu kota yang letaknya paling genting di Italia. Sulit menduga sudah berapa lama kota ini ada, namun teks-teks kuno Romawi tentang perayaan dalam pembuatan anggur telah ditemukan di sana. Hari ini, Anda masih bisa menikmati sambil berjalan-jalan melalui kebun-kebun anggur, berjalan di dell'Amore Via (jalan cinta) dan bangunan berwarna cerah dekat tepi.

Baca Selengkapnya

G**g*e VS Pendidikan

Saat ini siapa yang tidak kenal dengan Go**l*. Sebuah situs di dunia maya yang mampu menjawab permasalahan semua orang di dunia ini. Rasanya hampir tidak ada hal yang tidak ada jawabannya di situs ini, tinggal ketikan kata kunci yang anda cari, maka  situs ini akan memberikan jawabannya tanpa harus menunggu lama, kecuali ada masalah dengan koneksi internet anda.

Sekilas situs ini memang sangat membantu dalam semua aktifitas manusia, khususnya dalam dunia pendidikan.  Situs ini banyak memberikan referensi tentang segala sesuatu yang berkaitan dengan pendidikan, mulai dari materi-materi, artikel, e-book, bahkan contoh skripsi pun bisa didapat dari situs ini dengan mudah dan gratis tentunya.

Namun pernahkan kita semua sadar bahwa semua itu juga membawa dampak buruk bagi pendidikan kita. Kemudahan-kemudahan yang diberikan oleh situs ini dalam menyajikan informasi yang dapat diakses oleh siapapun ternyata membuat sebagian orang menjadi malas, khususnya malas untuk berfikir.

Semakin banyaknya perangkat teknologi yang dapat digunakan untuk mengakses situs ini seperti halnya handphone ternyata membuat sebagian besar orang, khususnya peserta didik dalam hal ini menjadi santai dan berleha-leha, karena mereka fikir tak perlu capek belajar ketika akan ujian, karena semua jawaban sudah ada di situs ini, cukup membeli pulsa maka mereka sudah dapat menemukan jawaban dari soal-soal yang ditanyakan. Tidak ada konsep yang tertanam karena konsep itu telah disimpan di situs ini.

Jika kita fikir secara lebih mendalam, dalam hal ini apakah situs ini membantu dalam pendidikan ataukah  situs ini malah membuat pendidikan kita menjadi carut marut tidak karuan. Coba kita renungkan bersama, apa yang akan terjadi dengan negeri ini di masa depan jika calon-calon penerus bangsa kita menjadi ketergantungan terhadap situs ini.

Baca Selengkapnya

Trik-Trik Menghadapi Polisi Agar Lolos Saat Ditilang

Bagi pengendara kenderaan bermotor hal yang paling menyebalkan selain kemacetan yang berjam-jam di jalan adalah ditangkap polisi. Apalagi para polisi banyak yang suka mengada-ada peraturan. Ada yang lagi jual rumah dan sudah pengen cepat nyampe tujuan karena sudah ditunggu oleh calon pembeli untuk rumah dijual nya, eh malah ditangkap polisi! Pasti bikin BT banget dech.

Berbagai jurus akan dikeluarkan polisi dari alasan:"jalan ini one way dari pagi sampai jam 10.00 padahal tidak ada rambunya" atau kalau bapak mau lurus, tidak boleh ambil paling kiri, padahal tidak ada rambu yang menandakan bahwa kiri harus belok kiri". Dua alasan tersebut paling sering terjadi. Contoh untuk yang pertama: banyak polisi yang mangkal persis di seberang jalan di depan bakmi Jakpos Jakarta Selatan dan banyak sekali yang ditangkap dengan alasan kalau jalan tersebut adalah one way dipagi hari. Padahal disana tidak ada rambu one way kalau dipagi hari. Tapi polisi tidak mau tau dan akan mengeluarkan berbagai gertakan nya supaya anda takut untuk ke persidangan.
Untuk contoh kedua adalah di sepanjang gunung sahari dari Harmoni sampai ke Mangga Dua. Banyak sekali polisi yang mangkal disana. Coba saja anda mengambil jalur paling kiri atau paling kanan tetapi ternyata anda tidak membelok (lurus kedepan). Dijamin pasti anda akan di stop polisi.
Dan sudah menjadi rahasia umum bahwa banyak dari kita yang memilih jalur 'damai' daripada ditilang dan ke pengadilan. Sebenarnya bukan karena kita cinta 'damai', tetapi ga mau ribet atau ga ada waktu ke pengadilan. Bagi yang tidak mau mengeluarkan duit, bisa dicoba tip-tip anti tilang dibawah ini dan trik-trik ini TIDAK PERNAH GAGAL!

RAHASIA ANTI TILANG #1: Saya anak jendral!
















Trik ni merupakan trik yang paling umum. Saya anak jendral bisa juga di ganti dengan saya saudara Pak xxx dan disertai dengan penyelipan kartu nama pejabat kepolisian. Dalam menjalani trik ini, anda harus bisa memasang tampang sok yakin dan percaya diri, disertai dengan berbicara dengan suara lantang, agak sok, dan yang pasti penuh keyakinan.

Contoh Skenario:
Polisi: "Selamat pagi, ibu telah melanggar pasal sekian karena sekian-sekian"
Anda: "YA SUDAH! YA SUDAH! TILANG SAJA SAYA SEKARANG! AYO CEPAT! TILANG SAJA!"
Polisi: "HMMMM�maaf bu, memangnya ibu..siapa ya?"
Anda: "NGAPAIN TANYA-TANYA SIAPA AKU! KALAU KAU MAU TILANG, YA TILANGLAH SANA!"
Polisi: "Maaf bu, ibu kenal siapa?"
Anda: "MEMANGNYA KALAU AKU KENAL SIAPA-SIAPA KENAPA? HAH? MAU KAU TILANG LEBIH BESAR LAGI? HAH?"
Polisi: "Engga bu, lain kali hati-hati ya"

Mengapa trik ini tidak pernah gagal? Sebenarnya trik ini merupakan teknik yang dalam ilmu psikologi disebut dengan reverse psychology, dimana seseorang melakukan persuasi dalam mengarahkan lawan bicara dengan melakukan hal yang justru tidak diinginkan oleh lawan bicara. Menyuruh pak polisi untuk menilang dengan lantang akan memicu reaksi tersendiri dalam diri Pak Polisi, yaitu respon negatif saat menanggapi sebuah persuasi, sehingga bertindak justru kebalikan persuasi yang diberikan (melepaskan dan tidak menilang).

Teori psikologi ini berasal dari abad kuno Indonesia, dan dalam masyarakat dulu lebih dikenal dengan sebutan gertak sambal yang artinya sebenarnya kita hanya menggertak. Jadi seseorang sebenarnya tidak mempunyai kekuatan atau kekuasaan yang dia miliki tetapi dia hanya membual. Semakin yakin dan percaya tindakan anda, lawan bicara semakin ragu akan kemampuan nya sendiri dan tidak berani mengambil risiko untuk melawan kita.

Karena seringnya digunakan, diperlukan kehati-hatian dalam melaksanakan trik ini. JANGAN BERBOHONG adalah kunci sukses keberhasilan. Itu termasuk: jangan mengaku saudara jika bukan saudara dan jangan memberi nomor telpon yang tidak bisa dihubungi. Ingat, kegagalan dan gerak-gerik kurang meyakinkan akan menimbulakn kecurigaan dan bisa berbuah tilang yang lebih berat!

RAHASIA ANTI TILANG #2: Saya lagi banyak masalah, Pak!
















HATI-HATI! TRIK INI MEMBUTUHKAN LATIHAN AKTING! Sebenarnya trik ini lebih cocok untuk orang yang mempunyai kemampuan berakting. Begitu diberhentikan polisi, anda sudah harus mulai penjiwaan. Segera telengkupkan tangan, basahi mata dengan air mata buaya supaya kelihatan habis menangis dan tarik ulur ingus untuk lebih meyakinkan lagi kalau anda menangis. Sepanjang interogasi, usahakan kontak mata sesedikit mungkin dengan Pak Polisi, gerakkan tangan menutup muka seperti sedang depresi akan lebih meyakinkan lagi.

Skenario
"Maaf bu, ibu melanggar pasal sekian karena sekian-sekian"
"Aduh, teserah deh, pak, bapak mau nilang saya apa gimana teserah deh,"
"Memangnya ibu kenapa?"
"Aduh, ga usah nanya-nanya deh Pak, saya lagi pusing banyak masalah nih!"
"Emang Masalah ibu apa?"
"Pokoknya saya lagi pusing banyak masalah! Makanya saya ga lihat tadi tuh lampu merah di depan soalnya pikiran saya kusut! Jadi teserah deh kalau bapak mau nilang saya�" Diucapkan dengan nada frustasi dan diakhiri dengan suara lirih dan nada gantung.
"Duh, ada yang bisa saya bantu kalau lagi ada masalah?"
"Ga bisa! Bapak ga bisa bantu saya!" terkesan mau nangis, "Ga ada yang bisa bantu SAAYAA!" menangis histeris.
"Ya uda lha kalau ibu lagi banyak masalah, lain kali hati-hati ya"

Mengapa tak pernah gagal? Karena orang jahat selalu menang, dan ini adalah teknik yang sangat jahat. Trik ini memanfaatkan sisi baik dari seorang Polisi. Manusia pada dasarnya mempunyai hati nurani yang bisa merasa kasihan terhadap orang lain. Tidak ada manusia yang lahir tanpa empati akan kesusahan manusia lain walapun hanya setitik tetap saja ada rasa ibanya. Apalagi seorang Polisi yang diharapkan menjadi pamong masyarakat.

Taktik ini memang masih jarang digunakan karena membutuhkan penghayatan yang mendalam dan susah meyakinkan si polisi, salah-salah malah ditilang lebih berat. Ditambah juga orang-orang banyak yang berpikiran bahwa polisi pasti akan lebih memilih duit daripada rasa iba, apalagi polisi jaman sekarang. Sekali dipakai, tentunya para polisi akan selalu terkenang-kenang. Ibaratnya sekali lancung ke ujian, seumur hidup orang tak percaya. Bisa-bisa bagian skenario tadi dipotong menjadi:
"Ahhh!! Udah! Udah! Ga usah pura-pura! Kemarin uda ada yang pake tuh! Ibu-ibu!"

RAHASIA ANTI TILANG #3: Saya mahasiswa hukum, lho!
















Walaupun anda bukanlah seorang mahasiswa hukum, tidak perlu ragu-ragu dalam memakai trik ini hanya karena judulnya. Siapa saja bisa memakai trik ini bahkan yang bukan mahasiswa hukum benaran. Cukup kemampuan persuasi dan kegigihan mempertahankan kasus macamnya pengacara artis.

Skenario:
"Mbak melanggar pasal sekian karena sekian-sekian"
"Aduh, maaf, Pak, soalnya rambu-nya nggak kelihatan, ketutupan pohon tuch lagian saya itu baru pertama kali lewat sini, jadi saya kurang paham sama jalanannya"
"Ya tapi nggak bisa gitu dong, Mbak tetap melanggar dan harus ditilang"
"Wah, nggak bisa langsung ditilang gitu, pak! Kan saya sudah bilang tadi alasannya, rambunya tidak kelihatan karena ketutupan pohon, jadi sebenarnya kesalahan bukan di pihak saya. Saya ini mahasiswa hukum lho, pak! Masyarakat sadar hukum! Saya tahu benar pasal-pasal dan penerapannya, bahwa kalau pelanggaran karena rambu yang tidak jelas, tidak bisa dikenakan sanksi!"
"Memang aturannya seperti itu kok, melanggar ya kena sanksi!"
"Nahh, itu dia, apalagi saya tadi sudah minta maaf karena pertama kali lewat. Saya ini mahasiswa hukum, Pak, jadi saya tahu aturan persidangan. Saya jelas tidak bersalah karena saya tidak diinformasikan sebelumnya bahwa apa yang saya lakukan itu salah. Rambu tidak jelas. Saya pertama lewat. Siapa yang bisa memberi tahu saya?"
"Justru ini saya stop dan saya beritahu, Mbak melanggar!"
"Benar sekali, terimakasih, Pak, tugas seorang polisi memang untuk membimbing anggota masyarakatnya agar patuh peraturan. Karena itu sekarang saya jadi tahu disini ga boleh belok, dan lain kali tidak melanggar."
"Tapi yang ini tetap ditilang!"
"Wah, saya yakin bapakpun sebagai penegak hukum juga belajar hukum seperti saya di fakultas hukum. Pelanggaran kali ini tidak kena tilang, pak, tapi berikutnya jika saya melanggar lagi, saya harus ditilang. "
"Ya sudah ngomong sana di sidang tilang!"

"Sekali lagi pak, saya ini sudah hampir lulus dari fakultas hukum, berarti saya menguasai materi hukum! Coba bapak liat klo ga percaya, ini kartu mahasiswa saya, FAKULTAS HUKUM angkatan tahun ini lulus. Menurut yang saya pelajari, tidak semua pelanggaran harus masuk tahap persidangan, jika sudah diberikan alasan yang valid atas pelanggaran. Saya sudah memberikan alasan saya. Saya bahkan tidak menyalahkan aparat yang meletakkan rambu di tempat yang tidak terlihat."
"Ya sudah sana pergi!"

Mengapa tak pernah gagal, sekali lagi ada hubungan psikologi manusia dengan trik ini. Secara psikologi, orang tidak suka mendengar suara keras yang memekakan telinga terus menerus atau omlean repetan orang yang panjang lebar. Nah Polisi itukan juga manusia, yang pasti akan terganggu mendengar rentetan alibi tak henti oleh suara yang tak enak didengar. Dalam pikiran polisi, lebih bagus saya mencari mangsa yang lain daripada menghabiskan waktu dengan yang satu ini.
Trik-trik diatas bukan lah bermaksud untuk menghina lembaga kepolisian. Poisi memang sudah ada perbaikan dan banyak juga diantara kita yang sudah menikmati buah reformasi birokrasi saat mengurus SIM, surat tabrakan dan ditilang. Ramah-cepat-tidak mahal. Trik-trik diatas justru ditulis agar pihak kepolisian dapat menghindari orang-orang yang suka ngemplang tilang.

Baca Selengkapnya