CARA MEMBUAT KALKULATOR DI VB.NET

Di jaman sekarang,,, masi hitung pake jari...? cape dehhh

Kalkulator memang sangat berguna untuk mempermudah perhitungan matematika sehingga tidak sampe uban dan botak... tapi kira-kira bagaimana yahh cara membuat software kalkulator ??? jangan khawatir karena kali ini saya akan memberikan tutorial untuk membuat kalkulator sendiri dengan visual basic.net
okkk mari kita mulai...langkah demi langkah

1. membuka visual studio melalui start --->> all program --->> Microsoft visual studio 2008-->> dan microsoft visula studio 2008 lagi. maka akan tampil seperti gambar di bawah
   
2. klik file -->> new project untuk membuat project baru. Tentukan folder tempat penyimpanan hasil kerja dengan klik tombol browse dan beri nama kalkulator pada kolom name.dilanjutkan dengan klik ok.
3. desain form dengan 1 buah textbox dan 16 button seperti gambar di bawah
4. atur properties di bagian text.x, +,-,/, cc, hasil, 1, 2,3 dan seterusnya  untuk semua tombol
   
   sehingga tampilan seperti gambar di bawah
   
5. klik kanan di area form, pilih view code dan ketikan kode program di bawah ini
   atau copy paste alias copas saja biar gampang
   Public Class Form1
       Dim nilaia As Double
       Dim nilaib As Double
       Dim hasil As Double
       Dim opt As String
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           TextBox1.Text = TextBox1.Text & Button1.Text
       End Sub
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           TextBox1.Text = TextBox1.Text & Button2.Text
       End Sub
   
       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           TextBox1.Text = TextBox1.Text & Button3.Text
       End Sub
   
       Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
           TextBox1.Text = TextBox1.Text & Button4.Text
       End Sub
   
       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
           TextBox1.Text = TextBox1.Text & Button5.Text
       End Sub
   
       Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
           TextBox1.Text = TextBox1.Text & Button6.Text
       End Sub
   
       Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
           TextBox1.Text = TextBox1.Text & Button7.Text
       End Sub
   
       Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
           TextBox1.Text = TextBox1.Text & Button8.Text
       End Sub
   
       Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
           TextBox1.Text = TextBox1.Text & Button9.Text
       End Sub
   
       Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
           TextBox1.Text = TextBox1.Text & Button10.Text
       End Sub
   
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
       End Sub
   
       Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
           nilaia = Val(TextBox1.Text)
           TextBox1.Text = ""
           opt = "X"
       End Sub
   
       Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
           nilaia = Val(TextBox1.Text)
           TextBox1.Text = ""
           opt = "+"
       End Sub
   
       Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
           nilaia = Val(TextBox1.Text)
           TextBox1.Text = ""
           opt = "/"
       End Sub
   
       Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
           nilaia = Val(TextBox1.Text)
           TextBox1.Text = ""
           opt = "-"
       End Sub
   
       Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
           TextBox1.Text = ""
       End Sub
   
       Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
           nilaib = Val(TextBox1.Text)
           Select Case opt
               Case "X"
                   hasil = nilaia * nilaib
               Case "/"
                   hasil = nilaia / nilaib
               Case "+"
                   hasil = nilaia + nilaib
               Case "-"
                   hasil = nilaia - nilaib
   
           End Select
           TextBox1.Text = hasil
       End Sub
   End Class
6. jalankan kalkulator anda dengan menekan tombol f5. Selamat anda sudah bisa membuat kalkulator sederhana sendiri
   
   posting by IRON NAHAK

membuat module koneksi di vb.net dan ms accses 2007

@MEMBUAT MODULE KONEKSI VB.NET DENGAN MS ACCSES 2007

Pada postingan kali ni saya akan berbagi membuat modul koneksi vb.enet dengan ms accses 2007. Mungkin sudah banyak tau soal ini. Namun bagi anda yang belum mecobanya berikut ini tutorilnya. ykkk kita sangsung ke TKP

pertama

buatlah sebuah database dengan dbakademik


 setelah databse dbakademik dibuat beralihlah ke solution explorer untuk mebuat mudule baru. klik kanan project anda dan pilih add  --> new ->>module ,  dan berikan nama module_koneksi di  bagian name.
ketik kode ini :
yahh...  kalo rasa maless tingal di copy and paste saja,,,
ingat copy dan paste bukan kopi susu yahhh...

Imports System.Data.OleDb
Module MODULE_KONEKSI
    Public Conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public STR As String
    Public CMD As New OleDbCommand
    Public rd As OleDbDataReader
    Public PENGGUNA As String
    Sub Koneksi()
        STR = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Db_Akademik.accdb"
        Conn = New OleDbConnection(STR)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
            End Sub
End Module

sekian dulu postingan dari saya muda-mudahan dapat membantu.
untuk membuat form input di postingan berikutnya... by...