pembuatan nilai ke huruf

From nilai Huruf

Public Class formnilaihuruf
    Dim nilai As Double
    Dim status As String

    Sub kosongkan()
        Txtnilaiangka.Text = 0
        Txtnilaiangka.Focus()
        Lblhasilstatus.Text = "?"

    End Sub

    Private Sub Btncek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncek.Click
        nilai = Val(Txtnilaiangka.Text)
         Select Case nilai
            Case Is > 100
                status = "error"
            Case Is > 80
                status = "baik sekali"
            Case Is >= 65
                status = "baik"
            Case Is >= 55
                status = "cukup"
            Case Is >= 40
                status = "kurang"
            Case Is >= 0
                status = "kurang sekali"
            Case Is < 0
                status = "error"

        End Select

        Lblhasilstatus.Text = status

    End Sub

    Private Sub Btnkosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkosong.Click
        kosongkan()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()
    End Sub
End Class

konversi suhu Farenhait ke celsius

from konversi farenhait ke celsius

Public Class formkonversisuhu

    Dim fah, cel, kf, kc As Single
    Sub kosongkan()
        Txtfahrenhait.Text = 0
        Txtfahrenhait.Focus()
        Txtcelcius.Text = 0
        Lblkonversicelcius.Text = 0
        Lblkonversifahrenhait.Text = 0
        Lblcaracelcius.Text = "?"
        Lblcarafahrenhait.Text = "?"



    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtfahrenhait.TextChanged

    End Sub

    Private Sub Btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
        fah = Val(Txtfahrenhait.Text)
        cel = Val(Txtcelcius.Text)

        kf = 5 / 9 * (fah - 32)
        kc = 9 / 5 * cel + 32

        Lblcaracelcius.Text = " 9 / 5 * " & cel & " + 32 = "
        Lblcarafahrenhait.Text = " 5 / 9 * ( " & fah & " - 32 ) "
        Lblkonversicelcius.Text = kc
        Lblkonversifahrenhait.Text = kf
    End Sub

    Private Sub Btnkosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkosong.Click
        kosongkan()
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()
    End Sub
End Class

Progam Stopwatch

fromStopwach

Public Class frmStopwatch
    Dim SW As New Stopwatch
    'OnOff = 1 - jalan
    'OnOff = 0 - mati
    Dim OnOff As Byte = 1

    Private Sub frmStopwatch_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        OnOff = 0
        SW.Stop()
        OnOff = Nothing

    End Sub

    Private Sub Stopwatch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblJam.Text = "00:00:00:.000"
        lblSecond.Text = 0
        lblStatus.Text = "-"

        lblTanggal.Text = Today()

    End Sub
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Dim detik As Integer = Nothing
        OnOff = 1
        SW.Start()
        btnStop.Focus()

        Do Until OnOff = 0
            My.Application.DoEvents()
            lblJam.Text = SW.Elapsed.ToString
            detik = SW.ElapsedMilliseconds \ 1000
            lblSecond.Text = detik
            lblStatus.Text = SW.IsRunning.ToString

        Loop
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        OnOff = 0
        SW.Stop()
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        Dim detik As Integer = Nothing
        OnOff = 1
        SW.Reset()
        SW.Start()
        btnStop.Focus()

        Do Until OnOff = 0
            My.Application.DoEvents()
            lblJam.Text = SW.Elapsed.ToString
            detik = SW.ElapsedMilliseconds \ 1000
            lblSecond.Text = detik
            lblStatus.Text = SW.IsRunning.ToString
        Loop

    End Sub
End Class

Progam penjualan kayu

Form penjualan Kayu

Public Class FrmPENJUALANKAYU
    Dim isilist As ListViewItem
    Dim baris, Nourut, HARGA, p, l, t, QTY, TOTHARGA As Integer
    Dim KODE, JKYU As String
    Dim total, alltotal, diskon, jid, tbkd, TBSD, KEMBALI, DIBAYAR, vol, totvol As Double
    Sub tampilan()
        Select Case KODE
            Case Is = "K001"
                JKYU = "JATI"
                harga = 5000000
            Case Is = "K002"
                JKYU = "MERANTI'"
                harga = 1500000
            Case Is = "K003"
                JKYU = "KEMPER"
                harga = 2500000
            Case Is = "K004"
                JKYU = "KRUING"
                harga = 3000000

                TxtJENISKAYU.Text = JKYU
                txtHARGA.Text = Format(harga, "0,#")
        End Select
    End Sub
    Sub kosong()
        lblTOTAL.Text = FormatCurrency(alltotal)
        cmbKODE.Text = ""
        cmbKODE.Focus()
        TxtJENISKAYU.Text = ""
        txtHARGA.Text = ""
        txtP.Text = ""
        txtL.Text = ""
        txtT.Text = ""
        txtVOL.Text = ""
        txtTOTbyar.Text = ""

        txtQTY.Text = ""
        txtHARGAAWAL.Text = ""
    End Sub
    Private Sub btnTransaksiBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransaksiBaru.Click

        baris = 0
        Nourut = 1
        jid = 0
        QTY = 0
        P = 0
        L = 0
        T = 0
        harga = 0
        cmbKODE.Text = ""
        TOTHARGA = 0

        total = 0
        alltotal = 0
        KEMBALI = 0
        DIBAYAR = 0
        diskon = 0
        TBSD = 0
        vol = 0
        totvol = 0

        ListView1.Items.Clear()
        kosong()

        txtProsenDiskn.Text = ""
        txtDiskon.Text = ""
        txtSubTotl.Text = ""
        txtTOTbyar.Text = ""

        txtDibyar.Text = ""
        txtKembli.Text = ""

        lblTOTAL.Text = 0
        txtJmlItemDbli.Text = ""
        txtBtangKayuDbli.Text = ""
        txtVolKayuDbli.Text = ""
    End Sub
    Sub uang()
        DIBAYAR = Val(txtDibyar.Text)

        If DIBAYAR >= TBSD Then
            KEMBALI = DIBAYAR - TBSD
            txtKembli.Text = KEMBALI
            LblSTATUS.Text = "KEMBALIAN :"
            lblTOTAL.Text = FormatCurrency(KEMBALI)

            If MsgBox("transaksi baru lagi ?", vbYesNo + MsgBoxStyle.Question, "konfirmasi") = vbYes Then
                btnTransaksiBaru


                cmbKODE.Focus()
            Else
                Close()


            End If

        Else
            kembalian = TBSD - PEMbayarAN
            MsgBox("    UANG KURANG =    " & FormatCurrency(kembalian), MsgBoxStyle.Information, "PERINGATAN")
            Txtdibayar.Text = ""
            Txtdibayar.Focus()


        End If
    End Sub

    Sub HITUNG()
        DISKON = Val(((Txtprosentasediskon.Text) / 100)) * ALLTOTAL
        TBSD = ALLTOTAL - DISKON

        TXTDISKON.Text = Format(DISKON, "0,#")
        TXTtotalbayar.Text = Format(TBSD, "0,#")
        LBLTAMPILAN.Text = FormatCurrency(TBSD)
        Txtdibayar.Focus()
    End Sub
End Class

FORM USER LOGIN

FORM USER LOGIN

Private sub btnok_click(ByVal sender As System.Object, ByVal e AsSystem.EventAgs) Handels btnok.click
   
    if UCase (txtUser.text) = "ADMIN'' And UCase ( txtPassword.text) = "1234" then
      Dim FormMenu As New frmmenu
       FormMenu.show()
       me.Hide()
Else
      MsgBox("User dan Password yang masukkan Salah.", Msgboxstyle.Exclamation)
      txtPassword.text = ""
End If
End Sub

Private sub btncancel_click(ByVal sender As System.Object, ByVal e AsSystem.EventAgs) Handels btncancel.click
   End
End sub
End class

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