Pengulangan Menggunakan Do While

Jum'at, 11 Maret 2011

Pertemuan ke v

Do While <kondisi>

:

Loop

Contoh:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim i As Integer
  Do While i <= 10

   ListBox1.Items.Add(i)

   i = i + 1

  Loop
End Sub


Catatan:

• Karena i -nya integer maka i bernilai 0.
  

Cara Membuat Modul pada VB .Net

Modul di gunakan untuk mengabungkan beberapa Form sehingga Form yang satu dengan yang lainnya memiliki keterkaitan source code.

Ada dua cara untuk untuk membuat module pada VB .Net yaitu adalah sebagia berikut:

• Cara pertama, klik kanan pada Windows Aplication pilih Add new item cari module kemudian isi namenya sesuai dengan yang anda buat kemudian pilih Add.
  
• Cara kedua, klik kanan pada windows Aplication pilih Add Module, isi namenya sesuai dengan yang anda buat kemudian dengan cara yang sama twkan Add maka module yang anda buat sudah selesai.
  

Contoh program:

Source code pada module :

Module Module1
'variable public
Public nama As String, hasil, h, b As Integer
  Sub tampilnama()

    nama = "Joko Wandoyo"
  End Sub
  Sub hitung()

    hasil = Val(h) * Val(b)
  End Sub

End Module

Kemudian digabungkan dengan Form 5





Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

   h = TextBox1.Text

   b = TextBox2.Text
   Call hitung()

   TextBox3.Text = hasil
   End Sub

End Class