Download Ebook Gratis Di AdietZ @ BloG
Haii Sahabat Sya AdietZ sangat syukur Alhamdullilah Dengan Ini Semua Yang Terjadi Saya umur 13tahun sekarang sudah bisa membuat Ebook sendiri meskipun kurang maksimal(maklum hehe :p) Tapi Alhamdullilah Ini Adalah Pengalaman aku yang pertama dan dapat share dengan judul "KITA VERSUS VIRUS" wOUUw anehh kann ^^ ini judul yang aneh tapi mengandung banyak makna dan membant anda untuk merawat Komputer Langsung YAaaa :)
My Ebook
Judul : KITA VERSUS VIRUS
Di sahkan : 24,November 2010
Di Terbitkan : 29,November 2010 (adityaindra.tk)
Penulis : Aditya Indra Subroto
Keterangan Buku : Buku Cara Mengatasi Komputer Dari Virus
Sumber : Aditya I. S. Dan Berbagai Info Terpercaya
Format : Miscrosoft Word
Link By : 4shared
Harga Asli Dari Penerbit : Rp.0,-
Cara Pembayaran : Silahkan Anda Download Nanti Link Yang Akan Di Berikan . Sukses Download Anda Buka MS.WORD NYA(FILE NYA) Ada Tulisan Password Untuk Mengetahui Password Silahkan Anda SMS KE "087859041239" Nanti Bayarnya Via Pulsa Ke Nomor Telepon Yang Akan Diberikan Oleh 087859041239
Harga Download : Rp.0,-
Link Download : Download Ebook Gratis Ini
Password : antivirus
MOGA SAYA MASIH DI BERI KESEMPATAN OLEH ALLAH SWT UNTUK MEMBUAT DAN SHARE EBOOK LAGI AMIN !!! BAGI TEMEN TEME YANG BERUMUR KISARAN 13 TAHUN KAYAK SAYA JANGAN MAU KALAH G BISA SHARE EBOOK SAMA SAYA !!! KITA KAN SAMA SAMA MAKAN NASI JADI KEMAMPUAN INSYA ALLAH SAMA !!!
*Segala Sesuatu Itu Mudah Asal Kan Kita Mau Belajar Dan Mencoba !!! GooD LucK !!!
Sabtu, 01 Januari 2011
Download Ebook Free
Cara Mempercantik Facebook Dengan Kode
Haii ,,sahabat dah lama kaga share ny w mau share judulnya liat di atass yaa ^^
.

Met Coba ~
.
Bosan dengan tampilan standar Facebook di komputer anda? Yups dengan mempergunakan Facebook Code anda bisa mempercantik Facebook sehingga tidak lagi membosankan sebab dengan Facebook Code anda bisa merubah warna tampilan Facebook, menghilangkan iklan bahkan anda bisa merubah theme Facebook sekalipun.
Facebook Code adalah script yang bisa anda jalankan di komputer dengan tujuan agar anda bisa lebih leluasa dalam mengakses Facebook sesuai dengan keinginan anda. Sebelum menjalankan dan menginstal Facebook Code terlebih dahulu pastikan bahwa di komputer terinstal Add-On GreaseMonkey untuk browser anda. Bila anda mempergunakan Firefox maka anda harus menginstal dulu GreaseMonkey khusus untuk Firefox, dan bila anda mempergunakan Internet Explorer atau IE anda bisa mendapatkan GreaseMonkey untuk IE disini.

Dengan Add-on GreaseMonkey anda bisa menginstal berbagai macam Facebook Code, yang akan merubah Tampilan Facebook di komputer anda menjadi lebih cantik dan tentunya lebih sesuai dengan keinginan. Setelah GreaseMonkey terinstal di komputer anda, pastikan anda bisa melihat icon GreaseMonkey di pojok kanan bawah browser yang anda pakai.
Sebagai catatan : Facebook code ini hanya merubah tampilan maupun theme Facebook di komputer anda saja, jadi anda tidak usah khawatir Profile Facebook anda tidak akan mengalami perubahan jika dilihat oleh Friends anda di jagad webMet Coba ~
Sabtu, 18 Desember 2010
Soal Latihan Terpecaya UAN 2010
Haii,,sahabat saya berbagi soal soal latihan yang terpercaya saya share kan dari blog sebelah format e-book :P
Langsunggg !!!

------- PENAWARAN HARI INI !!! -------
Berapa nilai investasi yang anda butuhkan untuk Mendapatkan "Produk eBook Sukses UNAS 2011 " ini?
Harga yang saya tawarkan adalah Rp.150.000
"Penawaran Terbatas dari kami"
Langsunggg !!!

Anda akan segera membaca informasi PENTING dan BERHARGA yaitu mengenai Materi, Soal Prediksi dan Pembahasan
Unas 2011 serta seputar Informasi Ujian Nasional 2011, Tip dan Kiat Sukses yang akan mengubah hidup atau masa depan anda!!"
Unas 2011 serta seputar Informasi Ujian Nasional 2011, Tip dan Kiat Sukses yang akan mengubah hidup atau masa depan anda!!"
------- PENAWARAN HARI INI !!! -------
FOR SMU/SLTA ONLY
MATERI DAN SOAL PREDIKSI UJIAN NASIONAL
UNAS 2011
DAN PEMBAHASAN
dan KIAT UNTUK LOLOS UNAS 2011
|
Sekilas UAN / UNAS 2011 ( Ujian Akhir Nasional )
TUJUAN DILAKSANAKANNYA UN
adalah menilai pencapaian kompetensi lulusan secara nasional pada mata pelajaran tertentu dalam kelompok mata pelajaran ilmu pengetahuan dan teknologi.
adalah menilai pencapaian kompetensi lulusan secara nasional pada mata pelajaran tertentu dalam kelompok mata pelajaran ilmu pengetahuan dan teknologi.
KEGUNAAN HASIL UN
1. Pemetaan mutu program dan/atau satuan pendidikan;
2. Dasar seleksi masuk jenjang pendidikan berikutnya;
3. Penentuan kelulusan peserta didik dari satuan pendidikan;
4. Dasar pembinaan dan pemberian bantuan kepada satuan pendidikan dalam upaya meningkatkan mutu pendidikan.
Ujian Akhir Nasional atau biasa disebut UAN adalah bentuk ujian yang akan menentukan kelulusan peserta didik dari satuan pendidikan, untuk dapat melanjutkan ke jenjang pendidikan yang lebih tinggi atau tidak, dengan mengacu pada kompensi lulusan secara nasional pada mata pelajaran tertentu dalam keompok mata pelajaran ilmu pengetahuan dan teknologi dalam upaya untuk meningkatkan mutu pendidikan.
1. Pemetaan mutu program dan/atau satuan pendidikan;
2. Dasar seleksi masuk jenjang pendidikan berikutnya;
3. Penentuan kelulusan peserta didik dari satuan pendidikan;
4. Dasar pembinaan dan pemberian bantuan kepada satuan pendidikan dalam upaya meningkatkan mutu pendidikan.
Ujian Akhir Nasional atau biasa disebut UAN adalah bentuk ujian yang akan menentukan kelulusan peserta didik dari satuan pendidikan, untuk dapat melanjutkan ke jenjang pendidikan yang lebih tinggi atau tidak, dengan mengacu pada kompensi lulusan secara nasional pada mata pelajaran tertentu dalam keompok mata pelajaran ilmu pengetahuan dan teknologi dalam upaya untuk meningkatkan mutu pendidikan.
Usaha tergantung kerja keras anda dalam belajar. Satu hal terakhir yang paling terpenting adalah Strategi UAN . Kuasai Strategi UAN mu sekarang juga supaya kamu berhasil dan tidak gagal sia-sia.
Mengapa sih kita harus lolos UAN/UNAS
- Yang jelas jika kita lolos UAN pastinya bangga banget kan Wow…….Yesss…….. itu akan menambah wibawamu dalam kehidupannmu, tentunya kamu akan dipandang lebih.
- Ketika kamu bisa lolos UAN tentunya masa depan kamu akan lebih cerah terutama dalam nantinya mencari kerja.
- Mengharumkan Nama Sekolahmu tentunya. Semakin banyak siswa yang lolos UAN , tentunya sekolahmu akan disegani.
- Akan membahagiakan bagi orang tua kita , tentunya ini merupakan hadiah yang membahagiakan bagi orang tua kita.
- Dasar seleksi masuk jenjang pendidikan berikutnya;
- Penentuan kelulusan peserta didik dari satuan pendidikan;
- Dan banyak lagi hal lainnya.
Hal Pokok Persiapan Dini untuk Lolos UAN
- Kita Harus Siap Materi
Menguasai Materi yang akan diujikan, tahu betul jenis jenis soal yang selalu keluar dan tahu betul bagaimana cara menjawab soal-soal itu.
- Kita Harus Siap Mental
Kita Harus memiliki rasa percaya diri, kita harus punya keberanian untuk bersaing, berupaya meningkatkan dan mengasah potensi diri, rajin mengejar informasi dan tentunya kita harus tau Prediksinya seperti apa.
- Kita Harus Siap Strategi
Strategi itu nantinya yang akan mengalahkan lawan kita, baik itu strategi mengenai cara belajar, maupun strategi - strategi lainnya.. Bagaimana Supaya kita bisa sukses dan lolos pada UAN 2011. Persiapkan diri kamu sedini mungkin masih ada waktu untuk memulai dan belajar baik secara psikis dan mental tentunya dengan belajar, berlatih soal- soal dan juga berdoa.
Oke… Hadapi UNAS 2011 dengan Sukses!!!...
Berapa nilai investasi yang anda butuhkan untuk Mendapatkan "Produk eBook Sukses UNAS 2011 " ini?
Harga yang saya tawarkan adalah Rp.150.000
Tapi tunggu dulu, Selama Promo Harga Paket Ebook Terbaik Sukses UNAS 2011, akan ada discount, Bahkan Jika anda memesan sebelum Hari Rabu 22 Desember 2010 , jam 19.00, saya beri discount..50%..
Ya..Jika anda memesan sebelum Hari Rabu 22 Desember 2010 , jam 19.00,
saya beri discount..sampai 50%
sehingga anda bisa mendapatkan produk ini dengan harga cuma Rp. 75.000
sehingga anda bisa mendapatkan produk ini dengan harga cuma Rp. 75.000
Plus Super Mega Bonus!
"Penawaran Terbatas dari kami"
"Jika anda BENAR-BENAR ingin
Lolos dan sukses UJIAN NASIONAL 2011 dan ingin mendapatkan
Soal Prediksi dan Pembahasan UJIAN NASIONAL 2011
beserta tips dan kiat-kiatnya sekarang ini... maka
SEGERA LAKUKAN PERUBAHAN!
Manfaatkan kesempatan emas ini.
Yang anda temukan di sini adalah salah satu cara
untuk meraih segala impian anda!"
Lolos dan sukses UJIAN NASIONAL 2011 dan ingin mendapatkan
Soal Prediksi dan Pembahasan UJIAN NASIONAL 2011
beserta tips dan kiat-kiatnya sekarang ini... maka
SEGERA LAKUKAN PERUBAHAN!
Manfaatkan kesempatan emas ini.
Yang anda temukan di sini adalah salah satu cara
untuk meraih segala impian anda!"
MATERI PAKET EBOOK
Paket Ebook IPA :
- Materi Kemampuan Dasar ( MATEMATIKA, SEJARAH, B.INGGRIS, B.INDONESIA)
- Materi Kemampuan IPA ( FISIKA, KIMIA, BIOLOGI, MATEMATIKA )
- Soal Prediksi UNAS 2011 dan Pembahasan
- Soal Prediksi UJIAN NASIONAL dan Pembahasan Kemampuan Dasar & IPA
- Materi Kemampuan IPA ( FISIKA, KIMIA, BIOLOGI, MATEMATIKA )
- Soal Prediksi UNAS 2011 dan Pembahasan
- Soal Prediksi UJIAN NASIONAL dan Pembahasan Kemampuan Dasar & IPA
Paket Ebook IPS :
- Materi Kemampuan Dasar ( MATEMATIKA, SEJARAH, B.INGGRIS, B.INDONESIA)
- Materi Kemampuan IPS ( GEOGRAFI, SOSIOLOGI, EKONOMI, AKUNTANSI )
- Soal Prediksi UNAS 2011 dan Pembahasan
- Soal Prediksi UJIAN NASIONAL dan Pembahasan Kemampuan Dasar & IPS
- Materi Kemampuan IPS ( GEOGRAFI, SOSIOLOGI, EKONOMI, AKUNTANSI )
- Soal Prediksi UNAS 2011 dan Pembahasan
- Soal Prediksi UJIAN NASIONAL dan Pembahasan Kemampuan Dasar & IPS
ANDA DAPAT MEMILIKI PRODUK PAKET EBOOK
SOAL PREDIKSI DAN PEMBAHASAN UJIAN NASIONAL TERPADU 2011
DAN KIAT KIAT UNTUK SUKSES DAN LOLOS
UJIAN NASIONAL 2011
SOAL PREDIKSI DAN PEMBAHASAN UJIAN NASIONAL TERPADU 2011
DAN KIAT KIAT UNTUK SUKSES DAN LOLOS
UJIAN NASIONAL 2011
BONUS ++
- Informasi Seputar Unas 2011
- Kiat Sukses Unas 2011
- Dll .
- Kiat Sukses Unas 2011
- Dll .
dan dapatkan bonus ebook dan software menarik lainnya.
Label:
Belajar Via Online
Kamis, 16 Desember 2010
Belajar Online Latihan Soal Ujian SD,SMP,SMA
Haii sahabat w muncul lagii ny w mau berbagi supaya bisa belajar latihan soal UAN SD DMP SMA 2010
Langsug yaa ^^
1. Tingkat SD :
Download Soal UN SD
2. Tingkat SMP :
Download Soal Matematika 1, Soal Matematika 2, Soal Matematika 3
Download Soal Bahasa Indonesia, Tryout Bahsa Indonesia
Download Soal IPA
Download Soal IPS
Download Soal Bahasa Inggris, Tryout Bahasa Inggris
Download Soal PPKN
3. Tingkat SMU :
Download Soal Un SMA B. Indonesia
Download Soal Un SMA B. Inggris
Download Soal Un SMA Biologi
Download Soal Un SMA Matematika IPS
Download Soal Un SMA Ekonomi
Download Soal Un SMA Anthropologi
Download Soal Un SMA Geografi
Download Soal Un SMA Fisika
Download Soal Un SMA Matematika IPA
Download Soal Un SMA Kimia
Download Soal Un SMA Tata Negara
Download Soal Un SMA Sosiologi
Langsug yaa ^^
1. Tingkat SD :
Download Soal UN SD
2. Tingkat SMP :
Download Soal Matematika 1, Soal Matematika 2, Soal Matematika 3
Download Soal Bahasa Indonesia, Tryout Bahsa Indonesia
Download Soal IPA
Download Soal IPS
Download Soal Bahasa Inggris, Tryout Bahasa Inggris
Download Soal PPKN
3. Tingkat SMU :
Download Soal Un SMA B. Indonesia
Download Soal Un SMA B. Inggris
Download Soal Un SMA Biologi
Download Soal Un SMA Matematika IPS
Download Soal Un SMA Ekonomi
Download Soal Un SMA Anthropologi
Download Soal Un SMA Geografi
Download Soal Un SMA Fisika
Download Soal Un SMA Matematika IPA
Download Soal Un SMA Kimia
Download Soal Un SMA Tata Negara
Download Soal Un SMA Sosiologi
Label:
Belajar Via Online
Sabtu, 11 Desember 2010
Cara Membuat Program Sederhana Sendiri |KALKULATOR\NEW
Nyy w mau share ke sahabat cara membuat prgram ud lama gak share hikzz :P
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 diatas.
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
Moga Bermanfaat :)
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 diatas.
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
Moga Bermanfaat :)
Label:
Program Dan Software
Sabtu, 04 Desember 2010
Desain Gambar Di Kaos
Haii , sahabat maap laama kaga share cz hari hari ini admin lagi sibuk !!!
Saya sampaikan lagi sebelum ke topik . Bagi Siapa yang ingin Bisnis Ebook & cara pembuatannya serta pemasarannya Silahkan SMS ke 087859041239 dengan bayar Via Pulsa Rp.10.000,- Pulsa !!!
Di jamin sukses 95% .
Langsung aja yaa !!!
Desain gambar kaos langsung klik ini
Moga Bermanfaat !!!
Saya sampaikan lagi sebelum ke topik . Bagi Siapa yang ingin Bisnis Ebook & cara pembuatannya serta pemasarannya Silahkan SMS ke 087859041239 dengan bayar Via Pulsa Rp.10.000,- Pulsa !!!
Di jamin sukses 95% .
Langsung aja yaa !!!
Desain gambar kaos langsung klik ini
Moga Bermanfaat !!!
Kamis, 02 Desember 2010
Belajar Bisnis
Bagi sahabat yang penegn belajar bisnis dengan saya'
Silahkan SMS ke 087859041239 Bisnis Tebtabg Ebook
Biaya Rp.10.000,- Via Pulsa
Atau Rp.15.000,- Via Pulsa Untuk lebih jelasnya ?!!!!
Thx~
Silahkan SMS ke 087859041239 Bisnis Tebtabg Ebook
Biaya Rp.10.000,- Via Pulsa
Atau Rp.15.000,- Via Pulsa Untuk lebih jelasnya ?!!!!
Thx~
Langganan:
Postingan (Atom)