Keputusan If Pada Microsoft Visual Studio 2008

Assalamualaikum teman-teman semua..
Kali ini saya akan membahas tentang Keputusan If pada Microsoft Visual Basic 2008

STRUKTUR KEPUTUSAN 
Struktur Keputusan
Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.


IF … THEN … ELSE STATEMENT
A.  Pengambilan Keputusan Antara 2 (Dua) Pilihan
Bentuk Penulisan:
If [Ekspresi Logika] Then
​[Statement 1]
Else
​[Statement 2]
End if

Struktur keputusan ini akan menguji Ekspresi Logika (kondisi)yang ditentukan, jika kondisi bernilai True (benar) makaStatement1  akan diproses, tetapi jika kondisi bernilai False(Salah) maka Statement2  yang akan diproses.

Ekspresi Logika adalah suatu kondisi yang akan diuji. Untuk menetapkan nilai yang akan diuji pada suatu kondisi harus menggunakan Operator Relasi, yaitu :
​<​:​lebih kecil
​<=​:​lebih kecil atau sama dengan
​=​:​sama dengan
​<>​:​tidak sama dengan
​>​:​lebih besar
​>=​:​lebih besar atau sama dengan





Contoh 1:
1. Desain Program
 
Objek
Name
TextBox1
TxtNilai
TextBox2
TxtHasil
Button1
BtnProses







2. Alur Program
​-  Input Nilai
​-  Klik Proses, maka akan tampil keterangan “LULUS” atau “GAGAL” pada Hasil.
​Pengujiannya sebagai berikut:
​Jika Nilai 75 keatas maka “LULUS”
​Jika Nilai dibawah 75 maka “GAGAL”

3. Kode Program
​Kode program diketik pada Objek Button1 (Proses) sbb:

 Private Sub BtnProses_Click(ByVal sender AsSystem.Object,…

​If TxtNilai.Text >= 75 Then
    ​​TxtHasil.Text = "LULUS"
  ​Else
    ​​TxtHasil.Text = "GAGAL"
   ​End If
 End Sub


B.  Pengambilan Keputusan Dari Banyak Pilihan (Lebih dari 2 Pilihan)
Bentuk Penulisan:
If [Ekspresi Logika1] Then
​[Statement1]
ElseIf [Ekspresi Logika2] Then
​[Statement2]
ElseIf [Ekspresi Logika3] Then
​[Statement3]
...
Else
​[Statement n]
End if
Struktur keputusan ini akan menguji Ekspresi Logika (kondisi)yang ditentukan, jika Ekspresi Logika1 bernilai True (benar)maka Statement1  akan diproses, tetapi jika kondisinyabernilai False (Salah) maka Ekspresi Logika2 akan diuji. JikaEkspresi Logika2 bernilai True maka Statement2 akan diproses, tetapi jika kondisinya bernilai False maka Ekspresi Logika3 akan diuji. Jika Ekspresi Logika3 bernilai True makaStatement3 akan diproses, tetapi jika kondisinya bernilai Falsemaka Statement n  yang akan diproses.

Contoh 2:
1.​Menggunakan Program pada Contoh1, tetapi Alur Program diubah sebagai berikut:
​-  ​Input Nilai
​-  ​Klik Proses, maka akan tampil keterangan“LULUS” / “DAFTAR PENGGANTI” / “GAGAL” pada hasil.
​Pengujiannya sebagai berikut:
​Jika Nilai 85 keatas maka “LULUS”
​Jika Nilai 75 - 84 maka “DAFTAR PENGGANTI”
​Jika Nilai dibawah 75 maka “GAGAL”

2. Kode Program
​Kode program diketik pada Objek Button1 (Proses) sbb:

 Private Sub BtnProses_Click(ByVal sender AsSystem.Object,…

​If TxtNilai.Text >= 85 Then
    ​​TxtHasil.Text = "LULUS"
  ​ElseIf TxtNilai.Text >= 75 Then
    ​​TxtHasil.Text = "DAFTAR PENGGANTI"
  ​Else
    ​​TxtHasil.Text = "GAGAL"
   ​End If

 End Sub


Contoh 3:
Penggunaan Objek ComboBox
Objek ComboBox digunakan untuk membuat daftar pilihan.
Untuk memasukkan daftar pilihan ada 2 cara:
(1)​menggunakan properties yaitu items
​Klik properties items, kemudian ketik daftar pilihan.
(2) ​menggunakan kode program
​BP. :
​NamaObjekComboBox.Items.Add(“Daftar Pilihan“)





1. Desain Program sbb:
 
No
Objek
Name
Items
1
ComboBox1
Cbokb
PL01
1
 


PL02
2
 


BK01



BK02
3
2
TextBox1
TxtNb

3
TextBox2
TxtHb

4
Button1
BtnTutup

4
​





2. Alur Program
​-  Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
​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

3. Kode Program
​Perintah diketik pada Objek ComboBox.

Private Sub CboKb_SelectedIndexChanged(ByValsender As…

​If Cbokb.Text = "PL01" Then
    ​TxtNB.Text = "PULPEN PILOT"
    ​TxtHB.Text = 1200
​ElseIf Cbokb.Text = "PL02" Then
    ​TxtNB.Text = "PULPEN STANDAR"
    ​TxtHB.Text = 1000
​ElseIf Cbokb.Text = "BK01" Then
    ​TxtNB.Text = "BUKU AA 60 LBR"
    ​TxtHB.Text = 3000
  ​Else
    ​TxtNB.Text = "BUKU SINAR DUNIA 50 LBR"
    ​TxtHB.Text = 3000

Komentar

Posting Komentar

Postingan populer dari blog ini

Keputusan Case Pada Microsoft Visual Studio 2008

Gambar
Struktur Keputusan Struktur keputusan adalah struktur program yang   melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok   instruksi akan diproses atau tidak. Pengujian kondisi ini   dilakukan untuk memilih salah satu dari beberapa alternatif   yang  tersedia. Select Case  Statement Digunakan untuk pengambilan keputusan dari beberapa pilihan. Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namum dalam Select Case pengecekan dilakukan berdasarkan nilai Ekspresi. Bentuk Penulisan: Select Case [Kondisi] ​ Case [Ekspresi1] ​ [Statement1] ​ Case [Ekspresi2] ​ [Statement2] ​ ... ​ Case Else ​ [Statement n] End Select Contoh 1: 1. Desain  Program   Objek Name TextBox1 TxtJPR TextBox2 TxtHadiah Button1 BtnProses Button2 BtnBersih Button 3 BtnTutup 2 .  Alur Program ​ - ​ Input Jumlah Poi...
Baca selengkapnya

Visual Basic Messagebox

Gambar
MsgBox (Kotak Pesan) Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.     Bentuk Perintah MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)     Keterangan gambar: 1. Judul Pesan   2. MsgBoxStyle     3. Isi Pesan Contoh 1: Membuat Form Login dengan tampilan sbb: Objek Name TextBox1 TxtPas Button1 BtnProses 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 ...
Baca selengkapnya