Tutorial Visual Basic |Membuat Kalkulator

seobat, mungkin selama ini kita menggunakan kalkulator yang sudah ada aja ya...

ya pastinya, kan murah sekarang ada yang harga 15 ampe jutaan... tapi itu gak penting, yang penting sekarang kita pakai otak, gimana cara kita bisa buat kalkulator sendiri, kan enak tuh sobat....!!!!!!!!

langsung aja ya, saya akan bagi tips nya.

Langkah 1 => buka aplikasi VB

Langkah 2 => buat New Project

pertama buat format sbb :

kemudian sobat edit, ne dia tampilan properties nya, disamakan aja ya, karena akan berpengaruh dengan rumus nantinya, atau boleh juga sobat ganti, jangan lupa dengan rumus nya ya...!

get code .. == >

Langkah 3

Double klik pada area form, kemudian ketiklah kode berikut ini:

Dim Nilai1, Nilai2, Hasil As Double

Dim Operator As String

Langkah 4
Double klik pada tombol 0, kemudian ketiklah kode berikut ini:

Private Sub Cmd_0_Click()
If Txt_Angka = "0" Then
Txt_Angka = "0"
Else
Txt_Angka = Txt_Angka& "0"
End If
End Sub

Langkah 5

Double klik pada tombol 1, kemudian ketiklah kode berikut ini:

Private Sub Cmd_1_Click()
If Txt_Angka = "0" Then
Txt_Angka = "1"
Else
Txt_Angka = Txt_Angka& "1"
End If
End Sub

Langkah 6
Double klik pada tombol 2, kemudian ketiklah kode berikut ini:

Private Sub Cmd_2_Click()
If Txt_Angka = "0" Then
Txt_Angka = "2"
Else
Txt_Angka = Txt_Angka& "2"
End If
End Sub

Langkah 7
Double klik pada tombol 3, kemudian ketiklah kode berikut ini:

Private Sub Cmd_3_Click()
If Txt_Angka = "0" Then
Txt_Angka = "3"
Else
Txt_Angka = Txt_Angka& "3"
End If
End Sub

Langkah 8
Double klik pada tombol 4, kemudian ketiklah kode berikut ini:

Private Sub Cmd_4_Click()
If Txt_Angka = "0" Then
Txt_Angka = "4"
Else
Txt_Angka = Txt_Angka& "4"
End If
End Sub

Langkah 9
Ulangin langkah di atas untuk per masing-masing tombol dan fungsi aritmatika seperti tambah (+), kurang (-), kali (*), dan bagi (/).

Private Sub Cmd_5_Click()
If Txt_Angka = "0" Then
Txt_Angka = "5"
Else
Txt_Angka = Txt_Angka& "5"
End If
End Sub

Private Sub Cmd_6_Click()
If Txt_Angka = "0" Then
Txt_Angka = "6"
Else
Txt_Angka = Txt_Angka& "6"
End If
End Sub

Private Sub Cmd_7_Click()
If Txt_Angka = "0" Then
Txt_Angka = "7"
Else
Txt_Angka = Txt_Angka& "7"
End If
End Sub

Private Sub Cmd_8_Click()
If Txt_Angka = "0" Then
Txt_Angka = "8"
Else
Txt_Angka = Txt_Angka& "8"
End If
End Sub

Private Sub Cmd_9_Click()
If Txt_Angka = "0" Then
Txt_Angka = "9"
Else
Txt_Angka = Txt_Angka& "9"
End If
End Sub

Private Sub Cmd_Bagi_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 / Val(Txt_Angka)
End If
Operator = "/"
Txt_Angka = "0"
End Sub

Private Sub Cmd_C_Click()
Txt_Angka = "0"
Nilai1 = 0
Hasil = 0
Operator = ""
End Sub

Private Sub Cmd_Kali_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 * Val(Txt_Angka)
End If
Operator = "X"
Txt_Angka = "0"
End Sub

Private Sub Cmd_Kurang_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 - Val(Txt_Angka)
End If
Operator = "-"
Txt_Angka = "0"
End Sub

Private Sub Cmd_Mod_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 Mod Val(Txt_Angka)
End If
Operator = "MOD"
Txt_Angka = "0"
End Sub

Private Sub Cmd_Pangkat_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 ^ Val(Txt_Angka)
End If
Operator = "^"
Txt_Angka = "0"
End Sub

Private Sub Cmd_Sama_Dengan_Click()
If Operator = "^" Then
Hasil = Nilai1 ^ Val(Txt_Angka)
Txt_Angka = Hasil
ElseIf Operator = "X" Then
Hasil = Nilai1 * Val(Txt_Angka)
Txt_Angka = Hasil
ElseIf Operator = "/" Then
Hasil = Nilai1 / Val(Txt_Angka)
Txt_Angka = Hasil
ElseIf Operator = "MOD" Then
Hasil = Nilai1 Mod Val(Txt_Angka)
Txt_Angka = Hasil
ElseIf Operator = "+" Then
Hasil = Nilai1 + Val(Txt_Angka)
Txt_Angka = Hasil
ElseIf Operator = "-" Then
Hasil = Nilai1 - Val(Txt_Angka)
Txt_Angka = Hasil
End If
Nilai1 = 0
Operator = ""
End Sub


Private Sub Cmd_Sqr_Click()
Txt_Angka = Sqr(Txt_Angka)
End Sub

Private Sub Cmd_Tambah_Click()
If Nilai1 = 0 Then
Nilai1 = Val(Txt_Angka)
Else
Nilai1 = Nilai1 + Val(Txt_Angka)
End If
Operator = "+"
Txt_Angka = "0"
End Sub

Private Sub Cmd_Titik_Click()
Txt_Angka = Txt_Angka& "."
End Sub

Note:
Hati-hati jika meng-copy kode tersebut, karena ada beberapa kode yang akan berubah, jika terjadi kesalahan periksa kembali komponen kode tersebut, contohnya seperti tanda petik ( ” ” ) dan simbol kurang ( – ). Jika teks berwarna merah seperti ini :

Private Sub Cmd_Titik_Click()
Txt_Angka = Txt_Angka& ''."
End Sub

ini gambar sebagai contohnya ya sobat :

jika kode tersebut salah, cek kembali kode yang salah tersebut dan perbaikilah supaya aplikasi kalkulator anda berjalan dengan lancar.

Selamat mencoba!

Lanjutkan Membaca Artikel Lainnya, diantaranya :
Artikel Umum .1
Artikel Pendidikan .2
Artikel Komputer .3
Artikel Visual Basic .4
Artikel Pribadi-ku .5
Artikel Religion .6

 

Read More

Surat cintaku | "Totshe Penalba"

------------------------------------- English translate -----------

make: my lover.

I got a good story, but it makes me feel sad and hurt, which originated from facebook I found a beautiful woman named "Totshe Penalba" from the Phillipines ..!
I love him and I hope he likes me.
if the world is small, and he was right next to me, I would not be willing to part with it if ...

= ------ I Love U ----- =
until whenever I'll still love you,
because you have changed my life at this time,
I swear, once I do not like English.
but for your sake, I even harder to learn English.
if one day we could meet and with the permission of the Lord, then I would not stiff anymore.

= "Totshe Penalba" =
I pray for a speedy finish college, if God still give us time, we'll see.
I really really love you.
many who expressed her feelings with me, but I refused, just for you.

--- "I do not care what you like, I do not care you are beautiful or ugly, poor or word, that I need is your love true sincere love me with all your heart.

I write this expression of my love, that you know and the world knows that I do love you, forgive me because until now I have not been able to call you, because I am not fluent english.

Lord ... Take care of her for me, that now and till forever "---


from: adi.radinal always love you.

------------------------ The End -------------------------------


------------------- Indonesia Terjemahan ----------------------

buat : kekasih hatiku.

saya punya cerita bagus, tapi membuatku merasakan sedih dan terluka, dimana berawal dari facebook saya menemukan seorang wanita cantik bernama "Totshe Penalba" dari Phillipines..!
saya menyukai dia dan saya harap dia juga menyukai saya.
seandainya dunia ini kecil, dan dia ada disampingku, aku tak akan rela jika harus berpisah dengan nya...

=------ I Love U -----=
sampai kapan pun aku akan tetap mencintai kamu,
karena kamu telah mengubah hidupku saat ini,
sumpah, dulu saya tidak suka bahasa inggris.
tapi demi kamu, saya lebih giat lagi belajar bahasa inggris.
jika suatu saat kita bisa jumpa dan atas ijin TUHAN, maka aku tidak akan kaku lagi.

=" Totshe Penalba "=
Doakan saya untuk cepat menyelesaikan kuliahku, jika TUHAN masih beri kita waktu, kita akan bertemu.
sungguh aku sangat mencintai kamu.
banyak yang mengutarakan perasaanya sama saya, namun saya tolak hanya untukmu.

---"aku tidak peduli kamu seperti apa, aku tidak peduli kamu cantik atau jelek, miskin atau kata, yang aku butuhkan adalah cintamu yang benar tulus menyayangiku, dengan segenap hatimu.

kutuliskan ungkapan cintaku ini, agar kamu tahu dan dunia tahu kalau aku benar mencintai kamu, maafkan aku karena sampai saat ini aku belum bisa menelepon kamu, karena bahasa inggris saya belum lancar.

TUHAN... Jaga dia untukku, bahwasanya sekrang dan samapi selamanya"---


dari : adi.radinal yang selalu mencintaimu.

------------------------------- selesai -------------------------

Read More

Tutorial Vb |Membuat Biodata

setelah sekian kali saya coba buat aplikasi biodata menggunakan visual basic, akhirnya bisa juga.
untuk itu, saya akan share ne ma sobat semua,
semoga saja bermanfaat ya...:

ne uraian pembuatannya nya heeheeeee... *mg buat makalah...





buat format seperti gambar diatas...
menggunakan Label, Textbox, Command Button, Line, Check box, Option button, dll.

kemudian == > code :
copy + Paste kan code dibawah ini :

 Private Sub cmd_end_Click()
End
End Sub

Private Sub cmd_proses_Click()
  If opt_lk.Value = True Then
    jk = "Laki-laki"
    Else
    jk = "Perempuan"
    End If
    If c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 And c_php.Value And c_java.Value = 1 Then
        bahasa = c_basic.Caption & ", " & c_c.Caption & ", " & c_cplus.Caption & ", " & c_php.Caption & ", " & c_java.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 And c_php.Value Then
        bahasa = c_basic.Caption & ", " & c_c.Caption & ", " & c_cplus.Caption & ", " & c_php.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 Then
        bahasa = c_basic.Caption & ", " & c_c.Caption & ", " & c_cplus.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 Then
        bahasa = c_basic.Caption & ", " & c_c.Caption
    ElseIf c_basic.Value = 1 Then
        bahasa = c_basic.Caption
    ElseIf c_c.Value = 1 Then
        bahasa = c_c.Caption
    ElseIf c_cplus.Value = 1 Then
        bahasa = c_cplus.Caption
    ElseIf c_php.Value = 1 Then
        bahasa = c_php.Caption
    ElseIf c_java.Value = 1 Then
        bahasa = c_java.Caption
    Else
        bahasa = "tidak ada bahasa yang dikuasai"
    End If
    txt_resume.Text = "Nama lengkap : " + txt_nama.Text + vbCrLf + vbCrLf + "Tempat lahir : " + txt_tempat.Text + vbCrLf + vbCrLf + "Tanggal lahir : " + cmb_tgl.Text + "-" + cmb_bulan.Text + "-" + cmb_tahun.Text + vbCrLf + vbCrLf + "Jenis kelamin : " + jk + vbCrLf + vbCrLf + "Alamat : " + txt_alamat.Text + vbCrLf + vbCrLf + "Bahasa yang dikuasai : " + vbCrLf + bahasa
End Sub

untuk pengaturan Command button lihat code dibawah ini :

Private Sub cmd_refresh_Click()
  txt_nama.Text = ""
    txt_tempat.Text = ""
    cmb_tgl.Text = ""
    cmb_bulan.Text = ""
    cmb_tahun.Text = ""
    txt_alamat.Text = ""
End Sub

Untuk pengaturan command button_tanggal, bulan dan tahun, lihat code dibawah ini :

Private Sub Form_Load()
  cmb_tgl.AddItem "1"
    cmb_tgl.AddItem "2"
    cmb_tgl.AddItem "3"
    cmb_tgl.AddItem "4"
    cmb_tgl.AddItem "5"
    cmb_tgl.AddItem "6"
    cmb_tgl.AddItem "7"
    cmb_tgl.AddItem "8"
    cmb_tgl.AddItem "9"
    cmb_tgl.AddItem "10"
    cmb_tgl.AddItem "11"
    cmb_tgl.AddItem "12"
    cmb_tgl.AddItem "13"
    cmb_tgl.AddItem "14"
    cmb_tgl.AddItem "15"
    cmb_tgl.AddItem "16"
    cmb_tgl.AddItem "17"
    cmb_tgl.AddItem "18"
    cmb_tgl.AddItem "19"
    cmb_tgl.AddItem "20"
    cmb_tgl.AddItem "21"
    cmb_tgl.AddItem "22"
    cmb_tgl.AddItem "23"
    cmb_tgl.AddItem "24"
    cmb_tgl.AddItem "25"
    cmb_tgl.AddItem "26"
    cmb_tgl.AddItem "27"
    cmb_tgl.AddItem "28"
    cmb_tgl.AddItem "29"
    cmb_tgl.AddItem "30"
    cmb_tgl.AddItem "31"

    cmb_bulan.AddItem "Januari"
    cmb_bulan.AddItem "Februari"
    cmb_bulan.AddItem "Maret"
    cmb_bulan.AddItem "April"
    cmb_bulan.AddItem "Mei"
    cmb_bulan.AddItem "Juni"
    cmb_bulan.AddItem "Juli"
    cmb_bulan.AddItem "Agustus"
    cmb_bulan.AddItem "September"
    cmb_bulan.AddItem "Oktober"
    cmb_bulan.AddItem "November"
    cmb_bulan.AddItem "Desember"
  
    cmb_tahun.AddItem "1980"
    cmb_tahun.AddItem "1981"
    cmb_tahun.AddItem "1982"
    cmb_tahun.AddItem "1983"
    cmb_tahun.AddItem "1984"
    cmb_tahun.AddItem "1985"
    cmb_tahun.AddItem "1986"
    cmb_tahun.AddItem "1987"
    cmb_tahun.AddItem "1989"
    cmb_tahun.AddItem "1990"
    cmb_tahun.AddItem "1991"
    cmb_tahun.AddItem "1992"
    cmb_tahun.AddItem "1993"
    cmb_tahun.AddItem "1994"
    cmb_tahun.AddItem "1995"
    cmb_tahun.AddItem "1996"
    cmb_tahun.AddItem "1997"
    cmb_tahun.AddItem "1998"
    cmb_tahun.AddItem "1999"
    cmb_tahun.AddItem "2000"
    cmb_tahun.AddItem "2001"
    cmb_tahun.AddItem "2002"
    cmb_tahun.AddItem "2003"
    cmb_tahun.AddItem "2004"
    cmb_tahun.AddItem "2005"
    cmb_tahun.AddItem "2006"
    cmb_tahun.AddItem "2007"
    cmb_tahun.AddItem "2008"
    cmb_tahun.AddItem "2009"
    cmb_tahun.AddItem "2010"
    cmb_tahun.AddItem "2011"
    cmb_tahun.AddItem "2012"
End Sub

lalu lihat hasilnya...!

catatan : kalau misalnya Error, silahkan cek lagi letak kesalahannya..

kalau mau yang instant, download aja dech... here...!

Read More