Jumat, 13 Juni 2014

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


Jumat, 04 April 2014

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

Kamis, 03 April 2014

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 :
Image
Didalam laman tersebut kita dapat menemukan Create : Project | Website …, anda dapat memilih Project
Image
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.
Image
Setelah mengklik ok, kita akan masuk kedalam halaman kerja form yang akan kita buat :
Image
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.
Image
Setelah memasukkannya ,maka tampilannya dapat dirapikan sesuai dengan kebutuhan, dalam contoh ini button, label dan textbox diatur seperti berikut :
Image
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.
Image
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.
Image
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.
Image
Tidak lupa juga agar lebih mudah dalam membedakan textbox Jari Jari, Panjang, dan Volume. Kita dapat mengganti name masing-masing textbox sesuai dengan peruntukkannya :
Image
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 :
Image
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.
Image
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 :
Image
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 :
Image
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 :
Image
Ketika melakukan start debugging maka akan muncul tampilan seperti ini :
Image
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
Image
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 :
Image
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.