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