APLIKASI SEGITIGA SIKU SIKU

      I.        LISTING PROGRAM

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        imports System.Math

        'Deklarasi

       

        Dim hitung As Double

        'Rumus Segitiga Siku-Siku

        hitung = Sqrt((Val(TextBox1.Text) ^ 2) + (Val(TextBox2.Text) ^ 2))

       

        Label6.Text = hitung & " cm - Sisi Miring Segitiga"

    End Sub

                        End Class

    II.        PROPERTIES

Nama Objek	Properties	Nilai
Form1	Text	SEGITIGA SIKU SIKU
	MaximizeBox	False
TextBox1	Name	TextBox1
	TextAlign	Right
TextBox2	Name	TextBox2
	TextAlign	Right
Button	Text	&Hitung
	Name	Button1
Label1	Text	SEGITIGA SIKU SIKU
Label2	Text	Nilai Alas
Label3	Text	Nilai Tinggi
Label4	Text	Cm
Label5	Text	cm
Label6	Text	Nilai Sisi Miring
	Name	Label6
	FontBold	True

   III.        TAMPILAN

Read Full story