Pertemuan 9, 20 April 2015 : tutorial penggunaan module dan MDI Parent Form menggunakan Visual basic 2010 express

 saya akan membuat tutorial penggunaan module dan MDI Parent Form kursi menggunakan Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.      Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Luas Segitiga. Kemudian klik ok.

Buat tampilan formnya seperti ini.

 

Kemudian masukan koding nya di button proses.

Kodingnya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Alas, Tinggi As Integer
        Alas = TextBox1.Text
        Tinggi = TextBox2.Text
        TextBox3.Text = LuasSegitiga(Alas, Tinggi)
    End Sub
End Class

2.      Kemudian kita membuat satu form baru lagi  dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Luas Persegi.

Lalu buat tampilan formnya seperti ini.

Lalu masukan kodingnya ke button proses.

Kodingnya adalah sebagai berikut :

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

        Dim Panjang, Lebar As Integer

        Panjang = TextBox1.Text

        Lebar = TextBox2.Text

        TextBox3.Text = Luas(Panjang, Lebar)

    End Sub

End Class

3.      Buat module baru dengan cara klik kanan pada project pilih add -> module.

Kemudian masukan coding seperti di gambar berikut ini .

4.      Lalu buat MDI Parent Form dengan cara klik kanan di projet kita pilih add -> new item-> kemudian pili MDI Parent Form.tampilannya seperti berikut.

Hapus semua menu bar yang ada di atas dan ubah menjadi seperti gambar di bawah ini.

Kemudian klik pada menu bar rumus , masukan Luas segitiga dan Luas Persegi Panjang dan Exit Pada Menu bar Keluar Menjadi  seperti gambar dibawah ini.

  

Masukan koding di Rumus segitiga.

Kodingnya adalah sebagai berikut :

Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click

        Form1.Show()

    End Sub

Masukan koding di Rumus Persegi Panjang.

Kodingnya adalah sebagai berikut :

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click

        Form2.Show()

    End Sub

Masukan koding di Exit.

Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

        Me.Close()

    End Sub

Kodingnya adalah sebagai berikut :

5.      Kemudian Run program. Tampilannya akan seperti berikut.

Pilih rumus yang ingin di cari . saya ambil contoh rumus segitiga. Klik rumus lalu pilih rumus segitiga .

dengan alas 9  dan tinggi 20 maka luas segitiganya adalah 90.

Sekian tutorial mengenai penggunaan  Module dan MDI Parent Form.

Pertemuan 9, 20 April 2015 : Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

Dengan koding seperti dibawah ini:
Deklarasikan variabel berikut di public class.

Public Class Bilangan
    Dim awal, akhir, hasil As String
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnLihatBil.Click
        Dim strGanjil, strGenap, strPrima, strfibonaci As Integer
        prosesbilangan(strGanjil, strGenap, strPrima, strfibonaci)
        showSum(txtbil1.Text, txtbil2.Text)
    End Sub

buat prosedure showSum.

Sub showSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
        Dim intSum As Integer
        intSum = intNum1 + intNum2
        txthasil.Text = intSum
    End Sub

    

buat prosedure prosesbilangan.

Sub prosesbilangan(ByVal strGanjil As String, ByVal strGenap AsString, ByVal strPrima As String, ByVal strFibonaci As String)
        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()
        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()
        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()
        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

    

buat prosedure Ganjil.

Sub Ganjil()
        Dim i As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        For i = awal To akhir
            i = i + 0
            If (i Mod 2 = 1) Then
                lstBilangan.Items.Add(i)
            End If
        Next
    End Sub

    

buat prosedure Genap.

Sub Genap()
        Dim i As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        For i = awal To akhir
            i = i + 0
            If (i Mod 2 = 0) Then
                lstBilangan.Items.Add(i)
            End If
        Next
    End Sub

    

buat prosedure Prima.

Sub Prima()
        Dim x, y, z As Integer
        awal = Val(InputBox("masukkan batasan awal", "Batasan"))
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        If awal >= 2 Then
            For x = awal To akhir
                z = 0
                For y = 2 To x
                    hasil = x Mod y
                    If hasil = 0 Then
                        z = z + 1
                    End If
                Next
                If z <= 1 Then
                    lstBilangan.Items.Add(x)
                End If
            Next
        Else
            MsgBox("Bilangan Prima dimulai dari 2")
        End If
    End Sub

    

buat prosedure Fibonacci.

Sub Fibonacci()
        Dim i, x, y, z As Integer
        akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
        y = 0
        z = 1
        lstBilangan.Items.Add(y)
        lstBilangan.Items.Add(z)
        For i = 0 To akhir
            x = y + z
            y = z
            z = x
            If x > akhir Then Exit For
            lstBilangan.Items.Add(x)
        Next
    End Sub

    

kode untuk button Exit.

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

  

kode untuk button hitung.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        Dim sngTotal As Single
        sngTotal = sum(txtbil1.Text, txtbil2.Text)
    End Sub

    

buat function.

Function sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) AsSingle
        Dim sngHasil
        sngHasil = sngNum1 + sngNum2
        txthasil.Text = sngHasil
        Return sngHasil
    End Function
End Class

    

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih

Pertemuan 8, 30 Maret 2015 : Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

Dengan koding seperti dibawah ini:

kode untuk button hitung

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal eAs 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

    

buat function Grade

 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

   

kode untuk button clear

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnclear.Click

        txtnama.Clear()

        txtabsen.Clear()

        txttugas.Clear()

        txtkeaktifan.Clear()

        txtuts.Clear()

        txtuas.Clear()

        txtnilaiakhir.Clear()

    End Sub

    

    

kode untuk button exit

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

        Close()

    End Sub

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih 

Pertemuan 7, 23 Maret 2015 : ByVal ByRef dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “ByVal dengan menggunakan Microsoft Visual Basic 2010” dengan desain seperti dibawah ini:

List dengan nama lstOutput

Button1 dengan nama btnGo!

Button2 dengan nama btnExit

Masukan Coding di btnGo seperti ini:

Public Class Form1
    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnGo.Click
        Dim intnumber As Integer = 100
        lstOutput.Items.Add("Inside btnGo_Click the value of " & "intNumber is " & intnumber.ToString())
        lstOutput.Items.Add("Now I am calling ChangeArg")
        ChangeArg(intnumber)
        lstOutput.Items.Add("Now back in btnGo_Click, " & "the value of intNumber is "& intnumber.ToString())
    End Sub
    Sub ChangeArg(ByVal intArg As Integer)
        lstOutput.Items.Add("Didalam procedure, " & "Saya akan mengubah intArg.")
        intArg = 0
        lstOutput.Items.Add("Sekarang intNumber adaalah " & intArg.ToString)
    End Sub

Lalu coding di btnExit seperti ini:

 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnExit.Click
    End Sub
End Class

   

Sehingga outputnya seperti gambar dibawah ini :

Sekian dan Terimakasih