Program VB Untuk Membuat Calculator

         Membuat program calculator pada bahasa pemrograman visual basic, sebenarnya sih gampang gampang susah. Yah kalau belum tahu logika awalnya sih susah, namun jika sudah mengetahui logika dasar pembuatan program nya, ternyata program vb untuk membuat calculator sangat gampang.


Program ini saya sederhanakan dari postingan saya Program Calculator Pada Visual Basic

Design program vb untuk membuat calculator berikut ini :



Adapun keterangan penamaannya seperti berikut ini :

Untuk Textbox1 diberi nama Angka

Untuk Command Button 0-9 di beri nama BTN (sehingga membentuk index array)

Untuk Command Button C di beri nama BtnC
Untuk Command Button +/- di beri nama BtnMinus
Untuk Command Button . di beri nama BtnKoma
Untuk Command Button = di beri nama BtnHasil
Untuk Command Button Backspace di beri nama BtnBack

Untuk Command Button +,/,*,- di beri nama BtnProses

Berikut listing program VB untuk membuat calculator pada Visual Basic

Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String

Function Proseskan(op As String)
    Dim xhasil As Double
    Select Case op
    Case "+": xhasil = a + b
    Case "-": xhasil = a - b
    Case "/": xhasil = a / b
    Case "*": xhasil = a * b
    End Select
    Proseskan = xhasil
End Function

Sub Normalkan()
    operatornya = ""
    bil = ""
    a = 0
    b = 0
    c = 0
    Angka = "0"
End Sub

Private Sub btn_Click(Index As Integer)
    Dim x As String
    x = btn(Index).Caption
    If bil <> "0" Or OPnya = "" Then
       bil = bil + x
    Else
       bil = x
    End If
    Angka = bil
End Sub

Private Sub btnback_Click()
    Dim jml As Byte
    jml = Len(bil)
    If jml > 0 Then
        bil = Left(bil, jml - 1)
        Angka = bil
    End If
End Sub

Private Sub btnC_Click()
    Call Normalkan
End Sub

Private Sub btnhasil_Click()
    b = CCur(bil)
    Angka = Proseskan(OPnya)
    bil = "0"
    a = 0
    b = 0
End Sub
Private Sub btnkoma_Click()
    If bil <> "" Then
        bil = bil + ","
    Else
        bil = "0"
    End If
    Angka = bil
End Sub

Private Sub btnminus_Click()
    bil = CCur(bil) * -1
    Angka = bil
End Sub

Private Sub btnProses_Click(Index As Integer)
    OPnya = btnProses(Index).Caption
    If bil <> "" Then
        If a = 0 Then
            a = CCur(bil)
        Else
            b = CCur(bil)
            a = Proseskan(OPnya)
        End If
        bil = ""
    End If
End Sub

Private Sub Form_Load()
    Call Normalkan
End Sub


Nah, mudah mudahan program diatas dapat membuat anda bisa menyukai belajar bahasa pemrograman.

Tag : Program VB Untuk Membuat Calculator, program calculator, program vb, program visual basic, program vb calculator

Teknik DAO Untuk Searching Data Pada Database

         Bagi anda yang tergolong baru dalam pemrograman mungkin tidak paham mengenai teknik teknik pemrograman menggunakan database access bukan? Berikut di bahas sedikit mengenai teknik untuk mengkoneksikan data menggunakan microsoft access.

Pada Visual basic dikenal 3 teknik dalam mengkoneksikan data, yaitu :

1. Data ActiveX Object
2. ActiveX Data Object
3. RDO (Remote Data objek)

Pada artikel teknik DAO untuk searching data pada database akan dibahas menggukan DAO

Komponen DAO ini merupakan kontrol standar yang dimiliki Project VB, saat memilih project baru.

Nama komponen ini yaitu DATA.

Saat menggunakan komponen ini setting properti yang digunakan yaitu :

DatabaseName : C:DAOBuku.mdb
RecordsetType : Table
RecordSource : Buku

Nah pada saat kita klik DatabaseName tersebut kita akan database Access 95 berada.

Baru kemudian atur properti RecordsetType dan RecordSource tersebut.

Berikut Design form teknik DAO untuk searching data pada database



Berikut listing program

Private Sub Form_Load()
    Kode = ""
    Judul = ""
    Pengaran  = ""
    Penerbit = ""
End Sub

Private Sub Kode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        If Kode.Text = "" Then
            Kode.SetFocus
        Else
            With Data1.Recordset
                .Index = "Kd"
                .Seek "=", Kode.Text
                If .NoMatch Then
                    MsgBox "Data tidak temukan !"
                    Judul = ""
                    Pengarang = ""
                    Penerbit = ""
                Else
                    Judul = !Judul
                    Pengarang = !Pengarang
                    Penerbit = !Penerbit
                    MsgBox "Data di temukan !"
                End If
                Judul.SetFocus
            End With
        End If
    End If
End Sub

Demikianlah artikel Teknik DAO Untuk Searching Data Pada Database ini semoga bermanfaat, jika anda membutuhkan program lengkap dengan teknik DAO ini dapat anda baca pada artikel Program DAO Sistem Informasi Peminjaman Buku sehingga anda tertarik untuk belajar bahasa pemrograman.

Tag : Teknik DAO Untuk Searching Data Pada Database, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic, tempat download program

Penggunaan IF Yang Baik Dalam Visual Basic Net ataupun Pascal

IF merupakan salah satu struktur kendali dalam bahasa pemrograman dan didalam program yang dibuat, pasti banyak menggunakan IF.

Terdapat banyak jenis penggunaan If, mulai dari
IF Tunggal,

    if kondisi then
       pernyataan
    end if

IF Ganda
    if kondisi then
       pernyataan
    else
        pernyataan
    end if

IF Jamak
    if kondisi1 then
       pernyataan  
    else if kondisi2 then
       pernyataan
    else
       pernyataan
    end if

IF Tersarang
  
    if kondisi then
        if kondisilain then
           pernyataan
        else
           pernyataan
        endif
    end if  

Nah dari sekian banyak pemakaian If tersebut, if tunggal kurang baik di pakai dalam pemrograman.

Mengapa! Contoh kasus sederhana :)

Gol IIIA gaji -> 1000000
Gol IIIB gaji -> 2000000
Gol IIIC gaji -> 3000000

apabila dibuatkan di program dengan if Tunggal maka menjadi berikut ini :

if Gol='IIIA' then Gaji = 1000000
if Gol='IIIB' then Gaji = 2000000
if Gol='IIIC' then Gaji = 3000000

atau penulisannya begini :

if Gol='IIIA' then
   Gaji = 1000000
end if
if Gol='IIIB' then
   Gaji = 2000000
end if
if Gol='IIIC' then
   Gaji = 3000000
end if


Dari pernyataan tersebut program juga berjalan dengan baik, namun proses yang dilakukan 3 x pembandingan, dari membandingkan IIIA, IIIB sampai IIIC, dan anehnya walaupun sudah masuk ke golongan IIIB tetap golongan IIIC akan dibandingkan. Hasilnya kan Proses yang sia sia bukan?

Nah coba kalau kita ganti dengan IF Jamak

if Gol='IIIA' then
    Gaji = 1000000
else if Gol='IIIB' then
    Gaji = 2000000
else
    Gaji = 3000000
end if

Nah berikut ini merupakan logika yang benarnya, karna apabila sudah masuk ke salah satu pembandingan, misalnya IIIA, maka pembandingan yang IIIB dan IIIC tidak akan dilakukan. Berbeda bukan?

Namun....? Jangan puas dulu !

Bagaimana bila pengguna memasukkan nilai IIID ?

apa yang akan terjadi? tentu saja gaji menjadi 3000000. :) padahal 3000000 tersebut untuk golongan yang IIIC, Tentu logika program kita masih salah bukan?

Nah berikut perbaikannya

if Gol='IIIA' then
    Gaji = 1000000
else if Gol='IIIB' then
    Gaji = 2000000
else if Gol='IIIC' then
    Gaji = 3000000
else
    Gaji = 0
end if

Dari logika terakhir ini, jika selain IIIA, IIIB, IIIC maka gaji di set dengan nilai 0.


Berikut program dengan menggunakan program Visual Basic Net.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    ' memasukkan nilai IIIA, IIIB, IIIC ke combobox
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged    'Memproses Gaji
        If Golongan.Text = "IIIA" Then
            Gaji.Text = 1000000
        ElseIf Golongan.Text = "IIIB" Then
            Gaji.Text = 2000000
        ElseIf Golongan.Text = "IIIC" Then
            Gaji.Text = 3000000
        Else
            Gaji.Text = 0
        End If
    End Sub
End Class
Berikut program dengan menggunakan program Pascal

uses crt;
var
   gol   : string[4] ;
   gaji  : longint ;
begin
     clrscr ;
     write('Golongan  : ') ;readln(gol);

     if gol='IIIA' then
        gaji := 1000000
     else if gol='IIIB' then
        gaji := 2000000
     else if gol='IIIC' then
        gaji := 3000000
     else
        gaji := 0 ;

     writeln('Gaji      : ', gaji);
     readln ;
end.

Jika anda ingin menggunakan pemrograman Visual C# silahkan baca artikel Awal belajar Bahasa Pemrograman Menggunakan C Sharp

Ok ! Mudah mudahan penggunaan IF yang baik dalam visual basic net ataupun pascal bisa anda terapkan, baik dengan program Visual Basic Net ataupun program Pascal.

Tag : Penggunaan IF Yang Baik Dalam Visual Basic Net ataupun Pascal, Visual Basic Net, Tempat Download Program, Program Pascal, Belajar Bahasa Pemrograman