Sunday, May 27, 2018

PERULANGAN (LOOPING) PADA VISUAL BASIC .NET


Struktur perulangan atau looping merupakan salah satu alat kontrol program yang digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses perulangan akan terus dilakukan secara terus menerus atau berulang-ulang selama kondisi tersebut belum terpenuhi (bernilai benar/true). jika kondisi sudah bernilai salah/false, maka perulangan akan berhenti.
Perulangan atau Looping dalam Visual Basic terdiri dari :
  1. For-Next
  2. Do-Loop
  3. While-And While

Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih sesuai dengan masalah yang dihadapi.

1. For-Next
Digunakan untuk mengulang perintah dalam jumlah yang ditentukan. pada for-next kita tidak perlu menuliskan kondisi yang akan yang akan di uji, tetapi cukup hanya memberikan nilai step awal dan akhir nilai.
Sintaks:
For variabel = nilai_awal To nilai_akhir
     ekspresi
Next
Keterangan :
  • variabel : nama integer yang digunakan untuk melakukan proses perulangan
  • nilai_awal : nilai awal suatu variabel untuk menentukan awal perulangan
  • nilai_akhir : nilai suatu variabel untu menentukan akhir dari perulangan
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
-Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(“Visual Basic”)
Next

-Membuat Deret angka 1 sampai 10
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(i)
Next

2. Do-Loop
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

2.1. Do…Loop dengan Pemeriksaan diawal
-Do Until … Loop
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do Until (Kondisi)
     ekspresi
Loop

Keterangan:
  • kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop

-Do While … Loop
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
Sintaks:
Do While (Kondisi)
     ekspresi
Loop

Keterangan:
  • kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do while i > 10
listbox1.Items.Add(i)
i=i+1
Loop

2.2. Do…Loop dengan Pemeriksaan diakhir
-Do … Loop Until
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do 
     ekspresi
Loop Until (Kondisi)

Keterangan:
  • kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1 
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10

-Do … Loop While
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus). 
Sintaks:
Do 
     ekspresi
Loop While (Kondisi)

Keterangan:
  • kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.

3. While-End While
Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Sintaks:
While (Kondisi)
     ekspresi
End While

Keterangan:
  • kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
  • ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i <= 10
    ListBox1.Items.Add(i)
    i = i + 1
End While

Mungkin hanya di sini saja yang bisa saya paparkan mengenai perjumpaan kita di materi kali ini, jika ada kesalahan pada penulisan mohon dimaafkan. 
Terimakasih telah berkunjung di blog saya ini :).
Semoga bermanfaat buat kita semua.

Saturday, May 26, 2018

CONTOH PROGRAM YANG MENGGUNAKAN FUNGSI IF PADA VISUAL BASIC .NET

Haii gann,,,. Untuk kali ini saya akan membuat contoh sebuah kasus, yaitu membuat program dengan menggunakan Fungsi If dan bisa di bilang ini masih ada hubungannya dengan postingan saya yang lalu yaitu BAB 4A. FUNGSI IF PADA VISUAL BASIC Disini saya menggunakan program Microsoft Visual Studio 2008. Yuk langsung saja.

1. Desainlah form seperti gambar di bawah ini:

2. Aturlah Pengaturan Properties seperti pada tabel berikut:

NO
OBJEK
PROPERTIES
PENGATURAN
1
Label 1
Text
Kode Barang
2
Label 2
Text
Nama Barang
3
Label 3
Text
Harga Barang
4
Label 4
Text
Jumalah Barang
5
Label 5
Text
Total Harga
6
Textbox 1
Name
Txtnb
7
Textbox 2
Name
Txthb
8
Textbox 3
Name
Txtjb
9
Textbox 4
Name
Txtth
10
Combobox 1
Name
Cbokb
Item
PL01
PL02
BK01
BK02
11
Button 1
Text
Proses
Name
Btnproses
12
Button 2
Text
Bersih
Name
Btnbersih
13
Button 3
Text
Tutup
Name
Btntutup


3. Alur Program
-Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
-Jika diklik Proses maka akan menampilkan Nilai Total Harga dengan menginput Jumlah terlebih dahulu
-Tabel Pengujiannya sebagai berikut:
Kode Barang
Nama Barang
Harga Barang
PL01
Pulpen Pilot
1200
PL02
Pulpen Standar
1000
BK01
Buku AA 60 Lbr
3800
BK02
Buku Sinar Dunia 50 Lbr
3000

4. Kode Program:
- Doble click pada ComboBox 1 dan tuliskan coding seperti di bawah ini:
-Doble click pada button Proses, dan masukan coding seperti di bawah ini:

-Doble click pada button Bersih, dan masukan coding seperti di bawah ini:

-Doble click pada button Tutup, dan masukan coding seperti di bawah ini:

5. Untuk menjalankan program, klik tombol Start Debugging atau tekan tombol F5 pada keyboard. Untuk menutup program, klik tombol Stop Debugging. Jika berhasil maka tampilan program setelah di jalankan akan seperti gambar berikut:


Mungkin hanya di sini saja yang bisa saya paparkan mengenai perjumpaan kita kali ini, jika ada kesalahan pada penulisan mohon dimaafkan. 
Terimakasih telah berkunjung di blog saya ini :).
Semoga bermanfaat buat kita semua.

MESSAGE BOX PADA VISUAL BASIC .NET

MessageBox merupakan jendela yang secara umum menampilkan suatu pesan. Secara umum Visual Basic menyediakan kelas MessageBox dan MsgBox untuk membuat dialog. Sintak untuk membuat dialog adalah sebagi berikut :

MessageBox :
MessageBox.Show("Isi Pesan", "Judul Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
Keterangan : Penulisan pada sintak diatas dimulai dari kelas Dialog (MessageBox), Isi dari dialog yang kan di tampilkan, Judul Dialog, Dialog Button (berupa OK, YesNo, Cancel dan lainnya), jenis pesan (berupa informasi, peringatan, warning dan lainnya).

MsgBox :
MsgBox("Isi Pesan", MsgBoxStyle.Information, "Judul Pesan")
Keterangan : Penulisan pada sintak diatas dimulai dari kelas Dialog (MsgBox), Isi dari dialog yang kan di tampilkan, Dialog Style (berupa pihan berupa dialog button atau jenis dialog), Judul Dialog.
Untuk tampilan sama persis untuk kelas MessageBox dan MsgBox, perbedaan hanya pada penulisa sintaks pada Visual Basic .Net.
Sintaks fungsi MsgBox memiliki argumen ini:
Argumen
Deskripsi
perintah
Diperlukan. Ekspresi string ditampilkan sebagai pesan dalam kotak dialog. Panjang maksimum perintah adalah kira-kira 1024 karakter, bergantung pada lebar karakter yang digunakan. Jika perintah terdiri dari lebih dari satu baris, Anda bisa memisahkan baris menggunakan carriage return karakter (Chr(13)), linefeed karakter (Chr(10)), atau carriage return-linefeed karakter kombinasi (Chr(13) & Chr(10)) antara setiap baris.
tombol
Opsional. ekpresi numerik yang adalah jumlah nilai yang menentukan jumlah dan tipe tampilan tombol gaya ikon untuk menggunakan, identitas tombol default, dan terapi kotak pesan. Jika dihilangkan, nilai default untuk tombol adalah 0.
judul
Opsional. Ekspresi string yang ditampilkan di bilah judul di kotak dialog. Jika Anda menghilangkan judul, nama aplikasi ditempatkan di bilah judul.
helpfile
Opsional. Ekspresi string yang mengidentifikasi file bantuan untuk digunakan untuk menyediakan bantuan yang sensitif konteks untuk kotak dialog. Jika helpfile yang disediakan, konteks harus juga tersedia.
konteks
Opsional. Ekpresi numerik yang merupakan angka konteks bantuan yang ditetapkan ke topik bantuan yang sesuai menurut penulis bantuan. Jika konteks yang disediakan, helpfile harus juga tersedia.






























Pengaturan
Berikut tabel untuk tombol pengaturan argumen :
Konstanta
Nilai
Deskripsi
vbOKOnly
0
Menampilkan tombol OK .
vbOKCancel
1
Menampilkan tombol OK dan Batal .
vbAbortRetryIgnore
2
Menampilkan tombol Batalkancoba lagidan Abaikan .
vbYesNoCancel
3
Menampilkan tombol yatidak adadan membatalkan .
vbYesNo
4
Menampilkan tombol ya dan tidak ada .
vbRetryCancel
5
Menampilkan tombol coba lagi dan membatalkan .
vbCritical
16
Menampilkan ikon Pesan penting .
vbQuestion
32
Menampilkan ikon Peringatan kueri    .
vbExclamation
48
Menampilkan Pesan peringatan    ikon.
vbInformation
64
Menampilkan Pesan informasi ikon.
vbDefaultButton1
0
Tombol pertama adalah default.
vbDefaultButton2
256
Tombol kedua adalah default.
vbDefaultButton3
512
Tombol ketiga adalah default.
vbDefaultButton4
768
Tombol keempat adalah default.
vbApplicationModal
0
Aplikasi modal; pengguna harus merespons kotak pesan sebelum melanjutkan bekerja dalam aplikasi saat ini.
vbSystemModal
4096
Sistem modal; Semua aplikasi ditangguhkan hingga pengguna merespon kotak pesan.
vbMsgBoxHelpButton
16384
Menambahkan tombol bantuan ke kotak pesan
VbMsgBoxSetForeground
65536
Menentukan jendela kotak pesan sebagai jendela latar depan
vbMsgBoxRight
524288
Teks rata kanan
vbMsgBoxRtlReading
1048576
Menentukan teks akan muncul sebagai kanan-ke-kiri baca pada sistem Ibrani dan Arab
Catatan:  Di Access 2010, Pembuat Ekspresi memiliki IntelliSense, sehingga Anda dapat melihat argumen apa yang diperlukan oleh persamaan Anda

Keterangan:
Kelompok nilai pertama (0–5) menjelaskan jumlah dan jenis tombol yang ditampilkan di kotak dialog; kelompok kedua (16, 32, 48, 64) menggambarkan gaya ikon; grup ketiga (0, 256, 512) menentukan tombol mana yang merupakan default; dan kelompok keempat (0, 4096) menentukan modalitas kotak pesan. Saat menambahkan angka untuk membuat nilai akhir untuk argumen tombol , gunakan hanya satu angka dari setiap grup.

Nilai yang dikembalikan
Konstanta
Nilai
Deskripsi
vbOK
1
Oke
vbCancel
2
Batalkan
vbAbort
3
Batalkan
vbRetry
4
Coba lagi
vbIgnore
5
Abaikan
vbYes
6
Ya
vbNo
7
Tidak

Keterangan
Ketika kedua helpfile dan konteks disediakan, pengguna dapat menekan F1 (Windows) atau HELP (Macintosh) untuk melihat topik Bantuan yang sesuai dengan konteksnya . Beberapa aplikasi host, misalnya, Microsoft Excel, juga secara otomatis menambahkan tombol Bantuan ke kotak dialog.
Jika kotak dialog menampilkan tombol Batal , menekan tombol ESC memiliki efek yang sama seperti mengklik Batal . Jika kotak dialog berisi tombol Bantuan , bantuan konteks-sensitif disediakan untuk kotak dialog. Namun, tidak ada nilai yang dikembalikan hingga salah satu tombol lain diklik.

Agar lebih memahami dalam pembuata dialog untuk menampilkan pesan, langsung saja pada latihan berikut ini:

Contoh 1 :
1. Desain Form pada gambar berikut ini :

2. Aturlah Pengaturan Properties seperti pada tabel berikut:
No
Objek
Properties
Pengaturan
1
Label 1
Text
Password
2
Textbox 1
Name
TxtPas
3
Button 1
Text
Proses

Name
Btnproses

3. Alur Program:
-Input Password.
-Klik Proses
-Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:
Isi pesan         : Password yang Anda Masukkan Benar
Judul Pesan : Info Login 
MsgBoxStyle : Tombol OK dengan gambar icon Information.
-Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:
Isi pesan         : Password yang Anda Masukkan Salah”
Judul Pesan : Info Login
MsgBoxStyle : Tombol OK dengan gambar icon Critical.

4. Kode Program
 -Doble click pada button Proses, dan masukan coding seperti di bawah ini:

5. Untuk menjalankan program, klik tombol Start Debugging atau tekan tombol F5 pada keyboard. Untuk menutup program, klik tombol Stop Debugging. Jika berhasil maka tampilan program setelah di jalankan akan seperti gambar berikut:

Contoh 2:
1. Tambah tombol Tutup pada form Login, sehingga tampilan form menjadi seperti berikut:

2. Buat Perintah untuk Tombol Tutup menggunakan MessageBox dengan tampilan sbb:
-Isi Pesan : “Apakah Anda ingin menutup Form Login ini?“
MsgBoxStyle : Yes dan No dengan icon Question. 
Judul         : “Tutup Form Login“

3. Alur Program:
Jika diklik tombol Yes, maka Program akan ditutup. Jika diklik tombol No, maka Program tidak akan ditutup.

4. Kode Program
 -Doble click pada button Tutup, dan masukan coding seperti di bawah ini:

5. Jika berhasil maka tampilan program setelah di jalankan akan seperti gambar berikut:

Mungkin hanya di sini saja yang bisa saya paparkan mengenai perjumpaan kita di materi kali ini, jika ada kesalahan pada penulisan mohon dimaafkan. 
Terimakasih telah berkunjung di blog saya ini :).
Semoga bermanfaat buat kita semua.