Pertemuan 7, 30 Maret 2015 : Membuat Aplikasi Perhitungan Nilai Mahasiswa Menggunakan Parameter ByRef di Visual basic 2008

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok


2. Buat atribut seperti ini :


3. Beberapa komponen toolbox yang dibutuhkan, antara lain :
  1 buah GroupBox : Text : Nilai Akhir Mahasiswa
  7 Buah Label
              Label 1 : Text : Nama Mahasiswa
              Label 2 : Text : Absen
              Label 3 : Text : Tugas
              Label 4 : Text : Keaktifan
              Label 5 : Text : Uts
              Label 6 : Text : Uas
              Label 7 : Text : Nilai
7 Buah TextBox
             Textbox 1 : (name) : txtnama
             Textbox 2 : (name) : txtabsen
             Textbox 3 : (name) : txttugas
             Textbox 4 : (name) : txtkeaktifan
             Textbox 5 : (name) : txtuts
             Textbox 6 : (name) : txtuas
             Textbox 7 : (name) : txtnilaiakhir
3 Buah Button
            Button 1 | (name) : btnclear, text : clear
            Button 2 | (name) : btnhitung, text : Hitung
            Button 3 | (name) : btnexit, text : exit

4. Klik 2X pada Button2 (btnhitung), lalu isikan koding seperti berikut :
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

Dim absen, tugas, keaktifan, uts, uas As Integer
Dim nilaiakhir As Integer

absen = txtabsen.Text * 20 / 100
tugas = txttugas.Text * 15 / 100
keaktifan = txtkeaktifan.Text * 10 / 100
uts = txtuts.Text * 25 / 100
uas = txtuas.Text * 30 / 100

nilaiakhir = absen + tugas + keaktifan + uts + uas
txtnilaiakhir.Text = nilaiakhir

If nilaiakhir > 85 Then
MsgBox(“Nilai A”)
ElseIf nilaiakhir > 70 Then
MsgBox(“Nilai B”)
ElseIf nilaiakhir > 60 Then
MsgBox(“Nilai C”)
ElseIf nilaiakhir > 50 Then
MsgBox(“Nilai D”)
ElseIf nilaiakhir > 0 Then
MsgBox(“Nilai E”)

End If

End Sub
Function Grade(ByRef nilairatarata As Integer)
Dim hasil As Boolean
If nilairatarata <= 40 Then
hasil = True
Else
hasil = False
End If
Return hasil
End Function

5. Klik 2X pada Button1 (btnclear), lalu isikan koding seperti berikut :

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtnama.Clear()
txtabsen.Clear()
txttugas.Clear()
txtkeaktifan.Clear()
txtuts.Clear()
txtuas.Clear()
txtnilaiakhir.Clear()
End Sub

6. Klik 2X pada Button3 (btnexit), lalu isikan koding seperti berikut :

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

7. Kemudian coba jalankan dengan meng klik tombol Run coba.

Berikut hasilnya




! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J

Pertemuan 6, 23 Maret 2015 Tutorial aplikasi menggunakan prosedur dan fungsi

Pada tutorial kali ini saya akan membuat program menggunakan Prosedur dan Fungsi menggunakan Visual Basic 2008. Prosedur dan fungsi merupakan blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut.

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

Kemudian buat seperti ini


2. Atributnya antara lain

GroupBox:

GroupBox1 : Text : Jenis Bilangan

GroupBox2 : Text : Hasil

GroupBox3 : Text : Perhitungan

ComboBox

Items :

Ganjil

Genap

Prima

Fibonaci

ListBox : (name) : bilangan

Text Box

TextBox1 : (name) : txtbilsatu

TextBox2 : (name) : txtbildua

TextBox3 :(name) : txthasil

Button

Button 1 : (name) : btnInputBil | Text : Input Bilangan

Button 2 : (name) : btnExit | Text : Exit

3. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :
Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click
Dim strGanjil, strGenap, strPrima, strFibo As Integer
proses(strGanjil, strGenap, strPrima, strFibo)
ShowSum(txtbilsatu.Text, txtbildua.Text)
End Sub

4. Lalu tambahkan koding koding ini di bagian halaman kodingnya, dibawah koding langkah 3
Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
Dim intSum As Integer

intSum = intNum1 + intNum2

txthasil.Text = intSum
End Sub

Sub proses(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibo As String)
If (ComboBox1.SelectedIndex.Equals(0)) Then
BilGanjil()

ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
BilGenap()

ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
BilPrima()

ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
BilFibo()
End If
End Sub

Sub BilGanjil()
Dim ganjil As Integer
bilangan.Items.Clear()
ganjil = 1
Do While ganjil <= 20
bilangan.Items.Add(ganjil)
ganjil = ganjil + 2
Loop
End Sub

Sub BilGenap()
Dim genap As Integer
bilangan.Items.Clear()
genap = 0
Do While genap <= 20
bilangan.Items.Add(genap)
genap = genap + 2
Loop
End Sub

Sub BilPrima()
Dim prima As Integer

bilangan.Items.Clear()

Dim x As Integer
Dim y As Integer
Dim z As Integer

For x = 2 To 100
z = 0
For y = 2 To x
prima = x Mod y
If prima = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
bilangan.Items.Add(x)
End If
Next x
End Sub

Sub BilFibo()
bilangan.Items.Clear()
Dim a As Integer = 0
Dim b As Integer = 1
Dim fib As Integer = 0

bilangan.Items.Add(“1″)
Do
fib = a + b
a = b
b = fib
bilangan.Items.Add(fib.ToString)
Loop While fib <= 100
End Sub

5. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs)
Handles btnExit.ClickMe.Close()
End Sub

6. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat

Hasilnya :

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J

Pertemuan 5, 16 Maret 2015 : Tutorial menampilkan Deret Bilangan Ganjil, Genap, Prima, dan Fibonaci Menggunakan Visual Basic 2008

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

Kemudian buat seperti ini

Atributnya antara lain

 * 2 GroupBox:

            GroupBox1 : Text : Jenis Bilangan 

            GroupBox2 : Text : Hasil
 * 1 ComboBox
  Items :
           Ganjil
           Genap
           Prima
           Fibonaci
 * 1 ListBox : (name) : bilangan
 * 2 Buah Button
          Button 1 : (name) : btnInputBil | Text : Input Bilangan
          Button 2 : (name) : btnExit | Text : Exit

2. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :

Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click

Dim ganjil, genap, prima As Integer

If (ComboBox1.SelectedIndex.Equals(0)) Then
bilangan.Items.Clear()
ganjil = 1
Do While ganjil <= 20
bilangan.Items.Add(ganjil)
ganjil = ganjil + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
bilangan.Items.Clear()
genap = 0
Do While genap <= 20
bilangan.Items.Add(genap)
genap = genap + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
bilangan.Items.Clear()

Dim x As Integer
Dim y As Integer
Dim z As Integer

For x = 2 To 100
z = 0
For y = 2 To x
prima = x Mod y
If prima = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
bilangan.Items.Add(x)
End If
Next x

ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
bilangan.Items.Clear()
Dim a As Integer = 0
Dim b As Integer = 1
Dim fib As Integer = 0

bilangan.Items.Add(“1″)
Do
fib = a + b
a = b
b = fib
bilangan.Items.Add(fib.ToString)
Loop While fib <= 100
End If
End Sub

3. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()

End Sub

4. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Ganjil

Genap

Prima

Fibonaci

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J