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