Menghitung Rumus Phytagoras dengan VB6

Menghitung Rumus Phytagoras dengan VB6 - Tip kali akan menghadirkan sebuah tip dari fungsi Matematik, tentu kita masih ingat yang namanya rumus.Phytagoras adalah rumus yang di gunakan untuk mencari panjang sisi pada sebuah segitiga siku-siku.Rumus ini di temukan oleh seorang ilmuwan yang bernama Phytagoras,dalam dunia matematika rumus ini di jabarkan dengan c² = b² + a² .

Pada pertemuan kali ini Saya ingin memberikan trik bagaimana cara menghitung rumus phytagoras dengan menggunakan program Visual Basic 6.0, dimana didalam rumus ini kita akan mencari sisi panjang BC.Berikut adalaha langkah-langkahnya :

1. Buka Form VB6 Anda

2. Tanamkan 3 Line (garis), 3 TextBox, 1 Commandbutton dan beberapa Label.

3. Desainlah seperti gambar dibawah ini :

Desain Form

 4. Kemudian Anda ketik kode dibawah ini di jendela kode :

Private Sub Command1_Click()

Dim AB, AC, BC As Single

AB = Val(Text1.Text)

AC = Val(Text2.Text)

BC = Val(Text3.Text)

If AB <> 0 And AC <> 0 Then

BC = Sqr(AB ^ 2 + AC ^ 2)

Text3.Text = Round(BC, 2)

ElseIf AB <> 0 And BC <> 0 Then

AC = Sqr(BC ^ 2 - AB ^ 2)

Text2.Text = Round(AC, 2)

ElseIf AC <> 0 And BC <> 0 Then

AB = Sqr(BC ^ 2 - AC ^ 2)

Text1.Text = Round(AB, 2)

End If

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

Command1.Enabled = False

Text1.Text = ""

Text2.Text = ""

Text3.Text = "?"

End Sub

Private Sub Text2_Change()

If Text2.Text = "" Then

Command1.Enabled = False

Else

Command1.Enabled = True

End If

End Sub

5. Simpan kode Anda dan jalankan Program.

Sesudah Anda berhasil menjalankan program, coba masukan panjang dari A - B dan Tinggi dari A - C, lalu tekan tombol "Hitung", maka hasilnya akan terlihat pada garis B - C

Demikian tip Menghitung Rumus Phytagoras dengan VB6. Selamat mencoba semoga berhasil.

Related Post: Matematika