Contoh Program Perulangan Menggunakan Case, For, While, Do While Pada VB 2008



1.Struktur keputusan menggunakan case




Gambar 1.2 Desain Program


Kode Program

Public Class Form1

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtHadiah.Clear()
        TxtJPR.Clear()
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Select Case Val(TxtJPR.Text)
            Case Is <= 1000
                TxtHadiah.Text = "Mug Cantik"
            Case Is <= 1500
                TxtHadiah.Text = "Boneka Cantik"
            Case Is <= 2000
                TxtHadiah.Text = "Kipas Angin"
            Case Is <= 2500
                TxtHadiah.Text = "Dispenser"
            Case Else
                TxtHadiah.Text = "Tidak Ada"

        End Select
    End Sub
End Class



Gambar 1.2 Hasil Proses




Gambar 1.3 Tampilan Bersih




2.Program menggunakan  Select Case To Case



Gambar 1.4 Desain Program
Kode Program




Gambar 1.5 Hasil Proses



Gambar 1.6 Tampilan Bersih



3.Contoh Program Menggunakan If Then Else



Gambar 1.7 Desain Grafis


Kode Program







Gambar 1.8 Hasil Proses




Gambar 1.9 Tampilan Penutup



4.Contoh Program Menggunakan Perulangan For



Gambar 1.10 Desain Program


Kode Program

Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        ListBox1.Items.Clear()
        For i = 1 To 10
            ListBox1.Items.Add("Visual Basic")
        Next
    End Sub
End Class




Gambar 2.1 Hasil Proses

 5.Contoh Program Menggunakan Do While
Gambar 2.2 Desain Program


Kode Program

Public Class Form2

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        i = 1

        ListBox1.Items.Clear()
        Do While i <= 10
            ListBox1.Items.Add(i)
            i = i + 1
        Loop
    End Sub
End Class



Gambar 2.3 Hasil Proses

Komentar

Posting Komentar

Postingan populer dari blog ini

Menu Bar dan Main From

Gambar
MENU BAR dan MAIN FROM Menubar            Menubar adalah balok yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi. Menu Strip               Untuk membuat menu pada form kita dapat menggunakann komponen pada ToolBox berupa MenuStrip, biasanya menu digunakan untuk akses fitur-fitur dari aplikasi yang kita buat dan ditempatkan pada form utama suatu progra. Bayangkam jika fitur yang kita buat dalam sebuah program begitu banyak dan kompleks, maka tidak mungkin bagi kita menggunakan control berupa Button atau sejenisnya kedalam tubuh Form karena akan memperjelek tampilan dari Form utama itu sendiri. Untuk menagtasi hal tersebut maka kita dapat mengunakan komponen MenuStrip untuk menampilkan semua fitru dengan tampilan dorpdown menu dari bagian atas form. Membuat Garis Batas Antar SubMenu -   Klik tanda panah pada Type Here -  Pi...
Baca selengkapnya

Exception Handling

Gambar
EXCEPTION HANDLING Exception Handling Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. Struktur Exception Handling Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain : Try … Catch … Finally … End Try Merupakan perintah penanganan kesalahan yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi. Bentuk penulisan : Try         [ Perintah ] Catch         [Tampilkan kesalahan] Finally         [ Kode program setelah perintah Try dan Catch ] End Try Throw Throw merupaka...
Baca selengkapnya

Procedure, Function dan Module

Gambar
PROCEDURE, FUNCTION DAN MODULE Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan . Bentuk Umum : [Private|Public] Sub subname[(argumentlist)]       Statements End sub Sub Procedure dapat dipanggil dengan perintah : [call] subname[(argumentlist)] Keterangan : Sub procedure ( Procedure) sebaiknya menggunakan kata kerja (verb) Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me. Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference).Jika menggunakan by value, nilai pada argument tidak berubah.Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesu...
Baca selengkapnya