Pertemuan vb ke 4

Pertemuan ke 4
STRUKTUR KEPUTUSAN DALAM VB 2008

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.

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) maka Statement1  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

  
  

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) makaStatement1  akan diproses, tetapi jika kondisinya bernilai False (Salah) maka Ekspresi Logika2 akan diuji. Jika Ekspresi Logika2 bernilai Truemaka Statement2 akan diproses, tetapi jika kondisinya bernilai Falsemaka Ekspresi Logika3 akan diuji. Jika Ekspresi Logika3 bernilai Truemaka Statement3 akan diproses, tetapi jika kondisinya bernilai Falsemaka Statement n  yang akan diproses.

TIPE DATA DAN VARIABEL

Tipe Data

Tipe data merupakan suatu bentuk penggolongan jenis data berdasarkan kategori data, ukuran dan kegunaan data yang dapat ditampung oleh sebuah variabel. Tipe data pada visual basic 2008 dapat dilihat pada table berikut ini :

Variabel

Variabel adalah merupakan tempat penyimpanan data dalam memori computer yang mengandung data atau nilai sementara dari sebuah proses pada suatu pemrograman.


Deklarasi Variabel

Deklarasi Variabel adalah merupakan fungsi untuk mengenal suatu variabel berikut dengan tipe data yang pakai pada variabel tersebut. Pendeklarasian variabel di bagi menjadi dua kategori antara lain :

1. Deklarasi Ekplisit
   Suatu pendeklarasian umum yang sangat sering dilakukan dengan memberikan kata kunci as.
   Bentuk umum : {Private | Public | Dim | …} Nama_Var [{As Tipe data}]
   
   Contoh :
   Dim Nim as Integer
   Dim Nama as String
2. Deklarasi Emplisit
   Deklarasi Emplisit adalah suatu pendeklarasian yang tidak memberikan kata kunci As pada semua variabel tersebut. Melainkan memberikan satu karakter atau symbol di akhir variabel. Tabel symbol deklarasi emplisit.

Dim merupakan keyword dalam pendeklarasian variabel.

Bentuk penulisan Deklarasi Variabel:

Contoh:

Dim a,b as integer

Dim i as string

Contoh:

a=10

b=5

i=“Visual Basic”

Pendeklarasian Variabel disertai pemberian Nilai Awal

Bentuk Penulisan:

Contoh:

Dim a as integer = 10

Dim i as string = “Visual Basic”

Contoh Program

Private Sub Button1_Click(ByVal sender As System.Object,

Dim x,y,z as integer

x=15

y=5

z=x*y

TextBox1.Text=z

End Sub

Operasi Terhadap Tipe Data Numeric

Operasi terhadap tipe data numeric sama halnya melakukan perhitungan matematik atau aritmatika. Ada penjumlahan, pengurangan, perkalian, pembagian, dan sebagainya.

Untuk melakukan perhitungan matematika dibutuhkan operator aritmatika.

Berikut operator aritmatika sesuai urutan pengerjaannya :

^     :    perpangkatan

*      :    perkalian

/      :    pembagian

+     :    penjumlahan

-      :    pengurangan

 Contoh Program:

1. Desain program

2. Pengaturan Properties

 3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

ú  Input Bilangan1 dan Bilangan2

ú  Klik salah satu tombol Operator, maka akan tampil hasil perhitungan sesuai operator.

-     Tombol ^   :    untuk memangkatkan

-     Tombol *   :    untuk mengalikan

-     Tombol /    :    untuk membagi

-     Tombol +  :    untuk menambahkan

-     Tombol -   :    untuk mengurangkan

ú  Klik tombol Bersih, maka isi Bilangan1, Bilangan2 dan Hasil akan bersih (kosong).

ú  Klik tombol Tutup, maka program akan ditutup.

Perintah Program:

  Private Sub btnpangkat_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text ^ txtbil2.Text

  End Sub

 

  Private Sub btnkali_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text * txtbil2.Text

  End Sub

 

  Private Sub btnbagi_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text / txtbil2.Text

  End Sub

 

  Private Sub btntambah_Click(ByVal sender As System.Object,

      txthasil.Text = Val(txtbil1.Text) + txtbil2.Text

  End Sub

 

  Private Sub btnkurang_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text - txtbil2.Text

  End Sub

Catatan:

Val : berfungsi untuk mengubah tipe data string menjadi Numeric.

MODUL 2 ,IDE VISUAL BASIC 2008

Menjalankan Visual Basic

Start  -  Program  -  MicrosoftName Visual Studio 2008 - Microsoft Visual Studio 2008

  

beberapa langkah langkah untuk memulai sebuah  project :

# Menu File  - New Project  atau  Klik Create: Project (Dari tampilan Start Page)

# Pada Project Types: pilih Windows

# Pada Templates:  pilih Windows Forms Applicatoin

# Pada :  ketik nama Project

# Klik OK

dan pada saat kita sudah selesai melakukan desain,maka kita akan melanjutkan dengan menulis kode program,dan untuk menampilkan nya kita cukup klik menu view-code.dengan mengklik dua kali objek yang terdapat pada form.

Method (Event)

Method merupakan kejadian atau suatu aksi yang dapat dilakukan oleh sebuah control.

Contoh: Load, Click, DoubleClick.

Kode program diketik pada objek program (diantara Private Sub dan End Sub) yang berada dalam lingkungan Class (diawali dengan Public Class dan diakhiri dengan End Class).

Bentuk Umum Penulisan Kode Program

NamaObjek.Properties = Argument

contoh program

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

 Tampilan program setelah pengaturan properties sebagai berikut:

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Jika diklik CheckBox1 (OOP), maka pada objek TextBox1 (Txtoop) akan tampil teks:

“Object Oriented Programming”

b.    Jika diklik CheckBox2 (VB), maka pada objek TextBox2 (Txtvb) akan tampil teks:

“Visual Basic”

c.    Jika diklik RadioButton1 (Benar), maka pada objek TextBox3 (Txtbs) akan tampil teks:

“Anda memilih Benar”

d.    Jika diklik RadioButton2 (Salah), maka pada objek TextBox3 (Txtbs) akan tampil teks:

“Anda memilih Salah”

e.    Jika diklik tombol Button1 (Bersih), maka:

-  tanda checklist pada OOP akan hilang.

-  tanda checklist pada VB akan hilang.

-  teks pada objek Txtoop, Txtvb dan Txtbs akan dihapus (kosong).

f.     Jika diklik tombol Button2 (Tutup), maka program akan ditutup (keluar dari program)

Perintah Program:

a.    Perintah pada Objek CheckBox1

Private Sub chkoop_CheckedChanged(ByVal sender As System.Object,…

txtoop.Text = "Object Oriented Programming"

End Sub

b.    Perintah pada objek CheckBox2

Private Sub chkvb_CheckedChanged(ByVal sender As System.Object,…

txtvb.Text = "Visual Basic"

End Sub

c.    Perintah pada objek RadioButton1

  Private Sub rdobenar_CheckedChanged(ByVal sender As System.Object,…

txtbs.Text = "Anda Memilih Benar"

  End Sub

d.    Perintah pada objek RadioButton2

  Private Sub RdoSalah_CheckedChanged(ByVal sender As System.Object,…

txtbs.Text = "Anda Memilih Salah"

  End Sub

e.    Perintah pada objek Button1

  Private Sub btnbersih_Click(ByVal sender As System.Object, …

chkoop.Checked = 0

chkvb.Checked = False

txtoop.Text = ""

txtvb.Clear()

txtbs.Text = ""

  End Sub

f.     Perintah pada objek Button2

  Private Sub btntutup_Click(ByVal sender As System.Object, …

End

  End Sub

     Tampilan program setelah dijalankan sebagai berikut:

Untuk menjalankan program, klik tombol Start Debuggi / tekan tombol F5 pada keyboard.