Select Case pada Visual Basic

Bentuk Select Case digunakan untuk percabangan banyak. Select Case biasa dipakai untuk alternatif Bentuk If..Then..Else, karena code-codenya lebih mudah dibaca atau tidak ruwet :) hehe...
Bentuk dari Select Case adalah berikut:

Select Case <kondisi>
Case <ekspresi-1>
<pernyataan-1>
...
<pernyataan-1>
Case <ekspresi-2>

Memindahkan Item pada Listbox ke Listbox yang lainnya | Tutorial Visual Basic

sekarang saya akan berbagi cara membuat program yang sangat sederhana yaitu program memindahkan semua Item pada ListBox yang sebelah kiri ke ListBox yang sebelah kanan dan mengembalikan lagi ke Listbox sebelah kiri dengan menggunakan bentuk perulangan For...Next. dengan bentuk ini kita akan membuat index Item pada ListBox menjadi  nilai awal dan akhirnya.

Biar lebih jelas kita praktekan saja! 

1. Buat New Project, Standard EXE

2. Tambahkan 2 ListBox dan 2 Commanbutton

3. Ubah properti List1,Command1 dan Command2 menjadi seperti berikut :

List1

List

Anggur Jeruk Apel Melon Jambu Semangka Nanas

Contoh If .. Then pada visual basic

ada bentuk If...Then...Else ada dua percabangan atau bagian. Percabangan yang pertama untuk pernyataan-pernyatan jika kondisi tercapai, dan percabangan yang kedua untuk pernyataan-pernyataan jika kondisi tidak tercapai.

Perbedaan If...Then dan If...Then...Else

If...Then	If...Then...Else
hanya ada satu percabangan (percabangan tunggal)	terdapat dua percabangan
hanya jika kondisi tercapai yang dapat dijalankan	kondisi tercapai atau tidak tercapai dapat dijalankan

VB TUTORIAL - Alur Program(Kondisi Percabangan)

 Sebuah aplikasi harus memiliki alur program yang baik sehingga tidak akan terjadi kesalahan
dan hasil yang dikeluarkan oleh program tidak menyimpang dari yang diinginkan ketika
program berjalan. Untuk itu perlu dibuat sebuah kondisi percabangan dalam program. Dalam
Visual Basic ada beberapa kondisi percabangan yang dapat digunakan seperti IF… THEN atau
SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti
operator sama dengan (=), tidak sama dengan (<>) atau operator‐operator perbadingan lainnya
( >, >=, <, <=).

1. If … Then
Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau
lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True )
maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan
memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan
menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi
berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan. Bentuk kondisi
percabangan If … Then pada Visual Basic adalah :

If Kondisi1 Then
Pernyataan1
…………
ElseIf Kondisi2 Then
Pernyataan2
…........
Else
Pernyataan3
…………
End if


Kondisi percabangan If …Then biasanya digunakan untuk menentukan kondisi perhitungan
matematika, membatasi tndakan pengguna program , mengatur tampilan atau mencegah
error ketika program di jalankan.

2. Select Case
Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug
serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan.
Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut :

Select Case Pilihan
Case 1
Pernyataan1
…..
Case 2
Pernyataan2
…..
Case 3
Pernyataan3
……
End Select

Pada struktur percabangan Select Case di atas jika Pilihan yang dimasukkan oleh pengguna
bernilai 1 maka Pernyataan 1 di eksekusi, jika bernilai 2 maka Pernyataan 2 yang dieksekusi,
jika bernnilai 3 maka Pernyataan 3 yang di eksekusi.

Untuk lebih memahami materi tentang kondisi percabangan, buatlah project baru pada Visual
Basic 6.0 kemudian pilih Standard.EXE dan buatlah tampilan Form sebagai berikut :

Alur Program : Percabangan IF, IIF dan CASE Pada Visual Basic 6.0

Di bawah ini saya berikan contoh penggunaan IF, IIF dan Case pada code program vb 6 :
SOAL :

Text1	Text2	Text3
10	A	LULUS
9	A	LULUS
8	A	LULUS
7	B	LULUS
6	C	LULUS
5	D	TIDAK LULUS
4	E	TIDAK LULUS
3	E	TIDAK LULUS
2	E	TIDAK LULUS
1	E	TIDAK LULUS
0	E	TIDAK LULUS

Sebagai contoh kita akan menyelesaikan soal diatas dengan IF, IIF dan Select Case

Membuat Program Zodiak Sederhana Menggunakan VB 06

Membuat Program Zodiak Sederhana Menggunakan VB 06,
Apa kabar agan-agan semua, nih aku sedikit share project aku tiap minggu, bikin program yang inputnya nama, tanggal lahir terus outpunya akan kelihatan apa bintang or zodiaknya.
Programnya sederhana sesuai judulnya(hehe…) cuma nenggunakan percabangan IF dan Else. Namun di bagian penanggalan kita akan menggunakan DTPicker.
Oke langsunga aja ya dari pada kelamaan

Operator Logika

edikit berbagi aja dari yang pernah aku baca di buku, sebenarnya seh aku kurang paham ma operator logika ini tapi semoga yang baca tulisan di bawah ini lebih paham ya hehehe… Operator logika itu mengikuti aritmatika dalam pengutamaan perhitungan. Adapun operator-operator tersebut adalah :

Operator

Keterangan

If Then Else

Statement bercabang digunakan untuk melakukan suatu tindakan di dalam suatu program berdasarkan kondisi tertentu. Salah satu percabangan yang tidak asing di telinga kita adalah percabangan if then else karena pada aplikasi excel percabangan tersebut juga kita gunakan. Percabangan if then else ini digunakan untuk menjalankan satu blok perintah yang nilainya tergantung pada kondisi yang diuji. Penulisannya adalah sebagai berikut :

If kondisi then
pernyataan 1
Else
pernyataan 2
End if

Atau kita bisa menambahkan statement ElseIf, sehingga menjadi :

If kondisi 1 then
pernyataan 1
ElseIf kondisi 2 then
pernyataan 2
Else
pernyataan 3
End If

Bingung khan?!?aku aja juga bingung sob hehehe…
Nie kan aku coba jelasin yah, yang namanya percabangan khan pasti ada pilihan lebih dari satu(pernyataan), bisa A, B, C sampe seterusnya. Untuk percabangan If-Then-Else-End If ini, pertama kita mendeklarasikan satu kondisi terlebih dahulu, sesudah itu pasti ada pilihan jawabannya bisa benar ato bisa salah. Jadi percabangan If-Then-Else-End-If ini memerlukan kondisi yang tempatnya setelah perintah If, dan jawaban dari kondisi tadi jika benar maka dijawab dengan pernyataan 1 yang terletak setelah Then tapi jika salah maka pernyataan 2 tempatnya terletak setelah Else dan yang terakhir menutup perintah If dengan End If. Misal jika paijo_jr cowok maka paijo_jr ganteng tapi jika paijo_jr bukan cowok maka paijo_jr cantik(hiks…). Tuh tadi soalnya, jika soal itu diubah menjadi bahasa kayak di atas tadi maka bunyinya begini :

If paijo_jr=cowok then
paijo_jr ganteng
Else
paijo_jr cantik
End if

Hm…udah berkurang bingungnya?!?wah masih belum jelas, oke kita buat project baru saja untuk mempraktekkan percabangan if then else ini.

Pertama buat project baru, buka Microsoft Visual Basic nya lalu klik StandardEXE;
Kedua tambahkan satu buah Label, satu buah TextBox dan satu buah CommandButton kemudian atur seperti gambar dibawah ini:

Ketiga atur properties masing-masing komponen sebagai berikut:

Form
Name	frmCabang
Caption	Contoh Percabangan
Label1
Name	lblCabang
Alligment	Center
AutoSize	True
Caption	“” Dikosongi
Font	Size 12
ForeColor	Pilih Warna Biru
CommandButton
Name	cmdCabang
Caption	Test Cabang
TextBox
Name	txtCabang
Text	“” Dikosongi

Keempat, klik cmdCabang atau pindah ke Code Window lalu isikan source code di bawah ini :

Private Sub cmdCabang_Click()
If txtCabang.Text = "" Then
lblCabang.Caption = "TextBox Kagak Ada Isinya"
Else
lblCabang.Caption = "Wah Tuh Ada Isinya Boz"
End If
End Sub

Kelima, klik F5 dan klik Test Cabang lihat hasilnya ketika textbox kosong dengan ketika textbox ada hurufnya;

Penjelasan Source Code :

Private Sub cmdCabang_Click()
Maksud dari perintah diatas adalah apabila cmdCabang (CommandButton) di klik maka akan menjalankan perintah dibawahnya dan End Sub untuk mengakhiri perintah.

If txtCabang.Text = "" Then
Disini perintah percabangan dimulai, dimana pada awalnya di lihat apakah txtCabang.Text tidak ada isinya (tanda petik dua berarti kosong “”), kalau txtCabang.Text ternyata kosong maka memberi perintah kepada lblCabang.Caption untuk mengisi "TextBox Kagak Ada Isinya" , tetapi jika ternyata txtCabang.Text tersebut tidak kosong atau berisi minimal satu karakter (huruf atau angka) maka memberi perintah untuk mengisi lblCabang.Caption menjadi "Wah Tuh Ada Isinya Boz". Dan perintah If tersebut diakhiri dengan End If

Nah pasti sekarang udah agak paham ya, hehehe…gak sia-sia aku buat tutorial percabangan if then else ini.

Syntax Do... Loop dan For... Next

Syntax atau dalam bahasa Indonesia Sintaksis adalah ilmu mengenai prinsip dan peraturan untuk membuat kalimat dalam bahasa alami. Selain aturan ini, kata sintaksis juga digunakan untuk merujuk langsung pada peraturan dan prinsip yang mencakup struktur kalimat dalam bahasa apapun.
Dalam hal ini Syntax yang akan dibahas merupakan Syntax untuk pemrograman Visual Basic 6.0. Dalam Syntax Visual Basic 6.0 terdapat banyak sekali Syntax yang salah satunya adalah syntax perulangan yakni Do... Loop dan For... Next (satu-satu ngebahasnya kalo semua bahhh bisa panjang banget page nya hehehe...)

Syntax Do… Loops
Digunakan sebagai statemen perulangan.

Syntax 1 :

Do Until (Expression)

                (code to execute)

Loop

Contoh : 

Dim x as Integer

Cara membuat program penghitung berat badan ideal dengan visual basic

Hello para programing Visual Basic, selamat datang lagi di web saya. Postingan kali ini saya akan membagikan ilmu yang berbeda, yaitu cara membuat program penghitung berat badan ideal dengan vb .
Ini dia Screenshotnya..

Setelah melihat gambar tersebut, buat form seperti pada gambar di atas dengan 5 Label, 4 Textbox dan 3 Command button….. 

nama di properties command ganti masing-masing dengan nama Proses, Ulang dan selesai…
.

Cara membuat Label Bergerak Kekanan Dan Kekiri Dengan Visual Basic

Kali ini kita membuat label bergerak ke kanan atau ke kiri dengan visual basic tentunya dong .
 Syaratnya adalah .
Buat 1 buah timer dengan interval 50 dan 1 buah label .

pada timer 1, ketikkan code berikut :

Label1.Left = Label1.Left - 10
    If Label1.Left <= -Label1.Left Then
        Label1.Left = Form1.Width
    End If

 Perhatikan tulisan Form1.Width fungsi code itu adalah panjangnya lintasan label saat bergerak .

Sudah mengertikan cara membuat label bergerak!
Jika ada yang ingin di tanyakan, silahkan berkomentar .

perulangan, sub menu dan timer pada vb

Buatlah Form seperti di bawah ini..
Form1 di bawah ini Menggunakan Menu Editor.. 

Form2  di bawah ini Untuk Perulangan...

Source Code Advanced Login Using Tabs

Hal ini untuk membantu pemula menunjukkan bagaimana menggunakan tab dan membuat login yang canggih yang dapat dilampirkan ke sana prog memiliki Buat account dan Tab password, login dan Tab password, dan account admin dan Tab sandi, saya tahu mereka adalah banyak fitur yang bisa ditambahkan pada <span

Cara Membuat ProgressBar Dengan Visual Basic

Setelah beberapa minggu kemarin hampir semua isi blog saya terhapus karena kecerobohan saya, kini saatnya saya perbaharui postingan yang terhapus .

Langsung saja,
Buat 1 buah timer dan 1 buah progessbar dengan cara
Crtl+T, lalu pilih microsoft windows common control sp6 .
nah di bagian kiri pilih progressbar, dan masukkan ke form .

Nah, sekarang bagian coddingnya .

Masukkan ini pada timer 1 .

progressbar1.value = progessbar1.value + 5
if progressbar1.value = 100 then
msgbox "ProgressBar sudah penuh.",vbInformation,"Penuh"
end if

nah, gampangkan ???
Selamat mencoba .

Kata yang mungkin membantu anda :
Cara membuat progressbar dengan vb
source code vb
download user control progressbar dengan visual basic
cara membuat progress bar dengan visual basic

Percabangan => Pemilihan keputusan untuk mengeksekusi program berdasarkan kondisi yang di tetapkan, dapat berupa satu atau lebih kondisi dan dapat terdiri dari satu atau lebih pilihan  .

=> Bentuk-bentuk percabangan 

1. if ...then

   - Bentuk ini pemilihan keputusan apabila kondisi percabangan maka hanya satu bagian percabangan saja yang di kerjakan, sebaliknya . Jika kondisi percabangan tidak terpenuhi maka tidak ada yang di kerjakan .

Percabangan dengan Visual Basic

Bentuk-bentuk kondisi yang ada pada visual basic adalah :
A.Kondisi Perulangan
Dalam pemrograman ada kalanya kita memerlukan perulangan untuk melakukan suatu perintah yang sama untuk beberapa kali, misalkan pada program untuk mencari data maka diperlukan perulangan untuk mencari data dari record awal sampai record akhir atau sampai data yang dicari ditemukan. Perhatikan contoh sederhana yang menunjukkan penggunaan kondisi perulangan dalam program berikut ini :
Top of Form

Private Sub Form_Load()
MsgBox “ini adalah pesan ke 1″
MsgBox “ini adalah pesan ke 2″
MsgBox “ini adalah pesan ke 3″
MsgBox “ini adalah pesan ke 4″
MsgBox “ini adalah pesan ke 5″
End Sub

Kode program diatas adalah kode untuk menampilkan sebanyak 5 kali ketika program anda di buka .
Bayangkan jika anda ingin membuat pesan 5000 bukan 5 .
Pasti akan lama sekali jika menggunakan code seperti itu .
MsgBox “ini adalah pesan ke #” “ Sebanyak 1000 kali. Untuk mempersingkat kode program maka sebenarnya kita tidak perlu menulis program sebanyak 1000 baris, kita cukup menulis 3 baris program yang hasilnya akan menampilkan pesan sebanyak 1000 kali yaitu sebagai berikut :

For i = 1 To 1000
MsgBox “ini adalah pesan ke ” & i
Next i
Sehingga source kodenya menjadi :
Private Sub Form_Load()
For i = 1 To 1000
MsgBox “ini adalah pesan ke ” & i
Next i
End Sub

Dengan menggunakan struktur kondisi perulangan seperti source code di atas maka ketika program di load maka program akan menjalankan perulangan dan menampilkan pesan “ini adalah pesan ke 1”,angka 1 pada pesan karena pada perulangan For … Next nilai awalnya adalah 1 kemudian program menjalankan perintah Next i sehingga sekarang nilai i menjadi 2, kemudian program menampilkan pesan “ini adalah pesan ke 2”, kemudian begitu seterusnya sampai nilai i = 1000 dan program menampilkan pesan “ini adalah pesan ke 1000”, karena nilai i = nilai akhir yaitu 1000 maka program keluar dariperulangan. Dari contoh di atas dapat disimpulkan bahwa sebuah perulangan memiliki kondisi awal dan kondisi akhir, dan perulangan akan berjalan dan berhenti jika kondisi akhir terpenuhi.

Macam-macam bentuk perulangan
Dalam visual basic terdapat banyak perulangan dan percabangan, di antaranya adalah Do … Loop dan For … Next. Untuk lebih jelasnya berikut adalah macam – macam bentuk perulangan dalam visual basic :
A.Do While … Loop.

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya.

Bentuk sintaks Do while adalah sebagai berikut :

Do While Kondisi
Pernyataan
…..
Loop

Sintaks di atas adalah bentuk do while dimana kondisi perulangan terletak di awal sedangkan kondisi yang terletak di akhir adalah sebagai berikut :

Do
Pernyataan
……
Loop While Kondisi

B.Do Until … Loop
Pada dasarnya perulangan DO Until sama dengan perulangan DO While yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True.
Sintaks dari perulangan Do Until adalah :
Do Until Kondisi
Pernyataan
…..
Loop
Seperti halnya perulangan Do While, perulangan Do Until juga memiliki dua bentuk sintaks yaitu bentuk seperti di atas dan bentuk lainnya dimana kondisi diletakkan di akhir pernyataan perulangan yaitu sebagai berikut :
Do
Pernyataan
……
Loop Until Kondisi

C.While.. Wend
Perulangan While … Wend digunakan apabila kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True . Sintaks perulangan While Wend adalah :
While Ekspresi
Pernyataan
…..
Wend
D.For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

Secara default pada perulangan For … Next pertambahan indeks perulangan adalah 1, untuk menentukan pertambahan sesuai yang kita inginkan kita dapat menambahkan Step dari perulangan menjadi 2 atau – 1 untuk melakukan perhitungan mundur pada perulangan. Sintaksnya menjadi sebagai berikut :

For Indeks = NilaiAwal To NilaiAkhir Step -1
Pernyataan
…..
Next Indeks

2.Keluar dari Perulangan
Pada situasi tertentu kita mungkin perlu keluar dari perulangan sebelum kondisi akhir perulangan tersebut tercapai. Kita dapat keluar dari perulangan dengan menambahkan kondisi di dalam perulangan kemudian jika kondisi yang kita berikan tersebut bernilai benar maka program akan keluar dari perulangan dengan menggunakan perintah Exit.Contohnya adalah sebagai berikut :
Pada Perulangan Do … Loop
Do Until KondisiAkhir
Pernyataan
…..
If Kondisi = NilaiYangDicari Then
Exit Do
End If
Loop
Pada perulangan For … Next
For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
If Kondisi =NilaiYangDicari Then
Exit For
End If
Next Indeks

B.Kondisi Percabangan
Sebuah aplikasi harus memiliki alur program yang baik sehingga tidak akan terjadi kesalahan dan hasil yang dikeluarkan oleh program tidak menyimpang dari yang diinginkan ketika program berjalan. Untuk itu perlu dibuat sebuah kondisi percabangan dalam program. Dalam Visual Basic ada beberapa kondisi percabangan yang dapat digunakan seperti IF… THEN atau SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti operator sama dengan (=), tidak sama dengan (<>) atau operator-operator perbadingan lainnya ( >, >=, <, <=). 1.If … Then Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True ) maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan. Bentuk kondisi percabangan If … Then pada Visual Basic adalah : If Kondisi1 Then Pernyataan1 ………… ElseIf Kondisi2 Then Pernyataan2 ……….. Else Pernyataan3 ………… End if Kondisi percabangan If …Then biasanya digunakan untuk menentukan kondisi perhitungan matematika, membatasi tndakan pengguna program , mengatur tampilan atau mencegah error ketika program di jalankan. 2.Select Case Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan. Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut : Select Case Pilihan Case 1 Pernyataan1 ….. Case 2 Pernyataan2 ….. Case 3 Pernyataan3 …… End Select Pada struktur percabangan Select Case di atas jika Pilihan yang dimasukkan oleh pengguna bernilai 1 maka Pernyataan 1 di eksekusi, jika bernilai 2 maka Pernyataan 2 yang dieksekusi, jika bernnilai 3 maka Pernyataan 3 yang di eksekusi. 2.Sebutkan Jenis-jenis operator pada Visual Basic Visual Basic menyediakan 3 jenis operator, yaitu : 1)Operator Aritmatika ^ Pangkat – Negatif / kurang * Kali / Bagi \ Pembagian integer ( disertai pembulatan nilai hasil ) (Mod) Modulus / sisa bagi + Tambah / penggabungan string & penggabungan string 2)Operator Perbandingan = sama dengan <> tidak sama dengan
> lebih dari
<>= lebih dari atau sama dengan
LS Referensi obyek
Like seperti
Operator Like
Salah satu operator yang menarik untuk dibahas adalah operator like, Operator digunakan untuk operasi pencocokan pola pada string yang akan sangat membantu programmer.
Syntax :

Resul = string like partter
Karakter dalam pola
penyamanan dalam string ?
Sembarang karakter tunggal
*
Nol atau lebih karakter
#
Sembarang digit tunggal (0-9)
[charlist]
Sembarang karakter yang berada dalam charlist
[charlist]
Sembarang karakter yang tidak berada dalam charlist
Tabel . Character dalam pencocokan pola pada operator Like
Contoh :

MyCheck = “aBBBa” Like “a*a” ‘ Returns True.·
MyCheck = “F” Like “[A-Z]” ‘ Returns True.·
MyCheck = “F” Like “[!A-Z]” ‘ Returns False.·
MyCheck = “a2a” Like “a#a” ‘ Returns True.·
MyCheck = “aM5b” Like “a[L-P]#[!c-e]” ‘ Returns True.·
· MyCheck = “BAT123khg” Like “B?T*” ‘ Returns True.
MyCheck = “CAT123khg” Like “B?T*”

3)Operator Logika
Not tidak
and dan
or atau
Xor Exclusive Or
Eqv equivalen
imp implikasi
check box dan Option Button
CheckBox digunakan untuk pilihan yang isinya bernilai yes/no, true/false.
OptionButton sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat dipilih satu.

Nah sekian dulu pembahasan tentang Percabangan select case pada hari ini, jika ada yang kurang jelas silahkan berkomentar .
Baca juga ya :
Percabangan dan perulangan dalam visual basic(1)

Kondisi-kondisi pada visual basic
Kondisi Kondisi pada visual basic
contoh sintaks select case for next do while dengan visual basic
contoh sintaks select case do while loop dalam visual basic
contoh sintaks do until loop dalam visual basic

Cara membuat file setup installer di Visual Basic

Kali ini kita membahas tentang cara membuat file installer dengan inno setup .

Seiring dengan perkembangan teknologi pemograman database, semakin hari semakin banyak aplikasi database yang dibangun, baik oleh programer yang maih pemula maupun programer yang sudah profesional.

Dalam membuat aplikasi yang terintegrasi perlu adanya penggabungan antara aplikasi yang dibuat dengan bahasa pemrograman tertentu dengan file runtime library bahasa pemrograman tersebut.

Menjadi tidak efektif dan keamanan program tidak terjamin kalau antara program aplikasi dan runtime library didistribusikan dengan cara copy/paste dari komputer satu ke komputer lain.

Inno Setup adalah installer untuk aplikasi yang bekerja dilingkungan Windows yang bebas digunakan (freeware) oleh siapa saja tanpa harus membayar lisensi.

Nama “Inno Setup dibangun dari kata Innovative setup dan yang dipilih sendiri oleh penciptanya yaitu Jordan Russell. Produk Inno Setup pertama dirilis tahun 1997 yang terus dikembangkan hingga saat ini telah ersedia Inno Setup versi 5.4.3 Full Version yang dirilis tanggal 21 Desember 2012.

Inno Setup adalah installer sederhana tetapi mempunyai kemampuan yang luar biasa dalam mendistribusikan berbagai aplikasi yang dibuat dari berbagai bahasa pemrograman, misalnya Visual Foxpro, Visual Basic, Delphi, dll. Disamping itu Inno Setup merupakan sarana pembuat CD instalasi berbasis (script-based) yang mudah dipelajari dan digunakan sekalipun oleh seorang programer pemula, dan mendukung semua versi Windows 32bit (Win9x/Me/2000/XP/NT4.0/). Serta pada Versi ini dapat mendukung Windows XP |Server 2003 | Vista |Server 2008 | Win 7.

Berbagai tool yang dibuat oleh pihak ketiga telah melengkapi produk ini, yang salah satunya adalah ISTool, yang menyediakan fasilitas GUI untuk pemeliharaan Script Inno Setup yang kita buat.

NEW UPDATE Inno Setup 5.4.3 

File Name : isetup-5.4.3-unicode.exe

 File Size :2.07 MB Requirements :

Windows XP |Server 2003 | Vista |Server 2008 | Win 7

Download Disini

Mirror 1

Cara Mengoneksikan Database ke Visual Basic

       Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam. Misalnya yang banyak digunakan: Sistem Informasi berbasis Web (PHP + MYSQL) Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll). Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.

1. Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.

 yang di nomori 1 merupakan tombol DataGrid1 dan nomor 2 adalah Adodc. Untuk menambah control DataGrid  1 dan Adodc adalah:

·         Tekan Tombol Ctrl + T pilih Components, akan tampil kotak Dialog Components, seperti Disamping

·         Pilih Microsoft ADO Data Control 6.0 (OLEDB), dan Microsoft ADO DataGrid Contol 6.0 (OLEDB)

·         DataGrid adalah: Kontrol untuk menampilkan data menurut baris dan kolom yang mewakili record dan fiel suatu objek.

·         ADODC adalah: Kontrol / tombol yang menghubungkan Database dengan Form Visual Basic.

1. Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini kita akan menggunakan Ms. Access. Buka Ms. Access dan buat Database baru. Beri nama Databasenya , dengan data_siswa..

2. Buat Tabel baru dengan nama siswa dengan meng-klick Create table in Design view. Seperti di bawah ini.

 

1. Isikan Field Table dan tipe datanya sebagai berikut, dimana NIM sebagai Primmary Key-nya. Kemudian simpan dengan nama siswa

 

1. setelah itu koneksikan Visual Basic dengan database, dengan cara.
• Pilih Kontrol ADODC, pilih properties, kemudian pilih Conection String sehingga muncul tampilan seperti dibawah ini.

 

·         Klik Build, setelah itu pilih select or enter database name, cari dimana database anda tersimpan.

·         Setelah itu klik tombol test conection.  Jika muncul seperti dibawah ini maka koneksi ke database berhasil.

·         Jalan kan Program Anda

Membuat Tombol Simpan Dan Hapus

1.            Klik tombol simpan, Buatlah  Kode Program  Seperti Dibawah ini.

Private Sub Command1_Click()

If Text1.Text = "" Then

 PESAN = MsgBox("Anda harus mengisi kode terlebih dahulu", vbInformation, "Informasi")

 Exit Sub

End If

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa WHERE nim =' " & Text1.Text & " ' "

Adodc1.Refresh

Adodc1.Refresh

Adodc1.Recordset.AddNew

On Error Resume Next

Adodc1.Recordset.Fields(0) = Text1

Adodc1.Recordset.Fields(1) = Text2

Adodc1.Recordset.Fields(2) = Text3

Adodc1.Recordset.Fields(3) = Text4

Adodc1.Recordset.Fields(4) = Text8

Adodc1.Recordset.Update

PESAN = MsgBox("Data Sudah Tersimpan", vbInformation, "Informasi")

Adodc1.Refresh

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa"

Adodc1.Refresh

End Sub

2.            Klik Tombol Hapus, Buatlah Kode Program Seperti Dibawah ini

Private Sub Command2_Click()

If Text1.Text = "" Then

    PESAN = MsgBox("Anda harus mengisi kode terlebih dahulu", vbInformation, "Informasi")

    Exit Sub

End If

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa WHERE nim ='" & Text1.Text & "'"

Adodc1.Refresh

a = MsgBox(" Yakin data akan dihapus....????", vbYesNo + vbQuestion, "Konfirmasi")

Adodc1.Recordset.Delete

Adodc1.Refresh

Adodc1.Refresh

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * from siswa "

Adodc1.Refresh

End Sub

Demikian lah saya membagikan informasi ini kepada anda semuanya .

Senang berbagi dengan anda .:)

Cara Membuat agar text hanya bisa ditulis angka dengan visual basic

Untuk membuat text hanya di tulis dengan angka, cukup mudah dan simple
Biasanya ini di gunakan untuk memasukkan password atau serial number dan lain-lain .

Untuk membuat text box hanya bisa di tulis dengan angka yaitu :

Buat sebuah textbox dengan nama text1, lalu masukkan code ini di dalam formnya .

Private Sub Text1_KeyPress(KeyAscii As Integer)If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0End Sub

Membuat Text Huruf Besar Dengan Visual Basic

Agar tidak ada kesalahan pada pengisian data atau kata-kata pada from .
Contohnya from login .
Maka ada baiknya kita membuat isi text tersebut menjadi huruf besar atau kecil semuanya .

Untuk membuat text default huruf BESAR, biasa saya menggunakan Key Ascii.. nah Kodingnya seperti ini :

Private Sub Text1_KeyPress(Keyascii As Integer)
    Keyascii = Asc(UCase(Chr(Keyascii)))
End Sub

Dengan koding diatas, tulisan yang anda tulis di Text 1 menjadi besar semua, walaupun anda tdak menekan tombol CAPS LOCK pada Keyboard anda.