Guitar Video

Jazz Guitar Lesson: John Scofield Style Lick.

Membuat Billing System Sederhana

Tampilan Sebelum Running

Tampilan  Running

Listing :

Private Sub cmdkeluar_Click()
k = MsgBox(” YAKIN INGIN KELUAR BRO…??? “, vbQuestion + vbYesNo, “K3Lu4R”)
If k = vbYes Then
End
End If
End Sub

Private Sub cmdmulai_Click()
On Error Resume Next
If txtbiaya.Text = 0 Then
p = MsgBox(“Masukan Biaya Perjam”, vbCritical + vbYesNo, “ULan9 L4g! D0n9 Br0”)
ElseIf cmdmulai.Enabled = True Then
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
txtjamselesai.Text = 0
txtmenitselesai.Text = 0
txtdetikmulai = 0
cmdreset.Enabled = False
cmdmulai.Enabled = False
End If
If p = vbNo Then
End
End If
End Sub

Private Sub cmdreset_Click()
lblj = 0
lblm = 0
lbld = 0
Lbljamdurasi = 0
lblmenitdurasi = 0
lbldetikdurasi = 0
lbldetikselesai = 0
lblmenitselesai = 0
txtbiaya = “”
lbltotbi = 0
txtjamselesai.Text = “”
txtmenitselesai.Text = “”
txtdetikmulai = “”
End Sub

Private Sub cmdstop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
cmdreset.Enabled = True
cmdmulai.Enabled = True
End Sub

Private Sub Form_Load()
Timer4.Interval = 700
Form1.Caption = ” ”
End Sub

Private Sub Timer1_Timer()
lbldetikdurasi.Caption = Val(lbldetikdurasi.Caption) + Val(1)
If lbldetikdurasi.Caption = 60 Then
lblmenitdurasi.Caption = Val(lblmenitdurasi.Caption) + Val(1)
lbldetikdurasi.Caption = 0
ElseIf lblmenitdurasi.Caption = 60 Then
Lbljamdurasi.Caption = Val(Lbljamdurasi.Caption) + Val(1)
lblmenitdurasi.Caption = 0
End If
End Sub

Private Sub Timer2_Timer()
lbldetikselesai = Val(lbldetikselesai) + Val(1)
If lbldetikselesai = 60 Then
lblmenitselesai = Val(lblmenitselesai) + Val(1)
lbltotbi = Val(txtbiaya) * Val(lblmenitselesai) \ Val(lbldetikselesai)
lbldetikselesai = 0
End If
End Sub

Private Sub Timer3_Timer()
lbld = Val(lbld) + Val(1)
If lbld = 60 Then
lblm = Val(lblm) + Val(1)
lbld = 0
ElseIf lblm = 60 Then
lblj = Val(lblj) + Val(1)
lblm = 0
End If
End Sub

Private Sub Timer4_Timer()
If Form1.Caption = “P3MROGR4M4N” Then
Form1.Caption = “B!LL!NG”
Else
If Form1.Caption = “B!LL!NG” Then
Form1.Caption = “SYST3M”
Else
If Form1.Caption = “SYST3M” Then
Form1.Caption = “S3D3RH4N4”
Else
Form1.Caption = “P3MROGR4M4N”
End If
End If
End If
Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Keterangan :

Properti Timer 1, Timer2 & Timer 3 Interval = 1000

Untu Lebih jelas Silahkan Download Disini

Semoga bermanfaat…

Membongkar Source code VB

http://www.4shared.com/get/157258993/495f5351/VBDecompilerProv76-SND.html

15 Jenis Serangan Cracker

1. IP Spoofing.

2. FTP Attack.

3. Unix Finger Exploits.

4. Flooding & Broadcasting.

5. Fragmented Packet Attacks.

6. E-mail Exploits.

7. DNS and BIND Vulnerabilities.

8. Password Attacks.

9.Proxy Server Attacks.

10. Remote Command Processing Attacks.

11. Remote File System Attack.

12. Selective Program Insertions.

13. Port Scanning.

14.TCP/IP Sequence Stealing, Passive Port Listening and Packet

Interception.

15. HTTPD Attacks.

Download