Tutorial Menggunakan Prosedur dalam Vb.Net (Visual Studio 2010)

November 24, 2011

adapun listing yang kami gunakan adalah sebagai berikut :
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call data_mahasiswa()
End Sub
Sub data_mahasiswa()
Dim nama As String
Dim nim As String
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
nama = (TextBox1.Text)
nim = Val(TextBox2.Text)
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
ListBox1.Items.Add(“Nama : ” & nama)
ListBox1.Items.Add(“NIM : ” & nim)
ListBox1.Items.Add(“Nilai 1 : ” & nilai1)
ListBox1.Items.Add(“Nilai 2 : ” & nilai2)
ListBox1.Items.Add(“Nilai 3 : ” & nilai3)
ListBox1.Items.Add(“Nilai 4 : ” & nilai4)
End Sub
Sub rataan()
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
Dim nilai_rata As Double
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
nilai_rata = (nilai1 + nilai2 + nilai3 + nilai4) / 4
ListBox1.Items.Add(“Rata – Rata : ” & nilai_rata)
End Sub
Sub nilai_akhir()
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
Dim nilai_rata As Double
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
nilai_rata = (nilai1 + nilai2 + nilai3 + nilai4) / 4
If nilai_rata >= 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata = 0 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata <= 100 Then
ListBox1.Items.Add("Keputusan Akhir : Selamat Anda Lulus Mata Kuliah Tersebut")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call rataan()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call nilai_akhir()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call keputusan()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox1.Items.Add("")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
ListBox1.Items.Clear()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Close()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Form2.Show()
End Sub
End Class

adapun komponen komponen yang digunakan adalah seperti pada screenshot yang ada dibawah ini :