PENGGUNAAN APLIKASI INPUT DATA GAJI KARYAWAN

1.   Buka aplikasi lalu pilih file. Seperti gambar di bawah ini

 2.  Lalu pilih input gaji karyawan lalu isi form sesuai kriterianya. Lihat gambar di bawah ini

 3. Kemudian simpan data yang telah di isi. Seperti gambar di bawah ini

4.       Buka file yang telah kita simpan tadi. Liaht gambar di bawah ini

Source Coding:

FORM 1

Public Class Form1

    Private Sub HitungGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HitungGajiToolStripMenuItem.Click

        Dim frm2 As New Form2

        frm2.MdiParent = Me

        frm2.Show()

    End Sub

    Private Sub BukaSlipGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaSlipGajiToolStripMenuItem.Click

        Dim frm3 As New Form3

        frm3.MdiParent = Me

        frm3.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

End Class

FORM 2

Public Class Form2

    Sub bersih()

        ComboBoxnamapegawai.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        CheckBox4.Checked = False

        CheckBox5.Checked = False

        CheckBox6.Checked = False

        CheckBox7.Checked = False

        CheckBox8.Checked = False

        CheckBox9.Checked = False

        Txtjumlahanak.Text = ""

        Txttunjangananak.Text = ""

        Txttunjanganmenikah.Text = ""

        Txtbonus.Text = ""

        Txtgajipokok.Text = ""

        Txttotalgaji.Text = ""

    End Sub

    Sub tunjmenikah()

        If CheckBox7.Checked = True Then

            Txttunjanganmenikah.Text = 0

        ElseIf CheckBox9.Checked = True Then

            Txttunjanganmenikah.Text = 0

        ElseIf CheckBox8.Checked = True Then

            Txttunjanganmenikah.Text = 1200000

        End If

    End Sub

    Sub bonusgaji()

        If CheckBox1.Checked = True Then

            Txtbonus.Text = 0.75 * Val(Txtgajipokok.Text)

        ElseIf CheckBox2.Checked = True Then

            Txtbonus.Text = 0.65 * Val(Txtgajipokok.Text)

        ElseIf CheckBox3.Checked = True Then

            Txtbonus.Text = 0.55 * Val(Txtgajipokok.Text)

        ElseIf CheckBox4.Checked = True Then

            Txtbonus.Text = 0.5 * Val(Txtgajipokok.Text)

        End If

    End Sub

    Sub total()

        Txttotalgaji.Text = Val(Txtgajipokok.Text) + Val(Txttunjanganmenikah.Text) + Val(Txttunjangananak.Text) + Val(Txtbonus.Text)

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            Txtgajipokok.Text = 1000000

        End If

    End Sub

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

        Label12.Text = DateAndTime.Now()

        Dim dir_name As String = Application.StartupPath

        If dir_name.EndsWith("bin\debug") Then dir_name = dir_name.Substring(0, dir_name.Length - 9)

        If Not dir_name.EndsWith("\") Then dir_name &= "\"

        ComboBoxnamapegawai.Text = dir_name & "Book1.csv"

        Dim all_lines() As String = System.IO.File.ReadAllLines(ComboBoxnamapegawai.Text)

        ComboBoxnamapegawai.DataSource = all_lines

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            Txtgajipokok.Text = 2000000

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            Txtgajipokok.Text = 3000000

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            Txtgajipokok.Text = 4000000

        End If

    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged

        Call tunjmenikah()

    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged

        Call tunjmenikah()

    End Sub

    Private Sub Txtjumlahanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumlahanak.TextChanged

        If Txtjumlahanak.Text = "" Then

            Txttunjangananak.Text = 0

        ElseIf Txtjumlahanak.Text = 1 Then

            Txttunjangananak.Text = 200000

        Else

            Txttunjangananak.Text = 400000

        End If

    End Sub

    Private Sub Txtgajipokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtgajipokok.TextChanged

        Call bonusgaji()

    End Sub

    Private Sub Txttunjangananak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txttunjangananak.TextChanged

        Call total()

    End Sub

    Private Sub Txtbonus_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtbonus.TextChanged

        Call total()

    End Sub

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

        Call bersih()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        On Error GoTo InputError

        SaveFileDialog1.Filter = "Text files |*txt|all file |*.*|Document File|*.csv"

        SaveFileDialog1.DefaultExt = "*.txt"

        SaveFileDialog1.ShowDialog()

        Dim saveF As New System.IO.StreamWriter("G:\LAB VB1\uas lab vb 1\lulu.txt")

        saveF.WriteLine("Perhitungan Gaji Karyawan")

        saveF.WriteLine(Label2.Text & " : " & ComboBoxnamapegawai.Text)

        saveF.WriteLine(Label1.Text & " : " & Label12.Text)

        If CheckBox1.Checked = True Then

            saveF.WriteLine(Label3.Text & " : " & CheckBox1.Checked)

        ElseIf CheckBox2.Checked = True Then

            saveF.WriteLine(Label3.Text & " : " & CheckBox2.Checked)

        ElseIf CheckBox3.Checked = True Then

            saveF.WriteLine(Label3.Text & " : " & CheckBox3.Checked)

        ElseIf CheckBox4.Checked = True Then

            saveF.WriteLine(Label3.Text & " : " & CheckBox4.Checked)

        ElseIf CheckBox5.Checked = True Then

            saveF.WriteLine(Label4.Text & " : " & CheckBox5.Checked)

        ElseIf CheckBox6.Checked = True Then

            saveF.WriteLine(Label4.Text & " : " & CheckBox6.Checked)

        ElseIf CheckBox7.Checked = True Then

            saveF.WriteLine(Label5.Text & " : " & CheckBox7.Checked)

        ElseIf CheckBox8.Checked = True Then

            saveF.WriteLine(Label5.Text & " : " & CheckBox8.Checked)

        ElseIf CheckBox9.Checked = True Then

            saveF.WriteLine(Label4.Text & " : " & CheckBox9.Checked)

        End If

        saveF.WriteLine(Label6.Text & " : " & Txtjumlahanak.Text)

        saveF.WriteLine(Label7.Text & " : " & Txtgajipokok.Text)

        saveF.WriteLine(Label8.Text & " : " & Txttunjanganmenikah.Text)

        saveF.WriteLine(Label9.Text & " : " & Txttunjangananak.Text)

        saveF.WriteLine(Label10.Text & " : " & Txtbonus.Text)

        saveF.WriteLine(Label11.Text & " : " & Txttotalgaji.Text)

        saveF.Close()

        Exit Sub

InputError:

        MsgBox("LengkapiInput", , "Informasi")

    End Sub

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

        Me.Close()

    End Sub

End Class

FORM 3

Public Class Form3

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

        OpenFileDialog1.Filter = "Text Files |*.txt|All files |*.*|Document File|*.Doc"

        OpenFileDialog1.DefaultExt = "*.txt"

        OpenFileDialog1.ShowDialog()

        TextBox1.Text = OpenFileDialog1.FileName

        Dim noFile As Integer

        noFile = FreeFile()

        FileOpen(noFile, TextBox1.Text, OpenMode.Input)

        RichTextBox1.Text = InputString(noFile, LOF(noFile))

        FileClose(noFile)

    End Sub

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

        Me.Close()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

Sekian aplikasi yang saya buat semoga bermanfaat. Terimakasih

Tutorial Program Visual Basic

Pada kesempatan kali ini saya akan menjelaskan tutorial bagaimana membuat pengkodingan sebuah program pada Visual Basic.

Anda dapat memilih Create Project pada laman tersebut. Kemudian, setelah memilih create project  anda akan  memilih program apa yang ingin anda buat. Karena program yang akan kita buat adalah sebuah program visual basic maka pilih visual basic pada pilihan sebelah kiri dan pilih Windows Form Application pada pilihan sebelah  kanan.  Seperti yang dapat kita lihat dibawah kolom Project Types and Templates. Kita juga dapat memberi/mengganti nama file yang akan kita buat. Kemudian kita akan masuk kedalam halaman kerja form yang akan kita buat .

Jika Properties Window dan Toolbox tidak otomatis ada didalam laman. Kita dapat menambahkannya dengan mengklik View dan memilih Properties Window dan Toolbox. Dapat juga dilakukan dengan menekan F4 untuk Properties Window dan ctrl + alt + x untuk Toolbox.

Di bawah ini adalah tampilan form kalkulator

Di bawah ini koding dari form di atas


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        txtNilai.Text = ""
        txtGrade.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox8.Text = Val(TextBox4.Text * 30 / 100) + Val(TextBox5.Text * 10 / 100) + Val(TextBox6.Text * 30 / 100) + Val(TextBox7.Text * 30 / 100)
        If Val(TextBox8.Text) >= 65 Then
            txtNilai.Text = "Lulus"
        Else
            txtNilai.Text = " Tidak Lulus "
        End If
        Select Case Val(TextBox8.Text)
            Case Is >= 85
                txtGrade.Text = "A"
            Case Is >= 75
                txtGrade.Text = "B"
            Case Is >= 65
                txtGrade.Text = "C"
            Case Is >= 55
                txtGrade.Text = "D"
            Case Else
                txtGrade.Text = "E"
        End Select
    End Sub

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


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tanggal As Integer
        Dim bulan As Integer
        Dim tahun As Integer
        For tanggal = 1 To 31
            cmbtanggal.Items.Add(tanggal)
        Next
        For bulan = 1 To 12
            Cmbbulan.Items.Add(bulan)
        Next
        For tahun = 2000 To 1990 Step -1
            Cmbtahun.Items.Add(tahun)
        Next
    End Sub
End Class

PENJELASAN UMUM MICROSOFT VISUAL BASIC

Penjelasan Umum Microsoft Visual Basic

Visual basic merupakan bahasa pemrograman yang diciptakan oleh Microsoft dan termasuk kedalam bahasa pemrograman tingkat tinggi. Visual basic digunakan dalam pengembangan multimedia, WEB dan database. Pengolahan database dapat dijalankan secara cepat karena Windows sendiri telah mendukung  Visual Basic dengan banyaknya library yang disediakan. Visual basic mempunyai kemampuan  akses database dan akses hardware yang tidak terlalu rumit, dikarenakan banyak vendor hardware merekomendasikan drivernya dalam flatform Windows.

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.
Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.
Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Assalamualaikum Warohmatullahi Wabarakatuh, Saya Agistya Maharani Joner ingin  memaparkan serangkaian penjelasan dan tutorial mengenai Microsoft Visual Studio 2008, disini saya akan memberikan langkah-langkah untuk membuat suatu program aritmatika penghitungan volume dan penggunaan Input/Output dengan bahasa pemrograman VB.net  . Volume yang menjadi objek saya untuk dijadikan contoh dalam penjelasan tutorial ini adalah volume tabung. Berikut penjelasan dan tutorialnya :

Pertama-tama kita membuka Microsoft Visual Studio. Contoh dibawah ini menggunakan Microsoft Visual Studio 2008 maka, akan muncul laman seperti dibawah ini :

Didalam laman tersebut kita dapat menemukan Create : Project | Website …, anda dapat memilih Project

Karena program yang akan kita buat adalah sebuah program visual basic maka pilih visual basic pada pilihan sebelah kiri dan pilih Windows Form Application pada pilihan sebelah kanan.  Seperti yang dapat kita lihat, dibawah kolom Project Types and Templates. Kita dapat memberi/mengganti nama file yang akan kita buat. Kemudian klik ok.

Setelah mengklik ok, kita akan masuk kedalam halaman kerja form yang akan kita buat :

Masukan beberapa toolbox (yang berada disebelah kiri form) yang kita butuhkan , dalam contoh ini kita membutuhkan 3 buah label, 3 buah textbox dan 3 buah button.  Untuk memasukkannya kita dapat mengklik  sebanyak 2 kali atau melakukan drag and drop.

Setelah memasukkannya ,maka tampilannya dapat dirapikan sesuai dengan kebutuhan, dalam contoh ini button, label dan textbox diatur seperti berikut :

Label1, label2, dan label 3 dapat diganti dengan nama/sebutan lain seperti Jari Jari, Panjang dan Volume. Sebutan ini kita ganti sesuai dengan rumus yang ingin kita buat. Untuk menggantinya kita dapat melihat properties dipojok kanan bawah yang bertuliskan Text. Kita ganti Text tersebut dengan sebutan/nama yang ingin kita pakai.

Kita mengganti Label 1 dengan Jari Jari, Label 2 dengan Panjang dan Label 3 dengan Volume. Selain itu kita juga dapat mengganti Button 1 , Button2, dan Button 3 dengan Text Mulai, Hitung, dan Selesai.

Untuk mempermudah kita juga dapat mengganti name button 1, button2, dan button 3 dengan  BtnMulai, BtnHitung, dan Btn Selesai, dengan begitu pekerjaan kita akan lebih rapi dan lebih mudah dibedakan.

Tidak lupa juga agar lebih mudah dalam membedakan textbox Jari Jari, Panjang, dan Volume. Kita dapat mengganti name masing-masing textbox sesuai dengan peruntukkannya :

Kelihatannya memang sudah rapi dan sudah selesai namun apabila kita start debugging dan klik masing-masing dari tombol mulai , hitung dan selesai. Maka tidak akan ada yang muncul atau berubah. Oleh karena itu, kita membutuhkan coding yang akan kita masukkan agar ketika program tersebut di play, program tersebut dapat menghasilkan sesuatu.

Pertama-tama lakukan double klik pada tombol hitung, setelah itu akan muncul seperti ini :

Kemudian kita isikan coding berdasarkan rumus yang ingin kita buat. Dalam contoh ini adalahrumus volume tabung yaitu : ∏ x Jari Jari x Jari Jari x Panjang.

TxtVolume.Text digunakan untuk menandakan textbox dimana hasil dari rumus volume tabung akan dikeluarkan. Sedangkan 3,14 x TxtJari.Text x TxtJari.Text x TxtPanjang.Text adalah penulisan coding untuk menyatakan rumus volume tabung.

Selanjutnya  double klik pada tombol mulai  dan isikan kembali coding seperti ini :

TxtJari.Text = ” ” berarti ketika kita mengklik tombol mulai maka textbox Jari Jari akan kembali kosong, begitupun sama penjelasannya dengan yang lain. Sedangkan, TxtJari.Focus() berarti bahwa mulainya akan di fokus pertama yaitu TxtJari. Dengan begitu, ketika kita mengklik tombol mulai maka semua yang telah kita hitung kembali lagi kosong seperti awal atau bisa dikatakan bahwa kita siap memulai hitungan baru dengan angka yang baru.

Yang terakhir adalah coding untuk tombol selesai, kita menginginkan agar ketika kita mengklik tombol selesai maka kita akan mengakhiri proses hitungan kita. Namun, disini kita harus membuat konfirmasi mengenai jadi atau tidaknya proses hitungan kita diakhiri. Konfirmasi tersebut dapat kita bentuk melalui coding. Inilah codingnya :

Didalam coding ini terdapat MsgBox agar ketika kita mengklik tombol selesai ,maka akan muncul messagebox berisi konfirmasi.

Setelah melakukan coding, saatnya kita mencoba mengklik icon start debugging :

Ketika melakukan start debugging maka akan muncul tampilan seperti ini :

Kita masukkan angka untuk menguji apakah jawaban dari rumus volume tabung ini benar atau tidak. Masukkan Jari-Jari dengan angka 2 dan Panjang dengan angka 3. maka rumusnya akan ∏ x r x r x p. jadi 3,14 x 2 x 2 x 3 = 37,68

Setelah semuanya benar, ketika kita mengklik tombol mulai maka akan kembali kosong dan memulai yang baru. Sedangkan, apabila kita mengklik tombol selesai yang muncul akan seperti ini :

Apabila kita memilih Ok maka, kita akan mengakhiri proses penghitungan. Jika kita memilih Cancel maka kita akan tetap berada pada proses penghitungan yang sama. Sekian penjelasan dan tutorial dari Saya.