√ Memecah Tanggal Pada Date Timepicker

Bismillah..

Anda tau Bahasa Pemrograman kan? Kalo gitu niscaya udah gak abnormal lagi dengan bahasa pemrogram Microsoft Visual Studio  atau aku sebut saja vb dot net. Yang pernah aku denger nih konon katanya ada  Microsoft Visual Studio 5, Microsoft Visual Studio 8, Microsoft Visual Studio 10, dan Microsoft Visual Studio 13. (versi terserah agan, yang aku gunakan pada aplikasi ini Microsoft Visual Studio versi 10).

Kadang kala dikala kita ngoding selalu ada saja masalah, entah dilema discriptnya, maupun dilema dialur programnya. Semua itu butuh keuletan dan ketekunan, daaaaaan yang pastinya selain itu juga butuh “GURU” untuk memperlihatkan klarifikasi sehingga kita gampang dalam memahami terkait dengan dilema yang sedang kita hadapi dan bagaimana cara pemecahan masalanya. “Guru” jaman kini tak hanya dalam wujud manusia, tapi dapat juga dalam bentuk blog ibarat ini, bahkan ada guru yang tak berwujud sama sekali...PENGALAMAN namanya. Hehehe....jangan terlalu serius.

Oke oke . . . .

Kali ini aku akan menyebarkan perihal bahan pemrograman vb.net, ialah perihal cara split tanggal (memecah tanggal) pada Date TimePicker menjadi hari, tanggal, bulan dan tahun pada object textbox. Hal ini terinspirasi dari beberapa penanya di vorum vb.net yang pernah aku temui. 

Saya anggap para agan sudah memahami perihal apa itu toolbox beserta dengan objek-objeknya (terutama objek-objek yang sering digunakan), selain itu juga sudah memahami cara merubah properties nya sesuai dengan kebutuhan.

Baiklah . . . .

Berikut ini langkah-langkahnya:

Untuk menciptakan aplikasi ini silahkan para agan masuk ke Microsoft Visual Studionya masing-masing...

1. Desain Form
Silahkan tempelkan objek Label, Date TimePicker, dan Textbox pada design Form1
Bisa di lihat ibarat tampilan gambar di bawah ini:

Selanjutnya...

2. Setting Properties

Setelah itu setting masing-masing objek pada bab properties ibarat di bawah ini:

Setelah itu...

3. Ketik Coding

Berikut ini script/coding yang di tuliskan pada view code.

Public Class Form1

    Private Sub DTP_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP.ValueChanged

        TxtHari.Text = Format(DTP.Value, "dddd")

        TxtTgl.Text = Format(DTP.Value, "dd")

        TxtBulan.Text = Format(DTP.Value, "MMMM")

        TxtTahun.Text = Format(DTP.Value, "yyyy")

    End Sub

End Class

Haaaaaahhhh.... codingnya gini doang.

Iya, yang sederhana kalo gak tau kadang menyulitkan...bahkan bikin stresssss...

4. Contoh aplikasinya

Untuk lebih terang lagi, silahkan di coba referensi aplikasi yang sederhana ini....

donlot disini aja...

Demikian postingan yang dapat aku share kali ini, banyak kekurangan sudah pasti. Sudah dapat menyebarkan menjadi kebahagiaan tersendiri. Semoga berkah. Aamiiiin....

InsyaAllah ketemu lagi di postingan berikutnya.....

Sumber http://pabaiq.blogspot.com

√ Menciptakan Runing Text Pada Vb.Net

Bismillah....

Alhamdulillah, kita masih sanggup dipertemukan meski hanya di dunia maya. 

Setelah beberapa hari yang kemudian aku memposting perihal split tanggal pada date timepicker, maka kali ini aku akan menyebarkan perihal bahan yang berdasarkan aku cukup menarik, bahkan dulu dikala pertama kali aku berguru perihal vb dot net, bahan ini yang aku cari di mbah google, meski dengan hasil yang sangat minim pada waktu itu, namun Alhamdulillah sanggup juga akhirnya. 

Maka dari itu aku akan coba menyebarkan kepada para agan yang mungkin sedang mencari-cari perihal postingan ini. Yang mungkin juga sempat galau.... (seperti aku waktu dulu.....)

Mau posting apaan sih? Lama bangeuuuut....

Sabar gan....

Ingeeeet, sabar itu temennya subur....taukan sabar subur... nah ntu dari nama mereka berdua. Eeeeh... maaf malah nglantur.

Kuy kita mulai.....

Kali ini aku akan coba menyebarkan bahan vb.net perihal runing text (red: teks berjalan), pernah denger kan? Atau mungkin pernah lihat. Atauuuuu mungkin juga pernah nyoba bikin dan gak pernah jadi-jadi....(pengalaman aku itu mah) disitulah kadang aku merasa vb.net itu sangat kejam.

Nah..... kini kuy kita coba buat di vb.net.

Emang bisa?

Ya sanggup lah..... masa basi....emang sayur kemaren.

Gimana sih tahapannya?

Kuy kita lihat pase demi pase, tahap demi tahap, dan step by step bagaimana cara membuatnya.

Early (red: yang paling awal) jangan lupa para agan masuk dulu ke dalam Microsoft Visual Studionya (vb.net yang ada di PC masing-masing)

Sudaaaah...?

Oke kita lanjut....

1. Design Form

Setelah vb.net tampil, maka tahap selanjutnya ialah mendesai form sesuai selera, dan boleh nyontek ibarat form di bawah ini...

 Kalo sudah di design formnya maka selanjutnya....

2. Setting Properties
Sebetulnya setting properties boleh sesuai selera, tapi kalo butuh contekan monggo lihat tabel di bawah ini....

Cuman gini aja settingan propertiesnya, mudah kan? gak pake ribet-ribet, nah berikutnya....

3. Ketik Coding

Codingnya sambil di pahami ya, jangan asal copas saja, soalnya coding runing text ini agak panjangan sedikit dari postingan perihal split tanggal pada date timepicker, bisa-bisa malah BUG nanti. (aaaaaahhh tidaaaaak)... nah repot (bukan report) ya kan?

Public Class Form5

    Dim kalimat As String

    Dim panjang As Integer

    Dim jalan As Boolean

    Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs)

        jalan = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If jalan Then

            kalimat = Microsoft.VisualBasic.Right(kalimat, panjang - 1) & _

                Microsoft.VisualBasic.Left(kalimat, 2)

            Label1.Text = kalimat

            Label1.Refresh()

        Else

            Timer1.Enabled = False

        End If

        Me.Text = Microsoft.VisualBasic.Right$(Me.Text, Len(Me.Text) - 1) + Microsoft.VisualBasic.Left$(Me.Text, 1)

    End Sub

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

        If Button1.Text = "&Stop" Then

            Button1.Text = "&Run"

            Timer1.Enabled = False

        Else

            Button1.Text = "&Stop"

            Timer1.Enabled = True

        End If

    End Sub

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

        If Button2.Text = "&Text 1" Then

            Button2.Text = "&Text 2"

            kalimat = "  hEBAT eUY                             "

        Else

            Button2.Text = "&Text 1"

            kalimat = "  kEUREEEEEEN                            "

        End If

    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        jalan = True

        kalimat = "  Anda Sedang Belajar VB Net                             "

        panjang = Len(kalimat)

        Label1.Text = kalimat

        Label1.Refresh()

        Timer1.Enabled = True

    End Sub

End Class

Segini sudah cukup codingnya, kalo mau rujukan aplikasinya, agan sanggup lihat exe nya di tahapan selanjutnya....monggo di unduh.....

4. Contoh Aplikasinya

Berikut ini rujukan aplikasi runing text dalam bentuk exe, silahkan di unduh....

disini aja...

Alhamdulillah, kita dah sampe tahap simpulan dengan selamat, supaya bermanfaat,  postingan perihal runing text ini. Banyak kekurangan dan kesalahan, pasti. Sudah sanggup menyebarkan dengan para agan sudah menciptakan aku bahagia, supaya bermanfaat. 

InsyaAllah bertemu di lain kesempatan, masih di gelombang dan frekwensi yang sama tentunya, dengan postingan-postingan lainnya....

Wassalaaaam.

Sumber http://pabaiq.blogspot.com

√ Amicable Number Pada Vb.Net

Bismillah....

Pada postingan kali ini, saya tergelitik dengan pertanyaan seorang murid mengenai bagaimana script / coding Amicable Number pada vb.net?

Alhasil saya coba cari beberapa artikel rujukan wacana amicable number, dan balasannya Emeziiiiiing. Banyak di buat dalam bahasa Inggris. Hanya ada beberapa artikel berbahasa Indonesia, itupun belum ada yang membahas wacana bagaimana jikalau persamaan amicable number dituangkan dalam sebuah bahasa pemrograman, terutama vb.net.

Sebelum kita mengupas tuntas coding amicable number pada vb.net, ada baiknya kita pelajari terlebih dahulu apa itu amicable number.

Apa itu Amicable Number?

Amicable number merupakan dua buah bilangan yang berbeda, yang mana bilangan ke satu merupakan penjumlahan dari bilangan-bilangan pembagi (faktro dari) bilangan kedua. Dan bilangan kedua merupakan penjumlahan dari bilangan-bilangan pembagi (faktor dari) bilangan pertama. 

Contoh bilangan yang termasuk amicable number yaitu  220 dan 284. Sekarang kita akan menandakan bahwa kedua bilangan tersebut yaitu 220 dan 284 termasuk kedalam amicable number.

Faktor dari (bilangan pembagi dari) 220 ialah 1, 2, 4, 5, 10, 11, 20, 22, 44, 55 dan 110. Jika kita jumlahkan pembagi-pembagi tersebut maka hasilnya:

1 + 2 + 4 + 5 + 10 + 11 + 20 + 22 + 44 + 55 + 110 = 284

Faktor dari (bilangan pembagi dari) 284 ialah 1, 2, 4, 71, dan 142. Jika kita jumlahkan pembagi-pembagi tersebut maka hasilnya:

1 + 2 + 4 + 71, + 142 = 220

Jika melihat hasil jumlah dari masing-masing pembagi dari bilangan 220 dan 284 maka TERBUKTI bahwa bilangan 220 dan 284 termasuk amicable number.

Teori ini (Amicable Number) pertama kali dikemukakan oleh seorang Matematikawan Muslim yang berasal dari Turki. Dia berjulukan Al-Sabi’ Thabit ibn Qurra al-Harrani atau lebih dikenal dengan sebutan Thabit ibn Qurra atau disebut Thebit jikalau dalam bahasa Latin. 

Al-Sabi’ Thabit ibn Qurra al-Harrani mengarang sebuh kitab yang berjudul Al-A’dad Al-Mutahabbat yang di dalamnya mengemukakan wacana rumus untuk mencari amicable number. Bunyi dari rumus tersebut dikenal dalam dunia keilmuan dengan istilah Teorema Thabit yaitu:

Jika p, q dan r merupakan bilangan-bilangan prima yang memenuhi persamaan:

p = 3 * 2 ^ (n – 1) – 1

q = 3 * 2 ^ n – 1)

r = 9 * 2 ^ (2n – 1) – 1

dengan n ialah anggota dari bilangan lingkaran lebih dari 1 ( n > 1, n anggota bilangan bulat)

dari persamaan di atas, maka:

(2 ^ n) * p * q dan 2 ^ n * r merupakan bilangan-bilangan amicable number.

Baca juga : Fungsi Logika IF

Baiklah....

Setelah kita pelajari teori dan teorema/persamaan wacana amicable number, kini bagaimana cara mengetahui bilangan-bilangan yang termasuk ke dalam amicable number dengan memakai aplikasi vb.net menurut pada teorema/persamaan amicable number di atas.

Kita ikuti langkah-langkah berikut:

1. Masuk ke dalam aplikasi vb.net

2. Silahkan design interface ibarat gambar di bawah ini:

3. Kemudian lakukan setting properties pada textbox

        No. 1 Textbox1 menjadi TxtInputN

        No. 2 Textbox2 menjadi TxtNilaiP

        No. 3 Textbox3 menjadi TxtNilaiQ

        No. 4 Textbox4 menjadi TxtNilaiR

        No. 5 Textbox5 menjadi TxtBil1

        No. 6 Textbox6 menjadi TxtBil2

4. Setelah setting properties selesai, maka selanjutnya kita ketikkan codingnya

Double Click pada TxtInputN, lalu ketik coding di bawah ini:

           

TxtNilaiP.Text=3*2^(Val(TxtInputN.Text)-1)-1

TxtNilaiQ.Text=3*2^Val(TxtInputN.Text)-1

TxtNilaiR.Text=9*2^(2*Val(TxtInputN.Text)-1)-1

TxtBil1.Text=(2^Val(TxtInputN.Text))*Val(TxtNilaiP.Text)*Val(TxtNilaiQ.Text)

TxtBil2.Text=2^Val(TxtInputN.Text)*Val(TxtNilaiR.Text)

5. Setelah selesai, lalu coba input nilai N pada TxtInputN, dengan syarat n > 1 dan n anggota bilangan bulat.

6. Hasilnya akan tampak ibarat berikut ini:

Demikian postingan kali ini dan terimakasih sudah berkunjung, agar sanggup memperlihatkan sedikit pencerahan wacana Amicable Number.

Sumber http://pabaiq.blogspot.com

√ Menyimpan Gambar Dengan Vb.Net Dan Mysql

Bismillah...

Adakalanya dikala dalam pembuatan sebuah aplikasi dengan VB.NET, data yang disimpan ke dalam database tidak hanya dalam bentuk teks dan angka saja. Akan tetapi ada beberapa inputan yang di dalamnya terdapat data dalam bentuk gambar, semisal Foto dan lain sebagainya.

Apakah dengan VB.NET sanggup menyimpan data dalam bentuk gambar?

Jika anda sedang mencari tanggapan dari pertanyaan di atas, berarti anda sedang berada pada blog yang tepat. Karena pada postingan kali ini kita akan berguru ihwal bagaimana menyimpan gambar pada VB.NET dengan memakai database MYSQL.

Baca juga : Amicable Number

Baca juga : Fungsi IF And dan IF Or

Tanpa berlama-lama lagi, silahkan ikuti langkah-langkah berikut ini:

Pastikan sudah terinstall myconector odbc nya,  saya memakai versi 3.51 . Jika belum silahkan d0wnl0ad dulu disini unduh myconnector odbc 3.5.1

1. Buat database gres pada MySQL dengan nama simpangambar

2. Kemudian buat tabel dengan nama tbgambar dan jumlah filed 3

3. Setelah itu rancang tabel dengan mengeketikan nama-nama filed yang dibutuhkan, ibarat terlihat pada pola gambar di bawah ini:

  

4. Klik simpan jika sudah final pembuatan rancangan tabelnya

5. Setelah database final dibuat, kita masuk ke aplikasi VB.NET

6. Setelah Form1 terbuka, lakukan design interface ibarat tampak pada gambar di bawah ini:

7. Kemudian lakukan setting propertis, baca klarifikasi di bawah ini:

No. 1 = Textbox1 dirubah Name=TxtKodeGbr 

No. 2 = Button1 dirubah Name=BtnPilih, Text=&Pilih

No. 3 = PictureBox dirubah Name=PctGbr

No. 4 = Textbox2 dirubah Name=TxtNamaGbr

No. 5 = Label3 dirubah Name=LblPath

No. 6 = Button2 dirubah Name=BtnSimpan, Text=&Simpan

No. 7 = OpenFileDialog1 (tidak usah dirubah)

8. Setelah setting properties selesai, maka selanjutkan yaitu mengetikkan codingnya, lihat dan pahami coding di bawah ini

Tambahkan module (klik sajian Project – Pilih Add Module) untuk mengetikkan variabel public dan coding koneksi ke databasenya. Setelah itu ketikkan coding di bawah ini:

Imports System.Data.Odbc

Module Module1

    Public konek As OdbcConnection

    Public da As OdbcDataAdapter

    Public ds As DataSet

    Public cmd As OdbcCommand

    Public rd As OdbcDataReader

    Public sql As String

    

    Sub Koneksi()

sql="driver={mysql odbc 3.51 driver};database=simpangambar; server=localhost; uid=root"

        konek = New OdbcConnection(sql)

        If konek.State = ConnectionState.Closed Then

            konek.Open()

        End If

    End Sub

End Module

Kemudian pada bab atas Public Class Form1 ketikkan coding berikut:

Imports System.Data.Odbc

Kemudian pada bab bawah Public Class Form1 ketikkan coding berikut:

Private PathFile As String = Nothing

Kemudian Double Click pada Form1 dan ketikkan nama sub koneksi yang kita buat pada modul

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Koneksi()

End Sub

Kemudian Double Click pada BtnPilih dan ketikkan codingnya, untuk menampilkan gambar pada PictureBox

Private Sub BtnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPilih.Click

   On Error Resume Next

  OpenFileDialog1.Filter="JPG Files(*.jpg)|*.jpg| JPEG Files(*.jpeg) |*.jpeg|GIF Files(*.gif)|*.gif|PNG Files(*.png)|*.png|BMP files(*.bmp)|*.bmp|"

  OpenFileDialog1.FileName = ""

  If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

    PctGbr.Image = New Bitmap(OpenFileDialog1.FileName)

    BtnPilih.Enabled = True

    PathFile = OpenFileDialog1.FileName

    TxtNamaGbr.Text=PathFile.Substring(PathFile.LastIndexOf("\")+1)

    LblPath.Text = OpenFileDialog1.FileName

    PctGbr.Image = Image.FromFile(LblPath.Text)

  End If

    PctGbr.Visible = True

End Sub

Kemudian buat Sub Bersih untuk membersihkan textbox dan label dikala disimpan

    

    Sub BERSIH()

        TxtKodeGbr.Clear()

        TxtNamaGbr.Clear()

        LblPath.Text = ""

        PctGbr.Hide()

    End Sub

Kemudian Double Click pada BtnSimpan untuk mengetikkan coding perintah menyimpan pada database

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click  

Try

  Sql="Insert into tbgambar(kode_gbr,nama_gbr,alamat)values(?,?,?)"

  Dim mycomm As OdbcCommand = New OdbcCommand(sql, konek)

  With mycomm.Parameters

    .Add("?", OdbcType.VarChar, 10).Value = TxtKodeGbr.Text.Trim

    .Add("?", OdbcType.VarChar, 50).Value = TxtNamaGbr.Text.Trim

    .Add("?", OdbcType.VarChar, 100).Value = LblPath.Text.Trim

  End With

  mycomm.ExecuteNonQuery()

  mycomm = Nothing

 MsgBox("Menympan gambar berhasil",MsgBoxStyle.MsgBoxSetForeground, "Save Gambar")

Catch ex As Exception

  MsgBox(ex.Message)

End Try

  BERSIH()

End Sub

Kemudian Double Click pada TxtKodeBrg, lalu ketikkan coding untuk menampilkan gambar sesuai dengan isyarat gambar yang diinput pada txtKodeGbr

Private Sub TxtKodeGbr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKodeGbr.TextChanged

sql = "select*from tbgambar where kode_gbr='" & TxtKodeGbr.Text & "'"

        cmd = New OdbcCommand(sql, konek)

        rd = cmd.ExecuteReader

        rd.Read()

        If rd.HasRows Then

            TxtNamaGbr.Text = rd.Item("nama_gbr")

            LblPath.Text = rd.Item("alamat")

            PctGbr.ImageLocation = rd.Item("alamat")

            PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

        Else

            TxtNamaGbr.Clear()

            LblPath.Text = ""

            PctGbr.Hide()

        End If

        PctGbr.Visible = True

End Sub

9. Jika semua tahapan telah diikuti dengan sebaik-baiknya, silahkan di running untuk menguji keberhasilan aplikasi ini, (input Kode gambar, Klik Pilih, kalau gambar sudah muncul klik simpan) ibarat pada gambar berikut:

10. Untuk menampilkan gambar yang sudah tersimpan, tinggal masukkan isyarat gambar yang sudah disimpan maka gambar akan muncul.

Baca juga : Array pada VB.NET

Demikian postingan kali ini yaitu ihwal menyimpan gambar pada VB.NET dengan database MySQL. Terimakasih sudah berkunjung biar bermanfaat.

Sumber http://pabaiq.blogspot.com

√ Menciptakan Calculator Pada Visual Basic 6.0

Bismillah....

Assalamu'alaikum mitra blogger semua, kali ini saya akan flash back ke beberapa tahun yang kemudian tepatnya sekitar tahun 2005, ketika saya mencar ilmu pertama kali wacana bahasa pemrograman dari seorang suhu yang kini dia aktif menjadi seorang programmer handal (gak saya sebutkan namanya takut GR). Awal-awal perkuliahan saya pada jenjang diploma satu jurusan Manajemen Informatika ketika itu, kami para mahasiswanya dibekali kemampuan untuk bisa menguasai beberapa Bahasa Pemrograman yang antara lain: Visual Fox Pro, M Foxplus, dan Visual Basic 6.0. Dengan aneka macam keterbatasan sarana yang ada, kami sangat bersemangat untuk menggali ilmu-ilmu pemrograman dari guru kami tersebut. Dari beberapa bahasa pemrograman yang kami pelajari pada ketika itu, yang intens kami pelajari ialah bahasa pemrograman Visual Basic 6.0. Kami diajari dari mulai mengenal objek-objek pada Visual Basic 6.0 hingga pada pemrograman tingkat yang kuasa (bahasa beliau) yang kadang otak kami gak sampe. (hehehe....maaf lemot)

Ada beberapa hal menarik dalam proses mencar ilmu pemrograman Visual Basic 6.0 yang kami lakukan, dan juga mungkin lumrah bagi para pemula yang gres pertama kali mencar ilmu wacana bahasa pemrograman, yaitu kami dituntut untuk ngoprek (bahasa beliau) untuk bisa lebih mendalami bahan wacana Visual Basic 6.0 yang dia sampaikan. Maka "ngalong" pun (red: mencar ilmu hingga larut malam) sering kami lakukan di kampus. Dari sekian banyak proses awal yang kami ikuti dalam mempelajari bahasa pemrograman Visual Basic 6.0 ini, ada materi-materi yang pada ketika itu, kami sangat antusias sekali dalam mempelajarinya, satu diantaranya ialah bahan wacana penerapan fungsi Aritmatika pada Visual Basic 6.0.  Seperti yang sudah kita pahami bahasa dalam pemrograman ada beberapa Fungsi yang mesti kita pahami salah satunya ialah Fungsi Aritmatika.

Bagi yang belum tahu, sedikit saya jelaskan wacana apa itu Fungsi Aritmatika?

Fungsi Aritmatika adalah salah satu fungsi dalam bahasa pemrograman yang di dalamnya terdapat proses perhitungan matematika dengan operasi hitung semisal penjumlahan, pengurangan, perkalian, pembagian, perpangkatan dll. 

Apa yang kami buat ketika itu, sehingga menciptakan kami sangat antusias?

CALCULATOR. Ya Membuat Calculator pada VB 6.0 menjadi hal yang sangat luar biasa berdasarkan kami pada ketika itu, alasannya kita bisa menciptakan kalkulator sendiri dengan design sesuai selera dan lain sebagainya.

Baiklah semoga tidak terlalu usang melihat masa lalu, alasannya hawatir ada hal-hal lain yang melintas (yang bikin baper) kita akan coba pribadi praktekkan bagaimana cara menciptakan Calculator pada VB 6.0 menyerupai apa yang sudah kami pelajari ketika itu. 

Silahkan ikuti langkah-langkahnya berikut ini:

      1. Buka aplikasi Visual Basic 6.0

      2. Siapkan  Form untuk design interface, menyerupai terlihat pada teladan gambar di bawah ini:

      3. Penjelasan gambar dan setting properties:

Kotak putih di atas = Textbox, Name = TxtHasil

Tombol angka 0 – 9 = CommandButton, Caption = 0 s/d 9, Name = CmdAngka  à (Tombolnya dijadikan Array dengan cara buat tombol angka nol (0) saja, kemudian di copy sehingga masing-masing button mempunyai name yang sama dan berindex, menjadi menyerupai CmdAngka(0), CmdAngka(1), CmdAngka(2), dst.)

Tombol Operator (+, -, ^, *, /) = CommandButton, Caption = dirubah sesuai simbol operator, Name = CmdOperator à (Tombolnya dijadikan Array dengan cara buat tombol dengan simbol penjumlahan (+) saja, kemudian di copy sehingga masing-masing button mempunyai name yang sama dan berindex, menjadi menyerupai CmdOperator(0), CmdOperator(1), CmdOperator(2), dst.)

Tombol sama dengan (=) = CommandButton, Caption = simbol (=), Name = CmdHasil

Tombol reset (tombol C) = CommandButton, Caption = abjad C, Name = CmdReset

4    Setelah design dan setting properties final dilakukan, maka selanjutnya kita masukkan codingnya di bab view code, silahkan ketikkan coding di bawah ini:

Ketik dibagian atas pada bab view code

  'Pendeklarasian Variabel Operator dan variabel array Angka

  Dim Angka(1 To 2) As Single

  Dim Operator As String

Doble Click pada CmdAngka (boleh yang mana saja alasannya kita memakai Array), kemudian ketik code di bawah ini:

  'Ketika cmdAngka di klik akan menampilkan angka pada txtHasil

  'sesuai caption cmdAngka yang di klik

  Private Sub cmdAngka_Click(Index As Integer)

     TxtHasil.Text = TxtHasil.Text + CmdAngka(Index).Caption

  End Sub

Doble Click pada CmdOperator(boleh yang mana saja alasannya kita memakai Array), kemudian ketik code di bawah ini:

      'Menentukan Operator yang digunakan

    'berdasarkan caption cmdOperator yang di klik

    Private Sub cmdOperator_Click(Index As Integer)

    If TxtHasil.Text = "" Then Exit Sub

          Angka(1) = CSng(TxtHasil.Text)

          Operator = CmdOperator(Index).Caption

          TxtHasil.Text = ""

    End Sub

Double Click pada CmdHasil (tombol sama dengan), kemudian ketik code di bawah ini:

   'Proses perhitungan

   'pendeklarasian variabel Hasil

   'melakukan operasi sesuai caption cmdOperator yang diklik

   'menampilkan karenanya di txtHasil

   Private Sub cmdHitung_Click()

      Dim Hasil As Single

      If TxtHasil.Text = "" Then Exit Sub

          Angka(2) = CSng(TxtHasil.Text)

          Select Case Operator

             Case "+"

               Hasil = Angka(1) + Angka(2)

             Case "-"

               Hasil = Angka(1) - Angka(2)

             Case "*"

               Hasil = Angka(1) * Angka(2)

             Case "/"

               Hasil = Angka(1) / Angka(2)

             Case "^"

               Hasil = Angka(1) ^ Angka(2)

      End Select

      TxtHasil.Text = Hasil

   End Sub

Double Click pada CmdReset (Tombol C), kemudian ketik code di bawah ini:

   'Mengosongkan txtHasil

   Private Sub cmdReset_Click()

      TxtHasil.Text = ""

   End Sub

            5. Setelah pengetikan coding selesai, silahkan coba Runing / di jalankan dan lakukan perhitungan.

Baca juga : Cara menyimpan gambar pada VB.NET

Demikian postingan wacana Membuat Calcualtor pada VB 6.0, semoga bermanfaat dan sanggup membantu dalam proses mencar ilmu pemrograman, khususnya bahasa pemrograman Visual Basic 6.0.

Sumber http://pabaiq.blogspot.com