Monday, May 21, 2018

Pertemuan Ke 7

 PERULANGAN (LOOPING)

 Di LOOPING ini Aq sangant bingung cara dan gimana buat program nya..
mudah-mudahan lah bisa....
disini saya masih belom ngepos latihanya karna saya sibuk terus pagi jam 8;00-16;00 kerja kemudian jam 17;00-21;30 saya kuliah.. yah gimana ya saya agak keteter ngerjain blog saya... jika ada yang kurang mohon di komen ya.. mohon bantuan nya :):):)
Memberikan pemahaman tentang perulangan dan penggunaannya sesuai perintah. 

Perulangan

Perulangan digunakan untuk mengulang kode program (repetition, looping, recursive). selama kondisi memenuhi, kode dalam statements akan diulang terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam penulisan kode, looping tidak akan berhenti dan menimbulkan error.
Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan untuk perulangan, yaitu:
a.    For … Next
b.    Do … Loop
c.    While…End While
Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih sesuai dengan masalah yang dihadapi.

For … Next Statement


Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan jumlah yang pasti.
Bentuk Penulisan:
For  Var = [Mulai] to [Selesai] Step [Lompatan]
            Statement
Next

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


Do … Loop Statement

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.

Do…Loop dengan Pemeriksaan diawal

1.  Do Until … Loop
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:
Do Until  <kondisi>
   statement
Loop

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

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

BP:
Do While  <kondisi>
   statement
Loop

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

Do…Loop dengan Pemeriksaan diakhir

1.  Do … Loop Until
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:
Do
   statement
Loop until <kondisi>



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

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

BP:
Do
   statement
Loop While <kondisi>

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 While i <= 10



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.

BP:
While  <kondisi>
   statement
End While

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



Memberikan pemahaman tentang pembuatan menubar dan toolbar.


Menubar

Menubar adalah balok atau baris yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi.

Membuat MenuBar


Untuk membuat menubar dibutuhkan objek MenuStrip yang terdapat pada toolbox Menus & Toolbars.

Mendesain Menu

Menu terdiri dari menu utama dan submenu. Menu utama adalah menu yang tampil pada balok menu. Sedangkan Submenu adalah menu yang terdapat pada menu utama yang tampil jika menu utamanya dipilih.

Membuat Menu Utama

-  Ketik judul menu pada Type Here



Membuat SubMenu

-  Klik menu utama
-  ketik judul submenu pada Type Here


Membuat Garis Batas Antar SubMenu

-  Klik tanda panah pada Type Here
-  Pilih Separator

Membuat Shortcut Key Pada Menu

-  Pilih (klik) Menu yang akan diberikan shortcut key nya
-  Pada jendela Properties, pilih ShortcutKeys
-  Atur kombinasi shortcutkey nya.


Membuat Gambar Pada Menu

-  Pilih (klik) Menu yang akan diberikan gambar
-  Pada jendela Properties, pilih Image
-           Pilih gambar.


Menjadikan Form Menu menjadi Form Utama (Form Induk)

Sebuah Aplikasi biasanya terdiri dari beberapa Form. Form menu merupakan form utama dimana form-form lain akan dipanggil melalui form menu. Agar form menu menjadi form utama yang menampung form-form lain, maka perlu diatur tampilan formnya yaitu melalui properties IsMdiContainer, ubah nilainya menjadi True dan WindowState pilih Maximized.

Untuk menampilkan form lain didalam form utama, perintahnya yaitu:
Nama_Form.MdiParent = Me
    Nama_Form.Show() 


Toolbar

Toolbar adalah balok atau baris yang berisi tombol-tombol pintas untuk mengeksekusi perintah yang terdapat pada menubar.


Membuat Toolbar


Untuk membuat toolbar dibutuhkan objek ToolStrip yang terdapat pada toolbox Menus & Toolbars.



Membuat Icon pada Toolbar

-   Klik tombol Add ToolStripButton () dan pilih Button.
-           Klik kanan pada tombol icon, lalu klik Set Image. Pilih gambar untuk icon tersebut 



  • LATIHAN.
1.Buatlah Program Seperti berikut:


2.Buat Nama Code seperiti ini:
        >TxtBayar.Text         >BtnCari                 
        >TxtDiskon.Text       >BtnSimpan
        >TxtJumlah.Text       >BtnBesih
        >TxtMerk.Text         >BtnSelesai
        >TxtSatuan.Text       >BtnHitung
        >TxtTotal.Text
        >TxtTransaksi.Text
        >TxtType.Text
        >CboKode.Text

3.Alur Program/Code Program.
        Public Class Form6
    Dim A As Integer
   
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)         Handles BtnSimpan.Click
        ListView1.Items.Add(TxtTransaksi.Text)
        ListView1.Items(A).SubItems.Add(CboKode.Text)
        ListView1.Items(A).SubItems.Add(TxtMerk.Text)
        ListView1.Items(A).SubItems.Add(TxtType.Text)
        ListView1.Items(A).SubItems.Add(TxtSatuan.Text)
        ListView1.Items(A).SubItems.Add(TxtJumlah.Text)
        ListView1.Items(A).SubItems.Add(TxtTotal.Text)
        ListView1.Items(A).SubItems.Add(TxtDiskon.Text)
        ListView1.Items(A).SubItems.Add(TxtBayar.Text)
        A = A + 1
    End Sub

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase Load
        CboKode.Items.Add("HOO1")
        CboKode.Items.Add("HOO2")
        CboKode.Items.Add("YOO1")
        CboKode.Items.Add("YOO2")
    End Sub

  Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CboKode.Text = "HOO1" Then
            TxtMerk.Text = "HONDA"
            TxtType.Text = "SUPRA FIT"
            TxtSatuan.Text = 9000000
        ElseIf CboKode.Text = "HOO2" Then
            TxtMerk.Text = "HONDA"
            TxtType.Text = "SUPRA X"
            TxtSatuan.Text = 11000000
        ElseIf CboKode.Text = "YOO1" Then
            TxtMerk.Text = "YAMAHA"
            TxtType.Text = "MIO"
            TxtSatuan.Text = 130000000
        Else
            TxtMerk.Text = "YAMAHA"
            TxtType.Text = "JUPITER"
            TxtSatuan.Text = 12000000
        End If
    End Sub

  Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.Text
        If TxtType.Text = "SUPRA FIT" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 5 / 100 * TxtTotal.Text
        ElseIf TxtType.Text = "MIO" And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 10 / 100 * TxtTotal.Text
        Else
            TxtDiskon.Text = 0
        End If
        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text

    End Sub

 Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtBayar.Text = ""
        TxtDiskon.Text = ""
        TxtJumlah.Text = ""
        TxtMerk.Text = ""
        TxtSatuan.Text = ""
        TxtTotal.Text = ""
        TxtTransaksi.Text = ""
        TxtType.Text = ""
        CboKode.Text = ""


    End Sub

 Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelesai.Click
        End
    End Sub

End Class

4. Cek Video dibawah buat menjalankanya:

















Posted by at No comments:

Tuesday, May 15, 2018

PERTEMUAN KE6

 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

Ada beberapa MsgBoxStyle, yaitu:
 

1.     MsgBoxStyle.Critical (16)                   :   tombol OK dan gambar icon Critical
 

2.     MsgBoxStyle.Question (32)               :   tombol OK dan gambar icon Question
 

3.     MsgBoxStyle.Exclamation (48)         :   tombol OK dan gambar icon Exclamation
 

4.     MsgBoxStyle.Information (64)           :    tombol OK dan gambar icon Information

5.    MsgBoxStyle.AbortRetryIgnore (2)   :    tombol Abort, Retry dan Ignore.
6.    MsgBoxStyle.OkCancel (1)                :    tombol OK dan Cancel.
7.    MsgBoxStyle.OkOnly (0)                    :    tombol OK.
8.    MsgBoxStyle. RetryCancel (5)           :    tombol Retry dan Cancel.
9.    MsgBoxStyle.YesNo (4)                      :    tombol Yes dan No.
10.  MsgBoxStyle. YesNoCancel (3)        :    tombol Yes, No dan Cancel.

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

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


Objek
Name
TextBox1
TxtPas
Button1
BtnProses










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“

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:
Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.
1. Desain Program sbb:



Objek
Name
TextBox1
TxtJPR
Button1
BtnProses
Button2
BtnTutup





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.

CODING NYA
Public Class Form1

     Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Select Val(TxtProses.Text)
            Case 500 To 1000
                MsgBox("Mug Cantik", MsgBoxStyle.Information, "Info HADIAH")
            Case 1001 To 1500
                MsgBox("Boneka Cantik", MsgBoxStyle.Information, "Info HADIAH")
            Case 1501 To 2000
                MsgBox("Kipas Angin", MsgBoxStyle.Information, "Info HADIAH")
            Case 2001 To 2500
                MsgBox("Dispenser", MsgBoxStyle.Information, "Info HADIAH")
            Case Else
                MsgBox("Tidak Ada", MsgBoxStyle.Information, "Info HADIAH")
        End Select

     End Sub
    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        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

End Class
                                                Lihat videonya dibawah ini



Posted by at 1 comment:
Subscribe to: Comments (Atom)