WC Umum Terbagus Di Dunia !

WC Umum Terbagus Di Dunia !



Selengkapnya...

Buat Aplikasi Cek Nomer Kartu Kredit

Program kali ini kita akan belajar untuk mengetahui keaslian nomor kartu kredit "seseorang", apakah nomornya benar atau hanya nomor asal-asalan.
Jika anda pernah mampir ke dalam sebuah ATM (Mesin Uang), tentu anda pernah melihat struk pengambilan yang tercecer di lantai, nah nomor-nomor yang tertera di kertas struk tersebut merupakan nomor kartu kredit. Dengan nomor yang ada (jika ada sih, beberapa bank tidak mencetak nomor kartu kredit di struk) mungkin dapat digunakan seseorang untuk tujuan negatif. Jadi mulai sekarang simpan struk anda saat melakukan transaksi di ATM, dan ambil struk-struk yang tercecer di lantai ATM siapa tahu dapat digunakan untuk latihan carding misal belanja online di internet he..he..
Langsung saja Yang dibutuhkan dalam pembuatan program ini adalah :


1. textbox dengan properti name = txtsimpan
2. dua commandbutton dengan properti name CmdCek dan CmdDelete
3. satu label dengan properti name lblStatus
==============================================
Masukkan semua code di bawah ini ke dalam form
==============================================
Function isEven(n As Integer) As Boolean
isEven = True
If n And 1 Then isEven = False
End Function
Function CheckCard(CCnumber As String) As Boolean
Dim Counter As Integer, TmpInt As Integer
Dim Answer As Integer
Counter = 1
TmpInt = 0
While Counter <= Len(CCnumber) If isEven(Len(CCnumber)) Then TmpInt = Val(Mid$(CCnumber, Counter, 1)) If Not isEven(Counter) Then TmpInt = TmpInt * 2 If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCnumber, Counter, 1))
If isEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function
Private Sub CmdCek_Click()
If TxtSimpan.Text = "" Then
LblStatus.Caption = "Isi Dahulu TextBoxnya !"
Else
LblStatus.Caption = CheckCard(TxtSimpan.Text)
End If
End Sub

Private Sub CmdDelete_Click()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub

Private Sub Form_Load()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub

Private Sub TxtSimpan_Change()
If Len(TxtSimpan.Text) < 16 Then LblStatus.Caption = "Nomer Kartu Kredit Terdiri Dari 16 Angka" End If End Sub Private Sub TxtSimpan_KeyPress(KeyAscii As Integer) If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
=============================
Akhirnya Semoga bermanfaat.

Selengkapnya...

Membuat ReadMore Pada Template Klasik

Untuk membuat menu Read more kita harus menambahkan beberapa kode HTML ke dalam template blog kita. Tapi untuk postingan kali ini, saya khususkan untuk blogger yang memakai template klasik saja, untuk yang memakai template baru silahkan tunggu pada postingan yang akan datang.

Silahkan ikuti langkah-langkah berikut :

* Login ke blogger.com dengan id sobat


* Klik menu bertuliskan Template


* Klik menu Edit HTML


* jangan lupa Copy seluruh kode template milik sobat lalu paste pada notepad dan kemudian simpan, untuk membuat back up data. Ini dimaksudkan apabila terjadi kesalahan dalam template setelah kita otak-atik, kita masih punya cadangan data untuk mengembalikannya.

Untuk lebih lengkapnya silahkan download file nya di :
klick Here

Selengkapnya...

Membuat Laporan pada VB dengan Data Report dan Data Environment

Kini saatnya kita membuat laporan untuk database yang sudah pernah kita buat sebelumnya (Database : pengajaran). Pada pembahasan kali ini kita akan bahas dan praktekkan cara membuat laporan sederhana menggunakan Data Report dan Data Environment yang sudah terintegrasi langsung pada Visual Basic. Semoga artikel ini bermanfaat bagi yang sudah tidak sabar ingin mencoba membuat laporan agar dapat dicetak di kertas sesegera mungkin. Semoga masih semangat juga belajar pemrograman. SEMOGA


Download dan Baca Selengkapnya:
Laporan pada Visual Basic dengan Data Report

Selengkapnya...

Membuat Laporan pada VB dengan Data Report dan Data Environment

Kini saatnya kita membuat laporan untuk database yang sudah pernah kita buat sebelumnya (Database : pengajaran). Pada pembahasan kali ini kita akan bahas dan praktekkan cara membuat laporan sederhana menggunakan Data Report dan Data Environment yang sudah terintegrasi langsung pada Visual Basic. Semoga artikel ini bermanfaat bagi yang sudah tidak sabar ingin mencoba membuat laporan agar dapat dicetak di kertas sesegera mungkin. Semoga masih semangat juga belajar pemrograman. SEMOGA


Download dan Baca Selengkapnya:
Laporan pada Visual Basic dengan Data Report

Selengkapnya...