Membuat Program Data Obat menggunakan Microsoft Visual Basic 2010 Express

Membuat Program Data Obat

menggunakan Microsoft Visual Basic 2010 Express

1.       Buka aplikasi Microsoft Visual Basic 2010 pada PC/Laptop anda.

2.       Klik New Project.

Pilih Windows Forms Application dan isikan nama file yang akan dibuat pada kolom Name.

Kemudian klik OK.

3.       Buatlah Design program seperti dibawah ini :

4.       Untuk coding lengkapnya adalah sebagai berikut :

Public Class Form1

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

        Me.Close()

    End Sub

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

        Me.Text = "Entri Data Obat"

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.btSimpan.Enabled = False

        Me.BackColor = Color.DarkGray

    End Sub

    Private Sub btTambah_Click(ByVal sender As System.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 System.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 txtHarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged

    End Sub

End Class

5.       Setelah semua selesai, jalankan program dengan menekan tombol start debugging atau bisa menggunakan tombol F5.

6.    Selamat mencoba kawan.. semoga penjelasan diatas dapat bermanfaat dan mempermudah teman-teman semua dalam pembuatan program.

Tetap semangat, terus berusaha dan pantang menyerah !!  Selamat belajar..

http://fitrifebriani26.blogspot.com