Cara menghitung volume tabung di vb 2013

VOLUME TABUNG

Langkah 1 :
Bahan sbb:
Label, TextBox, Button

Langkah 2 :
Buat pada propertiesnya sbb :

Langkah 3 :
Beri listing program pada buttun, :

Listing program :

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

        Dim r As Integer = Val(TextBox1.Text)

        Dim t As Integer = Val(TextBox2.Text)

        Dim hasil As Integer = Val(TextBox3.Text)

        Dim luas As Integer = 22 / 7 * r * r

        hasil = luas * t

        TextBox3.Text = hasil

    End Sub

Hasil :

SEKIAN

• Tweet
• Share
• Share
• Share
• Share

About Admin Salis - Informasi

Nama      : RACHMAN SALISTIANTO
Sekolah   : SMK N 2 KLATEN
Alamat    : KRAKITAN, BAYAT, KLATEN, SEMARANG (JAWA TENGAH), INDONESIA

Related Post