Membuat Program Pendataan Obat - Visual Basic

Design programnya : 

Atur popertinya :

Kode kodingnya (Scripnya) ;

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.Text = "Entri Data Obat"

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.btSimpan.Enabled = False

    End Sub

    Private Sub btTambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btTambah.Click

        Me.txtKode_Obat.Clear()

        Me.txtNama_Obat.Clear()

        Me.txtBanyak.Clear()

        Me.txtHarga.Clear()

        Me.txtKode_Obat.Focus()

    End Sub

    Private Sub cbSatuan_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbSatuan.SelectedIndexChanged

        If Me.cbSatuan.Text = "Buah" Then

            Me.txtHarga.Text = 50000

        ElseIf Me.cbSatuan.Text = "Box" Then

            Me.txtHarga.Text = 60000

        ElseIf Me.cbSatuan.Text = "Botol" Then

            Me.txtHarga.Text = 70000

        ElseIf Me.cbSatuan.Text = "Dus" Then

            Me.txtHarga.Text = 80000

        ElseIf Me.cbSatuan.Text = "Tablet" Then

            Me.txtHarga.Text = 5000

        End If

    End Sub

    Private Sub btKeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btKeluar.Click

        Me.Close()

    End Sub

End Class

Berbagi :