jawaban soal no,3 ( Dessy Purwandani )

lihat kasus disini

listing program

login

Public Class Form1

Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "dessy" And password.Text = "ayah" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("data username/password salah !!!")
username.Text = ""
password.Text = ""
End If
End Sub

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

End Sub

Private Sub username_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles username.TextChanged

End Sub
End Class

Public Class menuutama

Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

End Sub

Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
pegawai.show()
End Sub

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

End Sub
End Class

Public Class pegawai
Sub BuatTabel()
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("jabatan", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji pokok", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("status", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("pajak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan istri", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jumlah anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jam lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("total gaji", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(tunjanganistri.Text)
lst.SubItems.Add(tunjangananak.Text)
lst.SubItems.Add(jumlahanak.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(gajilembur.Text)
lst.SubItems.Add(totalgaji.Text)
ListView1.Items.Add(lst)
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Select Case status.Text
Case "Tidak Menikah"
tunjanganistri.Text = 0
tunjangananak.Text = 0
Case "Menikah"
tunjanganistri.Text = (9 / 100 * gajipokok.Text)
If jumlahanak.Text = 1 Then
tunjangananak.Text = jumlahanak.Text * (3 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text = 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text >= 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
End If
End Select

totalgaji.Text = Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(gajipokok.Text + Val(gajilembur.Text) - Val(pajak.Text))
pajak.Text = (1.5 / 100 * gajipokok.Text)

End Sub

Private Sub Form1_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("staf")
status.Items.Add("Tidak Menikah")
status.Items.Add("Menikah")
Dim halaman As Byte
For halaman = 1 To 3
jamlembur.Items.Add(halaman)
Next
Call BuatTabel()
End Sub

Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged

End Sub

Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
Select Case jabatan.Text
Case "mandor"
gajilembur.Text = (7500 * jamlembur.Text)
Case "kepala bagian"
gajilembur.Text = (10000 * jamlembur.Text)
Case "staf"
gajilembur.Text = (5000 * jamlembur.Text)
End Select
End Sub

Private Sub gajipokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gajipokok.TextChanged

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "mandor" Then
gajipokok.Text = "1750000"
ElseIf jabatan.Text = "kepala bagian" Then
gajipokok.Text = "2500000"
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = "1250000"
End If
End Sub

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

End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
End Class

hasil program

jawaban soal no,2 ( Dessy Purwandani )

untuk kasus lihat disini

listing program

Public Class form1
Sub BuatTabel()
ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = NPM.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Jurusan.Text)
lst.SubItems.Add(Jenjang.Text)
lst.SubItems.Add(Tahun.Text)
lst.SubItems.Add(Angka.Text)
lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTabel()
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
ListView1.Items.Clear()
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
End Class

hasil program

sejarah dan perkembang visual basic

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).
Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an.^[2] Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.
Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer,^[2] seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.
Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.).^[2] Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.^[2]
Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.^[2]
Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.^[3] Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB.^[3] Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).^[3]

Perkembangan Visual Basic

Visual Basic 1.0 dikenalkan pada tahun 1991. Konsep pemrograman dengan metode drag-and-drop untuk membuat tampilan aplikasi Visual Basic ini diadaptasi dari prototype generator form yang dikembangkan oleh Alan Cooper dan perusahaannya, dengan nama Tripod. Microsoft kemudian mengontrak Cooper dan perusahaannya untuk mengembangkan Tripod menjadi sistem form yang dapat diprogram untuk Windows 3.0, di bawah kode nama Ruby.
Tripod tidak memiliki bahasa pemrograman sama sekali. Ini menyebabkan Microsoft memutuskan untuk mengkombinasikan Ruby dengan bahasa pemrograman Basic untuk membuat Visual Basic.

visual basic

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.^[1]

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.^[1]

Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.^[1] 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.

PERBEDAAN VB 6 DAN VB.NET

Perbedaan VB 6 dan VB.NET

---

Sebelum kita mengupas lebih dalam tentang VB. NET  baiknya mengetahui dulu perbedaan antara Vb 6 dan VB.NET fasf fassafasfasfasfsfsf, adapun beberapa perbedaan yang mendasar adalah sebagai berikut :

• VB .NET sudah berbasis OOP sedangkan VB 6 masih prosedural
• VB .NET sudah memiliki framework .NET sehingga tampilannya lebih bagus dari VB 6
• Dalam mengakses data (record) VB .NET menggunakan dataset sedangkan VB 6 menggunakan recordset
• asfasf
• Hasil kompilasi pada VB6 dapat langsung dieksekusi. Sedangkan VB .Net membutuhkan interpreter (.Net framework)
• Program dari VB6 tidak dapat langsung berinteraksi dengan program dari bahasa lain. VB .Net dapat selama bahasa lain yang mendukung .Net. seperti ASP .NET
• Dalam pengaksesan data sangat berbeda sekali antara VB 6 dan VB.NET, hal ini lah yang menyebabkan para progammer VB 6 malas beralih ke VB. NET. pada VB 6 metode pengakseskanny sangat sederhana yaitu cukup menggunakan ADO yg terdiri dari conection dan recordset, sedangkan pada VB.NET menggunakan ADO.NET terdiri dari : Object Connection, Data Adapter, data reader dan data set.   
  
  Berikut penjelasan properti objek model ADO.Net :
  
  1.      Data Provider

Data Provider merupakan komponen yang berisi nama piranti/driver yang akan digunakan oleh model objek ADO.NET untuk mengakses sumber data. Pada Data Provider terdapat 4 objek utama untuk mengakses sumber data, yaitu :

• Connection 
  Digunakan untuk membuat koneksi ke sumber data
• Command 
  Digunakan untuk menjalankan perintah (propertinya berbentuk tabel, SQL, atau stored  procedure) yang akan memanggil data dari sumber data.

2. DataReader

Objek reader digunakan untuk membaca data dengan sifat fordward only dan read

3. DataAdapter

Digunakan sebagai penghubung antara sumber data dengan datasetData Adapter Object biasanya dipakai apabila kita menggunakan dataset atau datatable yang datanya diambil dari tabel – tabel yang ada pada database.

4. Dataset

Merupakan objek yang terpisah dari sumber data dan dapat digambarkan sebagai recordset yang terpisah. Pada dataset juga terdapat tabel, baris, kolom, relasi, constrain dan view. Semua tipe data baik yang flat, hirarki atau relasional dapat disimpan dalam dataset. Karena sesuai dengan objek dasar dari dataset yaitu XML, semua model penyimpanan data dapat bekerja dengan dataset. namun biasanya untuk mengambil data melalui data adapter digunakan data tabel, dimana data tabel akan diisi oleh data adapter.

assalamu'alaikum wr wb,