9:51 PM
Arif Nurnanto
LAPORAN PRAKTIKUM PEMROGRAMAN VISUAL
MODUL 5
REPETITIVE, PROSEDUR, SUBROUTINE
Untuk memenuhi tugas matakuliah Praktikum Pemrograman Visual
yang dibimbing oleh Bapak Wahyu Sakti Gunawan Irianto
 |
Oleh :
ARIF NURNANTO
(120533430966)
FAKULTAS TEKNIK
JURUSAN TEKNIK ELEKTRO
PRODI S1 PENDIDIKAN TEKNIK INFORMATIKA
UNIVERSITAS NEGERI MALANG
Maret 2013
A. TUJUAN
1. Mahasiswa dapat menggunakan algoritma For-Next
2. Mahasiswa memahami algoritma Do While Loop dan Do Until Loop
3. Mahasiswa dapat memahami Do While dan Do Loop di dalam program
4. Mahasiswa dapat membuat fungsi prosedur pada VB
5. Mahasiswa mampu menerapkan subroutine dan function ke dalam bahasa pemrograman visual.
B. LATIHAN REPETITIVE
1. Struktur Do – While - Loop
Source Code :
Module Module1
Sub Main()
Dim intconter As Integer = 0
Do
While intconter < 10
Console.WriteLine(intconter)
intconter += 1
End While
Loop
End Sub
End Module
|
Tampilan :
Keterangan : program akan melakukan pengulangan variabel intcounter, dimana nilai variabel intcounter kurang dari 10 akan menampilkan nilai variabel yang kemudian di inkremen atau ditambah dengan nilai 1. Jadi jika nilai variabel masih kurang dari 10 maka akan tetap melanjutkan pengulangan.
2. Do – Until - Loop
Source Code :
Module Module1
Sub Main()
Dim intcoounter As Integer = 0
Do Until intcoounter = 10
Console.WriteLine(intcoounter)
intcoounter += 1
Loop
Console.Read()
End Sub
End Module
|
Tampilan :
Keterangan : Program pengulangan do – until – loop ini tidak jauh beda dengan pengulangn dengan metode do – while – loop, hanya saja pengulangan ini sudah ditentukan akan berulang berdasarkan nilai variabel yang sudah ditetnukan.
3. Do – Loop - While
- Sintaks Program
- Module Module1
- Sub Main()
- Dim intcounter As Integer = 11
- Do
- Console.WriteLine(intcounter)
- intcounter += 1
- Loop
- End Sub
- End Module
-
-
|
- Tampilan Program
Keterangan : Program akan melakukan perulangan terus menerus karena setelah perintah do tidak disertakan deklarasi sampai nilai ke berapa perulangan itu berhenti.
4. For - Next
Sintaks
Module Module1
Sub Main()
Dim intcounter As Integer
For intcounter = 0 To 9
Console.WriteLine(intcounter)
Next
Console.Read()
End Sub
End Module
|
Tampilan
Keterangan : program akan melakukan perulangan variabel intcounter dari 0 sampai 9 untuk menampilkan nilai dari variabel saat proses perulangan.
5. For – Next –Step
Sintaks
Module Module1
Sub Main()
Dim int As Integer
For int = 0 To 9 Step 2
Console.WriteLine(int)
Next
Console.Read()
End Sub
End Module
|
Tampilan :
Keterangan :
Program akan melakukan perulangan sama dengan menggunakan metode perulangan for – next, namun step di sini digunakan untk menampilkan niilai dari nilai awal setelah di tambah dengan 2. Jadi perulangan variabel int dari nilai 0 ke 9 akaan ditampilkan namun yang hanya ditambahkan dengan 2 dari nilai awal.
6. Exit – Do
Sintaks :
Module Module1
Sub Main()
Dim intcounter As Integer = 0
Do
Console.WriteLine(intcounter)
If (intcounter = 5) Then
Exit Do
End If
intcounter += 1
Loop While intcounter < 10
Console.Read()
End Sub
End Module
|
Tampilan :
7. Exit –For
Sintaks :
Module Module1
Sub Main()
Dim intcounter As Integer = 0
For intc = 0 To 9
Console.Write(intcounter)
If (intcounter = 5) Then
Exit For
End If
Next
Console.Read()
End Sub
End Module
|
Tampilan :
8. Aplikasi Sederhana menggunakan struktur For – Next
Sintaks :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "for-next"
Button1.Text = "Tekan"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
Dim hasil As String = ""
For a = 1 To 9
hasil &= a
Next
TextBox1.Text = hasil
End Sub
End Class
|
Tampilan :
9. Struktur Do – While – Loop
Sintaks :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Byte = 1
Do While b <= 5
ListBox1.Items.Add(b)
b += 1
Loop
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Tekan"
End Sub
End Class
|
Tampilan :
10. Latihan Fungsi Prosedur
Sintaks :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bilangan1 As Integer
Dim bilangan2 As Integer
Dim nilai As Integer
nilai = 0
bilangan1 = InputBox("Bilangan Pertama")
bilangan2 = InputBox("Bilanga kedua")
Call hitung(bilangan1, bilangan2, nilai)
MessageBox.Show(bilangan1 & "+" & bilangan2 & "=" & nilai, "pesan")
End Sub
Sub hitung(ByRef x As Integer, ByVal y As Integer, ByVal hasil As Integer)
hasil = x - y
MessageBox.Show("NilaiX: " & x & vbCrLf & "nilai y:" & y & vbCrLf & "nilai hasil" & hasil, "pesan")
End Sub
End Class
|
Tampilan :
11. Latihan Subroutin
Sintaks :
Module Module1
Dim result As Integer
Public Sub displayResult(ByVal result As Integer)
MessageBox.Show(Str(result))
End Sub
Public Function percentageOf(ByVal value1 As Integer, ByVal value2 As Integer) As Integer
result = (value1 / value2) * 100
Return result
End Function
End Module
|
Tampilan :
12. Tugas Rumah
Sintaks :
Public Class Form1
Public Sub proses()
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 1000
For x As Integer = 0 To 1000 Step 10
ProgressBar1.Value = x
ProgressBar1.Refresh()
Threading.Thread.Sleep(10)
Next
MessageBox.Show("Proses Selesai.", "Pesan", MessageBoxButtons.OK)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ProgressBar1.ForeColor = Color.Blue
ProgressBar1.BackColor = Color.Cyan
proses()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ProgressBar1.ForeColor = Color.Yellow
ProgressBar1.BackColor = Color.Blue
proses()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ProgressBar1.ForeColor = Color.Red
ProgressBar1.BackColor = Color.Yellow
proses()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ProgressBar1.ForeColor = Color.Black
ProgressBar1.BackColor = Color.Red
proses()
End Sub
End Class
|
Tampilan :
Keterangan :
Untuk program ini menggunakan perulangan for dengan mengunakan nilai minimum dan maksimum. Fungsi proses akan dijalankan setelah salah satu tombol di kotak “Jalankan dengan warna” di tekan. Fungsi threading sendiri yaitu untuk menghentikan waktu sementara selama 10 milisekon, dengan tujuan untuk menampilkan status pada progress bar pada setiap penambahan value pada progressbar.
KESIMPULAN
Dengan menggunakan metode perulangan, program akan lebih menghemat ruang dari pada menggunakan sebuah kondisi if else untuk perulangan. Pada umumnya perulangan pada visual basic net 2010 yaitu selalu mendeklarasikan atau memberi tahu terlebih dahulu nilai untuk menjalankan perulangan.
DAFTAR PUSTAKA
o Modul 5
o Nantslight.blogspot.com
o http://social.msdn.microsoft.com/Forums/en-US/0907165b-5739-41dd-9b57-43dc3434f03a/can-i-change-the-color-of-a-progressbar-in-visual-basic-2010?forum=vbgeneral
Posted in: Pemrograman Visual
0 comments:
Post a Comment