Selasa, 05 Oktober 2010

Membuat Program kalkulator dengan Visual Basic


Membuat Program Calculator dengan Visual Basic
Untuk membut program kalkulator
1.       Visual Basic, tampilan visual Basic sbb:

2.       Petakan Objek-objek yang diperlukan pada pembuatan Program tersebut dengan cara Drag dan Drop pada jendela form seperti pada gambar berikut

3.       Rubah tampilan objek pada Form sehingga tampilan menjadi seperti gambar dibawah

Dengan cara merubah tampilan objek pada Form, caranya
·         2 x Klik Form load maka akan tampil jendela Kode Form Load
Private Sub Form Load ()

End Sub
·         Lalu masukan syntax (baris perintah untuk mengganti tampilan ) pada jendela kode seperti gambar dibawah :



·         Setelah selesai memasukan syntax untuk mengganti tampilan, masukan syntax untuk tombol Pengurangan, Perkalian, Pembagian, caranya
o   2 x Klik Tombol pengurangan ketikan perintah sbb :
Private sub Command1_Click()
Label4.Caption = Text1.text – Text2.text
End Sub
o   Untuk tombol perkalian :
Private sub Command3_Click()
Label4.Caption = Text1.text * Text2.text
End Sub
o   Untuk tombol pembagian
Private sub Command3_Click()
Label4.Caption = Text1.text / Text2.text
End Sub
4.       Untuk Command hapus isi syntax sbb:
Text1.text = ””
Text2.text = “”
Label4.caption = “”
Text1.SetFocus     {perintah ini berfungsi untuk mengaktifkan kursor di Text1}

Fungsi String


Fungsi String (Teks)
Fungsi ini digunakan untuk mengambil atau memenggal  beberapa karakter dari Teks
3 jenis fungsi string :
Left, Right dan Mid
1.       Fungsi  Left
Fungsi ini digunakan untuk mengambil atau memenggal sebanyak N karakter dari sebelah kiri teks
Rumus : =Left(Teks,N), =Left(“Komputer”,3) hasil : kom
Contoh :
Di sel A1 = Slamet Riyadi, rumus  = Left (A1,11) akan menghasilkan : Slamet Riya

2.       Fungsi  Right
Fungsi ini digunakan untuk mengambil atau memenggal sebanyak N karakter dari sebelah kanan teks
Rumus : =Right(Teks,N)
Contoh :
Di sel A1 = Slamet Riyadi, rumus  = Right (A1,3) akan menghasilkan : adi
3.       Fungsi  Mid
Fungsi ini digunakan untuk mengambil Nilai dariTengah Teks sebanyak N karakter, N karakter diambil dimulai dari posisi M
Rumus : =Mid(Teks,M,N)
Catatan N: Banyak Karakter yang diambil, M : Posisi Awal Karakter
Contoh :
Di sel A1 = Slamet Riyadi, rumus  = Mid(A1,4,3) akan menghasilkan : met

Contoh Soal
Pada sel A1 = “Teknologi Informasi “
Rumus untuk menghasilkan kata
1.       Ormas                           :=mid(A1,14,5)
2.       Logi                                :=mid(A1,6,4)
3.       Tekno                           :=left(A1;5) / =mid(A1,1,5)
4.       Formasi                       : =right(A1;7)/ =mid(A1;13;7)
5.       Gi info                          :=mid(A1,8,7)


Contoh Soal 2

Jawaban
1.       =LEFT(B1;2)
2.       =VALUE(RIGHT(B1;4)
3.       =$C$1-D1
4.       =MID(B1;3;2)
5.       =MIN(D4:D7)
6.       =COUNTA(A4:A7)