PROGRAM SEDERHANA LUAS LINGKARAN & VOLUME TABUNG

LUAS LINGKARAN

 LANGKAH-LANGKAH MEMBUAT  LUAS LINGKARAN
    YAITU 

1. BUAT DESAIN FORM NY KLIK MENU 
     TERUS PILIH APLIKASI VBNET 2008 .
      DAN DESAIN.

2. SETELAH ITU MASUKKAN CODING MENURUT TEMPAT NY MASING2

    SEPERTI CODING PROSES.

Public Class FormAplikasiLingkaran

    Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        Dim jarijari As Double

        Dim tinggi As Double

        Dim luas As Double

        Dim diameter As Double

        Dim keliling As Integer

        jarijari = Val(Txtjari.Text)

        tinggi = Val(TxtTinggi.Text)

        luas = 22 / 7 * (jarijari ^ 2)

        TxtLuasLingkaran.Text = luas

        diameter = 2 * (jarijari)

        TxtDiameterLingkaran.Text = diameter

        keliling = 22 / 7 * (diameter)

        TxtKelilingLingkaran.Text = keliling

    End Sub

    Private Sub ButtonTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTutup.Click

        End

    End Sub

    Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBersih.Click

        Txtjari.Clear()

        TxtLuasLingkaran.Clear()

        TxtTinggi.Clear()

        TxtDiameterLingkaran.Clear()

        TxtKelilingLingkaran.Clear()

        Txtjari.Focus()

    End Sub

    Private Sub TxtKelilingLingkaran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKelilingLingkaran.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

 3 .SELANJUTNYA KLIK PROSES PADA FORM LINGKARAN MAKA AKAN MUNCUL GAMBAR SEPERTY BERIKUT.

VOLUME TABUNG .

LANGKAH-LANGKAH NYSEPERTY BERIKUT.

1. BUAT DESAIN PADA FORM DAN BUAT NAMA FORM .

2.SELANJUT NY KITA MASUKKAN CODING PADA FORM MASING2 GUYS

   SEPERTY PADA FORM PROSES DAN LAINYA.

Public Class FormAplikasiTabung

    Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        Dim jarijari As Double

        Dim tinggi As Double

        Dim luas As Double

        Dim luasselimuttabung As Double

        Dim volumetabung As Double

        Dim luaspermukaantabung As Double

        jarijari = Val(TxtJari.Text)

        tinggi = Val(TxtTinggi.Text)

        luas = 22 / 7 * (jarijari ^ 2)

        TxtLuas.Text = luas

        luasselimuttabung = 2 * 22 / 7 * (jarijari * tinggi)

        TxtSelimutTabung.Text = luasselimuttabung

        volumetabung = (22 / 7 * (jarijari ^ 2) * tinggi)

        TxtVolumeTabung.Text = volumetabung

        luaspermukaantabung = 2 * (22 / 7) * (jarijari) * (jarijari + tinggi)

        TxtPermukaanTabung.Text = luaspermukaantabung

    End Sub

    Private Sub ButtonTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTutup.Click

        End

    End Sub

    Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBersih.Click

        TxtJari.Clear()

        TxtLuas.Clear()

        TxtTinggi.Clear()

        TxtSelimutTabung.Clear()

        TxtVolumeTabung.Clear()

        TxtPermukaanTabung.Clear()

        TxtJari.Focus()

    End Sub

End Class

 3 SELANJUTNYA KITA JALAN KAN FORM NY DENGAN KLIK FORM PADA DESAIN NYA GUYS

    MAKA AKAN MUNCUL GAMBAR SEPERTY BERIKUT.

OK GUYS TERIMAKASIH .

IKUTI TUTORIAL SELANJUTNY.NICE.