Manajemen Database Visual Basic. Net Dengan SQL Server

Buatlah database di dalam SQL SERVER dengan ketentuan berikut ini;

Nama Database	Penjualan_BarangII
Nama Tabel	Master_Barang
Column Name	Data Type
Kode_Customer	Char(15) Primary Key
Nama_Customer	Char(35)
Alamat_Customer	Char(50)
Telepon	Char(15)

Buatlah tampilan form untuk memproses tabel Barang, seperti di bawah ini;

Sekenario Form;

Form terdapat Kode Customer, Nama Customer, Alamat Customer,Telepon. Data yang sudah diisi dalam form akan tersimpan setelah menekan tombol save serta data akan muncul di dalam Daftar Customer, dan akan kosong apabila menekan New dan Cancel, dan apabila menekan tombol Find maka akan muncul inputbox dan data yang diinputkan kedalam inputbox akan puncul di dalam datagrid view , serta apabila menekan tombol delete maka akan muncul inputbox dan data yang diinputkan kedalam inputbox akan hilang di dalam datagrid view serta apabila menekan tombol close maka akan keluar dari program

Atur Propertinya, sebagai berikut :

No.	Objek	Properti	Nilai Properti
1.	Form1	NameText StartPosition	frMasterBarangMaster Barang CenterScreen
2.	GroupBox1Label1 s/d Label 6 TextBox1 TextBox2 TextBox3 TextBox4	TextText Name Name Name Name Multiline ScrollBars Name	| Input Buku |Seperti di Form Seperti di Form TxtKode_Customer txtNama_ Customer txtalamat_ Customer True Vertical txttelepon_ Customer
3.	GroupBox2Button1 Button2 Button3 Button4 Button5 Button6	TextName Text Name Text Name Text Name Text Name Text Name Text	| Proses |btNew &New btSave &Save btCancel &Cancel btFinf &Find btDelete &Delete btClose &Close
4	DataGridView1	Name	dgvCustomer

Tambahkan Kode Program Seperti Tampilan Berikut ini;

Imports System.DataImports System.Data.SqlClient Public Class frcustomer Public koneksi As String Public sql1, sql2, sql3, sql4 As String Public conn As SqlClient.SqlConnection = Nothing Public cmd As SqlClient.SqlCommand = Nothing Public dtadapter As SqlClient.SqlDataAdapter = Nothing Public dtreader As SqlClient.SqlDataReader = Nothing Public dttable As New DataTable Private Sub frcustomer_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave cmd.Dispose() conn.Close() End Sub Private Sub frcustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘PERINTAH KONEKSI DATABASE DISIMPAN 1 BARIS koneksi = “Data Source= localhost\sqlexpress;Initial Catalog=Penjualan_BarangII;Integrated Security=True” conn = New SqlClient.SqlConnection(koneksi) conn.Open() End Sub Sub simpan() sql1 = “Insert into Master_customer values(‘” & Me.txtkode_customer.Text & “‘,'” & Me.txtnama_customer.Text & “‘,'” & Me.txtalamat_Customer.Text & “‘,'” & Me.txttelepon_Customer.Text & “‘)” cmd = New SqlClient.SqlCommand(sql1) cmd.Connection = conn cmd.ExecuteNonQuery() End Sub Sub daftar() sql2 = “select * from master_customer” dtadapter = New SqlDataAdapter(sql2, conn) ‘dibuat satu baris Dim CST As New DataTable CST.Clear() dtadapter.Fill(CST) dgvcustomer.DataSource = CST End Sub Sub kosong() Me.txtkode_customer.Text = “” Me.txtnama_customer.Text = “” Me.txtalamat_Customer.Text = “” Me.txttelepon_Customer.Text = “” Me.txtkode_customer.Focus() End Sub Sub cari() Dim cari As String cari = InputBox(“Masukan Kode Customer”, “Pencarian”) sql3 = “select * from master_customer where kode_Customer = ‘” & cari & “‘” dtadapter = New SqlDataAdapter(sql3, conn) ‘dibuat satu baris Dim CST As New DataTable CST.Clear() dtadapter.Fill(CST) dgvcustomer.DataSource = CST End Sub Sub delete() Dim hapus As String hapus = InputBox(“Masukan Kode Customer”, “Penghapusan”) sql4 = “delete from master_customer where kode_customer = ‘” & hapus & “‘” cmd = New SqlClient.SqlCommand(sql4) cmd.Connection = conn cmd.ExecuteNonQuery() End Sub Private Sub btnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnew.Click kosong() End Sub Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click simpan() kosong() MsgBox(“Data Sudah Disimpan”, MsgBoxStyle.Information, “Perhatian”) daftar() End Sub Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click kosong() End Sub Private Sub btFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFind.Click cari() End Sub Private Sub btDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDelete.Click delete() daftar() MsgBox(“Data Telah Terhapus”, MsgBoxStyle.Information, “Informastion”) End Sub Private Sub btclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclose.Click Me.Close() End Sub End Class

Manajemen Database Visual Basic 2008 dengan Microsoft Access

Kode Program:

Imports System.Data Imports System.Data.OleDb Public Class frbuku     Public koneksi As String     Public sql1, sql2, sql3, sql4, sql5 As String     Public conn As OleDb.OleDbConnection = Nothing     Public cmd As OleDb.OleDbCommand = Nothing     Public dtadapter As New OleDb.OleDbDataAdapter     Public dttable As New DataTable Private Sub frbuku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        koneksi = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbperpustakaan.mdb”        conn = New OleDb.OleDbConnection(koneksi)        conn.Open()     End Sub     Sub bersih()         Me.txtkodebuku.Focus()         Me.txtjudul.Text = “”         Me.txtpengarang.Text = “”         Me.txtpenerbit.Text = “”      End Sub      Sub simpan()           ‘Ditulis Satu Baris      sql1 = “Insert into tbbuku values(‘” & Me.txtkodebuku.Text & “‘,'” & Me.txtjudul.Text & “‘,'” &          Me.txtpengarang.Text & “‘,'” & Me.txtpenerbit.Text & “‘)”      cmd = New OleDb.OleDbCommand(sql1)      cmd.Connection = conn      cmd.ExecuteNonQuery()      End Sub      Sub daftar()         sql2 = “select * from tbbuku”         dtadapter = New OleDbDataAdapter(sql2, conn)         Dim BRG As New DataTable         BRG.Clear()         dtadapter.Fill(BRG)         DgvBuku.DataSource = BRG     End Sub     Sub cari()         Dim cari As String         cari = InputBox(“Masukan Kode Buku”, “Pencarian”)         sql3 = “select * from tbbuku where Kode_Buku = ‘” & cari & “‘”         dtadapter = New OleDbDataAdapter(sql3, conn)         Dim CST As New DataTable         CST.Clear()         dtadapter.Fill(CST)         DgvBuku.DataSource = CST     End Sub     Sub delete()         Dim hapus As String         hapus = InputBox(“Masukan Kode Buku”, “Penghapusan”)         sql4 = “delete from tbbuku where Kode_Buku = ‘” & hapus & “‘”         cmd = New OleDb.OleDbCommand(sql4)         cmd.Connection = conn         cmd.ExecuteNonQuery()     End Sub     Sub edit()         sql5 = “update tbbuku set Judul = ‘” & txtjudul.Text & “‘, Pengarang = ‘” & txtpengarang.Text & “‘, Penerbit = ‘” & txtpenerbit.Text & “‘ where Kode_Buku = ‘” & txtkodebuku.Text & “‘”         cmd = New OleDb.OleDbCommand(sql5)         cmd.Connection = conn         cmd.ExecuteNonQuery()     End Sub      Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click         simpan()         daftar()         bersih()         MsgBox(“Data Sudah Disimpan”, MsgBoxStyle.Information, “Perhatian”)     End Sub      Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click         bersih()         MsgBox(“Data Sudah digagalkan”, MsgBoxStyle.Information, “Perhatian”)     End Sub      Private Sub btnclose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click         Me.Close()     End Sub      Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click         cari()     End Sub

Pemograman C++

Bahasa C++ merupakan perkembangan dari bahasa BCPL yang dikembangkan oleh Martin Richards pada tahun 1967. Selanjutnya bahasa ini memberikan ide kepada Ken Thompson yang kemudian mengembangkan bahasa yang disebut bahasa B pada tahun 1970. Perkembangan selanjutnya dari bahasa B adalah bahasa C oleh Dennis Ricthie sekitar tahun 1970-an di Bell Telephone Laboratories Inc. (sekarang adalah AT&T Bell Laboratories). Bahasa C++ pertama kali digunakan di computer Digital Equipment Corporation PDP-11 yang menggunakan system operasi UNIX. Hingga saat ini penggunaan bahasa C++ telah merata di seluruh dunia. Hampir semua perguruan tinggi di dunia menjadikan bahasa C++ sebagai salah satu mata kuliah wajib. Selain itu, banyak bahasa pemrograman populer seperti PHP dan Java menggunakan sintaks dasar yang mirip bahasa C++. Oleh karena itu, kita juga sangat perlu mempelajarinya.

Kelebihan Bahasa C++

♦ Bahasa C++ tersedia hampir di semua jenis computer.

♦ Kode bahasa C++ sifatnya adalah portable dan fleksibel untuk semua jenis computer.

♦ Bahasa C++ hanya menyediakan sedikit kata-kata kunci, hanya terdapat 32 kata kunci.

♦ Proses executable program bahasa C++ lebih cepat

♦ Dukungan pustaka yang banyak.

♦ Bahasa C++ adalah bahasa yang terstruktur

♦ Bahasa C++ termasuk bahasa tingkat menengah

Kekurangan Bahasa C++

♦ Banyaknya Operator serta fleksibilitas penulisan program kadang-kadang membingungkan pemakai.

♦ Bagi pemula pada umumnya akan kesulitan menggunakan pointer

Bagi yang ingin belajar lebih lanjut mengenai dasar pembelajaran bahasa pemograman C++, silakan download link di bawah ini:

Diktat Pembelajaran Dasar C++

Aljabar Linear

Aljabar linear adalah bidang studi matematika yang mempelajari sistem persamaan linear dan solusinya, vektor, serta transformasi linear. Matriks dan operasinya juga merupakan hal yang berkaitan erat dengan bidang aljabar linear.

Yang ingin belajar aljabar lalieur, mari download modul nya :-p

Modul Aljabar Linear

Materi Kalkulus

Kalkulus (dari Bahasa Latin yang artinya “batu kecil) adalah cabang ilmu matematika yang mencakup limit, turunan, integral, dan deret tak terhingga Kalkulus mempunyai aplikasi yang luas dalam bidang sains dan teknik dan digunakan untuk memecahkan masalah yang kompleks yang mana aljabar tidak cukup untuk menyelesaikannnya. Kalkulus memiliki dua cabang utama, kalkulus diferensial dan kalkulus integral, yang saling berhubungan melalui teorema fundamental kalkulus. Kalkulus pada umumnya dikembangkan dengan memanipulasi sejumlah kuantitas yang sangat kecil. Objek ini yang dapat diperlakukan sebagai angka, adalah sangat kecil. Setiap perkalian dengan kecil tak terhingga tetaplah kecil tak terhingga, dengan kata lain infinitesimal(kecil tak terhingga) tidak memenuhi properti Archimedes. Dari sudut pandang ini, kalkulus adalah sekumpulan teknik untuk memanipulasi inifintesimal. Pada abad ke-19, konsep infinitesimal digantikan oleh konsep limit. Limit menjelaskan nilai suatu fungsi pada nilai input tertentu dengan hasil dari input terdekat. Dari sudut pandang ini, kalkulus adalah sekumpulan teknik memanipulasi limit-limit tertentu.

Bagi yang ingin mempelajari mengenai kalkulus 1… silahkan download modul kalkulus di bawah ini 🙂  :

Materi/Modul Kalkulus 1

Materi Presentasi Web

Pertemuan 1-3 mencakup pengantar HTML, heading, paragraph, font, list, dan image, download di bawah ini..

Pertemuan 1-3

Algoritma

Secara spesifik, algoritma berhubungan dengan komputer atau mesin yang sering disebut algoritma pemograman. Kalau kita berbicara tentang algoritma pemograman maka terdapat dua pembelajaran penting yang mesti dipahami yaitu memprogram dan bahasa pemograman.

Bahasa bertujuan sebagai alat komunikasi dengan lawan bicara, sehingga dalam bahasa pemograman berarti bagaimana cara kita (manusia) berkomunikasi dengan mesin (komputer). Nah, dalam menciptakan komunikasi yang baik diperlukan adanya pengertian dan pemahaman tentang bagaimana cara berpikir lawan bicara kita dalam hal ini adalah komputer.

Bagaimana komputer berpikir ?

• Komputer tidak dapat berfikir secara simultan terhadap sejumlah perintah
• Komputer membaca kumpulan perintah secara serial mulai dari baris pertama hingga baris terakhir yang prioritasnya tidak dapat dipertukarkan
• Variabel tidak dapat dipergunakan secara terbali

algoritma pemograman adalah Aliran pemikiran manusia yang simultan dituangkan ke dalam aliran pemikiran komputer yang serial dalam bentuk tahap-tahap pemikiran yang sistematis dan logis.

Sstematis berarti teratur menurut sstem untuk menyelesaikan masalah

Penasaran tentang algoritma pemograman… Belajar lebih lanjut yuk ….. bisa download di modul ini:

Modul Logika dan Algoritma

Analisa Numerik

Metode analitik adalah metode sebenarnya yang dapat memberikan solusi sebenarnya (exact solution) atau solusi sejati artinya metode penyelesaian model matematika dengan rumus-rumus aljabar yang sudah baku (lazim) dan solusi yang dihasilkan memiliki galat atau error = 0. Namun metode analitik hanya unggul pada sejumlah persoalan matematika yang terbatas. Padahal persoalan yang muncul dalam dunia nyata seringkali melibatkan bentuk dan proses yang rumit. Akibatnya nilai praktis penyelesaian metode analitik menjadi terbatas.
Bila metode analitik tidak dapat lagi diterapkan, maka solusi persoalan sebenarnya masih dapat dicari dengan menggunakan metode numerik. Metode numerik adalah teknik yang digunakan untuk memformulasikan persoalan matematik sehingga dapat dipecahkan dengan operasi perhitungan/aritmetika biasa (tambah, kurang, kali, dan bagi). Metode artinya cara, sedangkan numerik artinya angka. Jadi metode numerik secara harafiah berarti cara berhitung dengan menggunakan angka-angka.
Dari penjelasan tersebut terdapat dua hal mendasar mengenai perbedaan antara metode numerik dengan metode analitik yaitu pertama, solusi dengan menggunakan metode numerik selalu berbentuk angka sedangkan metode analitik umumnya menghasilkan solusi dalam bentuk fungsi matematik yang selanjutnya fungsi matematik tersebut dapat dievaluasi untuk menghasilkan nilai dalam bentuk angka. Kedua, dengan metode numerik, kita hanya memperoleh solusi yang menghampiri atau mendekati solusi sejati sehingga solusi numerik dinamakan juga solusi pendekatan (approxomation), namun solusi pendekatan dapat dibuat seteliti yang kita inginkan. Solusi hampiran jelas tidak tepat sama dengan solusi sejati, sehingga ada selisih antara keduanya. Selisih inilah yang disebut dengan galat (error).

Yang Mau mengenal lebih dekat dengan analisa numerik dapat dipelajari dari modul berikut ini:

Modul Analisa Numerik