Pada UAS Pemograman bisnis 1 kali ini saya akan membua program untuk menghitung luas bangun datar menggunakan VB.Net 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label2.Visible = True
            Label2.Text = "Jari-Jari"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label2.Visible = True
            Label2.Text = "Sisi"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label2.Visible = True
            Label2.Text = "Panjang"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Lebar"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label2.Visible = True
            Label2.Text = "Alas"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Tinggi"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If
    End Sub

Kedua, klik dua kali pada button Keluar,, dan ketik koding berwarna merah berikut ini :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

Ketiga,klik dua kali pada button Hitung, dan ketik koding berwarna merah berikut ini :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = 3.14 * Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text) / 2
            Label4.Text = "Luas = " & Hasil
        End If
    End Sub
End Class

Pada UTS Pemograman bisnis 1 kali ini saya akan membua program untuk menghitung luas bangun datar menggunakan VB.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label2.Visible = True
            Label2.Text = "Jari-Jari"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label2.Visible = True
            Label2.Text = "Sisi"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label2.Visible = True
            Label2.Text = "Panjang"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Lebar"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label2.Visible = True
            Label2.Text = "Alas"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Tinggi"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If
    End Sub

Kedua, klik dua kali pada button Keluar,, dan ketik koding berwarna merah berikut ini :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

Ketiga,klik dua kali pada button Hitung, dan ketik koding berwarna merah berikut ini :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = 3.14 * Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text) / 2
            Label4.Text = "Luas = " & Hasil
        End If
    End Sub
End Class

POMPA PORTABLE 

Pernahkan ada berada dalam situasi-situasi seperti ini?

• sudah siap berangkat kerja, namun apa daya ban motor kempes/kurang angin

sehingga harus mendorong motor sampai ke tukang tambal ban terdekat

• anak siap berangkat sekolah naik sepeda, tapi ditemuinya ban sepedanya kempes/kurang angin

• mau main bola tapi bolanya kurang membal karena kurang angin

• di tengah jalan mengalami kempes ban, sehingga perlu mendorong motor sampai di bengkel tambal ban terdekat hanya untuk tambah angin.

Kini ada solusi simple, cepat dan praktis…Kami perkenalkan
 POMPA ANGIN PORTABLE "UNITED"



Dengan total berat tidak lebih dari Blackberry anda....(kalau punya...hehehe....)…Sangat ringan bukan?? Seringan tenaga yang dibutuhkan untuk memompanya.
Panjangnya yang hanya 270mm sehingga sangat memungkinkan masuk ke dalam box motor anda, atau dipasang pada sepeda kesayangan anda.
Contoh pompa yang disimpan ke dalam box HONDA Vario CBS.



Masih terlalu panjang??? Jangan khawatir, Pompa ini bisa dibongkar pasang seperti gambar di bawah ini sehingga lebih memungkinkan muat di box motor anda.



Anda berminat??
Silakan Hubungi : 081314412630/@Turjatur
Lokasi: Pondok Bambu, Duren Sawit, Pondok Kelapa
(mau dtg langsung ke lokasi, silahkan ya bro/sist..
Bila ingin COD seputaran daerah diatas
Berapa Harganya????
HANYA RP 40.000,- PER UNIT