Sun3Daily: tutorial Visual basic

Showing posts with label tutorial Visual basic. Show all posts

Home > Posts filed under tutorial Visual basic

Operasi Matematika pada VBNET

Operator Artimatika Jika kalian pernah mencoba Visual Basic 6, mungkin anda biasa membuat kalkulator sederhana ( dan itu juga terjadi karena tugas dari kampus hahaha). Oke sekarang anda pasti mengenal : X = kali / = bagi - = Kurang + = Tambah Sebelumnya saya akan mengulangi matematika dasar, apakah anda pernah dengar KABATAKU ? KABATAKU adalah prioritas operator aritmatika yaitu KALI BAGI TAMBAH KURANG Kasus : S=4-6x7 Berapakah hasil S ? Jawaban : S= 4 – (6x7)         S= 4 – 42         S= -38 (minus tiga delapan) Namun bagaimanapun sudah mempelajari matematika dasar, masih banyak juga orang menghitung operator dari awal 4-6 = -2x7 = -14 Oke, sekarang kita mulai membuat aplikasi kalkulator sangaaaat sederhana pada visual basic net. Buatlah interface/desain form seperti ini  <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3hf9k6PuWk-a3A7GR1cbyW4VpWe1_9jIQgZ4o396fyPNqRLgCmzaxvFXsxdeKupTAuDQKYhO0OCaU8AKk9dut-VpNUImbcj8VO-igOS4-fDNQisAGf25tKZ61rhZSM4xymrKmGXplpGaW/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="231" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3hf9k6PuWk-a3A7GR1cbyW4VpWe1_9jIQgZ4o396fyPNqRLgCmzaxvFXsxdeKupTAuDQKYhO0OCaU8AKk9dut-VpNUImbcj8VO-igOS4-fDNQisAGf25tKZ61rhZSM4xymrKmGXplpGaW/s320/1.jpg" width="320" /></a> Keterangan : 1 = TextBox 2 = ComboBox 3 = Label Ada 3 textbox di sini, buatlah namenya secara berbeda dan mudah diingat : Contoh : nilai1, nilai2 , hasil <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3OXFpkC7k4Exij310GfrA8w2rHuwDqs-M7aqOoRls5ZnCG8G2GS-I0PPg4NhUK8rei3yGfrVmhjjIlVDUKm0StePdtMz3zT3xHg00NEVZ-eMkJ18DhX4_Fef5ycoiRzQpHze0lFgD-dNu/s1600/2.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3OXFpkC7k4Exij310GfrA8w2rHuwDqs-M7aqOoRls5ZnCG8G2GS-I0PPg4NhUK8rei3yGfrVmhjjIlVDUKm0StePdtMz3zT3xHg00NEVZ-eMkJ18DhX4_Fef5ycoiRzQpHze0lFgD-dNu/s1600/2.jpg" /></a></div> Begitu juga pada combobox, contoh name op Lalu tambahkan properties Items pada Combobox , isi dengan lambang operator <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9W6flw7xG44NZ8J6iASOdys0XMCp2_z-ZziXJrrlsSDG-rBioGdTIp1mcMR4iHH3NN-qBrEls9dsTOcWbt9Ncmke7aA2vl7bG-jtC7L-p2DQyXgUkO9ykM58Jj7eagwcDh3KE8jUgijD1/s1600/3.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="174" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9W6flw7xG44NZ8J6iASOdys0XMCp2_z-ZziXJrrlsSDG-rBioGdTIp1mcMR4iHH3NN-qBrEls9dsTOcWbt9Ncmke7aA2vl7bG-jtC7L-p2DQyXgUkO9ykM58Jj7eagwcDh3KE8jUgijD1/s320/3.jpg" width="320" /></a></div> Beberapa operator aritmatika yang dikenal pada sebuah pemrograman : * = Kali / = bagi + = tambah - = kurang ^ = pangkat mod = pembagi Pengkodeaan Klik 2x pada combobox, lalu tulislah kode di bawah ini pada event op_SelectedIndexChanged <pre><code> If nilai1.Text <> vbNullString And nilai2.Text <> vbNullString Then             If Me.op.Text = "*" Then                 Me.hasil.Text = CInt(nilai1.Text) * CInt(nilai2.Text)             ElseIf Me.op.Text = "/" Then                 Me.hasil.Text = CInt(nilai1.Text) / CInt(nilai2.Text)             ElseIf Me.op.Text = "+" Then                 Me.hasil.Text = CInt(nilai1.Text) + CInt(nilai2.Text)             ElseIf Me.op.Text = "-" Then                 Me.hasil.Text = CInt(nilai1.Text) - CInt(nilai2.Text)             End If End If</code></pre> Wah,banyak if nya ya? Tidak apa-apa yang penting kita di sini belajar sebuah logika pemrograman hehe. Jalankan Program dengan menekan F5 lalu isi nilai1 dan nilai2 dan pilih operatornya, setelah memilih operator maka akan didapatkan perhitungannya pada komponen TextBox hasil Sekarang mari kita diskusikan source codenya : Format IF sebuah logika pemrograman, kalau dibahasakan Jika(IF) proses_benar maka(THEN) lakukan_proses_lain Selesai(END IF). Apabila ada logika banyak jika bisa dipakai (ELSEIF) <pre><code> If nilai1.Text <> vbNullString And nilai2.Text <> vbNullString Then</code></pre>Kode <> adalah nilai TIDAK SAMA , vbNullString adalah String(karakter) Kosong. <pre><code> If Me.op.Text = "*" Then</code></pre>Jika ComboBox op adalah karakter * (bintang) maka <pre><code> Me.hasil.Text = CInt(nilai1.Text) * CInt(nilai2.Text)</code></pre>Lakukan operasi perkalian dan outputkan pada komponen TextBox hasil. Apa itu CInt ? ini bukan CINTA loh tapi Singkatan Dari Convert To Interger, banyak cara untuk mengkonversikan tipe data,seperti : CDbl = konversi ke Double CStr = konversi ke String CBool = konversi ke Boolean Dan banyak lagi Jika program tersebut dibahasakan ke Bahasa Indonesia : JIKA nilai1 tidak kosong dan nilai2 tidak kosong MAKA     JIKA teks operator adalah kali MAKA         Lakukan perkalian     DAN_JIKA teks operator adalah bagi MAKA         Lakukan pembagian     DAN_JIKA teks operator adalah tambah MAKA         Lakukan penambahan DAN_JIKA teks operator adalah kurang MAKA         Lakukan pengurangan     SELESAI_LOGIKA_HITUNG SELESAI_LOGIKA_CEK_NILAI sumber :  http://www.ilmuprogrammer.com/2013/08/v-behaviorurldefaultvmlo.html#.Uoo56ifDueY

Operator Artimatika Jika kalian pernah mencoba Visual Basic 6, mungkin anda biasa membuat kalkulator sederhana ( dan itu juga terjadi karen...

Modul Belajar Pemrograman Visual Basic NET

<div class="MsoNormal">Apa itu Visual Basic.Net ?</div><div class="MsoNormal">Visual Basic.Net atau yang disingkat dengan VB.Net adalah sebuah pengembangan dari Visual Basic 6 yang disesuaikan dengan NET Framework. </div><div class="MsoNormal">Net Framework sendiri adalah sebuah library yang digunakan agar lebih mudah membuat aplikasi pada Sistem Operasi khususnya Windows</div><div class="MsoNormal">Pengkodean VB.Net tidak jauh beda dengan Visual Basic 6, jadi jika anda adalah seorang penggemar Visual Basic 6 akan mudah untuk mengerti dengan penulisan pengkodean VB.Net. Perbedaannya yang sangat mencolok adalah VB.Net berbasis OOP (Object Orientied Programming).</div> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvEgFuWk81X-C9MatuNBrKPdVZbqZJq4OZOQpn58I8jqwLobZaxy6NEuY0Y2UUfUZmtEfhMUYcCLXl6YEhadVvp1Oo62zrOczGENWmbGBrKwsBdaJlAlCCA8Bls_PZbQ9xfIeW2PB8PsJQ/s1600/vb.jpg" style="margin-left: 1em; margin-right: 1em;"><img alt="Modul Belajar Pemrograman Visual Basic NET" border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvEgFuWk81X-C9MatuNBrKPdVZbqZJq4OZOQpn58I8jqwLobZaxy6NEuY0Y2UUfUZmtEfhMUYcCLXl6YEhadVvp1Oo62zrOczGENWmbGBrKwsBdaJlAlCCA8Bls_PZbQ9xfIeW2PB8PsJQ/s400/vb.jpg" title="" width="400" /></a></div><div class="MsoNormal"></div> <div class="MsoNormal"></div><div class="MsoNormal">Bagaimana Menggunakan Visual Basic.Net ?</div><div class="MsoNormal">Anda dapat menulis dan membuat aplikasi pengkodean VB.Net dengan Visual Studio, hingga saat ini versi Visual Studio memasuki 12 atau 2012. Dengan menggunakan Net Framework yang terupdate setiap release Visual Studio, maka programmer perlu menyesuaikan diri dengan Framework yang digunakan.</div><div class="MsoNormal">Jenis Visual Studio pun banyak, ada jenis Developer, Enterprise, Professional ataupun versi gratis yaitu Express. Sayangnya untuk membuat aplikasi windows dengan VB.Net membutuhkan uang yang lebih banyak, karena versi Express pun tidak bias mengelola aplikasi data yang besar. </div><div class="MsoNormal"></div><div class="MsoNormal">Keunggulan License</div><div class="MsoNormal">Walaupun jenis Visual Studio banyak beredar beserta cracknya atau dapat di download dengan illegal, akan tetapi anda harus mengetahui pelajaran tentang license tersebut. </div><div class="MsoNormal">Saya tidak melarang apapun yang anda lakukan untuk mendownload Visual Studio yang bajakan, namun sebuah kualitas license tersebut sangat berpengaruh pada programmer ataupun sebuah perusahaan yang mempekerjakan programmer Visual Basic.Net. Apapun yang dilakukan dengan tidak baik, maka hasil dari apa yang dikerjakan tersebut tidak baik juga.</div><div class="MsoNormal"></div><div class="MsoNormal">sumber :  http://www.ilmuprogrammer.com/2013/08/modul-belajar-pemrograman-visual-basic.html</div>

Apa itu Visual Basic.Net ? Visual Basic.Net atau yang disingkat dengan VB.Net adalah sebuah pengembangan dari Visual Basic 6 yang disesuaika...

Pengolahan Database pada VB.NET

aplikasi tak luput dari  database, sekarang kita akan mendiskusikan bagaimana mengkoneksikan database pada VB.NET Banyak database engine yang support dengan VB.NET, Microsoft SQL Server, MySQL, Microsoft Access, Oracle, Postgre SQL dan lain-lain. Namun untuk menghubungkan VB.NET dengan database diperlukan sebuah Connection String. Apa itu Connection String ? Connection String adalah sebuah tipe data string yang dijadikan sebagai penghubung antara database dan project/kode. <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-dDktxj_4BaKbczCnSbiN5DHCvKogEzDIKBr4rNT5Mu66AlRO4tzPxdVO2NmPfFAt0B6IZ-eLbu6G5K-h3gk_EJIS7Th6AKVEt1Fivrhz41jQVV7dYU_vkdMNrEgywzTisfFi6zuYsKtt/s1600/vb.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="170" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-dDktxj_4BaKbczCnSbiN5DHCvKogEzDIKBr4rNT5Mu66AlRO4tzPxdVO2NmPfFAt0B6IZ-eLbu6G5K-h3gk_EJIS7Th6AKVEt1Fivrhz41jQVV7dYU_vkdMNrEgywzTisfFi6zuYsKtt/s320/vb.jpg" width="320" /></a></div> Untuk informasi Connection String lebih lanjut , anda bisa mengunjungi website yang mendalami ilmu tersebut <a href="http://www.connectionstrings.com/">http://www.connectionstrings.com/</a> (Jadi untuk Connection String dibaca dulu) Beberapa cara untuk mengkoneksikan database , yaitu dengan komponen (ADODC,DAO,dll) ataupun dengan kode. Yang kita diskusikan pada artikel ini adalah dengan menggunakan kode. Jika pada Visual Basic anda menggunakan ADODC, bisa dipertimbangkan lagi bagaimana setiap form diisi dengan komponen tersebut. Bisa dibilang aplikasi jadi lebih berat kan? Diskusi ini mungkin dapat mengubah cara pengkodean anda. Kenapa ? <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjezdK0xKm6fHyGZsmZLbmZvr4VCq-yR828MFQbOCMNfNNXunklpkXqk3Bb1iu4WG-YcNham8ZXI-d0yTwnHPQXeZqWro7WZPn1-dSX1PEBhPUzi-ayrEbYn8jbSqodw7nCOZY5oJ3Dr48_/s1600/2.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="226" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjezdK0xKm6fHyGZsmZLbmZvr4VCq-yR828MFQbOCMNfNNXunklpkXqk3Bb1iu4WG-YcNham8ZXI-d0yTwnHPQXeZqWro7WZPn1-dSX1PEBhPUzi-ayrEbYn8jbSqodw7nCOZY5oJ3Dr48_/s400/2.jpg" width="400" /></a></div> Terbayang tidak begitu ribetnya masukin komponen setiap Form ? Lalu bagaimana bentuk dari handcode/kode tersebut ? Contoh : Saya mengkoneksikan project VB.NET dengan database SQL Server Database File dengan sebuah module yang bernama ModDatabase, berikut source code nya : <pre><code> Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommandBuilder Module ModDatabase     Public con As SqlClient.SqlConnection     Public cmd As SqlClient.SqlCommand     Public dtr As SqlClient.SqlDataReader     Dim mydatatable As DataTable     Dim adapter As SqlClient.SqlDataAdapter     Private bindingSource1 As New BindingSource() Public Function OpenDB() As Boolean         con = New SqlClient.SqlConnection         con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename="D:\data.mdf";Integrated Security=True;User Instance=True"         Try             con.Open()             Return True         Catch ex As Exception             MsgBox("Terjadi Error : " & ex.Message)             Return False         End Try     End Function Public Sub _ComboData(ByVal sql As String, ByVal obj As Object)         OpenDB()         cmd = New SqlClient.SqlCommand(sql, con)         Try             obj.Items.Clear()             dtr = cmd.ExecuteReader             While dtr.Read()                 obj.Items.Add(dtr.Item(0).ToString)             End While         Catch ex As Exception             MsgBox("Terjadi Error : " & ex.Message)         Finally             con.Close()             con = Nothing         End Try     End Sub     Public Sub _TableData(ByVal sql As String, ByVal obj As Object)         OpenDB()         cmd = New SqlClient.SqlCommand(sql, con)         Try             'obj.DataSource = Nothing             dtr = cmd.ExecuteReader             obj = New DataTable             obj.Load(dtr)         Catch ex As Exception             MsgBox("Terjadi Error : " & ex.Message)         Finally             dtr.Close()             con.Close()         End Try     End Sub     Public Function _DataToValue(ByVal sql As String) As String         OpenDB()         cmd = New SqlClient.SqlCommand         Try             Dim p As String             p = ""             cmd.Connection = con             cmd.CommandType = CommandType.Text             cmd.CommandText = sql             dtr = cmd.ExecuteReader             If dtr.HasRows Then                 dtr.Read()                 p = (dtr.Item(0))             End If             Return p.ToString         Catch ex As Exception             Return ex.Message         Finally             'dtr.Close()             con.Close()         End Try     End Function</code></pre> <pre><code> Public Sub _RunSQL(ByVal sql As String)         OpenDB()         cmd = New SqlClient.SqlCommand(sql, con)         Try             cmd.ExecuteNonQuery()         Catch ex As Exception             MsgBox(ex.Message)         Finally             con.Close()         End Try     End Sub Function _isBOF(ByVal table As String, ByVal field As String, ByVal whereValue As String) As Boolean         Dim p As Integer         p = _DataToValue("Select count(" & field & ") from " & table & " Where " & field & "='" & whereValue & "'")         If p < 1 Then             Return True         Else             Return False         End If     End Function End Module</code></pre> Lihat yang saya bold pada kode di atas. Semua bisa anda gunakan pada semua form. 1. OpenDB() As Boolean Fungsi ini berguna untuk membuka database, namun outputnya sebagai boolean (true/false), anda bisa menggunakan untuk cek koneksi database. Contoh kode : <pre><code> if OpenDB=false then    msgbox "Tidak tersambung ke database" else   msgbox "Tersambung" end if </code></pre> 2. _ComboData(ByVal sql As String, ByVal obj As Object) Fungsi ini berguna jika anda ingin mengisi sebuah combobox dengan isi field pada database. Contoh : <pre><code> _ComboData("Select nama_barang from barang",Me.ComboBox1)</code></pre>3. _TableData(ByVal sql As String, ByVal obj As Object) Pernahkah anda membuat kode untuk menampilkan data pada DataGridView? Panjang bukan? Nah, fungsi ini berguna untuk menampilkan data pada DataGridView dengan cepat, hanya 1 baris kode saja. Contoh : <pre><code> _TableData("Select * from barang",Me.DataGridView1)</code></pre> 4. _DataToValue(ByVal sql As String) As String Jika anda hanya menginginkan output 1 data bertipe string saja, maka anda membutuhkan fungsi ini. Contoh event klik saat combobox yang menampilkan nama barang pada TextBox1 menampilkan kode barangnya : <pre><code> Me.TextBox1.Text = _DataToValue("Select kode_barang from Barang Where nama_barang='" & Me.ComboBox1.Text & "'")</code></pre>Pengkodean (kutip_satu)(kutip_dua) & komponen & (kutip_dua)(kutip_satu) membedakan yang mana kode sql dan yang mana komponen VB.NET 5. _RunSQL(ByVal sql As String) Mengalami Insert,Edit,Delete yang kodenya ribet? Cukup panggil fungsi ini , Contoh : <pre><code> _RunSQL("Insert into barang (kode_barang,nama_barang) values ('" & Me.ComboBox1.Text & "','" & Me.TextBox1.Text & "')")</code></pre> <pre><code> _RunSQL("Update barang Set nama_barang='" & Me.TextBox1.Text & "' Where kode_barang='" & Me.ComboBox1.Text & "'")</code></pre> <pre><code> _RunSQL("Delete from barang Where kode_barang='" & Me.ComboBox1.Text & "'")</code></pre> 6. _isBOF(ByVal table As String, ByVal field As String, ByVal whereValue As String) As Boolean Gunakan fungsi ini untuk mengecek data ada atau tidak , Contoh : if _isBOF("barang","kode_barang","0001")=false Then     msgbox("Barang tidak ada") Else     msgbox("Barang Ada") End If Postingan ini tidak bertujuan untuk meniru ataupun harus mengikuti kode saya. Namun saya mengharapkan jika anda semua dapat merangkum semua kebutuhan aktif menjadi satu ruang. Berikut saya share module file nya, di dalam paket ada koneksi dengan SQL Server dan MySQL sumber :  http://www.ilmuprogrammer.com/2013/08/pengolahan-database-pada-vbnet.html#.Uoo3zifDueY

aplikasi tak luput dari database, sekarang kita akan mendiskusikan bagaimana mengkoneksikan database pada VB.NET Banyak database engine yan...