Minggu, 24 Januari 2016

Home » » Contoh-Contoh Program Visual Basic 2010 Menggunakan Menu Utama (Daftar Isi)

Contoh-Contoh Program Visual Basic 2010 Menggunakan Menu Utama (Daftar Isi)

By  Tidak ada komentar:


Assalammualaikum Warahmatullahi Wabarakatu . . . .

Baiklah Disini Ada beberapa Project Visual Basic Yang Telah menggunakan menu utama untuk project yang tidak tergabung dalam menu utama silakan kunjung egafrian01.blogspot.co.id,mungkin sedikit membantu anda dalam memahami Visual Basic 2010.

Pada project Visual Basic 2010 yang perlu kita buat juga yaitu “Menu Utama”,dimana menu utama ini bisa kita buat sebelum membuat project bisa juga pada akhir saat kita selesai membuat seluruh project menu utama ini juga akan selalu muncul saat kita meng-Runkan suatu Project.Menu utama ini merupakan bisa digambarkan daftar isi atau kumpulan dari project yang akan kita buat/Yang sudah kita buat.Disini saya membuat project tidak menggunakan menu utama dan project yang menggunakan menu utama,Jika tidak ingin menggunakan menu utama cukup menggunakan coding tidak menggunakan menu utama tetapi jika ingin menggunakan menu utama dapat dilihat pada pembahasan selanjutnya.Baiklah langsung saja kita membahasa beberapa project tentang Visual Basic 2010 yang telah tergabung dalam menu utama.

  • Menu utama
Disini kita akan membuat menu utama seperti yang telah kita bahas tadi.Buatlah sesuai dengan gambar berikut.data ini sesuai dengan project Yang ada pada postingan sebelumnya;

  • Pada setiap penambahan menu utama gunakan propertis sebagai berikut :
Setelah form di buat klik 2 kali pada tombol/kotak latihan4 sehingga masuk ke coding,lalu tambah Me.Enabled = False dan Latihan4.Show() seperti berikut.

Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub
End class

‘Maksudnya menu utama ini akan memanggil kembali project yang telah kita buat.
Setelah kita membuat menu utama kita kembali ke project pertama dengan menambah events latihan4 yang ada diatas coding dengan object FormClosed dan formclosing,untuk lebih jelasnya lihat coding latihan4 yang telah dihubungkan dengan menu utama setelah itu coba Runkan.

Public Class Latihan4
    Private Sub txtTP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTP.TextChanged
        Dim TP, Diskon, TB As Long

        TP = Val(Me.txtTP.Text)
        If TP < 100000 Then
            Diskon = 0
        ElseIf TP >= 100000 And TP <= 500000 Then
            Diskon = TP * 0.1
        ElseIf TP > 500000 And TP <= 1000000 Then
            Diskon = TP * 0.15
        ElseIf TP > 1000000 Then
            Diskon = TP * 0.2
        End If
        TB = TP - Diskon
        Me.txtDiskon.Text = Diskon.ToString
        Me.txtTB.Text = TB.ToString

    End Sub
‘Disini kita membuat formclosed dan formclosingnya
    Private Sub Latihan4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub


    Private Sub Latihan4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtTP.Text = "0"
    End Sub


End Class

Itulah Cara pembuatan Menu utama perlu diketahui disetiap penambahan project harus ditambahkan juga pada menu utama,untuk lebih jelas perhatikan contoh-contoh berikutnya.

  • Penambahan Form pada menu utama


  • Penambahan coding pada menu utama seperti yang telah dijelaskan sehingga seperti berikut ;

Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub
End class

·         Penambahan Coding pada projectnya
Public Class Latihan_5
    Dim UTS, UAS, NA As Double
    Dim Kehadiran, Kelakuan As Long
    Dim kUjian, kHadir, kKelakuan, kNA As Boolean
    Dim KET As String
    Sub kelulusan()
        UTS = Val(Me.textUTS.Text)
        UAS = Val(Me.TextUAS.Text)
        Kehadiran = Val(Me.TextKehadiran.Text)
        Kelakuan = Val(Me.TextKelakuan.Text)
        NA = (UTS * 0.4) + (UAS * 0.6)
        If UTS > 0 And UAS > 0 Then
            kUjian = True
        Else
            kUjian = False
        End If
        If Kehadiran > (0.75 * 18) Then
            kHadir = True
        Else
            kHadir = False
        End If
        If Kelakuan >= 2 Then
            kKelakuan = True
        Else
            kKelakuan = False
        End If
        If NA > 50 Then
            kNA = True
        Else
            kNA = False
        End If
        If kUjian = True And kHadir = True And kKelakuan = True And kNA = True Then
            KET = "LULUS"
        Else
            KET = "GAGAL"
        End If
        Me.TextNA.Text = NA.ToString
        Me.TextKET.Text = KET.ToString
    End Sub

    Private Sub textUTS_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles textUTS.LostFocus
        Call kelulusan()
    End Sub

    Private Sub TextUAS_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextUAS.LostFocus
        Call kelulusan()
    End Sub

    Private Sub TextKehadiran_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKehadiran.LostFocus
        Call kelulusan()
    End Sub

    Private Sub TextKelakuan_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKelakuan.LostFocus
        Call kelulusan()
    End Sub


    Private Sub Latihan_5_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan_5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub textUTS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles textUTS.TextChanged
        Call kelulusan()
    End Sub

    Private Sub TextUAS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextUAS.TextChanged
        Call kelulusan()
    End Sub

    Private Sub TextKehadiran_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKehadiran.TextChanged
        Call kelulusan()
    End Sub

    Private Sub TextKelakuan_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKelakuan.TextChanged
        Call kelulusan()
    End Sub
End Class

  •     Penambahan form pada menu utama
  •   Penamabahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub
End class

  •   Penambahan coding pada Project.
Public Class Latihan_6
    Dim KodeBulan, jumHari As Integer
    Dim NamaBulan As String

    Sub cariNamaBulan()
        KodeBulan = Val(Me.TextKB.Text)
        Select Case (KodeBulan)
            Case 1
                NamaBulan = "Januari"
                jumHari = 31
            Case 2
                NamaBulan = "Februari"
                jumHari = 28
            Case 3
                NamaBulan = "Maret"
                jumHari = 31
            Case 4
                NamaBulan = "April"
                jumHari = 30
            Case 5
                NamaBulan = "Mei"
                jumHari = 31
            Case 6
                NamaBulan = "Juni"
                jumHari = 30
            Case 7
                NamaBulan = "Juli"
                jumHari = 31
            Case 8
                NamaBulan = "Agustus"
                jumHari = 31
            Case 9
                NamaBulan = "September"
                jumHari = 30
            Case 10
                NamaBulan = "Oktober"
                jumHari = 31
            Case 11
                NamaBulan = "Nopember"
                jumHari = 30
            Case 12
                NamaBulan = "Desember"
                jumHari = 31
            Case Else
                NamaBulan = ""
                jumHari = 0
        End Select
        Me.lbnamabulan.Text = NamaBulan.ToString
        Me.lbjumlahhari.Text = jumHari.ToString
    End Sub

    Private Sub Latihan_6_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan_6_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan_6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lbnamabulan.Text = ""
        Me.lbjumlahhari.Text = ""
        Me.TextKB.Text = ""
        Me.TextKB.Focus()

    End Sub

    Private Sub TextKB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextKB.TextChanged
        Call cariNamaBulan()
    End Sub

End Class
  •        Penambahan form pada menu utama
  •          Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub
End class

·         Penambahan Coding pada Project
Public Class Latihan_7
    Dim rute, pilih As String

    Sub carirute()
        Select Case (pilih)
            Case "viaudara"
                rute = "Polsky -> Naik kendaraan ke Bandara-> Naik pesawat ke SMB II Plg -> Naik Transmusi ke Simpang Polda -> Transit simpang polda ke Halte dpn PS"
            Case "viadarat"
                rute = "Polsky -> Naik kendaraan ke simpang SMP 8 -> Naik Bis Jurusan Sekayu-Palembang (KM 12) -> Naik Transmusi ke simpang Polda -> Transit dr simpang Polda ke Halte dpn PS"
            Case "viasungai"
                rute = "Polsky -> Naik kendaraan ke Jembatan JM -> Naik Skoci dr Jembatan JM ke Dermaga Tangga Buntung -> Naik kendaraan dr Dermaga ke bawah Ampera -> Naik Transmusi ke simpang Polda -> Transit simpang Polda ke Halte dpn PS"
            Case Else
                rute = "Salah Rute"
        End Select
        MsgBox(rute, vbOKOnly, "Rute Polsky-Palembang Square")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub bUdara_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bUdara.Click
        pilih = "viaudara"
        Call carirute()
    End Sub

    Private Sub bDarat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bDarat.Click
        pilih = "viadarat"
        Call carirute()
    End Sub

    Private Sub bSungai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSungai.Click
        pilih = "viasungai"
        Call carirute()
    End Sub

    Private Sub Latihan_7_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan_7_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub
End Class
  • ·         Penambahan Form pada menu utama
  • ·         Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub
End class

  • ·         Penambahan coding pada project
Public Class Latihan_8
    'Deklarasi Menu Utama
    'Dim pilih As Integer

    'Deklarasi Balok
    'Dim pjbalok, lbbalok,tgbalok, vlbalok, as Integer

    'Deklarasi Lingkaran
    'Dim jari As Integer
    Dim PHI = 3.14

    'Deklarasi Kubus
    'Dim Sisi, vlkubus As Integer

    'Deklarasi Persegi Panjang
    'Dim pjpersegi, lbpersegi, lspersegi As Integer

    Sub menutama()
        Select Case (Val(txtPilih.Text))
            Case 1
                Me.pMenu.Visible = False
                Me.pBalok.Visible = True
            Case 2
                Me.pMenu.Visible = False
                Me.pLuasLingkaran.Visible = True
            Case 3
                Me.pMenu.Visible = False
                Me.pKubus.Visible = True
            Case 4
                Me.pMenu.Visible = False
                Me.pPersegi.Visible = True
            Case 5
                Utama.Enabled = True
                Utama.Show()
                Me.Hide()
                'Tombol menu utamannya disini karena pada case 5 selesai
            Case Else
                Me.txtPilih.Text = ""
                Me.txtPilih.Focus()

        End Select
    End Sub
    Sub hitungbalok()
        Me.txtVolume.Text = Val(Me.txtPanjangBalok.Text) * Val(Me.txtLebarBalok.Text) * Val(Me.txtTinggiBalok.Text)
    End Sub
    Sub hitunglingkaran()
        Me.txtLuasLingkaran.Text = Val(Me.txtJari.Text) ^ 2 * PHI
    End Sub
    Sub hitungkubus()
        Me.txtVolKubus.Text = Val(Me.txtSisiKubus.Text) ^ 3
    End Sub
    Sub hitungpersegi()
        Me.txtLuasPersegi.Text = Val(Me.txtPanjangPersegi.Text) * Val(Me.txtLebarPersegi.Text)
    End Sub

    Private Sub Latihan_8_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.pMenu.Location = New System.Drawing.Point(12, 12)
        Me.pBalok.Location = New System.Drawing.Point(12, 12)
        Me.pLuasLingkaran.Location = New System.Drawing.Point(12, 12)
        Me.pKubus.Location = New System.Drawing.Point(12, 12)
        Me.pPersegi.Location = New System.Drawing.Point(12, 12)

        Me.pMenu.Visible = True
        Me.pBalok.Visible = False
        Me.pLuasLingkaran.Visible = False
        Me.pKubus.Visible = False
        Me.pPersegi.Visible = False
    End Sub


    Private Sub txtPilih_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPilih.TextChanged
        Call menutama()
    End Sub

    'Panel Balok
    Private Sub txtPanjangBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangBalok.TextChanged
        Call hitungbalok()
    End Sub

    Private Sub txtLebarBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarBalok.TextChanged
        Call hitungbalok()
    End Sub

    Private Sub txtTinggiBalok_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTinggiBalok.TextChanged
        Call hitungbalok()
    End Sub

    Private Sub lbMenu1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu1.Click
        Me.pBalok.Visible = False
        Me.pMenu.Visible = True
    End Sub

    'Panel Lingkaran

    Private Sub txtJari_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJari.TextChanged
        Call hitunglingkaran()
    End Sub


    Private Sub lbMenu2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu2.Click
        Me.pLuasLingkaran.Visible = False
        Me.pMenu.Visible = True
    End Sub


    'Panel Kubus

    Private Sub txtSisiKubus_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSisiKubus.TextChanged
        Call hitungkubus()
    End Sub

    Private Sub lbMenu3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu3.Click
        Me.pKubus.Visible = False
        Me.pMenu.Visible = True
    End Sub

    'Panel Persegi Panjang

    Private Sub txtPanjangPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPanjangPersegi.TextChanged
        Call hitungpersegi()
    End Sub

    Private Sub txtLebarPersegi_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLebarPersegi.TextChanged
        Call hitungpersegi()
    End Sub

    Private Sub lbMenu4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbMenu4.Click
        Me.pPersegi.Visible = False
        Me.pMenu.Visible = True
    End Sub

    Private Sub Label24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label24.Click
        End
    End Sub

End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub
End class

  • Penambahan coding project
Public Class Latihan_9
    Dim mulai, akhir As Integer

    Sub hasil()
        Dim ulang As Integer
        mulai = Val(Me.txtMulai.Text)
        akhir = Val(Me.txtAkhir.Text)
        If mulai > akhir Then
            For ulang = mulai To akhir Step -1
                Me.ListHasil.Items.Add(ulang)
            Next
        Else
            For ulang = mulai To akhir
                Me.ListHasil.Items.Add(ulang)
            Next
        End If
    End Sub

    Private Sub bBaru_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBaru.Click
        Me.ListHasil.Items.Clear()
        Me.txtMulai.Text = ""
        Me.txtAkhir.Text = ""
        Me.txtMulai.Focus()
    End Sub

    Private Sub bAkhir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bAkhir.Click
        Call hasil()
    End Sub

    Private Sub Latihan_9_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub Latihan_9_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub
End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub
End class

  • Penambahan coding project
Public Class frmLat_10
    Dim akhir As Integer
    Dim ket As String

    Sub GenapGanjil()
        Dim i, sisabagi As Integer
        akhir = Val(Me.txtAkhir.Text)
        If akhir < 0 Then
            MsgBox("Masukkan Bilangan Genap Positif", vbCritical, "Salah Inputan")
            Me.txtAkhir.Text = ""
            Me.txtAkhir.Focus()
        ElseIf akhir >= 0 And akhir < 5 Then
            MsgBox("Masukkan Bilangan 5 Keatas", vbCritical, "Salah Inputan")
            Me.txtAkhir.Text = ""
            Me.txtAkhir.Focus()
        Else
            'ok
            Me.cklsGenap.Items.Clear()
            Me.cbGanjil.Items.Clear()
            If ket = " + " Then
                For i = 0 To akhir
                    sisabagi = i Mod 2
                    If sisabagi = 0 Then
                        Me.cklsGenap.Items.Add(i)
                    ElseIf sisabagi = 1 Then
                        Me.cbGanjil.Items.Add(i)
                    End If
                Next
            ElseIf ket = " - " Then
                For i = akhir To 0 Step -1
                    sisabagi = i Mod 2
                    If sisabagi = 0 Then
                        Me.cklsGenap.Items.Add(i)
                    ElseIf sisabagi = 1 Then
                        Me.cbGanjil.Items.Add(i)
                    End If
                Next
            End If
        End If
    End Sub
    Private Sub frmLat_10_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_10_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub txtAkhir_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtAkhir.LostFocus
        Call GenapGanjil()
    End Sub

    Private Sub bBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBaru.Click
        Me.cklsGenap.Items.Clear()
        Me.cbGanjil.Items.Clear()
        Me.txtAkhir.Text = ""
        Me.txtAkhir.Focus()
    End Sub

    Private Sub bNaik_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNaik.Click
        ket = " + "
        Call GenapGanjil()
    End Sub

    Private Sub bTurun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTurun.Click
        ket = " - "
        Call GenapGanjil()
    End Sub

End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub
End class

  • Penambahan coding project
Public Class frmLat_11
    Dim jumlah, rerata As Integer
    Dim data As String
    Private Sub bInput_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bInput.Click
        Dim ulang, inputdata As Integer
        If Val(Me.txtBanyak.Text) >= 1 Then
            'Lanjutkan Proses
            ulang = 1
            While (ulang <= Val(Me.txtBanyak.Text))
                inputdata = Val(InputBox("Masukkan Data" & ulang & " : "))
                jumlah = jumlah + inputdata
                data = data & " " & inputdata
                ulang = ulang + 1
            End While
            rerata = jumlah / Val(Me.txtBanyak.Text)
            Me.txtData.Text = data.ToString
            Me.txtJumlah.Text = jumlah.ToString
            Me.txtaRerata.Text = rerata.ToString
        Else
            'Inputkan Banyak Data
            Me.txtBanyak.Text = ""
            Me.txtBanyak.Focus()
        End If

    End Sub

    Private Sub frmLat_11_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_11_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub
End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
        Me.Enabled = False
        frmLat_12.Show()
    End Sub

  • Penambahan coding project
Public Class frmLat_12
    Dim deret As Integer

    Sub bil_deret()
        Dim banyak, n As Integer

        banyak = Val(Me.txtJumlah.Text)
        n = 1
        LsDeret.Items.Clear()
        While (n <= banyak)
            deret = n ^ 2
            LsDeret.Items.Add(n & " " & deret)
            n = n + 1
        End While
    End Sub


    Private Sub frmLat_12_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_12_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub txtJumlah_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged
        Call bil_deret()
    End Sub
End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
        Me.Enabled = False
        frmLat_12.Show()
    End Sub

    Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click
        Me.Enabled = False
        frmLat_13.Show()
    End Sub
End class

  • Penambahan coding project
Public Class frmLat_13
    Dim banyak As Integer
    Dim kar, karn As String

    Sub cetak_hasil()
        Dim u1, u2 As Integer
        banyak = Val(Me.txtBanyak.Text)

        kar = Me.txtKarakter.Text
        'step 1
        u1 = 1
        Me.lbHasil.Text = ""
        While (u1 <= banyak)
            u2 = 1
            While (u2 <= u1)
                'menambah karakter
                karn = karn & kar
                u2 += 1

            End While
            karn = karn & Chr(13)
            u1 += 1
        End While
        Me.lbHasil.Text = karn

        'step 2
        u1 = banyak - 1
        Me.lbHasil.Text = ""
        While (u1 >= 1)
            u2 = 1
            While (u2 <= u1)
                'Menambahkan karakter
                karn = karn & kar
                u2 += 1
            End While
            'menambahkan enter
            karn = karn & Chr(13)
            u1 -= 1

        End While
        'mencetak karakkter
        Me.lbHasil.Text = karn
    End Sub
    Private Sub bProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bProses.Click
        If Val(Me.txtBanyak.Text) >= 1 And Me.txtKarakter.Text <> "" And Me.txtKarakter.Text <> " " Then
            'Ok
            Call cetak_hasil()
        Else
            'Bermasalah
            MsgBox("Jumlah Perulangan tidak benar atau karakter kosong :", vbCritical, "Masalah.")
            Me.txtBanyak.Focus()
        End If

    End Sub

    Private Sub frmLat_13_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_13_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub bHapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapus.Click
        Me.lbHasil.Text = ""
        Me.txtKarakter.Text = ""
        Me.txtBanyak.Text = ""
        Me.txtBanyak.Focus()
    End Sub
End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
        Me.Enabled = False
        frmLat_12.Show()
    End Sub

    Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click
        Me.Enabled = False
        frmLat_13.Show()
 End Sub

Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click
        Me.Enabled = False
        frmLat_14.Show()
    End Sub
End class

  • Penambahan coding project
Public Class frmLat_14
    Dim jbaris, jkolom, hasil As Integer
    Dim cetakkolom, cetakbaris As String


    Sub perkalian()
        Dim baris, kolom As Integer

        'Cetak di listbox
        jbaris = 10
        jkolom = 10
        For baris = 1 To jbaris
            For kolom = 1 To jkolom
                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)
                Me.lsPerkalian.Items.Add(cetakkolom)
            Next
            Me.lsPerkalian.Items.Add(Chr(13))
        Next

        'Cetak di richtextbox
        baris = 1
        While (baris <= jbaris)
            kolom = 1
            While (kolom <= jkolom)
                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)
                Me.rtxPerkalian.AppendText(cetakkolom)
                kolom += 1
            End While
            'Code untuk pindah ke atas / baris 1 dan digeser kenama sebanyak 15-20 karakter
            Me.rtxPerkalian.AppendText(Chr(13))
            baris += 1
        End While
    End Sub


    Private Sub frmLat_14_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_14_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub


    Private Sub frmLat_14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call perkalian()
    End Sub
End Class
  • Penambahan Form pada menu utama
  • Penambahan coding pada menu utama
Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
        Me.Enabled = False
        frmLat_12.Show()
    End Sub

    Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click
        Me.Enabled = False
        frmLat_13.Show()
    End Sub

    Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click
        Me.Enabled = False
        frmLat_14.Show()
    End Sub

    Private Sub bLat15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat15.Click
        Me.Enabled = False
        frmlat_15.Show()
    End Sub
End class

  • Penambahan coding project
Public Class frmlat_15
    Public nim(30), nama(30), alamat(30), data(30), namafile, isifile As String
    Dim n As Integer

    Sub simpan_data()
        n = Val(Me.lbUrut.Text)

        nim(n) = Me.txtNim.Text
        nama(n) = Me.txtNama.Text
        alamat(n) = Me.txtAlamat.Text

        data(n) = "NIM : " & nim(n) & " " &
                "Nama : " & nama(n) & " " &
                "Alamat : " & alamat(n)

        'menyimpan
        PrintLine(1, data(n))
        'Print(1, nim(n), nama(n), alamat(n), Chr(13))
        'print (1,nim(n),nama(n),alamat(n))

        n += 1
        Me.lbUrut.Text = n.ToString

    End Sub

    Sub cari_data()
        Dim Nimcari As String
        Dim i As Integer
        Dim ditemukan As Boolean

        'Yang dicari berdasarkan NIM
        Nimcari = InputBox("Masukkan NIM yang akan dicari :")

        'Proses pencarian
        For i = 0 To n - 1
            If Nimcari = nim(i) Then
                Me.txtNim.Text = nim(i).ToString
                Me.txtNama.Text = nama(i).ToString
                Me.txtAlamat.Text = alamat(i).ToString
                ditemukan = True
                Exit For
            Else
                ditemukan = False
            End If
        Next
        If ditemukan = False Then
            MsgBox("Data Tidak Ditemukan!!!", vbCritical, "Informasi")
        End If
      
    End Sub

    Sub cetak_data()
        Me.Rtxdata.Clear()
        namafile = Application.StartupPath & "\mhs.txt"
        FileOpen(1, namafile, OpenMode.Input)

        While Not EOF(1)
            Input(1, isifile)
            Me.Rtxdata.AppendText(isifile & Chr(13))

        End While

    End Sub

    Sub baru()
        Me.txtNim.Clear()
        Me.txtNama.Clear()
        Me.txtAlamat.Clear()
        Me.txtNim.Focus()
    End Sub


    Private Sub frmlat_15_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        FileClose(1) 'Tutup file
        Me.Hide()
    End Sub

    Private Sub frmlat_15_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        FileClose(1) 'Tutup file
        Me.Hide()
    End Sub

    Private Sub bSimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSimpan.Click
        Call simpan_data()
        Call baru()
    End Sub

    Private Sub bCari_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bCari.Click
        Call cari_data()
    End Sub

  
    Private Sub frmlat_15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'buka file untuk menyimpan data
        namafile = Application.StartupPath & "\mhs.txt"
        FileOpen(1, namafile, OpenMode.Output)

        Me.Rtxdata.Visible = False
    End Sub

    Private Sub bCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCetak.Click
        If Me.bCetak.Text = "&Cetak" Then
            'Me.Enabled = False
            'frmLat_15_cetak.Show()

            FileClose(1)
            Me.Rtxdata.Visible = True
            Call cetak_data()
            Me.bCetak.Text = "&Tutup"

        ElseIf Me.bCetak.Text = "&Tutup" Then
            Me.Rtxdata.Visible = False
            Me.bCetak.Text = "&Cetak"

            FileClose(1)
            namafile = Application.StartupPath & "\mhs.txt"
            FileOpen(1, namafile, OpenMode.Append)

        End If

    End Sub
End Class
    • Penambahan Form pada menu utama
      
     
    • Penambahan coding pada menu utama
    Public Class Utama

        Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
            Me.Enabled = False
            Latihan4.Show()
        End Sub

        Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
            Me.Enabled = False
            Latihan_5.Show()
        End Sub

        Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
            Me.Enabled = False
            Latihan_6.Show()
        End Sub

        Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
            Me.Enabled = False
            Latihan_7.Show()
        End Sub

        Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
            Me.Enabled = False
            Latihan_8.Show()
        End Sub

        Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
            Me.Enabled = False
            Latihan_9.Show()
        End Sub

        Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
            Me.Enabled = False
            frmLat_10.Show()

        End Sub

        Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
            Me.Enabled = False
            frmLat_11.Show()
        End Sub

        Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
            Me.Enabled = False
            frmLat_12.Show()
        End Sub

        Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click
            Me.Enabled = False
            frmLat_13.Show()
        End Sub

        Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click
            Me.Enabled = False
            frmLat_14.Show()
        End Sub

        Private Sub bLat15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat15.Click
            Me.Enabled = False
            frmlat_15.Show()
        End Sub

        Private Sub Blat_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Blat_16.Click
            Me.Enabled = False
            frmlat_16.Show()
        End Sub
    End Class

    • Penambahan coding project
    Public Class FrmLat_16
        Dim tipe(100) As String
        Dim banyak(100) As Integer
        Dim hargasat(100), jumlah(100), Total As Double
        Dim nomor = 0

        'Badan fungsi/misalkan pembuatan pentol"pentol = daging*tepung
        Private Function jumlahjual(ByVal byk As Integer, ByVal hrg As Double) As Double
            jumlahjual = byk * hrg
            'pengiriman pentol
            Return jumlahjual
        End Function

        Private Function Totaljual(ByVal banyaktrx As Integer) As Double
            Dim ulang As Integer
            Totaljual = 0
            For ulang = 0 To banyaktrx
                Totaljual = Totaljual + jumlah(ulang)
            Next
            Return Totaljual


        End Function



        Sub aturlvtransaksi()
            Lvtransaksi.View = View.Details
            Lvtransaksi.FullRowSelect = True
            Lvtransaksi.GridLines = True

            Lvtransaksi.Columns.Add("No.", 35, HorizontalAlignment.Center)
            Lvtransaksi.Columns.Add("Tipe Kendaraan", 250, HorizontalAlignment.Center)
            Lvtransaksi.Columns.Add("harga @", 120, HorizontalAlignment.Center)
            Lvtransaksi.Columns.Add("Banyak", 60, HorizontalAlignment.Center)
            Lvtransaksi.Columns.Add("Jumlah", 160, HorizontalAlignment.Center)
        End Sub

        Sub isitransaksi()
            Dim isi As New ListViewItem

            hargasat(nomor) = Val(Me.Txtharga.Text)
            banyak(nomor) = Val(Me.txtbanyak.Text)
            'proses pemngilan fugsi jumlahjual/pemakan pentol dengan syarat bhannya sama
            jumlah(nomor) = jumlahjual(banyak(nomor), hargasat(nomor))

            isi.Text = nomor + 1.ToString
            isi.subitems.add(Me.Txttipe.Text)
            isi.subItems.add(Me.Txtharga.Text)
            isi.subitems.add(Me.txtbanyak.Text)
            isi.SubItems.Add(jumlah(nomor).ToString)
            Lvtransaksi.Items.Add(isi)


            nomor += 1
        End Sub
        Sub baru()
            Me.Txttipe.Clear()
            Me.Txtharga.Clear()
            Me.txtbanyak.Clear()
            Me.Txttipe.Focus()
            Me.Btambah.Enabled = False
        End Sub

        Private Sub Btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btambah.Click
            Call isitransaksi()
            Total = Totaljual(nomor)
            Me.Txttotal.Text = Total.ToString
            Call baru()

        End Sub
        Private Sub txtbanyak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbanyak.TextChanged
            Me.Btambah.Enabled = True
        End Sub


        Private Sub FrmLat_16_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
            Utama.Enabled = True
            Utama.Show()
            Me.Hide()
        End Sub

        Private Sub FrmLat_16_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            Utama.Enabled = True
            Utama.Show()
            Me.Hide()
        End Sub

        Private Sub FrmLat_16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Call aturlvtransaksi()

        End Sub

       
       
     
    End Class
    • Penambahan Form pada menu utama
    • Penambahan coding pada menu utama
    Public Class Utama

        Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click
            Me.Enabled = False
            Latihan4.Show()
        End Sub

        Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click
            Me.Enabled = False
            Latihan_5.Show()
        End Sub

        Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click
            Me.Enabled = False
            Latihan_6.Show()
        End Sub

        Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click
            Me.Enabled = False
            Latihan_7.Show()
        End Sub

        Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click
            Me.Enabled = False
            Latihan_8.Show()
        End Sub

        Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click
            Me.Enabled = False
            Latihan_9.Show()
        End Sub

        Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click
            Me.Enabled = False
            frmLat_10.Show()

        End Sub

        Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click
            Me.Enabled = False
            frmLat_11.Show()
        End Sub

        Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click
            Me.Enabled = False
            frmLat_12.Show()
        End Sub

        Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click
            Me.Enabled = False
            frmLat_13.Show()
        End Sub

        Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click
            Me.Enabled = False
            frmLat_14.Show()
        End Sub

        Private Sub bLat15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat15.Click
            Me.Enabled = False
            frmlat_15.Show()
        End Sub

        Private Sub Blat_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Blat_16.Click
            Me.Enabled = False
            frmlat_16.Show()
        End Sub

        Private Sub Blat_17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Blat_17.Click
            Me.Enabled = False
            Frmlat_17.Show()
        End Sub
    End Class

    • Penambahan coding project
    Public Class Frmlat_17
        Dim matrika(20, 20), matrikb(20, 20), barisA, kolomA, barisB, kolomB As Integer
        Dim hasila_matrika, hasila_matrikb, hasil_matrix As String


        'proses input matrik
        Sub input_matrik()
            Dim b, k As Integer

            barisA = Val(Me.TxtbarisA.Text)
            kolomA = Val(Me.TxtkolomA.Text)

            For b = 0 To barisA - 1
                For k = 0 To kolomA - 1
                    matrika(b, k) = InputBox("masukan nilai matrix A untuk posisi" & b + 1 & " x " & k & " : ")
                Next
            Next

        End Sub

        Sub cetak_matrika()
            Dim b, k As Integer


            barisA = Val(Me.TxtbarisA.Text)
            kolomA = Val(Me.TxtkolomA.Text)

            For b = 0 To barisA - 1
                For k = 0 To kolomA - 1
                    hasila_matrika = hasila_matrika & matrika(b, k) & " "
                Next
                hasila_matrika = hasila_matrika & Chr(13)
            Next
            Me.LbmatrikA.Text = hasila_matrika.ToString
        End Sub

        Sub input_matrikb()
            Dim b, k As Integer

            barisB = Val(Me.Txtbarisb.Text)
            kolomB = Val(Me.Txtkolomb.Text)

            For b = 0 To barisB - 1
                For k = 0 To kolomB - 1
                    matrikb(b, k) = InputBox("masukan nilai matrix B untuk posisi" & b + 1 & " x " & k & " : ")
                Next
            Next
          
        End Sub

        Sub cetak_matrikb()
            Dim b, k As Integer


            barisB = Val(Me.Txtbarisb.Text)
            kolomB = Val(Me.Txtkolomb.Text)

            For b = 0 To barisB - 1
                For k = 0 To kolomB - 1
                    hasila_matrikb = hasila_matrikb & matrikb(b, k) & " "
                Next
                hasila_matrikb = hasila_matrikb & Chr(13)
            Next
            Me.Lbmatrikb.Text = hasila_matrikb.ToString
        End Sub

        Private Sub Bproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bproses.Click
            Call input_matrik()
            Call cetak_matrika()
            Call input_matrikb()
            Call cetak_matrikb()

        Private Sub Frmlat_17_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
            Utama.Enabled = True
            Utama.Show()
            Me.Hide()
        End Sub

        Private Sub Frmlat_17_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            Utama.Enabled = True
            Utama.Show()
            Me.Hide()
        End Sub

    End Class
Share:

0 komentar:

Posting Komentar

Blogroll

Diberdayakan oleh Blogger.

Blogger templates