Scribd
Upload
4 views2 pages

Persamaan Kuadrat Calculator Code

This document contains information about a quadratic equation application created by Yongki Feri Setiawan, including their name and student ID number. It describes the user interface of the application, which contains labels and boxes for inputting the coefficients a, b, c and displaying the determinant, solutions x1 and x2. It also includes the code for calculating the determinant and solutions when the "Hitung" button is clicked, and clearing the values when the "Ulangi" button is clicked.

Uploaded by

Yongki FS
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
4 views2 pages

Persamaan Kuadrat Calculator Code

This document contains information about a quadratic equation application created by Yongki Feri Setiawan, including their name and student ID number. It describes the user interface of the application, which contains labels and boxes for inputting the coefficients a, b, c and displaying the determinant, solutions x1 and x2. It also includes the code for calculating the determinant and solutions when the "Hitung" button is clicked, and clearing the values when the "Ulangi" button is clicked.

Uploaded by

Yongki FS
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

Nama

: Yongki Feri Setiawan NIM : 53081002047

No 1 2 Form1 Label1

Caption PersamaanKuadrat Persamaan Kuadrat

Properties Picture = (Bitmap) AutoSize = True BackColor = Highlight Text Font = Jokerman AutoSize = True BackColor = Highlight Text AutoSize = True BackColor = Highlight Text AutoSize = True BackColor = Highlight Text AutoSize = True

3 4 5 6 7 8

Label2 Label3 Label4 Label5 Label6 Label7

Nilai a Nilai b Nilai c Determinan X Y

9 10 11 12 13 14 15 16 17 18

Label8 NilaiA NilaiB NilaiC Determinan X1 X2 cmdHitung cmdUlangi cmdKeluar

By: Yongki Feri Setiawan

&Hitung &Ulangi &Keluar

BackColor = Highlight Text AutoSize = True BackColor = Highlight Text AutoSize = True BackColor = Highlight Text AutoSize = True BackColor = Highlight Text Text = (kosong) BackColor = Highlight Text = (kosong) BackColor = Highlight Text = (kosong) BackColor = Highlight Text = (kosong) BackColor = Highlight Text = (kosong) BackColor = Highlight Text = (kosong) BackColor = Highlight Font = Papyrus Font = Papyrus Font = Papyrus

Private Sub cmdHitung_Click() [Link] = Val([Link]) ^ 2 - (4 * Val(NilaiA) * Val(NilaiC)) [Link] = Val(NilaiA) ^ 2 + Val(NilaiB) + Val(NilaiC) [Link] = Val(NilaiB) / 2 * Val(NilaiA) End Sub Private Sub cmdUlangi_Click() [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" End Sub Private Sub cmdKeluar_Click() End End Sub

You might also like