Sunday

Belajar Visual Bassic 6

Belajar Visual Bassic 6

                Cara membuat Aplikasi persamaan kuadrat a, b dan c pada Visual Basic 6. Saya mencari x1 dan x2 menggunakan persamaan kuadrat abc.
yang dimasukan ke fungsi logika VB6.  Persiapan membuat program Aplikasi persamaan ini adalah :
·         Menyiapkan Laptop/PC yang sudah di instal VB6.
Cara pembuatan aplikasi persamaan kuadrat :
·         Membuka aplikasi VB6
·         Menggunakan 7 buah label, 5 buah textbox dan 1 commandbuttom
.
·        

setelah itu member nama pada textbox yaitu :

text1.text diubah menjadi a.text
text2.text diubah menjadi b.text
text3.text diubah menjadi c.text
text4.text diubah menjadi x1.text
text5.text diubah menjadi x2.text


·          Satelah menyusun form seperti gambar di atas pada pada jenda view code di tulis code seperti dibawah ihi
Private Sub Command1_Click()
If a = "" And b = "" And c = "" Then
MsgBox "SILAHKAN ISI NILAI a, b dan c"
Else
x1 = ((-1 * b) + Sqr((b ^ 2) - (4 * a * c))) / (2 * a * c)
x2 = ((-1 * b) - Sqr((b ^ 2) - (4 * a * c))) / (2 * a * c)

a.Visible = False
b.Visible = False
c.Visible = False
x1.Visible = True
x2.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = True
Command1.Visible = False

End If
End Sub
·         Simpan File dalam bentuk exe agar bisa di gunakan pada computer lain
Hasil dari Aplikasi tersebut dapat di lihat seperti gambar di bawah ini :
Dengan mencari persamaan kuadrat berikut ini :
1x2-2x-3=0
Setelah di klik prosen maka fungsi yang ada di dalam logika program berjalan seperti dibawah ini hasilnya
Maka hasil dari x1=3 dan x2 = -1







Total Pageviews

 

Copyright 2011 ILMU is proudly powered by blogger.com | Design by Reg Ar Published by Ilmu