MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG

Tampilan from

Desain form:


1 Form1        (Name) : frmPersegiPanjang
                      Text : Luas dan Keliling Persegi Panjang
                      FormBorderStyle : FixedSingle
                      MaximizeBox : False
                      MinimizeBox : False
2 Label1        Text : Panjang =
                      TextAlign : MiddleRight
3 Label2        Text : Lebar =

4 Label3        Text : Keliling =
5 Label4        Text : Luas =
6 TextBox1    (Name) : txtPanjang
7 TextBox2    (Name) : txtLebar
8 TextBox3    (Name) : txtKeliling
9 TextBox4    (Name) : txtLuas

10 Button1     (Name) : btnHitung
                       Text : Hitung

11 Button2     (Name) : btnKosong
                      Text : Kosong
 12 Button3    (Name) : btnTutup
                       Text : Tutup

KODE YANG DIGUNAKAN:

1. Di bawah Public Class, deklarasikan variable yang dibutuhkan.

    1. Deklarasi Variabel"

Dim panjang, lebar, keliling, luas As integer

2. Buatlah Sub baru tersendiri bernama Kosong, yang berfungsi untuk melakukan prosedur pengosongan form saat user ingin memulai perhitungan baru.
  

Sub Kosongkan()

       me.Txtpanjang.text = 0

       me.Txtpanjang.Focus()

       me.TxtLebar.text = 0

       me.TxtKeliling.text = 0 

       me.Txtluas.text = 0  

3. Dobel klik control btnHitung, ikuti petunjuk di bawah ini. 

 Private sub btnHitung_click(Byval sender as system,,,,,

     '2. memberinilai var. panjang dan lebar

     panjang = Val(me.txtpanjang.text)

     lebar = val(me.txtlebar.text)

     '3.menghitung keliling dan luas

     luas = Panjang * lebar

     Keliling = 2 * (Panjang + lebar)

     '4.tampilkan ke texbox Keliling dan Luas

     TxtLuas.text= luas

     TxtKeliling.text= keliling

End Sub

4. Isikan code berikut pada tombol Kosong (btnKosong)

Private sub btnKosong_click(byval sender as system,,,,

call kosong()

End Sub

 

  SELAMAT BELAJAR

PENJUALAN BARNG

frm penjualn brang

jika pembeli adalah MEMBER


KODE YANG DIGUNAKAN

Public Class frmListBoxPenjualanD3
Dim PilihanBarang, MEMBER As String
Dim Diskon, Total, TotalSetelahDiskon, dibayar, kembali, harga, PPN, totSetelahPPN, qty As Single
Sub KosongkanForm()
Me.ListBox1.Focus()
Me.txtNamaBarang.Text = ""
Me.txtHarga.Text = 0
Me.txtJmlBeli.Text = 0
Me.txtTotal.Text = 0
Me.txtDiskon.Text = 0
Me.txtTotalSetelahDiskon.Text = 0
txtPPN.Text = 0
txtTotalSetelahPPN.Text = 0
cmbMember.Text = ""
dibayar = 0
kembali = 0
txtdibayar.Text = 0
txtKembalian.Text = 0
MEMBER = ""
Diskon = 0
Total = 0
TotalSetelahDiskon = 0
harga = 0
PPN = 0
totSetelahPPN = 0
qty = 0
PilihanBarang = 0
lblinfo.Text = "Total :"
lblTampilan.Text = FormatCurrency(0)
End Sub

'FUNCTION UNTUK MENAMPILKAN HARGA PER BARANG

Sub TampilHarga() PilihanBarang = Me.ListBox1.SelectedItem Select Case PilihanBarang Case Is = "Monitor SPC 17" harga = 1090000 Case Is = "Monitor LG 17" harga = 1115000 Case Is = "Monitor AOC 17" harga = 1154000 Case Is = "Monitor Samsung 17" harga = 1190000 Case Is = "Monitor Phillips 17" harga = 1211000 End Select txtHarga.Text = FormatCurrency(harga) txtNamaBarang.Text = PilihanBarang End Sub
'prosedur HITUNG akan dipanggil pada waktu user menekan Enter pada textbox txtJmlBeli
Sub Hitung()
qty = Val(txtJmlBeli.Text)
MEMBER = cmbMember.Text
Total = qty * harga
If MEMBER = "YA" Then
Diskon = Total * 0.1
End If
TotalSetelahDiskon = Total - Diskon
PPN = TotalSetelahDiskon * 0.05
totSetelahPPN = TotalSetelahDiskon + PPN
txtTotal.Text = FormatCurrency(Total)
txtDiskon.Text = FormatCurrency(Diskon)
txtTotalSetelahDiskon.Text = FormatCurrency(TotalSetelahDiskon)
txtPPN.Text = FormatCurrency(PPN)
txtTotalSetelahPPN.Text = FormatCurrency(totSetelahPPN)
lblTampilan.Text = FormatCurrency(totSetelahPPN)
End Sub

Private Sub frmListBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'MEMASUKKAN ITEM KE LISTBOX Me.ListBox1.Items.Add("Monitor SPC 17") Me.ListBox1.Items.Add("Monitor LG 17") Me.ListBox1.Items.Add("Monitor AOC 17") Me.ListBox1.Items.Add("Monitor Samsung 17") Me.ListBox1.Items.Add("Monitor Phillips 17") 'PANGGIL FUNCTION MENGOSONGKAN FORM Call KosongkanForm()
End Sub

Private Sub ListBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyUp
If e.KeyCode = Keys.F1 Then
txtJmlBeli.Focus()
End If
End Sub

Private Sub listMenu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ListBox1.SelectedIndexChanged Call TampilHarga() 'MEM-BLOK SELURUH ISI TEXTBOX Me.txtJmlBeli.SelectionLength = Len(Me.txtJmlBeli.Text) End Sub

'JIKA MENEKAN TOMBOL ENTER PADA TXTJMBELI,
'MAKA MEMANGGIL PROSES HITUNG DAN MELETAKKAN KURSOR PADA TOMBOL KOSONG

Private Sub txtJmlBeli_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJmlBeli.KeyUp
If (e.KeyCode) = Keys.Enter Then
Call Hitung()
txtdibayar.Focus()
End If
End Sub

Private Sub btnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click Call KosongkanForm() End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Close()
End Sub

Private Sub txtdibayar_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdibayar.KeyUp If e.KeyCode = Keys.Enter Then dibayar = Val(txtdibayar.Text) kembali = dibayar - totSetelahPPN If dibayar >= totSetelahPPN Then txtKembalian.Text = FormatCurrency(kembali) txtdibayar.Text = FormatCurrency(dibayar) lblinfo.Text = "Kembali :" lblTampilan.Text = FormatCurrency(kembali) Else MsgBox("Uang bayar kurang = Rp. " & FormatCurrency(System.Math.Abs(kembali)), vbCritical, "PERINGATAN") End If ElseIf e.KeyCode = Keys.F1 Then KosongkanForm()
End If
End Sub

End Class