Contoh Aplikasi Program Penjualan Dengan Vb.net 2008 ⚡

⚡ Use the old tamilyogi? Click here →

The complete streaming guide: compare services, find free options, and save money on subscriptions.

Contoh Aplikasi Program Penjualan Dengan Vb.net 2008 ⚡

Sub CetakNota(noFaktur As String) ' Ambil data dari database teksNota = "NOTA PENJUALAN" & vbCrLf & "No Faktur: " & noFaktur & vbCrLf & "==================" ' ... tambahkan detail barang ... PrintPreviewDialog1.Document = pd PrintPreviewDialog1.ShowDialog() End Sub

dtDetail.Rows.Add(txtKodeBarang.Text, txtNamaBarang.Text, harga, qty, subtotal) total += subtotal lblTotal.Text = Format(total, "C2") txtKodeBarang.Clear() txtNamaBarang.Clear() txtHarga.Clear() txtQty.Clear() End Sub contoh aplikasi program penjualan dengan vb.net 2008

Private Sub pd_PrintPage(sender As Object, e As PrintPageEventArgs) Handles pd.PrintPage e.Graphics.DrawString(teksNota, New Font("Arial", 12), Brushes.Black, 100, 100) End Sub End Class Cara termudah tanpa Crystal Reports: Buat form frmLaporan.vb dengan DateTimePicker dari tanggal sampai tanggal, lalu tampilkan di DataGridView: Sub CetakNota(noFaktur As String) ' Ambil data dari

Imports System.Drawing.Printing Public Class frmNota Private WithEvents pd As New PrintDocument() Private teksNota As String harga FROM barang WHERE kode_barang=@kode"

Private Sub txtKodeBarang_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKodeBarang.KeyPress If e.KeyChar = Chr(13) Then Koneksi() cmd = New OleDbCommand("SELECT nama_barang, harga FROM barang WHERE kode_barang=@kode", conn) cmd.Parameters.AddWithValue("@kode", txtKodeBarang.Text) rd = cmd.ExecuteReader() If rd.Read() Then txtNamaBarang.Text = rd("nama_barang").ToString() txtHarga.Text = rd("harga").ToString() Else MsgBox("Barang tidak ditemukan") End If rd.Close() TutupKoneksi() txtQty.Focus() End If End Sub

Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click If txtKode.Text = "" Then MsgBox("Kode barang harus diisi!") Return End If Koneksi() cmd = New OleDbCommand("INSERT INTO barang (kode_barang, nama_barang, harga, stok) VALUES (@kode, @nama, @harga, @stok)", conn) cmd.Parameters.AddWithValue("@kode", txtKode.Text) cmd.Parameters.AddWithValue("@nama", txtNama.Text) cmd.Parameters.AddWithValue("@harga", Val(txtHarga.Text)) cmd.Parameters.AddWithValue("@stok", Val(txtStok.Text)) cmd.ExecuteNonQuery() TutupKoneksi() TampilkanData() MsgBox("Data barang tersimpan") End Sub

Private Sub btnSimpanTransaksi_Click(sender As Object, e As EventArgs) Handles btnSimpanTransaksi.Click Koneksi() Dim trans As OleDbTransaction = conn.BeginTransaction() Try ' Simpan ke header penjualan cmd = New OleDbCommand("INSERT INTO penjualan (no_faktur, tgl, id_customer, total_bayar) VALUES (@faktur, @tgl, @idcust, @total)", conn, trans) cmd.Parameters.AddWithValue("@faktur", txtNoFaktur.Text) cmd.Parameters.AddWithValue("@tgl", dtpTanggal.Value) cmd.Parameters.AddWithValue("@idcust", cmbCustomer.SelectedValue) cmd.Parameters.AddWithValue("@total", total) cmd.ExecuteNonQuery()

Search Guides

Looking for something specific? Search all guides below.

Frequently Asked Questions

Everything you need to know about using this site.

All of them — from the major paid services (Netflix, Disney+, Max, Prime Video, Hulu, Apple TV+, Paramount+, Peacock) to free platforms (Tubi, Pluto TV, Crackle, Kanopy, Roku Channel, Freevee).

tamilyogi is a resource for discovering where movies and TV shows are available to stream. We compare all major platforms — paid and free — so you can make informed viewing choices.

Regularly, to reflect changes in streaming platforms, pricing, and availability. Streaming catalogs change frequently, so we aim to keep everything current.

Both have been shut down, and current sites using those names are unaffiliated clones — often loaded with malware. Free services like Tubi and Pluto TV offer larger, safer catalogs with consistent uptime.

Yes, completely free. We provide information about where to watch — we don't charge for anything.

You can access tamilyogi from any country. Keep in mind that streaming service availability and content libraries vary by region due to licensing agreements. Our coverage focuses primarily on US-available platforms.

Multiple legitimate platforms stream movies for free: Tubi, Pluto TV, Crackle, Peacock's free tier, The Roku Channel, and Amazon Freevee are all ad-supported. Kanopy and Hoopla offer ad-free streaming through your public library.

No — we're a guide, not a streaming platform. We point you to where content is available across licensed services. We don't host any video content ourselves.

About

Who we are and how this site works.

What We Do

tamilyogi is your guide to the streaming landscape. We compare every major service so you can find where to watch, discover free options, and make smart subscription decisions.

Editorial Policy

Our content is independently researched and regularly updated. We compare platforms based on pricing, content libraries, and user experience. No streaming service pays for favorable coverage.

Affiliate Disclosure

This site is partially funded through affiliate partnerships. If you subscribe to a service via our links, we may receive a small commission at no additional cost to you. These partnerships do not affect our reviews or recommendations.