Assalamualaikum agan/sista semuanya....
2. Klik New project atau file - new - project (CTRL + N) maka akan timbul gambar seperti ini :
Klik OK - maka akan timbul Form seperti ini :
3. Buat Form Seperti ini :
4. Ganti :
ngomong-ngomong kalau agan/sista hoby dengan pemograman, ane mau sharing nih cara membuat aplikasi Persamaan kuadrat dengan visual studio...
Langkah pertama ialah...
1. Buka Visual Studio 2012 maka akan timbul seperti ini :
2. Klik New project atau file - new - project (CTRL + N) maka akan timbul gambar seperti ini :
Klik OK - maka akan timbul Form seperti ini :
3. Buat Form Seperti ini :
4. Ganti :
Form1 ControlBox = False
TextBox1 Name = TextBoxA
TextBox2 Name = TextBoxB
TextBox3 Name = TextBoxC
TextBox4 Name = TextBoxX1
TextBox5 Name = TextBoxX2
Button1 Name = ButtonHitung
Text = Hitung
Button2 Name = ButtonExit
Text = Exit
5. Klik 2X di ButtonHitung lalu masukkan(Copy - Paste) script ini :
Private Sub ButtonHitung_Click(sender As Object, e As EventArgs) Handles ButtonHitung.Click
Dim bil1, bil2, bil3, bil4, bil5, bild As Single
bil1 = TextBoxA.Text
bil2 = TextBoxB.Text
bil3 = TextBoxC.Text
bild = bil2 ^ 2 - (4 * bil1 * bil3)
If bild > 0 Then
bil4 = (-bil2 + Math.Sqrt(bild)) / 2 * bil1
bil5 = (-bil2 - Math.Sqrt(bild)) / 2 * bil1
TextBoxX1.Text = bil4
TextBoxX2.Text = bil5
ElseIf bild = 0 Then
bil4 = -bil2 / 2 * bil1
bil5 = -bil2 / 2 * bil1
TextBoxX1.Text = bil4
TextBoxX2.Text = bil5
Else
TextBoxX1.Text = "Akar tidak real"
TextBoxX2.Text = "Akar tidak real"
End If
End Sub
Dim bil1, bil2, bil3, bil4, bil5, bild As Single
bil1 = TextBoxA.Text
bil2 = TextBoxB.Text
bil3 = TextBoxC.Text
bild = bil2 ^ 2 - (4 * bil1 * bil3)
If bild > 0 Then
bil4 = (-bil2 + Math.Sqrt(bild)) / 2 * bil1
bil5 = (-bil2 - Math.Sqrt(bild)) / 2 * bil1
TextBoxX1.Text = bil4
TextBoxX2.Text = bil5
ElseIf bild = 0 Then
bil4 = -bil2 / 2 * bil1
bil5 = -bil2 / 2 * bil1
TextBoxX1.Text = bil4
TextBoxX2.Text = bil5
Else
TextBoxX1.Text = "Akar tidak real"
TextBoxX2.Text = "Akar tidak real"
End If
End Sub
6. Pada Bagian ButtonExit Masukkan (Copy - Paste) Script ini :
Private Sub ButtonExit_Click(sender As Object, e As EventArgs) Handles ButtonExit.Click
End
End Sub
End
End Sub
Kalau agan/sista ingin melihat software nya atau malas buat software nya agan bisa download software aplikasi persamaan kuadratnya di sini..
Download :
About anonyme
Hi, My Name is Hafeez. I am a webdesigner, blogspot developer and UI designer. I am a certified Themeforest top contributor and popular at JavaScript engineers. We have a team of professinal programmers, developers work together and make unique blogger templates.
0 comments:
Post a Comment