Cara Membuat Formulir Pendaftaran Online Mudah

Sebelumnya saya ucapkan selamat datang kepada blogger yang selalu berkreatif dan berinovatif untuk memperkaya buah tangan dalam dunia maya sebagai salah satu media dunia di kehidupan yang kedua.

Membahas mengenai blog atau website, tentu tidak terlepas dari bahasa HTML dan CSS, atau bahkan PHP dan SQL, serta bahasa lain dalam bidang informasi. (maaf saya belum begitu faham dengan bahasa dalam internet).

Untuk membuat sebuah formulir online, maka kita harus membuat formnya dulu, setelah itu kita pasang di webblog kita. So, sebelum membuat secara otomatis harus sudah punya account webblog sendiri.

Sebelumnya saya pernah membuat postingan mengenai cara membuat formulir pendaftaran diblog (itu dulu banget kala baru kenal dengan dunia blogger dan Om Google). Setelah merasa lebih kenal, dan menemukan cara baru yang mana kita tidak diharuskan mengerti bahasa HTML, hanya kita perlu bisa bahasa Asing.

Caranya cukup mudah, yaitu dengan memakai jasa layanan pihak penyedia pembuat form (gratis loh) yaitu mycontactform.com. Adapun caranya tinggal kunjungi dan login dulu (gratis untuk buat account).

Banyak variabel dan tahapan pembuatannya, akan tetapi hasil cukup memuaskan (untuk kelas gretongan/gratisan). Saya tidak banyak komen, silakan kunjungi situsnya. Selamat mencoba.

Selain situs yang saya perkenalkan kepada Anda di atas, ada beberapa situs yang juga menyediakan pembuatan Form (saya belum pernah mencoba, karena tunduh), antara lain:

1. 123contactform
2. formspring
3. Kontactr
4. Pagepow
5. email me form
6. Bravenet.com

Tutorial Blog

Download Mp3 Red_on Band

• Red_on - Seandainya.mp3
• Red_on - Indonesiakunew.mp3
  
• Red_on - Telkomsel.mp3
• Red_on - Kepastianmu.mp3
• Red_on - Indonesiaku.mp3
• Red_on - STM (Salahtingkahmu).mp3
• Red_on - DoakuBahagiamu.mp3
• Red_on - CintaSelamanya.mp3 

Musik

Operator PHP Perbandingan dan Logika

Tutorial PHP 10 : Operator PHP Perbandingan dan Logika

Untuk melengkapi ilmu kita tentang operator percabangan, kita perlu mengetahui di dalam if kita bisa memakai apa saja. Nah, untuk itu kita akan mempelajari tentang operator. Siap ?

Kita sudah melihat bagaimana penggunaan tanda “=” saat kita mengisi variabel dalam skrip yang sudah kita tulis (misalnya $WarnaFavorite=”biru”). Tanda sama dengan tersebut disebut dengan “assignment operator” dan merupakan operator paling sederhana yang sudah kita miliki: $a = b berarti “variabel a diisi dengan nilai b (untuk saat ini)”.

Tetapi anda dapat memperoleh lebih banyak dari PHP dengan apa yang disebut dengan “comparison operator” (operator perbandingan) , “logical operator” (operator logika) dan “arithmetic operator” (operator aritmatika). Berikut adalah operator-operator tersebut diambil dari PHP.net

Operator Perbandingan

Operator ini membuat anda bisa melakukan pembandingan apakah beberapa elemen sama, identik, kurang dari atau lebih besar dari yang lain.

Contoh	Name	Result
$a == $b	Sama dengan	BENAR jika $ a sama dengan $b.
$a === $b	Identik	BENAR jika $a sama dengan $b, dan keduanya memiliki tipe yang sama.
$a != $b	Tidak sama dengan	BENAR jika $a tidak sama dengan $b.
$a <> $b	Tidak sama dengan	BENAR jika $a tidak sama dengan $b.
$a !== $b	Tidak identik	BENAR jika $a tidak sama dengan $b, atau tidak memiliki tipe yang sama.
$a < $b	Kurang dari	BENAR jika $a kurang dari $b.
$a > $b	Lebih besar dari	BENAR jika $a lebih besar dari $b.
$a <= $b	Kurang dari atau sama dengan	BENAR jika $a kurang dari atau sama dengan $b.
$a >= $b	Lebih besar dari atau sama dengan	BENAR jika $a lebih besar dari atau sama dengan $b.

Kesalahan yang cukup sering saya lakukan adalah menggunakan operator assignment (“=”) untuk membandingkan, sehingga untuk mambandingkan apakah 2 variabel sama atau tidak dalam sebuah percabangan saya tuliskan:

If ($a = $b)

Yang seharusnya

If ($a == $b)

Operator Logika

Di sini anda dapat membandingkan elemen-elemen menggunakan pembandingan logika and dan or.

Try This: 4 Langkah Mudah Belajar Cara Membuat Website, Langsung Praktek! KLIK DI SINI!.

Contoh	Nama	Hasil
$a and $b	And	BENAR jika baik $a dan $b keduanya BENAR.
$a or $b	Or	BENAR jika salah satu dari $a atau $b BENAR.
$a xor $b	Xor	BENAR jika salah satu dari $a atau $b BENAR, tetapi tidak keduanya.
! $a	Not	BENAR jika $a tidak BENAR.
$a && $b	And	BENAR jika baik $a dan $b keduanya BENAR.
$a || $b	Or	BENAR jika salah satu dari $a atau $b BENAR.

Operator Aritmatika

Persis seperti namanya, operator ini melakukan matematika dasar (artinya, kalau anda menginginkan operasi matematika lainnya misalnya integral atau differensial ya harus bikin sendiri, lagian siapa yang mau pake ya?)

Contoh	Nama	Hasil
$a + $b	Penjumlahan	Jumlah $a dan $b.
$a – $b	Pengurangan	Selisih $a dan $b.
$a * $b	Perkalian	Perkalian $a dan $b.
$a / $b	Pembagian	Pembagian $a dan $b.
$a % $b	Modulus	Sisa $a dibagi $b.

OK, sampai di sini dulu untuk urusan operator ini. Nest, kita akan belajar tentang Loop.

PHP

Download Software Resetter Canon IP 2770 dan Cara Menggunakannya

Software Resetter Canon IP 2770 dan Cara Menggunakannya.  

Sebelumnya pernah juga di bahas tentang resetter canon namun yang dulu adalah Resetter Canon IP 1980 atau Resetter Canon 1900.  Kali ini saya coba ulas juga Cara Reset Canon IP 2770 atau Reset Canon IP 2700.

Reset Canon IP 2770 / 2700 Error 5B00
Sebelumnya Download terlebih dahulu Download Restter canon iP2770 v.1074 melalui link berikut:

Download Software Resetter Canon IP 2770 : Klik Disini

Selanjutnya kita harus jadikan Printer Canon IP 2700 dalam keadaan Service Mode caranya:

1. Printer dalam keadaan mati dan kabel listrik terpasang.
2. Tekan tombol RESUME 2 detik
3. Kemudian tekan tombol POWER sampai lampu hijau nyala (saat menekan tombol POWER, ...tombol RESUME jgn dilepas dulu)
4. Kemudian lepas tombol RESUME, tapi jangan lepas tombol POWER.
5. Sambil tombol POWER masih tertekan, tekan tombol RESUME 5 kali. Led akan menyala bergantian orange hijau dengan nyala terakhir orange. (jangan sampai keliru 4x karena printer akan mati total, tapi sifatnya sementara juga) Kemudian ...
6. Lepaskan kedua tombol bersamaan.
7. Led akan blink sebentar kemudian akan nyala HIJAU.
8. Komputer akan mendeteksi device baru, abaikan saja .....
9. Keadaan ini menunjukkan printer iP2770 dalam keadaan SERVICE MODE dan siap direset.

Setelah Printer Canon IP 2700/2770 telah berada dalam Service Mode maka kita lanjutkan dengan menggunakan software resetter caon IP 2770 yang telah di download sebelumnya, cara sebagai berikut:

1. Exctract File Resetter iP2770.
2. Siapkan 2 kertas di printer (ini untuk print pada waktu proses reset).
3. Jalankan program Resetter iP2770
4. Klik "MAIN", maka printer akan berproses, kemudian iP2770 akan print satu halaman dengan tulisan " D=000.0 "
5. Klik " EEPROM Clear ".
6. Kemudian klik " EEPROM ", dan printer akan print hasil Resetter iP2770. Salah satu barisnya tulisannya sbb:  "TPAGE(TTL=00000)"

1. Matikan Printer dengan menekan tombol POWER.
2. Selesai...

Resetter Canon IP2770 / IP 2700 Error 5200

Indikasi Awalnya adalah sebagai berikut :
Ketika iP2770 ini dinyalakan, printer kelihatan normal dengan LED nyala HIJAU. Tapi setelah diperintah untuk melakukan pengeprinan, maka error 5200 akan muncul, dan LED akan ngeblink bergantian hijau 1x orange 8x …

Berikut Cara Reset Canon IP2770 Error 5200 :

1. Matikan Tombol Power Printer, namun dengan kondisi kabel listrik terpasang.
2. Tekan tombol RESUME 2 detik, kemudian tekan tombol POWER sampai lampu hijau nyala (saat menekan tombol POWER,tombol RESUME jgn dilepas dulu)
3. Kemudian lepas tombol RESUME, tapi jangan lepas tombol POWER.
4. Sambil tombol POWER masih tertekan, tekan tombol RESUME 5 kali. Led akan menyala bergantian orange hijau dengan nyala terakhir orange. (jangan sampai keliru 4x karena printer akan mati total, tapi sifatnya sementara juga)
5. Lepaskan kedua tombol bersamaan.
6. Led akan blink sebentar kemudian akan nyala HIJAU.
7. Dan Komputer akan mendeteksi hardware baru, abaikan saja…
8. Tekan tombol POWER, maka printer akan mati.
9. Tekan lagi tombol POWER maka printer akan nyala dan … PRINTER iP2770 sudah siap digunakan.

Download Software Resetter Canon IP 2700

1. Windows 7, download. 
2. Windows 7 (x64), download
3. Windows Vista, download
4. Windows Vista (x64), download
5. Windows XP, download
6. Windows XP (x64), download

Software

Cara Membuat Stop Watch Dengan VB

Buatlah Sebuah Form Seperti Pada Gambar.

Setelah Membuat Tampilan Seperti pada Gambar, Masukan Listing Program Berikut:
Option Explicit
Private Sub Command1_Click()
Select Case Command1.Caption
Case “Start”
Timer1.Enabled = True
Command1.Caption = “Stop”
Case “Stop”
Timer1.Enabled = False
Command1.Caption = “Start”
End Select
End Sub
Private Sub Timer1_Timer()
text1.Text = text1.Text + 1
End Sub
Private Sub text1_Change()
If text1.Text = “59″ Then
text1.Text = “00″
text2.Text = text2.Text + 1
End If
text1.Text = Format(text1.Text, “00″)
End Sub
Private Sub txt2_Change()
If text2.Text = “59″ Then
text2.Text = “00″
text3.Text = text3.Text + 1
End If
text2.Text = Format(text2.Text, “00″)
End Sub
Private Sub txt3_Change()
text3.Text = Format(text3.Text, “00″)
End Sub

Visual Basic

Menggabungkan Visual basic dengan Database MS acces

Lalu pada properties window pilih recordsource, lalu klik kotak ”…”. Maka akan muncul window property pages. Pada kolom command type ubah ke 2-adCmd table, dan pada table or stored procedure name ubah ke pegawai. Lalu klik OK

Lalu pindah k form2.

Klik ke text1, lalu pada properties window pilih data source ubah menjadi Data 1 dan pada data field  ubah sesuaikan dengan caption pada label di sebelah textnya. “NAMA” ulangi lagi pada text2 dan text3.

Lalu klik ke Data1. properties window pilih data base name. lalu klik kotak “…” lalu open pada file data base yang kita save tadi. Dan record sourcenya ubah menjadi pegawai.

kemudian pada form1 buat kodingan seperti ini...

kemudian pada form2 buat codingan seperti ini..

kemudian anda RUN maka akan tercipta output seperti ini..

dan ketika tombol next diclick maka akan tamapil output seperti ini...

Anda bisa menambahkan nama pada field field tersebut dengan mengklik tombol add

dan anda bisa menghapus nama pada field dengan tombol delete..

selamat mencoba semoga berhasil..

Selaku pribadi saya mohon maaf semua penjelasan saya dari awal sampai akhir tentu saja banyak kesalahan atau banyak penjelasan yang kurang dimengerti dan anda bisa mencari referensi melalui buku atau internet jika anda ingin lebih jelas lagi.

Visual Basic

Membuat Mesin Hitung BBM dengan VB

1.Buatlah sebuah program dengan menggunakan Control Structure dan pilih tipe data yang sesuai untuk merancang sebuah pompa BBM.

Dengan Ketentuan Sebagai berikut :

• Jika jenis BBM dipilih/diklik maka Harga/liter langsung muncul
• Hanya jumlah liter yang diinput, total liter dikeluarkan dan total bayar dihitung berdasarkan timer (setiap 10 mili detik dikeluarkan 1 liter)
• Jika tombol 'isi' diklik, maka tombol stop hidup, tombol 'isi' dan 'kosongkan' mati, progres bar berjalan sesuai dengan jumlah liter dan harga BBM yang dikeluarkan
• ScrolBar menunjukkan isi tangki, pertama sekali tangki dianggap penuh dan setiap kali pengeluaran dikurangi jumlah yang dikeluarkan
• Jika tombol 'stop' diklik, maka tombol 'isi' dan 'kosongkan' hidup.
• Jika tombol 'Kosongkan' diklik, maka reset pompa BBM ke awal, tombol 'isi' hidup, tombol 'stop' mati dan tombol 'kosongkan'[ mati.

a. gambar desain form 1 (sebelum dijalankan) :

Source Code :
Public Class Form3
    Structure BBM
        Public jumMinyakTanah As Single
        Public jumPremium As Single
        Public jumSolar As Single
        Public jumPertamax As Single
        Public jumAftur As Single
    End Structure

    Structure Harga
        Public hMinyakTanah As Single
        Public hPremium As Single
        Public hSolar As Single
        Public hPertamax As Single
        Public hAftur As Single
    End Structure

    Private b As BBM
    Private h As Harga

    Sub setDefaultTangki()
        b.jumMinyakTanah = 100
        b.jumPremium = 100
        b.jumSolar = 100
        b.jumPertamax = 100
        b.jumAftur = 100

        h.hMinyakTanah = 4800
        h.hPertamax = 7000
        h.hPremium = 4500
        h.hAftur = 2500
        h.hSolar = 5000
    End Sub

    'Deklarasi variable
    Dim maxScroll, minScroll, scrollValue, HargaLiter As Single
    Dim beliLiter, beliNominal As Single
    Dim radioStatus As String
    Dim nowKondisi As Single
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.setDefaultTangki()

        'Set Scroll
        Me.maxScroll = b.jumMinyakTanah
        Me.minScroll = 0

        'Set Max, min and value of Scrollbar
        Me.vsbTotLiter.Maximum = Me.maxScroll
        Me.vsbTotLiter.Minimum = Me.minScroll
        Me.vsbTotLiter.Value = 0
        'Set Harga Jual
        Me.txtHarga.Text = h.hMinyakTanah
        Me.radioStatus = "Minyak Tanah"

    End Sub


    Private Sub rdBBM_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdBBM1.CheckedChanged, rdBBM2.CheckedChanged, rdBBM3.CheckedChanged, rdBBM4.CheckedChanged, rdBBM5.CheckedChanged
        Dim obj As RadioButton
        For Each obj In Me.grbBBM.Controls
            If obj.Checked Then
                If obj.Text.Equals("Minyak Tanah") Then
                    Me.scrollValue = b.jumMinyakTanah
                    Me.HargaLiter = h.hMinyakTanah
                    Me.radioStatus = "Minyak Tanah"

                ElseIf obj.Text.Equals("Premium") Then
                    Me.scrollValue = b.jumPremium
                    Me.HargaLiter = h.hPremium
                    Me.radioStatus = "Premium"
                ElseIf obj.Text.Equals("Solar") Then
                    Me.scrollValue = b.jumSolar
                    Me.HargaLiter = h.hSolar
                    Me.radioStatus = "Solar"
                ElseIf obj.Text.Equals("Pertamax") Then
                    Me.scrollValue = b.jumPertamax
                    Me.HargaLiter = h.hPertamax
                    Me.radioStatus = "Pertamax"
                ElseIf obj.Text.Equals("Aftur") Then
                    Me.scrollValue = b.jumAftur
                    Me.HargaLiter = h.hAftur
                    Me.radioStatus = "Aftur"
                Else
                    Me.scrollValue = 100
                End If
            End If
        Next

        Me.maxScroll = Me.scrollValue
        Me.minScroll = 0

        nowKondisi = 100 - Me.maxScroll
        'Set Max, min and value of Scrollbar
        Me.vsbTotLiter.Maximum = Me.maxScroll
        Me.vsbTotLiter.Minimum = Me.minScroll
        Me.vsbTotLiter.Value = nowKondisi

        'Set Harga Jual
        Me.txtHarga.Text = Me.HargaLiter
    End Sub

    Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
        Me.prbIsi.Value = 0
        Me.beliLiter = Val(Me.txtIsiLiter.Text)
        Me.prbIsi.Maximum = Me.txtIsiLiter.Text
        If Me.txtIsiLiter.Text > Me.maxScroll And Not Me.txtIsiLiter.Text.Equals(Me.maxScroll) Then
            MsgBox("Maaf BBM Kosong.")
        Else
            Me.Timer1.Start()
        End If
        Me.btnIsi.Enabled = False
        Me.btnKosong.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.prbIsi.Value < Me.prbIsi.Maximum Then
            Me.prbIsi.PerformStep()
            Me.txtStatusLiter.Text = Me.prbIsi.Value
            Me.txtStatusHarga.Text = Me.prbIsi.Value * Me.txtHarga.Text
            Me.minScroll += 1
            Me.vsbTotLiter.Value = Me.minScroll
        Else
            Me.Timer1.Stop()
            If radioStatus.Equals("Minyak Tanah") Then
                b.jumMinyakTanah = b.jumMinyakTanah - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Premium") Then
                b.jumPremium = b.jumPremium - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Solar") Then
                b.jumSolar = b.jumSolar - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Pertamax") Then
                b.jumPertamax = b.jumPertamax - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Aftur") Then
                b.jumAftur = b.jumAftur - Me.txtIsiLiter.Text
            End If
        End If
        Me.maxScroll = Me.maxScroll - Me.minScroll
    End Sub

    Private Sub btnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click
        Me.txtIsiLiter.Text = ""
        Me.txtStatusHarga.Text = ""
        Me.txtStatusLiter.Text = ""
        Me.prbIsi.Value = 0
        Me.btnIsi.Enabled = True
    End Sub
End Class


a. gambar desain form 1 (setelah dijalankan) :

Visual Basic

Membuat Loading Pada Form visual basic

Tanpa bertele-tele, berbelit-belit, dan tanpa yg lainnya saya akan menjelaskan cara membuat progress bar sederhana dengan VB6.

• Buka Visual Basic 6.0, setelah itu pilih form standar.exe
  
• Pada properties form, ganti captionnya menjadi, Progress Bar
• Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini :

• Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
• Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini :

• Setelah itu klik 2 kali pada Timer1
• Lalu, masukkan ini :

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If

End Sub

• Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
• Ganti intervalnya menjadi 100
• Kemudian coba compile dengan menekan tombol play.
• Jika berhasil tampilannya seperti ini:

Kalo bisa jalan /gak bisa jalan programnya, kasih komentar aja ke saya, ntar saya bales. Yang cm lihat2 kalo bs kasih jg comment ke saya. Makasih.

Visual Basic

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar disamping.




Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Visual Basic