Program Hitung Perpangkatan dengan Menggunakan Visual Basic 6 | Full Source Code

Program Hitung Perpangkatan dengan Menggunakan Visual Basic 6 | Full Source Code. Dalam artikel kali ini WOWWWORLD akan sharing mengenai bagaimana caranya membuat program perpangkatan dengan menggunakan Visual Basic 6. Program yang dikatakan jadul oleh sebagian kalangan tetapi dalam fungsionalitasnya masih bisa dirasakan dan bisa diandalkan. 

Langsung saja ke topik pembahasan!. Pertama, buatlah layout program seperti dibawah ini :

Properties Pada Komponen Program

Nama Objek	Properties	Isi
Form1	Caption	Program Kalkulator | By Kelompok I Kelas A STMIK Tasikmalaya
Label1	Caption	KALKULATOR PANGKAT
Label2	Caption	=
Text3	Enabled	False
Command1	Caption	Bersihkan
Command2	Caption	Hitung
Command3	Caption	Keluar

Listing Programnya Sebagai Berikut :

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = "0"

Text3.Text = "0"

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then

 Text1.SetFocus

 MsgBox "Angka Kosong, Silahkan Masukan Angka", vbCritical + vbOKOnly, "Kesalahan"

 Exit Sub

ElseIf Text2.Text = "0" Then

Text3.Text = "1"

ElseIf Val(Text2.Text) > 10 Then

Text3.Text = "1"

Else

Dim a, pangkat, angka As Integer

Dim hasil As Double

pangkat = Val(Text2.Text)

angka = Val(Text1.Text)

hasil = Val(Text1.Text)

For a = 2 To pangkat

    hasil = hasil * angka

Next a

Text3.Text = hasil

End If

End Sub

Private Sub Command3_Click()

keluar = MsgBox("Do you want exit.?", vbQuestion + vbOKCancel + 256)

If keluar = vbOK Then

End

End If

End Sub

Private Sub Form_Activate()

Command1_Click

End Sub

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

Penjelasan Program

Jika kita mengklik hitung maka di Text3 akan muncul hasil perpangkatan dari Text1 dan Text2. Val digunakan untuk mengkonversi data yang berupa String ke Numerik dan di Konversi lagi ke String .

Variabel  adalah  suatu  tempat  dalam memory  komputer  yang  diberi  nama  (sebagai pengenal) dan dialokasikan untuk menampung data,  sesuai data  yang ditampung,  variabel harus mempunyai  tipe  data  yang  sesuai  dengan  isinya.  Kita  dapat menggunakan  dua  cara untuk memberi tahu MS‐Visual Basic 6.0 tentang tipe variabel dan nama variabel yang akan dipakai. 

Contoh dalam program :

Dim a, pangkat, angka As Integer

Dim hasil As Double

Fungsi If ........ Then ...... Else Digunakan untuk menjalankan suatu blok perintah, tergantung dari nilai yang diuji Penulisannya adalah sebagai berikut :

If Text1.Text = "" Then

 Text1.SetFocus

 MsgBox "Angka Kosong, Silahkan Masukan Angka", vbCritical + vbOKOnly, "Kesalahan"

 Exit Sub

ElseIf Text2.Text = "0" Then

Text3.Text = "1"

ElseIf Val(Text2.Text) > 10 Then

Text3.Text = "1"

Else

Dim a, pangkat, angka As Integer

Dim hasil As Double

pangkat = Val(Text2.Text)

angka = Val(Text1.Text)

hasil = Val(Text1.Text)

For a = 2 To pangkat

    hasil = hasil * angka

Next a

Text3.Text = hasil

End If

Fungsi MsgBox adalah Fungsi yang menghasilkan pesan – pesan untuk user. Pesan ini biasanya  dapat  berupa  pesan  peringatan,  pesan  error,  pesan  untuk  memastikan  suatu tindakan,  dan  sebagainya.  Message  Box  (Kotak  Pesan)  ini  biasanya  digunakan  untuk menampilkan  pesan  tertentu,  lalu  menunggu  konfirmasi  penekanan  tombol  dari  user (biasanya tombol Ok dan Cancel), lalu aplikasi dilanjutkan kembali. 

Pengulangan For Next Statement pengulanan For ... Next dipakai untuk melakukan pengulangan suatu blok program beberapa kali yang ditentukan ole nilai awal dan nilai akhir  

CLICK TO DOWNLOAD FULL SOURCE CODE

Program Hitung Perpangkatan dengan Menggunakan Visual Basic 6 | Full Source Code

Posted in: Komputer,Pemrograman,Tutorial,Visual Basic