NevadasLaw

Aha! Postingan pertama di blog baru.... :D woke  kali ini saya mau share  sedikit tentang cara membuat calculator sederhana dengan menggunakan visual  basic. Eh tapi Instal programnya dulu yak! :D Lanjut... 1. Buat project baru dengan 1 form. 2. Tambahkan 3 buah Label (1 label di beri caption Cowok dan 1 lagi di beri caption Cewek, 1 label di beri nama lbl dan caption 0 %. Tambahkan juga 2 buah TextBox, dan 1 Command Button. Untuk lebih jelasnya, lihat gambar di bawah.. Kalo udah klik Command Button yang di buat tadi lalu masukan source code berikut : Private Sub Command1_Click() b = 0 Pasangan = UCase(Text1.Text & Text2.Text) For i = 1 To Len(Pasangan) b = b + Asc(Mid(Pasangan, i, 1)) Next lbl.Caption = Right(b, 2) & " %" End Sub selsai, silahkan jalankan dengan menekan tombol F5     "Sumber"