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

VISUAL BASIC 6.0 segitiga sama sisi

 MENCARI LUAS, KELILING, DAN SISI SEGITIGA SAMA SISI

gambar tampilan program mencari rumus segitiga sama sisi

 keterangan dari gambar diatas

# tulisan segitiga sama sisi,alas,tinggi, memakai menu label

# luas, keliling, sisi, clear dan exit memakai menu commandbutton

# sedangkan kotak-kotak yang kosong diatas memakai textbox

      

      #luas = command1 sedangkan textbox yang didepannya adalah text4

      #keliling=command2 sedangkan textbox yang didepannya adalah text3

      #sisi=command4 sedangkan textbox yang didepannya adalah text5

      #exit=command3 

      #clear=command5

oke baiklah ini merupakan koding yang digunakan dari gambar diatas

Private Sub Command1_Click()
Dim a, t As Single
a = Text1
t = Text2
Text4 = 0.5 * a * t
End Sub

Private Sub Command2_Click()
Dim a, t As Single
a = Text1
t = Text2
Text3 = 3 * Text1
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Dim a, t As Single
a = Text1
t = Text2
Text5 = Val(Text1)
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

bagi kawan kawan yang mau melihat flowchart nya silahkan klik link ini
Flowchart segitiga sama sisi