Cara membuat laporan pada VB.Net

Pada postingan saya ini, disini saya berbagi ilmu yang saya dapat bagaimana membuat laporan pada VB.Net langsung dari dalam tanpa menggunkan Crystal Report dari luar.

Untuk yang mau mencoba silahkan Download disini....    :)

Perulangan Mengggunakan For - Next Pada VB.NET

Disini saya membahas beberapa penggunaan perulangan For Next, dimana para programmer sering memakai yang namanya perulangan (Looping) baik untuk menyelesaikan suatu program tertentu, dan tidak kalahnya juga bagi pengajar bagian program selalu mengajarkan pada anak didik mereka yang namanya perulangan baik itu pada bahasa program Visual Basic, PHP, Pascal, C++, Java dan lain-lain.

Sekarang kita langsung saja bagaimana penggunaan Perulangan atau Looping For - Next pada VB.Net

1. Cara menampilkan Hari 

Disini saya membahas bagaimana menampilakan HARI pada VB.Net menggunakan perulangan For - Next.

Desain Form seperti gambar dibawah ini 

Listing Kodingnya :

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

        For i = 1 To 7

            Hari.Items.Add(WeekdayName(i))

        Next

End Sub

Jadi hasilnya seperti gambar dibawah ini

2. Cara Menampilkan Bulan

Disini saya membahas bagaimana menampilakan BULAN pada VB.Net menggunakan perulangan For - Next.

Desain Form seperti gambar dibawah ini 

Listing Kodingnya :

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

        For f = 1 To 12

            Bulan.Items.Add(MonthName(f))

        Next

 End Sub

Jadi hasilnya seperti gambar dibawah ini

3. Cara Menampilkan Tahun Ajaran

Disini saya membahas bagaimana menampilakan TAHUN AJARAN pada VB.Net menggunakan perulangan For - Next.

Desain Form seperti gambar dibawah ini 

Listing kodingnya :

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

        Dim n As Integer

        For n = 2000 To Year(Now)

            Tahun.Items.Add(n & " / " & (n + 1))

        Next

 End Sub

Jadi hasilnya seperti gambar dibawah ini

Semoga bisa bermanfaat bagi kita semua.....

Cara Menampilkan Bentuk Segitiga Pada Program Java

Sudah lama nggak mosting..... :D

Berikut ini adalah postingan saya mengenai program JAVA.....Cara Menampilkan Bentuk Segitiga Pada Program Java,
Langsung saja kita masuk bagaimana Cara Menampilkan Bentuk Segitiga Pada Program Java...??

Ini tampilan hasilnya. :

Listing Koding :


public class segitiga {
public static void main (String [] args ) {

int n=15;
int i,j,k;

for (i=n;i>0;--i)
{
{
for (k=0;k {
System.out.print("*");
}
System.out.println("");
}

    }
}
}

Semoga bermanfaat dan selamat mencoba...........

STRUKTUR KENDALI DENGAN MENGGUNAKAN MYSQL

Pada bagin ini saya membahas tentang bagaimana  cara mengambil suatu keputusan dengan menggunakan program MYSQL.

Bentuk dan struktur kendali antara lain :

v  Fungsi Case When untuk 1 kondisi

Sintax                :  Update Nama Tabel Set Nama Field=

                            Case When (kondisi) then

                            Statement

                            End;

Contoh              : Update Barang Set Jumlah=

                            Case When kodebrg='A01' then 2

                            End;

v  Fungsi Case When untuk 2 Kondisi atau lebih

Sintax                :  Update Nama Tabel Set Nama Field=

                            Case When (Kondisi_1) Then

                            Else statement

                            End ;

                        (Untuk yang 2 kondisi)

Sintax                :  Update Nama Tabel Set Nama Field=

                            Case When (Kondisi_1) Then

                            When (Kondisi_2) Then

                            Else statement

                            End ;

                        (Untuk yang lebih dari  2 kondisi)

Contoh              : Update Barang Set Jumlah=

                            Case When kodebrg='A01' then 2

                            Else 5 End;

Contoh              : Update Barang Set Jumlah=

                            Case When kodebrg='A01' then 2

                            When kodebrg='A02' then 5

                            Else 6 End;

v  Rumus Mencari Total

Sintax                : Update Nama Tabel Set Nama Field=Nama Fiel1 * Nama Field2;

Contoh              : Update Barang Set Total=Harga * Jumlah;

Cara Membuat Bentuk Piramida Di VB.Net 2008

                  Dalam Postingan saya kali ini adalah membahas  bagaimana cara membuat program looping yang akan hasilnya berbentuk Piramida melalui VB.Net 2008

Rancanglah Form atau tampilan seperti gambar dibawah ini :

Properties

Listing Programnnya

Public Class Form3

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

        Dim y, q, z As Byte

        y = 1

        q = Val(Nilai.Text)

        Hasil.Clear()

        Do While y <= q

            z = 1

            Do While z <= y

                Hasil.Text = Hasil.Text & " " & z

                z += 1

            Loop

            Hasil.Text = Hasil.Text & vbCrLf

            y += 1

        Loop

    End Sub

End Class

Hasilnnya seperti gambar dibawah ini:

………Selamat Mengerjakan……….

Tahapan pengembangan dan pembuatan software

Tahapan pengembangan dan pembuatan software :

Tahapan membuat software dengan baik

Dengan kemajuan teknologi keinginan dan kebutuhan akan informasi semakin meningkat juga, apalagi sekarang mulai masuk era online, era cepat saji, sehingga kebutuhan akan data dan informasi yang cepat saji menjadi keinginan mutlak pimpinan,institusi bahkan client kita. Untuk itu perancangan sistem atau Software untuk memenuhi kebutuhan tersebut harus dirancang dengan baik dan tepat, apalagi sekarang banyak pemimpin yang sebenarnya tidak mengetahui seluk beluk dari sistem/Software tapi berani memutuskan untuk merancang dan menyediakan sistem/Software tersebut dalam waktu yang singkat. Bahkan menganggap membuat Software seperti kayaknya menggoreng tempe yang menunggu minyak panas tempe dimasukkan, dibolak-balik dah jadi tidak sampai 30 dah jadi. Berdeda dengan software yang sudah menjadi produk masal, tidak membutuhkan modifikasi. kalau itu tinggal membeli cd Software dah jadi tersebut sehingga  tidak usah memerlukan analisis lagi karena Softwarenya yang sudah jadi dan hendak bisa/perlu di modif.

Untuk bisa menghasilkan Software yang baik memerlukan analisis yang baik pula, baik itu analisis sistem, stuktur data maupun analisis requirement, selain itu juga dipelukan persiapan-persiapan yang matang. Hal ini berlaku bagi siapapun, bahkan seorang pembuat Software professional sekalipun.  Sedangkan tahapan apa saja untuk membuat Software yang baik akan saya jelaskan dibawah.

Software memang sudah menjadi kebutuhan pokok bagi masyarakat IT. karena segala sesuatu yang dilakukan di dalam IT pastilah memerlukan Software. Software yang paling sederhana sekalipun setidaknya memiliki 3 bagian:

1. Input – Masukan data.
2. Proses – pemrosesan input.
3. Output – keluaran Software, kebutuhan yang kita harapkan.

Dalam membuat Software, pemrograman adalah pokok dari proses pembuatan Software itu sendiri namun pemrograman bergantung dari pemahaman persoalan, analisis sistem, perencanaan-perencanaan  dalam mendesain Software itu sendiri.

Selain pemrograman hal yang utama harus dilakukan adalah merencanakan langkah-langkah yang harus diambil dalam menyelesaikan masalah. Karena dengan mengetahui masalah dan langkah-langkah penyelesaikan berarti kita sudah menyelesaikan Software tersebut sebanyak 50% dari total pekerjaan, selanjutnya adalah teknis pembuatan itu sendiri yang di kenal dengan pemrograman/koding.Sebaliknya jika kita tidak bisa mengetahui masalah dan belum bisa membuat perencanaan berarti kita sudah merencanakan kegalan itu sendiri.

Dalam membuat sebuah Software setidaknya ada beberapa hal yang perlu anda lakukan:

1. Mendefinisikan Masalah/Defining the problem

Masalah/Probem disini adalah kompenan apa saja yang diperlukan agar Software ini jalan dikenal dengan masukan/inputnya apa saja, mendefinisikan apa yang nanti akan dilakukan oleh Software dan bagaimana keluaran dari Software yang kita harapkan nantinya. Pada tahap ini juga dikenal requirement analisis atau analisa kebutuhan.

2. Perencanaan/Planning/Desain system

Pada tahap ini adalah medefinisikan langkah-langkah apa saja yang dilakukan oleh Software dalam menyelesaikan permasalahan yang ada. Bentuk dari perencanaan itu bisa berupa flowchart ataupun algoritma dari Software, sehingga kita akan tahu proses apa saja yang ada dalam Software tersebut. semakin detail flowchart  atau algoritma yang dibuat semakin mudah juga pada tahap implementasi/coding nantinya.

Flowchart adalah suatu diagram menggunakan simbol-simbol khusus yang sudah menjadi standard internasional yang berisi langkah-langkah untuk menyelesaikan suatu masalah. sedangkan algoritma kbukan merupakan simbol tapi keterangan-keterangan yang sesuai dengan  keinginan kita, tidak ada standarnya. Oleh karena itu flowchart biasa juga disebut sebagai algoritma dalam bentuk simbol-simbol khusus yang dihubungkan dengan anak panah.

Membuat flowchart terlebih dahulu akan lebih menghemat waktu daripada langsung melakukan coding sambil mencoba-coba. Kegiatan mencoba-coba akan menghabiskan waktu ketika implementasi/koding karena harus merubah koding yang lumayan banyak. Karena itu, biasakan membuat flowchart terlebih dahulu sebelum memecahkan suatu masalah.

3. Implementasi/Koding/Softwareming
   Kini saatnya anda menulis Software, tahap ini juga mencakup tahap perbaikan error dan testing. Menulis Software dengan terstruktur dan sesuai dengan flowchart yang telah kita buat.
4. Dokumentasi/Documentation
   Setelah tahap coding selesai, sangat disarankan bagi anda untuk membuat semacam dokumentasi. Tambahkan komentar-komentar pada Software anda dan “bukukan” Software yang akan anda buat. Hal ini akan bermanfaat jika anda sudah membuat Software yang begitu banyak, dan suatu ketika nanti (mungkin bertahun-tahun kemudian) anda ingin mengambil sebagian dari code Software anda yang lama untuk disisipkan pada Software anda yang baru. Bayangkan jika anda tidak membuat dokumentasi, waktu anda akan sangat terbuang dengan menelusuri Software-Software lama anda satu-persatu.
5. Testing

v  Unit Testing Menguji setiap unit dan modul yang terdapat dalam Software tersebut

v  Integration Testing Menguji integrasi yang dilakukan kepada Software seperti halnya ketika Software tersebut sudah diinstall di client kita yang membutuhkan integrasi dengan sisitem yang lain seperti halnya integrasi dengan database.

v  Validation Testing menguji masukan yang diberikan kepada Software. apapun masukannya Software harus bisa menyelesaikan dengan baik.

v  Sistem Testing Pada tahap ini menguji permorfa dari Software, apabila Software dijalankan dengan kondisi-kondisi tertentu bagaimana?

6. Operasional dan Maintenance

Pada tahap ini sebenarnya bagaimana Software yang telah kita buat dan testing ini bekerja sebagaimana mestinya, update Software, menyeselaikan bug yang tidak ditemukan pada saat testing, serta pengembangan yang dapat dilakukan dengan Software tersebut.

Setelah kita tahu bagaimana atau langkah -langkah dalam membuat Software yang baik, alangkah sebaiknya dalam perencanaan sistem atau Software tidak asal-asalan bahkan hanya menganggap seperti menggoreng tempe itu tadi, dibolak-balik matang, ingat Softwaremer juga manusia.. bukan robot yang sekali pencet bisa menyelesaikan masalah.

Jawaban Soal 3 (Fince Tinus Waruwu)

Kasus : Penggajian Karyawan
Listing Program :

Public Class Form_Login

Private Sub Pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pass.KeyPress

        If Asc(e.KeyChar) = 13 Then

            If User.Text = "Fince" And Pass.Text = "123" Then

                Form_Menu_Utama.show()

                Me.Hide()

            Else

                MsgBox("Maaf Username dan Password Salah")

                User.Text = ""

                Pass.Text = ""

                User.Focus()

            End If

        End If

End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        Close()

End Sub

End Class

Public Class Form_Menu_Utama

Private Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggajianKaryawanToolStripMenuItem.Click

        Form_Penggajian_Karyawan.Show()

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Close()

End Sub

End Class

Public Class Form_Penggajian_Karyawan

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

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staff")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

  Call buattabel()

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Mandor" : Me.gaji_poko.Text = 1750000

            Case "Kepala Bagian" : Me.gaji_poko.Text = 2500000

            Case "Staff" : Me.gaji_poko.Text = 1250000

        End Select

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : Me.tunjangan_istri.Text = gaji_poko.Text * 0.09

                pajak.Text = 0.015 * gaji_poko.Text

            Case "Tidak Menikah" : Me.tunjangan_istri.Text = 0

                jumlah_anak.Text = 0 : Me.tujangan_anak.Text = 0

                pajak.Text = 0.015 * gaji_poko.Text

        End Select

End Sub

Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress

        If Asc(e.KeyChar) = 13 Then

            If jumlah_anak.Text = 1 Then

                tujangan_anak.Text = gaji_poko.Text * 0.03

            ElseIf jumlah_anak.Text = 2 Then

                tujangan_anak.Text = gaji_poko.Text * 0.07

            ElseIf jumlah_anak.Text > 2 Then

                tujangan_anak.Text = 0

            End If

        End If

End Sub

Private Sub jam_Lembur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jam_Lembur.KeyPress

        If Asc(e.KeyChar) = 13 Then

            If jabatan.Text = "Mandor" Then

                Upah_lembur.Text = 7500 * jam_Lembur.Text

            ElseIf jabatan.Text = "Kepala Bagian" Then

                Upah_lembur.Text = 10000 * jam_Lembur.Text

            ElseIf jabatan.Text = "Staff" Then

                Upah_lembur.Text = 5000 * jam_Lembur.Text

            End If

 total_gaji.Text = Val(gaji_poko.Text) + Val(tunjangan_istri.Text) + Val(tujangan_anak.Text) + Val(Upah_lembur.Text) - pajak.Text

        End If

End Sub

   

Sub buattabel()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("Kode", 80)

        lv.Columns.Add("Nama", 140)

        lv.Columns.Add("Jabatan", 120)

        lv.Columns.Add("Gaji Pokok", 100)

        lv.Columns.Add("Status", 100)

        lv.Columns.Add("Tunjangan Istri", 100)

        lv.Columns.Add("Jumlah Anak", 120)

        lv.Columns.Add("Tunjangan Anak", 100)

        lv.Columns.Add("Pajak", 100)

        lv.Columns.Add("Jam Lembur", 100)

        lv.Columns.Add("Upah Lembur", 100)

        lv.Columns.Add("Total Gaji", 100)

 End Sub

 Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = kode.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jabatan.Text)

        Lst.SubItems.Add(gaji_poko.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tunjangan_istri.Text)

        Lst.SubItems.Add(jumlah_anak.Text)

        Lst.SubItems.Add(tujangan_anak.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(jam_Lembur.Text)

        Lst.SubItems.Add(Upah_lembur.Text)

        Lst.SubItems.Add(total_gaji.Text)

        Lst.SubItems.Add(jumlah_anak.Text)

        LV.Items.Add(Lst)

End Sub

Sub berish(ByVal F As Form)

        Dim X As Object

        For Each X In F.Controls

            If TypeOf X Is TextBox Then X.Text = ""

            If TypeOf X Is ComboBox Then X.Text = ""

        Next

 End Sub

   

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        Call berish(Me)

 End Sub

 Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        lv.Items.Clear()

 End Sub

 Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click

        lv.Items.Remove(lv.SelectedItems(0))

 End Sub

 Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        Call IsiTabel()

 End Sub

 Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim i As MsgBoxResult

        i = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")

        If i = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

End Class

Hasil Program

Tampilan Form Login

Tampilan Form Menu Utama

Tampilan Form Penggajian Karyawan