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     &nbs

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        Lblcaracelci

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&n

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"       

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)      

MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG

Tampilan from Desain form:1 Form1        (Name) : frmPersegiPanjang                      Text : Luas dan Keliling Persegi Panjang                      FormBorderStyle : FixedSingle                  &n

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 =