Disini saya akan membuat program Toko Obat
Pertama kita akan kenalan dengan web form yg saya buat dulu,saya membuat web form Table

dan saya membuat web toko nya

tampilan dari web toko nya

tampilan dari web table nya

jika kita ingin mencari suatu kode obat, masukan kode nya seperti berikut

lalu klik search

dan akan terlihat jenis,nama,stok,harga nya.

source code:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class table_alialfaris161011400201
    Inherits System.Web.UI.Page
    Dim constring As String = ConfigurationManager.ConnectionStrings("Database0ConnectionString").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim oTbl As New DataTable
    Dim xReader As OleDbDataReader

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Response.Redirect("webtoko_alialfaris161011400201.aspx")
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      
    End Sub
    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(TxtKode.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Table1 where Kode='" + TxtKode.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TxtNama.Text = xReader("Nama Obat")
                TxtJenis.Text = xReader("Jenis Obat")
                TxtStok.Text = xReader("Stok")
                TxtHarga.Text = xReader("Harga")

            Else
                TxtNama.Text = "Nama Karyawan Tidak ada"
                Exit Sub
            End If
            xReader.Close()

        End If
    End Sub
End Class

apabila ada kekurangan mohon dimaafkan.

Disini saya akan membuat sebuah program dengan bahasa VB.Net

langkah pertama, pastikan kalian menginstal softwarenya.. disini saya menggunakan software visual
studio premium 2013.

langsung saja  buat dulu desain nya seperti ini.

lalu isi source code nya..
(source code saya kasih di akhir)

kita run saja, lalu pilih tv murah atau mahal (terserah) dan berapa jumlah yang ingin dibeli.

lalu kita hitung berapa total nya.

wow.. lumayan mahal, trus masukan berapa uang yang kita bayar dan hitung kembalian nya.

kemudian kita cetak struk(word).

selesai.

(source code)

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim file As New word.Document
        file = aplikasi.Documents.Open("C:\Users\alial\Documents\22.docx")
        file.Bookmarks("Nama").Select()
        If murah.Checked = True Then
            aplikasi.Selection.TypeText(murah.Text)
        ElseIf mahal.Checked = True Then
            aplikasi.Selection.TypeText(mahal.Text)
        End If

        file.Bookmarks("Harga").Select()
        aplikasi.Selection.TypeText(tbxharga.Text)

        file.Bookmarks("Jumlah_Beli").Select()
        aplikasi.Selection.TypeText(cbjumlah.Text)

        file.Bookmarks("Harga_Total").Select()
        aplikasi.Selection.TypeText(tbxtotal.Text)

        file.Bookmarks("Bayar").Select()
        aplikasi.Selection.TypeText(tbxbayar.Text)

        file.Bookmarks("Kembalian").Select()
        aplikasi.Selection.TypeText(tbxkembalian.Text)

        file.SaveAs2("C:\Users\alial\Documents\223.docx")

        MsgBox("Sukses")
        aplikasi.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        tbxkembalian.Text = tbxbayar.Text - tbxtotal.Text
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles tbxtotal.TextChanged

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs)
        Dim abc As Integer
        abc = tbxharga.Text * cbjumlah.Text

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs)
    End Sub

    Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim jumlah As Integer
        For jumlah = 1 To 10
            cbjumlah.Items.Add(jumlah)
        Next
    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        Dim abc As Integer
        abc = tbxharga.Text * cbjumlah.Text

        If cbjumlah.Text > 5 Then
            tbxdiskon.Text = abc * 0.1
        Else
            tbxdiskon.Text = 0
        End If
        tbxtotal.Text = abc - tbxdiskon.Text
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbjumlah.SelectedIndexChanged

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles murah.CheckedChanged
        Select tbxcari.Text
            Case 1
                murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
            Case 2
                murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
        End Select
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If tbxcari.Text > 5 Then
            MsgBox("Hanya bisa memilih sampai 5")

        ElseIf murah.Checked = True Then
            Select tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
                    tbxharga.Text = "50000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
                    tbxharga.Text = "70000"
            End Select

        ElseIf mahal.Checked = True Then
            Select tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
                    tbxharga.Text = "2000000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
                    tbxharga.Text = "3000000"
            End Select
        End If

    End Sub

    Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles tbxcari.TextChanged

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles mahal.CheckedChanged
        Select tbxcari.Text
            Case 1
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
            Case 2
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
        End Select
    End Sub
End Class