Archive for Desember, 2012


Assalamualaikum Wr.Wb
Pertama saya membuat program melaui SQL server, setelah buka SQL maka di connect terlebih dahulu setelah itu membuat table baru dengan format:

sql2
Lalu isikan kolom diatas, dan contohnya seperti berikut:

sql1

Setelah selesai membuat di SQL lalu saya buka Virtual Basic dan membuat form untuk medesign, lalu pilih data-authron lalu next
Selanjutnya drag satu persatu seperti Nama, Nim, Alamat, Tgl lahir, Jurusan, dan SPP tetap maka design seperti di bawah ini:
awal

Selanjutnya saya isikan coding pada masing-masing button dan codingnya seperti berikut:

Public Class Form1

Private Sub HariBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HariBindingNavigatorSaveItem.Click
Me.Validate()
Me.HariBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.HariDataSet)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘HariDataSet.hari’ table. You can move, or remove it, as needed.
Me.HariTableAdapter.Fill(Me.HariDataSet.hari)

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.HariBindingSource.AddNew()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.HariBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.HariDataSet)
End Sub

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

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.HariBindingSource.MovePrevious()
End Sub

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

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

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.HariBindingSource.RemoveCurrent()
End Sub

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

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If (HariBindingSource.Find(“nama”, TextBox1.Text)) > -1 Then
MsgBox(“Data tersedia “)
Else
MsgBox(“Data tidak tersedia”)
End If
End Sub
End Class

Setelah selesai mengisikan coding pada button maka langkah selanjutnya menjalankan program, saya Run dan hasilnya seperti berikut:

vb1

Lalu jalankan button tambah dan hasilnya seperti di bawah ini:

VB2

Dan button cari, sebagai contoh hariman dan hasilnya seperti berikut:

vb3

Sebagai contoh 2 nama hariman dan aji,kalo button lanjut maka tertuju pada nama aji, pertama menuju ke hariman, dan terakhir kembali ke aji.

Sedangkan button hapus maka semua akan terhapus dan hasilnya seperti berikut :

awal

Cukup sekian tugas yang saya buat apabila ada kekurangan saya mohon maaf, terima kasih .

Fungction dengan return value berupa array

Pertama-tama saya akan membuat desainnya terlebih dahulu dan hasilnya sebagai berikut :
Hasil

Pada button 1 memesan variable statistik
Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan
Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut
Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut

1.bisa muncul angka 55 dari jumlah array yang terdapat pada coding yaitu  ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”
2.bisa muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10
3. dan bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah 1 

Lalu codingnya seperti dibawah ini :
Coding

Program ke dua Overloading Function

Pertama-tama saya akan membuat desainnya terlebih dahulu sebagai berikut :
1

dan hasilnya seperti ini setelah d jalankan :
2

Hampir sama dengan parramarray sebelumnya.hanya saja pada program ini di deklarasikan lebih dari satu fungsi ,dan hitung untuk menampung penjumlahan array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir tergantung kita memesan angkanya .

Codingnya sebagai berikut :
Hasil coding

Sekian tugas yang saya buat apabila ada kekurangan mohon maaf , terima kasih .

Blog di WordPress.com.
[ Kembali ke atas ]