Membuat Bentuk Segitiga Dari Karakter Asterik

 

Untuk membuat bentuk seperti gambar diatas kita bisa menggunakan metode perulangan, bisa menggunakan perulangan for....next atau bisa juga dengan do....while. Sejatinya kita hanya harus membuat urutan angka dari kecil ke besar kemudian ketika sampai pada data tengah urutan angka kembali menjadi lebih kecil, misalnya :

1

2

3

4

5

4

3

2

1

Untuk dapat membuat susunan angka menjadi seperti itu maka kita terlebih dahulu harus mengetahui banyaknya baris atau banyakknya data kemudian kita juga harus mengetahui data tengahnya. Untuk hasil yang proposional maka jumlah data sebaiknya ganjil.

Untuk mengetahui nilai tengah kita dapat menggunakan operator aritmatika "\" agar dapat mengetahui pembualatan dari hasil bagi misalnya 5\2 maka akan dihasilkan angka 2.

Untuk membuat  urutan seperti diatas maka sebelum sampai di data tengah angka ditambahkan dengan 1 (angka + 1) dan setelah melewati angka tengah maka jumlah data dikurangi dengan angkanya.

Berikut ini contoh kodenya dengan perulangan for:

jumlah_data = Val(Text1.Text)

tengah = (jumlah_data \ 2) + 1
For i = 1 To jumlah_data
  If i <= tengah Then
    For j = i To 1 Step -1
      Print "*";  'Untuk menghasilkan angka maka "*" dapat diganti dengan j
    Next j
    Print
  Else
    For j = i To jumlah_data
      Print "*";  'Untuk menghasilkan angka maka "*" dapat diganti dengan j
    Next j
    Print
  End If
Next i

Untuk program lengkapnya dapat didownload disini.

Read more ...

Memecah Kata Dari Sebuah Kalimat

Ada beberapa cara untuk memecah sebuah kalimat menjadi kata-kata. Salah satu cara itu adalah dengan memanfaatkan prosedur perulangan. Dalam contoh yang saya buat saya menggunakan beberapa langkah agar dapat menghasilkan kata-kata dari sebuah kalimat yang di-input-kan dalam sebuah textbox yang kemudian dimasukkan ke dalam sebuah listbox.

x = 0
For j = 1 To Len(Trim(Text1.Text))
kt1 = Mid(Trim(Text1.Text), j, 1)
kta = kta + kt1
If kt1 = Chr(32) Then
x = x + 1
List1.AddItem Trim(kta)
kta = ""
End If
Next j

If x = 0 Then List1.AddItem Trim(kta)
If x > 0 Then List1.AddItem Trim(kta)

Dalam program ini saya menggunakan variabel "x" yang saya gunakan sebagai counter yang berfungsi untuk mengetahui jumlah kata pada textbox.
Untuk mendapatkan kata-kata pada kalimat saya menggunakan perulangan dan fungsi "Mid" yang dimulai dari "j" yang berasal dari nilai perulangan dan mengambil 1 karakter yang saya masukkan kedalam variabel "kt1". Selanjutnya variabel ini saya gabungkan kedalam variabel "kta" yang akan menghasilkan sebuah kata. Apabila dalam variabel "kt1" bernilai karakter spasi yang berarti ini adalah akhir dari sebuah kata maka program akan mengeksekusi percabangan "if" yang membuat counter "x" akan bertambah dan memasukkan kata dari variabel "kta" kedalam listbox dan mengosongkan kembali nilai variabel "kta" untuk selanjunya digunakan untuk menampung kata selanjutnya hingga perulangan selesai. Fungsi dari variabel "x" yang saya jelaskan diawal tadi akan terlihat pada dua baris terakhir program.

Pada baris " If x = 0 Then List1.AddItem Trim(kta)".
Apabila nilai variabel "x" adalah "0" maka dapat diartikan bahwa kalimat pada textbox hanya berisi sebuah kata saja karena tidak terdapat karakter spasi yang merupakan tanda akhir sebuah kata. Maka program akan memasukkan nilai dari variabel "kta" yang merupakan kata dari perulangan yang dilakukan sebelumnya kedalam listbox.
Sedangkan pada baris terakhir akan berfungsi untuk memasukkan kata terakhir pada kalimat di textbox. Apabila kita tidak menggunakan baris ini, maka program tidak akan memasukkan kata terakhir karena diakhir kalimat tidak terdapat spasi yang merupakan tanda akhir sebuah kata. Untuk membuktikannya anda bisa menghapus atau menonaktifkan baris terakhir ini dengan memberikan tanda " ' " di depan baris ini.

Berikut ini adalah contoh desain aplikasi yang saya gunakan :
Untuk coding lengkapnya kalau mau bisa di download disini.


Read more ...

Mengambil Data Dari Form Lain

Ada saatnya ketika kita ingin mengambil data yang terdapat pada suatu form untuk dapat kita gunakan pada form lainnya. Misalnya kita memiliki data pada sebuah kontrol textbox pada form1 dan kita ingin mengambil data tersebut tanpa harus melihat kembali ke form1 atau kita tidak perlu melakukan copy paste dari satu form ke form yang lainnya. Caranya tidaklah sulit, format umumnya adalah sebagai berikut:

[kontrol]form_tujuan=form_sumber[.][kontrol_sumber][.][properti kontrol]

Sebagai contoh:
Ketika kita ingin mengambil data yang ada pada text1 pada form1 yang akan menjadi sumber data dan meletakkannya pada sebuah label1 pada form2 sebagai form tujuan maka kode yang harus kita tuliskan adalah:

label1.caption=form1.text1.text

Hanya seperti itu...???
Ho'o... hanya seperti itu. Namun ketika saya coba ternyata ada ketentuan lain yang harus diperhatikan. Ketentuannya adalah form sumber tidak boleh kita unload atau kita tutup secara penuh. Lantas bagaimana bila kita tidak ingin menampilkan form1..? Kita bisa menggunakan prosedur "hide" yang sudah ada pada setiap form untuk sekadar menyembunyikan form1. Untuk pemanggilannya kita bisa menggunakan perintah:

form1.hide atau Me.hide dimana Me disini adalah form tempat kode ini berada. Untuk melihat perbedaannya bisa dilihat pada contoh aplikasi sederhana ini.

Semoga bisa menambah pengetahuan buat pemula seperti saya.

Read more ...

AplikasiPenguji Query SQL

Untuk mempermudah mempelajari dan memahami pernyataan atau query SQL salah satunya adalah dengan membuat sebuah aplikasi yang dapat menampilkan hasil dari eksekusi dari sebuah query SQL.

Aplikasi yang perlu dibuat tidaklah rumit kita hanya membutuhkan beberapa komponen yang sudah tersedia, yaitu : MS Data Bound Grid, Kontrol Data, Sebuah Textbox dan sebuah CommandButton. Untuk desain aplikasinya bisa dilihat disini.
Untuk database yang digunakan kita bisa menggunakan sampel database BIBLIO.mdb yang biasanya disiapkan pada

Private Sub Command1_Click()
On Error GoTo SQLErr:

Data1.RecordSource = Text1.Text
Data1.Refresh

If Data1.RecordSource <> "" Then
If (Data1.Recordset.RecordCount > 0) Then

With Data1.Recordset
.MoveLast
.MoveFirst
End With

End If
Else

MsgBox "Anda belum memasukkan query sql", vbInformation + vbOKOnly, "Blank Query"
End If

Exit
Sub SQLErr:
Dim sErr As String
sErr = "Error Number: " & Err.Number & vbCrLf
sErr = sErr & Err.Description
MsgBox (sErr)
Exit Sub
End Sub

Private Sub Form_Load()
Data1.DatabaseName = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
End Sub

Berikut penjelasan singkatnya :

Pada saat form di load maka kita akan mengatur properti databasename dari kontrol Data1 yang bisa kita ubah sesuai dengan database yang kita inginkan. Bila database yang kita gunakan berada satu folder dengan aplikasi yang kita simpan maka kita bisa menggunakan code sbb:

Data1.Databasename = App.Path & "\Nama Database.mdb"

Untuk penanganan kesalahan atau error maka kita memakai On Error GoTo SQLErr dimana apabila terjadi kesalahan maka program akan mengeksekusi SQLErr yang akan menampilkan nomor urut kesalahan dan deskripsi kesalahan dalam bentuk messagebox.

Sedangkan untuk menampilkan hasil eksekusi query sql yang sudah disiapkan pada textbox hanya dibutuhkan dua baris code yakni :

Data1.RecordSource = Text1.Text Data1.Refresh

Dimana query pada textbox1 akan dimasukkan pada properti RecordSource dari kontrol Data1 yang kemudian data akan di-refresh dan ditampilkan ke kontrol DBGrid.

Sedangkan code dibawahnya digunakan untuk mengantisipasi program dari crash saja.

Untuk mendapatkan code secara lengkap bisa diambil disini.

Untuk mencoba program ini terlebih dahulu kita cari tahu tabel dan field apa saja yang ada pada database BIBLIO.mdb diantaranya terdapat tabel Authors, Publishers, Title Author, dan Titles. Sebagai percobaan pertama silahkan ketikkan query berikut pada textbox "Select * from Authors" dan lihat hasilnya. Kita juga bisa mencoba beberapa query SQL yang lain untuk mempelajarinya.

Semoga Berguna................. Read more ...

Menentukan Bilangan Prima

Bilangan prima adalah bilangan yang hanya bisa dibagi dengan angka 1 dan angka itu sendiri kecuali bilangan 1, kalau tidak salah itu adalah definisi yang diberikan guru dulu waktu SD, kalau sekarang da berubah aku gak tau. Untuk membuat sebuah aplikasi sederhana, terutama dengan menggunakan visual basic 6 kita bisa menggunakan banyak algoritma, bisa saja algoritma pemrograman yang saya gunakan tidak sama dengan yang anda pikirkan, saya kira hal itu sah-sah saja. Disini saya mencoba menggunakan algoritma yang sederhana saja dengan memamfaatkan perulangan "for ... next".

Untuk membuat aplikasi ini cukup mengggunakan sebuah textbox dan sebuah commandbutton. Berikut adalah contoh kode yang saya gunakan:

Private Sub cmdOK_Click()
Dim nilai, x
If Text1.Text = "" Then
MsgBox "Anda belum memasukkan angka", vbInformation + vbOKOnly, "Error"
Text1.SetFocus
ElseIf Val(Text1.Text) <= "0" Then
MsgBox "Anda hanya boleh memasukkan angka lebih besar dari 0", vbInformation + vbOKOnly, "Error"
Text1.SetFocus
ElseIf Val(Text1.Text) = "1" Or Val(Text1.Text) = "2" Then
MsgBox Text1.Text & " BUKAN PRIMA", vbInformation + vbOKOnly, "Informasi"
Text1.SetFocus
Else
For i = 2 To (Val(Text1.Text) - 1)
nilai = Val(Text1.Text) Mod Val(i)
If nilai = "0" Then
x = x + 1
Exit For
End If
Next i

If x > 0 Then
MsgBox Text1.Text & " BUKAN PRIMA"
Else
MsgBox Text1.Text & " BILANGAN PRIMA"
End If
End If
End Sub

Algoritma yang saya gunakan sangat sederhana menurut saya, dimana saya akan melakukan perulangan yang dimulai dari 2 sampai angka yang kita masukkan yang sudah dikurangi 1, dimana bila dalam perulangan program menemukan nilai bagi yang tidak ada sisa atau "0" maka bisa dipastikan bilangan itu bukan prima karena memiliki angka bagi. Untuk menghasilkan program seperti itu maka saya menggunakan operator matematika berupa"mod", yaitu nilai sisa dari hasil bagi. Misalnya 15 / 4 maka sisa baginya adalah 3, maka 15 mod 4 hasilnya adalah 3.

Bila sisa bagi adalah "0" maka nilai dari baris "If nilai = "0" Then" menjadi True maka program akan mengeksekusi baris dibawahnya yang menyebabkan nilai "x" menjadi bertambah 1 dan "exit for" digunakan untuk keluar dari perulangan dan akan langsung mengeksekusi perintah setelah "next".

Dalam kode program yang saya gunakan saya menggunakan kata "Val" yang merupakan perintah untuk konversi nilai ke numerik.

Sekali lagi saya tekankan, cara saya membuat program ini mungkin berbeda dengan yang anda pikirkan, namun itu bukanlah sebuah persoalan, mudah-mudahan contoh yang saya berikan bisa menambah pengetahuan kita semua. Semoga berguna. Read more ...

Form Login dengan Database

Untuk membuat form login yang berhubungan dengan data base pada dasarnya sama dengan membuat form login biasa. Yang menjadi perbedaan adalah kita mengambil data dari database yang sebelumnya telah tersimpan.

Untuk memulai mencoba membuat halaman login, terlebih dahulu membuat database misalnya dari microsoft access dengan nama tabel "login" dan berisi 2 buah kolom yaitu "username" dan "pass".

Setelah database kita buat maka tahap selanjutnya adalah membuat tampilan halaman login yang terdiri dari dua buah label, 2 buah text box dan dua buah command button.
Berikut adalah property yang saya ubah dari masing-masing tool:
Form : Caption > LOGIN
Label1 : caption > Username
Label2: caption > Password
Text1 : name > txtuser
Text2 : name > txtpass
PasswordChar > *
Command1: name > cmdLogin
Caption > &Login
Command2: name > cmdExit
Caption > &Exit
Berikut adalah bentuk tampilannya

Setelah itu kita baru masuk pada tahap pembuatan kode:

Kalo mau coba ini ada contoh kode-nya. Kalo malas ngetik atau copas desain dan codenya bisa di ambil disini:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub

Penjelasan singkatnya sbb:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub


Baris-baris kode ini adalah modul koneksi ke database, biasanya diletakkan pada sebuah modul apabila kita memiliki banyak form, karena kita hanya memiliki sebuah form maka kita letakkan pada form. Dan prosedur ini akan kita panggil pada saat form kita load “call Connections”

Private Sub cmdExit_Click()
End
End Sub

Kode ini saya kira sudah sangat jelas, yaitu untuk mengakhiri atau menutup form.

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub
Untuk bagian ini hamper sama ketika kita membuat halaman login tanpa data base yang sudah pernah saya postingkan, hanya saja yang menjadi perbedaan hanya terletak pada beberapa bagian saja. Yaitu pada

sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Disini kita akan menggunakan query sql untuk melakukan pencarian username terlebih dahulu kemudian hasilnya kita simpan pada variable rst setelah eksekusi query dilakukan. Apabila data tidak ditemukan maka akan menuju ke sub prosedur noacc, namun bila ditemukan maka kita akan membandingkan nilai password yang ada pada database dan password yang di-input-kan oleh user.

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub


Bagian ini adalah bagian yang pertama kali dijalankan oleh program karena ditelakkan pada saat form kita buka. Kode ini hanya berfungsi untuk melakukan pengaturan awal saya, misalnya call connections, yaitu untuk melakukan pangggilam koneksi ke database, kemudian pengatur textbox menjadi kosong yaitu dengan menggunakan (“”) atau bisa juga dengan kata Empty.

Dah Cuma gitu aja, kayaknya gak susah2 bgt. Met mencoba deh. Read more ...

Halaman Login Sederhana

Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.
Form :
(Name) : frmLogin
BorderStyle : 1-fixed single
Caption : LOGIN
Label1:
Caption :Username
Label2:
Caption :Password
TextBox1:
Name :txtName
Text :dikosongkan
TextBox2:
Name :txtpass
PasswordChar: * (asterisk)
Text :dikosongkan
CommandButtton:
Name : cmdLogin
Caption : LOGIN

Berikut adalah contoh tampilan halaman login:



Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya. Read more ...

CommandButton Abjad

Untuk membuat tombol yang berurutan dari A hingga Z, bila kita melakukannya secara manual, berarti kita harus membuat 25 buah command button dengan caption yang berbeda, tentu hal ini akan membutuhkan waktu. Maka disini akan saya berikan cara membuat deretan command button dari A hingga Z dengan menggunakan kode program.

Langkah-langkanya sebagai berikut:

1. Buatlah sebuah commandbutton pada form dengan memberikan properti index dengan nilai “0” dan caption “A”.
2. Ketikkan kode berikut pada procedure Form_Load

For i = 1 To 25
Load Command1(i)
Command1(i).Left = Command1(i - 1).Left + Command1(0).Width
Command1(i).Caption = Chr(vbKeyA + i)

Next i

Dalam program ini kita memanfaatkan perulangan For...Next yang digunakan untuk membuat tombol-tombolnya. Perulangan dilakukan sebanyak 25 karena jumlah abjadnya ada 26 kita kurangi 1 karena sudah kita buat secara manual.
Perintah “Load Command1(i)” berfungsi untuk memuat atau membuat commandbutton selanjutnya dengan property name Command dan dengan index “i”.
Langkah selanjutnya program akan mengatur property Left pada tombol yang baru berdasarkan jarak kiri commandbutton sebelumnya ditambahkan dengan nilai property Width commandbutton sebelumnya.
Untuk memberikan nilai caption-nya kta menggunakan fungsi Chr dengan parameter nilai ASCII dari A (vbKeyA) ditambah dengan nilai “i”.
Bila kita selesai sampai disini maka tombol yang kita buat belum bisa tampil pada saat program kita run, sehingga kita perlu mengatur nilai visible-nya menjadi true. Untuk itu tambahkan kode berikut sebelum perintah “Next i”.

Command1(i).Visible = True
Read more ...

Tool Debugging

Untuk mencari dan mengurangi error pada saat program dijalankan atau error karena kesalahan logika alur program maka kita harus menguasai beberapa tool debugging. Selain itu tool debugging jaga dapat kita gunakan untuk dapat lebih memahami dan mengikuti alur logika dari sebuah program agar dapat mengerti dengan baik proses yang terjadi di dalam program dan pada saat program kita jalankan.

Berikut ini adalah beberapa tool debungging yang dapat kita gunakan. Sebelumnya untuk menampikan tool debugging pada toolbar kita bisa masuk pada menu View -> Toolbars -> Pilih Debug. Maka akan muncul sbb:

• Toggle Breakpoint

Berfungsi untuk mengatur statemen code dimana eksekusi seharusnya dihentikan. (F9)

• Step Into

Berfungsi untuk mengeksekusi kode dibaris berikutnya dan masuk pada prosedur yang dipanggil (F8)

• Step Over

Berfungsi untuk mengeksekusi kode dibaris berikutnya dan keluar dari prosedur yang dipanggil (Shift + F8)

• Step Out

Berfungsi untuk menyelesaikan eksekusi dari sebuah prosedur dan berhenti di baris berikutnya di prosedur yang dipanggil. ( Ctrl + Shift + F8 )

• Run to Cursor

Tool ini berfungsi untuk meneruskan dan menghentikan eksekusi di statement yang kita tentukan. (Ctrl + F8)

• Quick Watch

Untuk menampilkan nilai dari ekspresi yang dipilih pada saat Break Mode ( Kondisi pada saat program menemukan sebuah kesalahan program, dimana biasanya VB akan masuk ke kondisi ini secara otomatis ). (Shift + F9)

Untuk dapat menguasai tool-tool ini tentu kita harus membiasakan diri dengan mereka. Untuk mencobanya anda bisa mencoba membuat program apa saja trus dicobain tool tadi.
Read more ...

Tulisan Berkedip

Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??

Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:


label1.visible=not label1.visible

Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.

Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja seperti contoh ini.
Read more ...