Pertemuan 7, 30 Maret 2015ONTOH APLIKASI PROCEDURE & SUB PROCEDURE DI VB 2010

1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
                 

2.  Kemudian klik  " New project " Seperti gambar di bawah ini

 3. Setelah  di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application " 

 4. Kemudian akan muncul form kosong seperti gambar di bawah ini

 5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih "Button" , "ListBox" , "GroupBox" , " Label" , "ComboBox" seperti gambar di bawah ini

 

6.   maka hasilnya akan muncul form seperti gambar di bawah ini

CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "

Objek	Text	Name
GroupBox	Jenis Bilangan
GroupBox	Hasil Bilangan
GroupBox	KALKULATOR SEDERHANA
ComboBox	Pilih Bilangan	cboBilangan
ListBox		lstBilangan
Label1	Bilangan1
Label2	Bilangan2
Label3	Hasil
TextBox1		txtbilangan1
TextBox2		txtbilangan2
TextBox3		txthasil
Button1	Lihat Bil	btnLihatBil
Button2	Exit	btnExit
Button3	Hitung	btnhitung

 
7. Kemudian copy script di bawah ini .

  

001	Public Class Bilangan

002	Dim awal, akhir, hasil As String

003	Dim x, y, z As Integer

004	Dim i As Integer

005	'prosedur untuk mencari bilangan ganjil

006

007	Private Sub Ganjil()

008	lstBilangan.Items.Clear()

009	awal = Val(InputBox("masukkan batasan awal", "Batasan"))

010	akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))

011	For i = awal To akhir

012

i = i + 0

013	If (i Mod 2 = 1) Then

014	lstBilangan.Items.Add(i)

015

End If

016

Next

017

End Sub

018	'prosedur untuk mencari bilangan genap

019

020	Private Sub Genap()

021	lstBilangan.Items.Clear()

022	awal = Val(InputBox("masukkan batasan awal", "Batasan"))

023	akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))

024	For i = awal To akhir

025

i = i + 0

026	If (i Mod 2 = 0) Then

027	lstBilangan.Items.Add(i)

028

End If

029

Next

030

End Sub

031	'prosedur untuk mencari bilangan prima

032

033	Private Sub Prima()

034	lstBilangan.Items.Clear()

035	awal = Val(InputBox("masukkan batasan awal", "Batasan"))

036	akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))

037	If awal >= 2 Then

038	For x = awal To akhir

039

z = 0

040	For y = 2 To x

041	hasil = x Mod y

042	If hasil = 0 Then

043

z = z + 1

044

End If

045

Next

046	If z <= 1 Then

047	lstBilangan.Items.Add(x)

048

End If

049

Next

050

Else

051	MsgBox("Bilangan Prima dimulai dari 2")

052

End If

053

End Sub

054	'prosedur untuk mencari bilangan Fibonaci

055

056	Private Sub Fibonaci()

057	lstBilangan.Items.Clear()

058	akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))

059

y = 0

060

z = 1

061	lstBilangan.Items.Add(y)

062	lstBilangan.Items.Add(z)

063	For i = 0 To akhir

064

x = y + z

065

y = z

066

z = x

067	If x > akhir Then Exit For

068	lstBilangan.Items.Add(x)

069

Next

070

071

End Sub

072	'coding untuk tombol LihatBil (Memanggil prosedur ProsesBilangan)

073

074	Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnLihatBil.Click

075

076	ProsesBilangan(cboBilangan.SelectedItem)

077

078

End Sub

079

080	Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnExit.Click

081	Me.Close()

082

End Sub

083	' prosedur Proses Bilangan

084

085	Sub ProsesBilangan(ByVal strNamaBilangan As String)

086	If cboBilangan.SelectedItem = "Ganjil" Then

087

Ganjil()

088

089	ElseIf cboBilangan.SelectedItem = "Genap" Then

090

Prima()

091

092	ElseIf cboBilangan.SelectedItem = "Prima" Then

093

Prima()

094

095	ElseIf cboBilangan.SelectedItem = "Fibonaci" Then

096	Fibonaci()

097

End If

098

End Sub

099	'prosedur untuk menghitung 2 bilangan

100

101	Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)

102	Dim intSum As Integer

103	intSum = intNum1 + intNum2

104	txthasil.Text = intSum

105

End Sub

106	'coding untuk tombol Hitung (memanggil prosedur ShowSum

107

108	Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnhitung.Click

109	ShowSum(txtbilangan1.Text, txtbilangan2.Text)

110

End Sub

111

End Class

8. Maka hasilnya akan seperti gambar di bawah ini