asalamualaikum,dan apakabar sobat, pada pertemuan kali ini saya akan membuat suatu perogram yang sederhana, yaitu program penjumlahn, langsung saja kita peraktekkan.............goooo
berikut ini komponen yang diperlukan''''''........
selanjutnya desain programnya....................
setelah kita udah mendesain programnya maka langka selanjutnya mengetik script code nya
pertama '..
Double klik tombol tambah, maka akan muncul script dibawah ini...
Public Class Form1
Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
'ketikan scriptnya disini
End Sub
End Class
pada script diatas tuliskan scriptnya diantara private sub cmdtambah end sub, lihatlah hasil scriptnya dibawah ini....
Public Class Form1
Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
Dim angka1, angka2, hasil As Integer
angka1 = TextBox1.Text
angka2 = TextBox2.Text
hasil = angka1 + angka2
MsgBox(hasil)
End Sub
End Class
setelah anda mengetikan skript kode tersebut, selanjutnya anda runkan/jalankan programnya
jika programnya tidak error maka tampilannya seperti dibawah ini....
dan jika tombol tambah di klik maka hasilnya seperti dibawah ini
penjelasan script..........
baris1 menyatakan form
baris2 menyatakan aktion toolbox
baris3 menyatakan variabel yang berfungsi untuk menampung data sementara
baris4,5 variabel menampung data yang diinputkan dari textbox1 dan textbox2
baris 6 menampung penjumlahan diatarah textbox1 dan textbox2
baris7 penulisan variabel diantara perintah msgbox ,jangan menggunakan tanda petik ganda karena petik ganda digunakan untuk sting (text)
baris8 end sub digunakan untuk menhakiri perintah private sub pada baris kedua
yang perlu diperhatikan adalah karena variabel bertive integer , maka hasilnya menjadi bilangan bulat, seandainya kamu masukan di textbox1 dan textbox2 bilangan desimal (bilangan koma) maka hasilnya menjadi bilangan bulat(bilangan digenapkan) untuk bilangan pecahan anda dapat menggunakan type data double.
selanjutnya saya akan menambahkan penggunaan operator, sebagai contohnya mengecek nilai yang dimasukan ke textbox yang kita buat sebelumnya ,apakah berupah string atau berupa angka, untuk lebih jelasnya tambahkan 1 buah tombol button pada perogram sebelumnya sehinggah gambarnya seperti dibawah ini.......
tpi ingat namanya jangan diganti, cukup textnya aja yang diganti
kemudian double klik tombol cek untuk mengisi kode program pada tombol cek
hasil scriptnya dibawah ini....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim angka1, angka2 As Char
angka1 = TextBox1.Text
angka2 = TextBox2.Text
If IsNumeric(angka1) Or IsNumeric(angka2) Then
MsgBox("ini adalah angka")
Else
MsgBox("bilangan yang anda masukan bukan angka periksa kembali")
End If
End Sub
End Class
setelah tu jalankan perogramnya, jika tidak error masukan hurup di textbox1 dan textbox2 lalu tekan tombol cek maka hasilnya seperti di bawah ini
penjelasan script..........
baris1 menyatakan tombol cek melakukan action klik
baris2 membuat variabel untuk menapung data
baris3,4 digunakan untuk menampung data dari textbox1 dan 2
baris5 fungsi isnumeric digunakan untuk mengecek apakah yang dimasukan angka atau hurup
baris6 memunculkan pesan apabila yang dimasukan angka
baris7 kalau yang dimasukan bukan angka.....
sebagai tambahan yang perlu diperhatikan pemberian type variabel yaitu char. type variabel char untuk menampung data baik numeric ataupun karakter jadi,ddengan adanya variabel char maka data yang ditampung dapat berupa angka atau huruf kasusnya apabila textbox1 dimasukan dengan angka sedangkan textbox2 dimasukan dengan huruf, maka perogram akan menjalankan bagian pertama....
okeee, itu saja penjelasan mengenai perogram yang sayah buat , gampangkan...
semoga penjelasan sayah dapat bermanfaat bagi sobat..... aminnnnnnn. :)
Tidak ada komentar:
Posting Komentar