Program Perpangkatan dalam visual basic

Program Perpangkatan dalam visual basic

Perpangkatan sederhana di vb 6.0

baiklah saya akan menjelaskan dulu tentang menu** pada tampilan diatas

X = label1 dan textbox yang didepannya namanya text1

Y =  label2 dan textbox yang didepannya namanya text2

Z = label3 dan textbox yang didepannya namanya text3  

cari = commandbutton dengan nama cari

hapus = commanbutton dengan nama hapus

pada tampilan diatas kita hanya menginput manual nilai X dan Y. sedangkan menu Z merupakan nilai dari perpangkatan.

contoh nilai x = 5 dan nilai y=2 maka pada nilai z merupakan 5^2 (lima pangkat dua)

dan dibawah ini adalah koding yang digunakan

Private Sub Form_Load()
Dim x As Integer
Dim y As Integer
Dim hsl As Long
Dim i As Byte
End Sub


Private Sub cari_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
hsl = 1
For i = 1 To y
    hsl = hsl * x
    Text3.Text = Str(hsl)
Next
End Sub

Private Sub hapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cari.SetFocus
End If
End Sub

  semoga program ini dapat membantu anda terutama mahsiswa seperti saya.

wassalamualaikum wr.wb.

mohon komentarnya bro dan sis