Buatlah program menghitung sisi miring (rumus Phitagoras) Input : a, b Output : c = Sqr(a^2 + b^2)
Halaman 1 dari 1
Buatlah program menghitung sisi miring (rumus Phitagoras) Input : a, b Output : c = Sqr(a^2 + b^2)
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Sqr(a ^ 2 + b ^ 2)
Text3.Text = c
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Sqr(a ^ 2 + b ^ 2)
Text3.Text = c
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Adhitya warman- Jumlah posting : 10
Join date : 16.04.12
Lokasi : BENGKULU
Similar topics
» Contoh Program Event Handling di Java
» Contoh Program Variabel dan Tipe Data
» Membuat Tulisan Program Aplikasi "GOOD LUCK SELAMAT BEKERJA"
» Contoh Program Variabel dan Tipe Data
» Membuat Tulisan Program Aplikasi "GOOD LUCK SELAMAT BEKERJA"
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|