Membuat Program-Program Sederhana Menggunakan Visual Studio 10

Mencari Diskon Dari total pembelian

Diskon didapat jika total pembelian kurang dari 100000 maka diskon 0%,jika total pembelian lebih dari dari 100000 dan kurang dari 500000 maka mendapatkan diskon 10% jika total pembelian lebih dari 500000 dan kurang dari 1000000 maka mendapatkan diskon 15% dan jika total pembelian lebih dari 1000000 maka mendapatkan diskon 20%.

Jika pada form ada tanda (‘) berarti kata-kata tersebut hanya sebagai pengingat(komentar) dan tidak mempengaruhi coding.

·         Buat Form seperti gambar dan propeertis berikut ;

·                     Atur Propertis form sesuai dengan data berikut ;

Jika form selesai dibuat sekarang masuk ke coding,untuk memunculkan coding klik view code seperti gambar berikut ;

·         Jika sudah selesai isi code seperti berikut ;

Public Class Latihan4

    Private Sub txtTP_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles txtTP.TextChanged

        Dim TP, Diskon, TB As Long

‘Dim merupakan pendeklarasian variable dengan tipe data tertentu

        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

    Private Sub Latihan4_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        Me.txtTP.Text = "0"

    End Sub

End Class

Menentukan jumlah dan rata-rata dari data yang dimsukkan Tidak menggunakan menu utama.

·                     Form project

 

·                     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

End Class

membuat data mahasiswa dengan memasukkan data dan mencetaknya menggunakan array Tidak menggunakan menu utama.

·                     Form project

 

·                     Atur Propertis form sesuai dengan data berikut ;

·                     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 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) HandlesbCari.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

menu untuk mencetak project data mahasiswa diatas,menu ini memang tidak dimasukkan dalam menu utama karena hanya berfungsi sebagai pencetak dari data mahasiswa.

·                     Form project

 

·                      Atur Propertis form sesuai dengan data berikut ;

·                     Coding project

Public Class frmLat_15_cetak

    Private Sub frmLat_15_cetak_FormClosed(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        frmlat_15.Enabled = True

        frmlat_15.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_15_cetak_FormClosing(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        frmlat_15.Enabled = True

        frmlat_15.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_15_cetak_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim i, n As Integer

        Dim data(30) As String

        n = Val(frmlat_15.lbUrut.Text)

        For i = 0 To n - 1

            data(i) = "NIM :" & frmlat_15.nim(i) & Chr(13) & "Nama :" & frmlat_15.nama(i) & Chr(13) & "Alamat :" & frmlat_15.alamat(i) & Chr(13) & Chr(13)

            Me.rtxMahasiswa.AppendText(data(i))

        Next

    End Sub

End Class

Untuk melihat hasil dari pencetakkannya ikuti langkah berikut;

·                     Pertama kita Runkan terlebih dahulu projectnya lalu masukkan data lalu klik simpan Jika data yang ingin kita masukkan sudah selesai klik cetak seperti gambar berikut.

·                     Kemudian jika sudah seperti gambar diatas klik clos seperti gambar berikut ;

·                     Selanjutnya Bukak folder tempat penyimpanan project,lalu pilih folder project visual basic seperti gambar berikut:

·                     Kemudian pilih bin,bila sudah masuk ke kontat bin lalu pilih debug,langkah terakhir yaitu pilih mhs maka akan muncul hasil dari data yang telah kita masukkan tadi.

SUMBER : http://egafrian01.blogspot.co.id