Membuat Kalkulator di Visual Basic

Membuat Kalkulator di Visual Basic

Bagi seorang pemula seperti saya, dapat membuat suatu program kalkulator adalah suatu keharusan, demakin banyak fungsi atau tombol-tombol yang tersedia maka semakin bagus.

Satu program kalkulator yang saya contohkan ini merupakan program kalkulator versi pertama saya, tanpa revisi apapun. Karena yang versi revisinya dah hilang (bareng sama flashdisk). Jadi jujur saja, yang satu ini memang agak kurang sempurna.

Kalkulator adalah sebuah contoh aplikasi matematis yang umum dibuat sebagai bentuk pemrograman tingkat dasar melalui software pembuat program tertentu dan dalam hal ini saya menggunakan software VB, satu hal yang saya bangga yaitu apabila ketila pertama-tama saya buat program kalkulator ini, saya membuatnya tanpa referensi atau contoh kode apapun dari buku ataupun internet.

Baru setelah saya temukan beberapa referensi contoh kode untuk program kalkulator maka saya lakukan beberapa revisi yang kebetulan seperti telah saya jelaskan diatas bahwa file-nya memang sudah hilang.

Untuk sedikit keterangan bahwa fungsi untuk sinus radius dan tangent yang digunakan adalah mode radius serta sesungguhnya ada 3 textbox di program kalkulator ini, namun textbox yang ke-3 tipe visible-nya dibuat false. Sedangkan untuk design form, tampak seperti gambar diatas.

Untuk lebih lengkapnya anda bisa melihat contoh kode-kode yang saya buat.

Dim nilai1, nilai2, hasil As Double
Dim tanda, unik As Integer

Private Sub Command1_Click() ‘Tombol angka 1.
Text1.Text = Text1.Text & "1"
If tanda > 0 Then
Text3.Text = Text3.Text & "1"
End If
End Sub

Private Sub Command10_Click() ‘Tombol angka 0.
Text1.Text = Text1.Text & "0"
If tanda > 0 Then
Text3.Text = Text3.Text & "0"
End If
End Sub

Private Sub Command11_Click() ‘Tombol bentuk positif / negatif
If tanda > 0 Then
Text1.Text = Text1.Text & "-"
unik = 1 'VARIABLE unik 1 UNTUK bentuk negatif
Exit Sub
End If
Text1.Text = Text1.Text * -1
End Sub

Private Sub Command12_Click() 'Tombol bentuk DESIMAL
Text1.Text = Text1.Text & "."
unik = 2 'VARIABLE unik 2 UNTUK DESIMAL
End Sub

Private Sub Command13_Click() 'Tombol TAMBAH
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 1
Text1.Text = Text1.Text & "+"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 1
Text1.Text = Text1.Text & "+"
End Sub

Private Sub Command14_Click() 'Tombol KURANG
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 2
Text1.Text = Text1.Text & "-"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 2
Text1.Text = Text1.Text & "-"
End Sub

Private Sub Command15_Click() ‘TOMBOL KALI
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 3
Text1.Text = Text1.Text & "x"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 3
Text1.Text = Text1.Text & "x"
End Sub

Private Sub Command16_Click() ‘TOMBOL BAGI
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 4
text1.Text = Text1.Text & "/"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 4
Text1.Text = Text1.Text & "/"
End Sub

Private Sub Command17_Click() ‘TOMBOL SAMA DENGAN
nilai2 = Text3.Text
If unik = 1 Then
nilai2 = nilai2 * -1
End If

Select Case tanda
Case 1
hasil = (nilai1 - 1) + (nilai2 + 1) ‘PENJUMLAHAN
Case 2
hasil = nilai1 - nilai2 ‘PENGURANGAN
Case 3
hasil = nilai1 * nilai2 ‘PERKALIAN
Case 4
If nilai2 = 0 Then
MsgBox " TERJADI ERROR, PEMBAGIAN DENGAN O ", vbCritical, "Error"
Text1.Text = ""
Exit Sub
End If
hasil = nilai1 / nilai2 ‘PEMBAGIAN
Case 5
hasil = nilai1 * nilai1 ‘KUADRAT
Case 6
hasil = nilai1 ^ nilai2 ‘PANGKAT n
Case 7
hasil = nilai2
Case 8
hasil = Sin(CDbl(nilai2))
Case 9
hasil = Cos(CDbl(nilai2))
Case 10
hasil = Tan(CDbl(nilai2))
Case 11
If nilai2 < 0 Then
MsgBox "TIDAK DAPAT MENGHITUNG NILAI AKAR DARI BILANGAN NEGATIF ", vbInformation, "PEMBERITAHUAN ERROR"
Exit Sub
End If
hasil = Sqr(nilai2)
End Select
If unik = 2 Then
hasil = hasil * 0.1
End If
tanda = 50
Text3.Text = ""
Text2.Text = hasil
End Sub

Private Sub Command18_Click() ‘TOMBOL CLEAR
tanda = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command19_Click() ‘TOMBOL QUIT
MsgBox "Coded by : T. Erick Sitorus " & vbCrLf & "Known As : WONDERKID ", vbInformation, “KALKULATOR INI"
End
End Sub

Private Sub Command2_Click() ‘TOMBOL ANGKA 2
Text1.Text = Text1.Text & "2"
If tanda > 0 Then
Text3.Text = Text3.Text & "2"
End If
End Sub

Private Sub Command20_Click() ‘TOMBOL CLEAR ALL
tanda = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command21_Click() ‘TOMBOL KUADRAT
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 5
Text1.Text = Text1.Text & "^2"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 5
Text1.Text = Text1.Text & "^2"
End Sub

Private Sub Command22_Click() ‘TOMBOL PANGKAT n
If tanda = 50 Then
Text1.Text = hasil
nilai1 = Text2.Text
tanda = 6
Text1.Text = Text1.Text & "^"
Exit Sub
End If
nilai1 = Text1.Text
tanda = 6
text1.Text = Text1.Text & "^"
End Sub

Private Sub Command23_Click() ‘TOMBOL ABOUT
MsgBox "THIS PROGRAM WAS CREATED BY T. ERICK SITORUS, THIS PROGRAM IS MADE ONLY TO CALCULATE SIMPLE MATHEMATIC OPERATION", vbCritical, "About This Program"
End Sub

Private Sub Command24_Click() ‘TOMBOL PERSEN
Text3.Text = Text3.Text * 0.01
Text1.Text = Text1.Text & "%"
End Sub

Private Sub Command25_Click() 'TOMBOL FAKTORIAL
Text1.Text = hasil
nilai1 = Text1.Text
tanda = 7
Text1.Text = Text1.Text & "!"
For a = nilai1 - 1 To 1 Step -1
nilai1 = nilai1 * a
Next a
Text3.Text = nilai1
End Sub

Private Sub Command26_Click() 'TOMBOL SINUS
Text1.Text = ""
tanda = 8
Text1.Text = Text1.Text & "sin"
End Sub

Private Sub Command27_Click() 'TOMBOL COSINUS
Text1.Text = ""
tanda = 9
Text1.Text = Text1.Text & "cos"
End Sub

Private Sub Command28_Click() 'TOMBOL TANGEN
Text1.Text = ""
tanda = 10
Text1.Text = Text1.Text & "tan"
End Sub

Private Sub Command29_Click() ‘TOMBOL AKAR
tanda = 11
Text1.Text = Text1.Text & "sqr"
End Sub

Private Sub Command3_Click() ‘TOMBOL ANGKA 3
Text1.Text = Text1.Text & "3"
If tanda > 0 Then
Text3.Text = Text3.Text & "3"
End If
End Sub

Private Sub Command30_Click() ‘TOMBOL BACKSPACE
If Text1.Text = "" Then
MsgBox "LAYAR SUDAH KOSONG ", vbInformation, "INFO"
Exit Sub
End If
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
If tanda > 0 Then
tanda = 0
End If
End Sub

Private Sub Command4_Click() ‘TOMBOL ANGKA 4
Text1.Text = Text1.Text & "4"
If tanda > 0 Then
Text3.Text = Text3.Text & "4"
End If
End Sub

Private Sub Command5_Click() ‘TOMBOL ANGKA 5
Text1.Text = Text1.Text & "5"
If tanda > 0 Then
Text3.Text = Text3.Text & "5"
End If
End Sub

Private Sub Command6_Click() ‘TOMBOL ANGKA 6
Text1.Text = Text1.Text & "6"
If tanda > 0 Then
Text3.Text = Text3.Text & "6"
End If
End Sub

Private Sub Command7_Click() ‘TOMBOL ANGKA 7
Text1.Text = Text1.Text & "7"
If tanda > 0 Then
Text3.Text = Text3.Text & "7"
End If
End Sub

Private Sub Command8_Click() ‘TOMBOL ANGKA 8
Text1.Text = Text1.Text & "8"
If tanda > 0 Then
Text3.Text = Text3.Text & "8"
End If
End Sub

Private Sub Command9_Click() ‘TOMBOL ANGKA 9
Text1.Text = Text1.Text & "9"
If tanda > 0 Then
Text3.Text = Text3.Text & "9"
End If
End Sub

Private Sub Form_Load() ‘SAAT FORM LOAD
tanda = 0
End Sub

-----------------------------------------------------------------------------------------------------------------------------------

Read more »

Posted in: Kuliah

Cara Menghilangkan Virus/Worm HP

Cara Menghilangkan Virus/Worm HP

Berhubung dengan makin maraknya beredar worm/virus2 yang menyerang ponsel yang bersistem operasi Symbian, sekarang ada suatu trik biar bisa memberantas jenis2 worm/virus yang beredar. Dari sampel2 virus yang pernah ada bahwa worm/virus yang sebagian besar bercokol di Phone.

Nah sekarang untuk persiapan yang diperlukan :
1. Kompi yang mempunyai Antivirus yang ter Up to date (Gw disini make Kapersky)
2. Filemanager kayak File Man, FExplorer, atau sejenisnya (instal di Hp)
3. Process Viewer (Lo bisa Googling, kerjanya mirip ama Task manager di kompi trus instal di Hp)

Jenis-jenis Worm:
Worm SymbOS.Srv.Sender.a (Media Play)
karena worm ini, tidak berjalan sebagai process/System :
1. Worm/Virus ini Mempunyai file-file sebagai berikut:
SystemAppsMedia PlayEncode.Dat
SystemAppsMedia PlayMedia Play.Exe
SystemRecogsMedia Play.mdl
2. Scan MMC lo dengan antivirus yang ter up to date
3. Delete File-file berikut pada Memory Hp Anda dengan menggunakan File Manager
C:SystemAppsMedia PlayEncode.Dat
C:SystemAppsMedia PlayMedia Play.Exe
C:SystemRecogsMedia Play.mdl
4. Restart lagi Hp lo and sekarang lo bisa liat dia ga nongol lagi


Worm SymbOS.Comwar. C
Worm ne termasuk kategori menengah, dan tidak membahayakan
coz setelah Hp kena infeksi system berjalan dengan normal, tetapi worm akan mencoba mengeksekusi pesan untuk berkembang biak.


cara Menghapus atau menghilangkannya adalah.:
1. Scan MMC Dulu di kompi. trus Backup data nya
2. Pastikan Process Viewer dan file manager telah terinstal.
3. Kill Process yang berjalan dengan Aplikasi Process Viewer
Processnya adalah : Cwoutcast.Exe
4. Delete secara Manual dengan menggunakan File manager, File-file nya adalah :
SystemBootdataLibir0lancd7d.Sis
SystemRecogsCworeg.Mdl
file-file tersebut berada di MMC dan Memory Hp (C:)
5. Restart HP.


Nah Sekarang Worm yang Yang terbaru:
Worm SymbOS.Beselo.a
Worm ini Termasuk kategori palaing bahaya (???) karena worm ini melakukan proses rutin yang dimulai dari mengumpulkan semua kontak pemakai handphone lalu mengirimkan MMS berisi virus dalam bentuk versi SIS (Symbian Installation Source). Untuk menyembunyikan dirinya, file ini tidak memakai format .sis namun menyamar sebagai file multimedia seperti Beauty.jpg, Sex.mp3, atau Love.rm. Walaupun menyamar, OS Symbian tidak membaca file berdasarkan format namun berdasarkan isi, karena itu dialog instalasi akan tetap keluar dan bisa menjadi ciri-ciri file virus. Sedangkan untuk mengetahui apakah handphone Anda sudah terinfeksi atau tidak juga cukup mudah, Anda dapat mengcek apakah ada sent messages misterius di outbox anda.


Nah Sekarang saatnya menghilangkan virus/worm tersebut:
1. Buka MMC Loe Trus Scan, sementara itu Delete pesan-pesan yang berusaha mengirim, biasanya di kotak keluar yang berguna agar Hp ga Hang gara2 virus memakan resource memory
2. Klo Hp Terasa Berat Kinerjanya (Wajar), backup dulu nomor kontak lo ke SIM CARD
3. Reset HP Ke setelan Awal dengan Code *#7780# atau *#7370# ( ne reset nya Nokia).
ne berguna agar process worm di memory ga berjalan lagi.
4. Cari file-file seperti Beauty.jpg, Sex.mp3, atau Love.rm dan delete.
5. File Launcer worm ini berada di SystemRecogs…….*exe
titik itu sengaja ga gw isi karena file worm ini membuat nama secara acak.
6. Delete secara manual jika ga bisa-bisa menggunakan Process Viewer untuk men Kill nya.
5. Setelah di hapus restart lagi Hp terus periksa apakah ada pesan keluar lagi.
6. Jika ga ada lagi berarti proses pembunuhan berhasil………
dulu saya ambil dari sini sumber http://aurel666.page.tl/TIPS-N-TRIK.htm tapi kayaknya sumbernya udah not found

Read more »

Posted in: Trik