MESSAGEBOX

MODUL 6

MESSAGEBOX (MSGBOX)

       

 

Tujuan

Memberikan pemahaman tentang penggunaan MessageBox.

MsgBox (Kotak Pesan)

Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah

MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)

Keterangan gambar:

ΠJudul Pesan

 MsgBoxStyle

Ž Isi Pesan

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.

Kode Program:

Kode program diketik pada Objek BtnProses (Tombol Proses)  sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object, ...

    If TxtPas.Text = "rahasia" Then

        MsgBox("Password yang Anda Masukkan Benar",

               MsgBoxStyle.Information, "Info Login")

    Else

        MsgBox("Password yang Anda Masukkan Salah", 16, "Info")

    End If  

End Sub

Alur Program:

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

Perintah Program:

Private Sub BtnTutup_Click(ByVal sender As System.Object, ...

    Dim pesan As String

    pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")

    If pesan = vbYes Then

        End

    Else

        Exit Sub

    End If

End Sub

latihan :

2. Alur Program

     -    Input Jumlah Point Reward.

     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.                                                                                                                                                            

          Tabel Hadiah sebagai berikut:                    

Point Reward	Hadiah
500 – 1000	Mug Cantik
1001 – 1500	Boneka Cantik
1501 – 2000	Kipas Angin
2001 – 2500	Dispenser

-     Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:

·       Isi Pesan          :    Anda ingin menutup Program ini?

·       MsgBoxStyle   :    OK dan Cancel dengan icon Question.

·       Judul                :    Tutup Program

Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

 DESAIN :

 

A.

B.

C.

D.

E.

STRUKTUR KEPUTUSAN 1

STRUKTUR KEPUTUSAN (Bagian 1)

       

 

Tujuan

Memberikan pemahaman tentang struktur keputusan atau pemakaian selection If.

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

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 As System.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 kondisinya bernilai False (Salah) maka Ekspresi Logika2 akan diuji. Jika Ekspresi Logika2 bernilai True maka Statement2 akan diproses, tetapi jika kondisinya bernilai False maka Ekspresi Logika3 akan diuji. Jika Ekspresi Logika3 bernilai True maka Statement3 akan diproses, tetapi jika kondisinya bernilai False maka 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 As System.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“)

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(ByVal sender 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

    End If

End Sub

Latihan:

Ubah tampilan program menjadi sbb:

A.jumlah

B. total harga

untuk mencari jumlah dan total harga

TIPE DATA BAHASA PROGRAMAN

Tipe Data

Seperti bahasa pemrograman yang lain, Visual Basic .Net juga menyediakan berbagai tipe data yang dapat digunakan oleh pemrograman sesuai dengan konteks pemakaiannya. Berikut beberapa tipe data yang tersedia dalam VB.Net yang sering digunakan.

 

Variabel merupakan tempat penyimpanan data. Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.

Berbeda dengan VB6, variabel dalam VB.Net harus dideklarasikan terlebih dahulu, jika tidak akan terjadi kesalahan Compiler.

                               

Deklarasi Variabel

Dim merupakan keyword dalam pendeklarasian variabel.

Bentuk penulisan Deklarasi Variabel

Pemberian Nilai Awal pada Variabel

Bentuk Penulisan:

Contoh:

a=10

b=5

i=“Visual Basic”

Pendeklarasian Variabel disertai pemberian Nilai Awal

Bentuk Penulisan:

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

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	OPERASI MATEMATIKA
		Font Size	9
		Bold	True
2	Label2	Text	Bilangan 1 :
3	Label3	Text	Bilangan 2 :
4	Label4	Text	Hasil :
5	Label5	Text	OPERATOR
		Bold	True
6	TextBox1	Name	txtbil1
7	TextBox2	Name	txtbil2
8	TextBox3	Name	Txthasil
9	Button1	Text	^
		Size	10
		Name	Btnpangkat
10	Button2	Text	*
		Size	10
		Name	Btnkali
11	Button3	Text	/
		Name	Btnbagi
12	Button4	Text	+
		Size	9
		Name	Btntambah
13	Button5	Text	-
		Size	10
		Name	Btnkurang
14	Button6	Text	Bersih
		Name	Btnbersih
15	Button7	Text	Tutup
		Name	Btntutup

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

latihan : 

1.luas lingkaran

2.keliling lingkaran

A. LUAS PERMUKAAN TABUNG DAN LINGKARAN

LUAS SEGITIGA

LUAS PERMUKAAN TABUNG