Pemrograman Visual Basic

Latihan 1 menggunakan Satu Dimensi Berikut Source Codenya : Public Class latihan1     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim makanan(3) As String         makanan(0) = "Nasi Goreng"         makanan(1) = "Ayam Goreng"         makanan(2) = "Nasi Rames"         makanan(3) = "Gado-Gado"         For Each element As String In makanan             ComboBox1.Items.Add(element)         Next         ComboBox1.Text = "Menu Makanan"     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String         pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")         If pesan = vbYes Then             End         End If     End Sub End Class Latihan 2 menggunakan Satu Dimen

Array Satu Dimensi VB.NET           Array  adalah sekumpulan dari variabel atau nilai - nilai yang memilki tipe data dan nama yang sama dalam suatu urutan tertentu. Letak atau posisi sebuah elemen array di tentukan oleh index.           Array 1 Dimensi   adalah kumpulan - kumpulan elemen yang memiliki type data yang sama dan hanya memiliki satu indeks saja.   Array 1 Dimensi  dapat berupa sebuah vector, contoh cara membuat sebuah array di VB.NET Bentuk Umum : Dim Array [indeks] As Tipe_Data Keterangan : - Array : Nama dari variabel array yang dideskripsikan - Indeks : Nilai indeks yang diberikan untuk array dimensi satu Contoh : Menggunakan Object : 1 Label 1 Textbox 1 Button, dan 1 Listview Berikut Source Codenya : Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         ListView1.View = View.Details         ListView1.GridLines = True         ListView1.Colu

Latihan 8 - Perulangan Do While – Loop Berikut Source Codenya : Public Class latihan8     'nadiahtami 2017230007'     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String         pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")         If pesan = vbYes Then             End         End If     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim i As Integer = 0         Do While i <= 10             ListBox1.Items.Add("Perulangan dengan Do While ke" & i)             i = i + 1         Loop     End Sub End Class Latihan 9 - Perulangan Do While – Loop Berikut Source Codenya : Public Class latihan9     'nadiahtami 2017230007'     Dim halaman As Byte     Private Sub Button1_Click(ByVal sender As System.

Do While ... loop             Pengulangan  Do While ... Loop  merupakan loop yang sangat mirip dengan  While ... End While.  Yang membedakan  Do While ... Loop  dengan  While ... End While  adalah perintah  Exit Do.  Perintah tersebut adalah perintah untuk memaksa program menghentikan pengulangan sebelum pengulangan berakhir pada bentuk pengulangan  Do While ... Loop.  Perintah ini digunakan pada kondisi tertentu saja. Jika menggunakan perintah ini harus ada kondisi yang mendahuluinya. Bentuk Strukturnya adalah :       Do While (kondisi)              … ekspresi …       Loop Keterangan : * Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.  * Jika kondisinya terpenuhi maka blok program di ekspresi akan dijalankan, sebaliknya jika kondisi tidak terpenuhi maka ekspresi akan diabaikan dan melanjutkan dengan menjalankan program di bawah Loop. Contoh : Dim i As Integer = 0 Do While i < 10 i = i + 1

Struktur FOR .... NEXT     Struktur for ... next digunakan untuk mengulang perintah dalam jumlah yang sudah ditentukan. Pada struktur for ... next kita tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung.   Nilai variabel penghitung akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan. Bentuk Struktur for ... next :              For counter =  awal to akhir   step pertambahan                          …ekspresi…             next counter Keterangan : Ø    Counter: variabel integer yang digunakan untuk melakukan proses pengulangan Ø    Awal: nilai awal suatu variabel untuk menentukan awal pengulangan Ø    Akhir: nilai suatu variabel untuk menentukan akhir dari pengulangan Ø    Pertambahan: besarnya perubahan nilai dari nilai awal sampai nilai akhir. Jika pengulangannya menurun  yaitu dari besar menuju terkecil, maka perubahannya harus bernilai negatif. Nilai stand