program kalkulator dengan vb

buat temen2 yang mau bwt kalkulator denegn program vb,, gampang bgt cekemprit,,,,

keterangan yang kudu di tulis di name propertis

1. layar text box nya   = Text1
2. On                         = cmdhapus
3. C                           = cmdhapus
4. Off                         = cmdkeluar
5. angka 0 - 9             = cmdangka
6. tanda titik ( . )         = cmdangka
7. tanda tambah ( + )  = cmdoperator
8. tanda kurang ( - )   = cmdoperator
9. tanda kali ( * )       = cmdoperator
10. tanda bagi ( / )     = cmdoperator
11.tanda sama dengan ( = ) = cmd hitung

nihh koding nye

Dim angka(1 To 2) As Single

Dim operator As String

_________________________________

Private Sub cmdangka_Click(Index As Integer)

Text1.Text = Text1.Text & cmdangka(Index).Caption

End Sub

_________________________________

Private Sub cmdhapus_Click(Index As Integer)

Text1.Text = ""

End Sub

_________________________________

Private Sub cmdhitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.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)

End Select

Text1.Text = hasil

End Sub

_________________________________

Private Sub cmdkeluar_Click()

Unload Me

End Sub

_________________________________

Private Sub cmdoperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdoperator(Index).Caption

Text1.Text = ""

End Sub

_________________________________

Private Sub Text1_Change()

End Sub

muga2 bermanfaat ye,,,

cara membuat nasi goreng enak tanpa bumbu cepat saji

ini resep aku dapet dari nenek aku yang emang jualan nasi goreng,, mhemm,, menurut lidahku nasgor nenek aku bekum ada yang bisa menandingi

bahan :
 ~ 10 batang lombok merah
~ 2 siung bawang merah
~ 3 siung bawang putih
~ trasi secukupnya
~ garam secukupnya
~ kecap secukupnya
~ penyedap rasa secukupnya
~ 2 batang sosis
~ 1 butir telor
~ 1 piring nasi putih

cara membuat :
1. rebus  10 batang lombok, 2 siung bawang merah, 2 siung bawang putih, setelah mendidih tiriskan.
2. haluskan lombok, bawang merah,dan bawang putih yang sudah direbus tadi, tambahkan garam dan penyedap rasa sedikit.
3. panaskan penggorengan dengan sedikit minyak , lalu tumis sambal yang sudah halus sampai berbau harum, enak ,nan menggugah selera hehehe. (angkat taruh di piring kecil)
4. cacah 1 siung bawang putih, tumis menggunakan sedikit minyak dan api yang kecil,
5. hancurkan / haluskan sosis masukan ke dalam penggorengan aduk sampai berbau harum,
6. masukan sambal yang tadi sudah di tumis, aduk - aduk beberapa saat,
7. masukan nasi putih, tuangkan kecap secukupnya , taburkan garam dan penyedap rasa secukupnya,
aduk- aduk dengan api agak besar, tetapi juga jangan terlalu besar,,nanti gosong hehehe
8. setelah dirasa cukup merata, taruh nasgor ke dalam piring,,
9. buat telur dadar / ceplok untuk menambah nafsu makan,, taruh diatas piring nasgor.
10. tara nasgor sudah siap di santap..

resep ini sering aku masak buat SAYANG KUH

cara membuat blog

cekemprut kita ngeksist dengan membuat blog,,,

1. kamu harus punya akun email nya si google, kalo belum punya klik cara buat email google,,
2. nah udah punya e-mailnya langsung melesat ke blogger ,
kamu akan melihat tampilan ini , klik buat blog :

3. Lalu akan tampil form seperti ini,,di isi semua yaw,, lalu klik lanjutkan (xixixi kayak slogan pemili adjah,,,)

4. Pada langkah ini kamu diminta memasukan judul blog kamu dan alamat blog kamu , tampilanya sebagai berikut.

Pada kolom judul blog isi judul blog yang kamu inginkan misalnya widhie love adhie , kemudian pada kolom alamat blog isikan alamat blog anda misalnya widiol-adiol. klik cek ketersediaan untuk mengetahui apakah alamat yang kamu inginkan sudah dipakai orang lain atau belum, jika sudah dipakai kamu harus mencari alamat lain. Jika alamat blog anda tersedia klik lanjutkan.

5. Lalu tinggal  milih theme atau templete untuk blog kamu tampilanya sebagai berikut

Pilih  templete yang kamu suka, lalu klik lanjutkan, selesai blog kamu siap gunakan.

mengganti warna background buku tamu menggantung

Buku Tamu Menggantung biasanya  berwarna  hijau??,, mhem aku agak gak suka dengan warna hijou ,,,bagaimana dengan kamu??,, ganti adja backgound nya ,,bisa kok,, cekemprot kita ganti adja :

1. Pilih backgrounn gambar yang kamu ingin kan,trus  copy kode yang ada di bawah gambarnya ,,

Bagian yang saya lingkari warna merah adalah bagian yang bisa anda ganti sesuai pilihan gambar yang ada dibawah ini:

Gambar 1

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/bukutamu4.png

Gambar 2

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/BukuTamu1.png

Gambar 3

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/bukutamu5.png

Gambar 4

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/bukutamu2.gif

Gambar 5

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/Bukutamu3.png

Gambar 6

http://i971.photobucket.com/albums/ae193/Zendrymaulana/Wallpaper%20For%20Template%20Blogger/Bukutamu6.gif

2. Udah di pilih, udah di Copy kodenya lalu pastekanyang aku kasih warna merah nih,,,,

.gbtab{
height:100px;
width:30px;
float:left;
cursor:pointer;
background:url('http://widiol-adiol.blogspot.com.gif') no-repeat;
}

3. cekemprit kelar dech,,,

cara memasang buku tamu menggantung

1. Sign in ke blogger dan silahkan Login dengan Account Anda

2. Pilih Rancangan/Tata letak

3. Pilih Page Elemen/Elemen Halaman

4. Klik Add a Gadget/Tambah Gadget

5. Lalu pilih "HTML/JavaScript"

6. Copy-Paste kode untuk menggantungkan buku tamu mu di bawah ini, ingat ini hanya kode untuk menggantungkan buku tamu mu,,bukan buku tamu nya yaw,,, hehehehe (awal nya saya bingun saya kira ini sudah termasuk buku tamu yang akan saya gunakan ) :

<style type="text/css">
#gb{
position:fixed;
top:50px;
z-index:+1000;
}
* html #gb{position:relative;}

.gbtab{
height:100px;
width:30px;
float:left;
cursor:pointer;
background:url('http://i37.tinypic.com/345o85i.gif') no-repeat;
}
.gbcontent{
float:left;
border:2px solid #A5BD51;
background:#F5F5F5;
padding:10px;
}
</style>

<script type="text/javascript">
function showHideGB(){
var gb = document.getElementById("gb");
var w = gb.offsetWidth;
gb.opened ? moveGB(0, 30-w) : moveGB(20-w, 0);
gb.opened = !gb.opened;
}
function moveGB(x0, xf){
var gb = document.getElementById("gb");
var dx = Math.abs(x0-xf) > 10 ? 5 : 1;
var dir = xf>x0 ? 1 : -1;
var x = x0 + dx * dir;
gb.style.right = x.toString() + "px";
if(x0!=xf){setTimeout("moveGB("+x+", "+xf+")", 10);}
}
</script>

<div id="gb">

<div class="gbtab" onclick="showHideGB()"> </div>

<div class="gbcontent">

 ---pastekan kode buku tamu mu di bawahnya ini yaowww---

(nah,,,, disini nih,, masukin kode buku tamu yang udah kita buat sebelumnya di shoutmix)

<div style="text-align:right">
<a href="javascript:showHideGB()">
[tutup]
</a>
</div>

</div>

</div>

<script type="text/javascript">
var gb = document.getElementById("gb");
gb.style.right = (30-gb.offsetWidth).toString() + "px";
</script>

validasi vb hanya input huruf

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz <spasi>"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

validasi vb hanya input angka dan huruf

Public Sub AlphaNumericValid(KeyAscii As Integer)

Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub