Membuat Kalkulator Menggunakan Option Button



Komponen Yang Di Gunakan Adalah:
a.       Empat buah label
b.      Tiga command Button dan
c.       Lima buah optionButton
Buatlah Form Seperti Dibawah Ini
Memuat foto
Lalu Masukkan Listing Dibawah Ini
Klik Dua Kali Pada Tombol (=) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command1_Click()
If Option1.Value = True Then
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
   
    ElseIf Option2.Value = True Then
    Text3.Text = Val(Text1.Text) - Val(Text2.Text)
   
    ElseIf Option3.Value = True Then
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
   
    ElseIf Option4.Value = True Then
    Text3.Text = Val(Text1.Text) / Val(Text2.Text)
   
    ElseIf Option5.Value = True Then
    Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
    Text1.SetFocus
    End If
End Sub

Klik Dua Kali Pada Tombol (ON) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command3_Click()
Text1 = "": Text1.SetFocus
Text2 = ""
Text3 = ""
End Sub
Klik Dua Kali Pada Tombol (OFF) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command2_Click()
End
End Sub




Program ini dibuat oleh Heri Afrizal di bireuen
http://hery-pc.blogspot.com

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Melindungi Dokumen Word Agar Tidak Bisa Diedit

Gambar
Pernahkah Anda mengalami kejadian di mana hasil ketikkan Anda tiba-tiba berubah tidak karuan yang kemudian mengakibatkan pekerjaan Anda menjadi kacau dan tidak terselesaikan? Saya ingat betul bagaimana perasaan kesal yang teramat sangat pada saat mengalami masalah itu, alhasil seharian saya marah-marah dan ngomel ke semua teman kos tapi tetap tugas tidak selesai. Sialnya lagi tidak ada satupun teman kos yang mengaku. Komputer yang digunakan secara berjamaah oleh banyak orang rentan akan masalah-masalah seperti ini, tidak hanya masalah dokumen word saja, tapi bahkan yang berkaitan dengan file-file pribadi di dalam Windows Explorer. Saya yakin Anda juga akan merasa marah bercampur kesal jika mengalami hal tersebut, tapi untuk Anda yang tidak ingin mengalami penderitaan itu. Ada satu cara untuk mencegah tindakan editing baik disengaja ataupun tidak disengaja misalnya akibat ulah anak Anda yang masih balita dan belum paham apa yang dilakukan dan kekacauan yang bisa ditim...
Baca selengkapnya

Inilah Tempat Turunnya Nabi Isa dan 7 Ciri Kedatangannya

Gambar
Nabi Isa  Alaihissalam  -- yang oleh orang Nasrani disebut Yesus -- menjadi bahan kontroversi antara Islam, Nasrani, dan Yahudi. Orang Yahudi mempercayai bahwa mereka telah membunuh Isa, dan orang-orang Nasrani meyakini bahwa Isa telah disalib dan dikubur. Namun, kaum Muslimin meyakini dengan jelas dan tegas bahwa Nabi Isa tidak disalib atau dibunuh, melainkan 'diangkat' oleh Allah SWT. Nabi Isa akan kembali ke dunia, di suatu masa, di akhir zaman. Nabi Isa Alaihissalam adalah salah seorang dari lima nabi dan rasul yang diberi gelar 'Ulul Azmi, yakni memiliki sejumlah keistimewaan. Kelima nabi dan rasul yang mendapat gelar itu adalah Nabi Nuh, Ibrahim, Musa, Isa, dan Muhammad SAW. ''Ada 33 hadis shahih yang menegaskan bahwa Nabi Isa akan kembali turun ke bumi. Bahkan, ada yang mengatakan sampai 90 hadis,'' tutur Dr Muslih A Karim, dosen Pascasarjana Universitas Islam Negeri (UIN) Syarif Hidayatullah Jakarta, pada sebuah kesempatan. Dia lalu menye...
Baca selengkapnya

Program Mencari Bilangan Prima Dengan Vb 6.0

Gambar
Bilangan prima adalah bilangan yang hanya bisa dibagi oleh 1 dan bilangan itu sendiri selain itu dianggap bukan prima. Khusus untuk angka 1 disebut bilangan bukan prima dan 2 disebut bilangan prima. Contoh bilangan prima : 2, 3, 5, 7, 11,…```````````````````````````````````````````````````````````````````````````````` Secara manual kita mencari bilangan itu prima atau tidak dengan cara : Contoh masukan angka adalah 5, maka proses penghitungannya adalah sebagai berikut : 1) 5 Mod 5 = 0 2) 5 Mod 4 = 1 3) 5 Mod 3 = 2 4) 5 Mod 2 = 1 5) 5 Mod 1 = 0 Perhatikan pada sub penghitungan 2-4 tidak ada angka 0 dalam rangkaian penghitungan tersebut membuktikan bahwa angka 5 tidak habis dibagi oleh angka-angka selain 1 dan 5 (bilangan itu sendiri), lain halnya jika yang bukan prima (coba kita masukkan angka 6 misalnya) 1) 6 Mod 6 = 0 2) 6 Mod 5 = 1 3) 6 Mod 4 = 2 4) 6 Mod 3 = 0 5) 6 Mod 2 = 0 6) 6 Mod 1 = 6 Perhatikan pada sub penghitungan 2-4 ternyata angka 0 dalam rangkaian p...
Baca selengkapnya