MATERI ALGORITMA

%PDF-1.5 %µµµµ 1 0 obj <>>> endobj 2 0 obj <> endobj 3 0 obj <>/XObject<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/MediaBox[ 0 0 540 720] /Contents 4 0 R/Group<>/Tabs/S/StructParents 0>> endobj 4 0 obj <> stream xœåZY“Û6~W•þÉÔ ".‚t9®Œí¬Ë»™*ggRûäaY’g¤q4š¤òï·»Á"%¢´yˆ«¬
A

WEB

Format Teks Ini dicetak tebal
Ini di cetak miring
Ini Dicetak Garis bawah
Ini dicetak Mencoret
Ini dicetak , tebal, mirng, garis bawah dan di coret
Besaran Tulisan

Ukuran huruf HI

Ukuran huruf H2

Ukuran huruf H3

Ukuran huruf H4

Ukurun huruf H5

Ukuran Small

Samsul Ma'arif

Public Class frmJual
    Dim SQL As String
    Dim Proses As New ClsKoneksi
    Dim tblJual As DataTable
    Dim tblBarang As DataTable
    Public MyListItem As ListViewItem
    Dim stk As Integer
    Sub HeaderJual()
        lstJual.Columns.Add("NO", 30, HorizontalAlignment.Right)
        lstJual.Columns.Add("Kode", 60, HorizontalAlignment.Center)
        lstJual.Columns.Add("Nama Barang", 170, HorizontalAlignment.Left)
        lstJual.Columns.Add("Harga", 60, HorizontalAlignment.Right)
        lstJual.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
        lstJual.Columns.Add("Total", 60, HorizontalAlignment.Right)
    End Sub
    Sub Tampil()
        Dim i As Integer
        Dim urut As Integer
        Dim ttl, gttl As Double
        urut = 1
        'jml = 0
        Try
            If lstJual.Items.Count > 0 Then
                lstJual.Clear()
            End If
            lstJual.View = View.Details
            Call HeaderJual()
            tblJual = Proses.ExecuteQuery("SELECT dbojual.kode, dbobarang.nabar, dbobarang.stok, dbobarang.hrg_jual, dbojual.jumlah FROM dbobarang, dbojual WHERE dbobarang.kode=dbojual.kode AND nofak='" & txtNofak.Text & "'order by dbobarang.nabar asc")
            For i = 0 To tblJual.Rows.Count - 1
                With tblJual.Rows(i)
                    MyListItem = lstJual.Items.Add(urut)
                    MyListItem.SubItems.Add(.Item("kode").ToString)
                    MyListItem.SubItems.Add(.Item("nabar").ToString)
                    MyListItem.SubItems.Add(.Item("hrg_jual").ToString)
                    MyListItem.SubItems.Add(.Item("jumlah").ToString)
                    ttl = .Item("hrg_jual") * .Item("jumlah")
                    gttl = gttl + ttl
                    MyListItem.SubItems.Add(ttl.ToString)
                End With
                urut = urut + 1
            Next
        Catch Exp As Exception
            MsgBox("Program error" & vbCrLf & Err.Description)
        End Try
        txtTTL.Text = gttl
    End Sub
    Private Sub txtKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKode.KeyPress
        If (e.KeyChar = Chr(13) And txtQTY.Text <> "") Then
            txtBayar.Focus()
        ElseIf (e.KeyChar = Chr(13) And txtQTY.Text = "") Then
            MsgBox("Maaf belum ada transaksi !")
        End If
    End Sub
    Private Sub txtKode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKode.TextChanged
        Dim stkmin As Integer
        stkmin = 0
        If Len(txtKode.Text) < 6 Then Exit Sub
        tblBarang = Proses.ExecuteQuery("Select * From dbobarang Where kode='" & txtKode.Text & "'")
        If tblBarang.Rows.Count > 0 Then
            With tblBarang.Rows(0)
                txtNabar.Text = .Item("nabar")
                txtHarga.Text = .Item("hrg_jual")
                stk = .Item("stok")
                stkmin = .Item("stok_min")
                If stk = stkmin Then
                    MsgBox("Maaf stok barang habis !")
                    Exit Sub
                End If
            End With
            txtQTY.Focus()
            'btnSimpan.Enabled = False : btnKeluar.Enabled = True
            'btnUpdate.Enabled = True : btnHapus.Enabled = True : btnBatal.Enabled = True
        Else
            MsgBox("Kode tidak dikenal !")
        End If
    End Sub
    Sub Kode_Otomatis()
        tblJual = Proses.ExecuteQuery("Select * From dbojual order by nofak desc")
        If tblJual.Rows.Count = 0 Then
            txtNofak.Text = "TR-001"
        Else
            With tblJual.Rows(0)
                txtNofak.Text = .Item("nofak")
            End With
            txtNofak.Text = Val(Microsoft.VisualBasic.Mid(txtNofak.Text, 4, 3)) + 1
            If Len(txtNofak.Text) = 1 Then
                txtNofak.Text = "TR-00" & txtNofak.Text & ""
            ElseIf Len(txtNofak.Text) = 2 Then
                txtNofak.Text = "TR-0" & txtNofak.Text & ""
            ElseIf Len(txtNofak.Text) = 3 Then
                txtNofak.Text = "TR-" & txtNofak.Text & ""
            End If
        End If
    End Sub
    Sub SimpanTransaksi()
        Dim tglm As Date
        tglm = Now()
        SQL = "Insert Into dbojual Values ('" & txtNofak.Text & "','" & txtKode.Text & "','" & Format(tglm, "yyyy/MM/dd") & "' ,'" & txtQTY.Text & "','KS001' )"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data Baru telah disimpan..!!", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Tampil()
        'Call bersih()
    End Sub
    Sub UpdateTransaksi()
        Dim jmlstk As Integer
        jmlstk = stk - Val(txtQTY.Text)
        SQL = "Update dbobarang Set stok = '" & jmlstk & "' where kode = '" & txtKode.Text & "'"
        Proses.ExecuteNonQuery(SQL)
        'MessageBox.Show("Data telah diubah..!!", "Perubahan Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        'Call bersih()
    End Sub
    Private Sub frmJual_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Kode_Otomatis()
        txtNabar.Enabled = False
        txtHarga.Enabled = False
        txtNofak.Enabled = False
        txtQTY.Enabled = True
        txtKembali.Enabled = False
    End Sub
    Private Sub txtQTY_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQTY.KeyPress
        If e.KeyChar = Chr(13) Then
            Call SimpanTransaksi()
            Call UpdateTransaksi()
            Call Bersih()
            txtKode.Focus()
        End If
    End Sub
    Sub Bersih()
        txtKode.Text = ""
        txtNabar.Text = ""
        txtHarga.Text = ""
        txtQTY.Text = ""
    End Sub
    Private Sub txtBayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBayar.TextChanged
        txtKembali.Text = Val(txtBayar.Text) - Val(txtTTL.Text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lbNama.Text = Microsoft.VisualBasic.Right(lbNama.Text, 1) + Microsoft.VisualBasic.Left(lbNama.Text, Len(lbNama.Text) - 1)
    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        Cetak_Jual.ShowDialog()
    End Sub
End Class

VB.Net 2008 Menu

Public Class menu

    Private Sub KoleksiFilmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoleksiFilmToolStripMenuItem.Click
        frmFilm.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub PeminjamanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeminjamanToolStripMenuItem.Click
        frmPinjaman.Show()
    End Sub

    Private Sub AnggotaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnggotaToolStripMenuItem.Click
        frmAnggota.Show()
    End Sub

    Private Sub lbNama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbNama.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lbNama.Text = Microsoft.VisualBasic.Right(lbNama.Text, 1) + Microsoft.VisualBasic.Left(lbNama.Text, Len(lbNama.Text) - 1)
    End Sub
End Class
samsul.maarifAl-ishlah
http.www.samsul.maarifAl-ishlah.com

VB.NET 2008

Public Class frmFilm
    Dim SQL As String
    Dim proses As New clsKoneksi
    Dim TblFilm As DataTable
    Sub Data_Record()
        TblFilm = Proses.ExecuteQuery(" Select * From (film) order by Judul asc ")
        DgFilm.DataSource = TblFilm
    End Sub

    Private Sub frmFilm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        CboGenre.Items.Add("Drama")
        CboGenre.Items.Add("Action")
        CboGenre.Items.Add("Horor")
        CboGenre.Items.Add("Komedi")
        CboGenre.Items.Add("Thriller")
        CboGenre.Items.Add("Dokumenter")
        CboGenre.Items.Add("Animasi")

        CboFormat.Items.Add("VHS")
        CboFormat.Items.Add("vCD")
        CboFormat.Items.Add("Blue Ray")
        Call NonAktif()
    End Sub

    Sub Bersih()
        TxtKode.Text = ""
        TxtJudul.Text = ""
        TxtStudio.Text = ""
        CboFormat.Text = ""
        CboGenre.Text = ""
        TxtKode.Enabled = True
        Call Data_Record()
        btnSimpan.Enabled = False
        btnUpdate.Enabled = False
        btnHapus.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "Delete From [film]Where IDfilm ='" & TxtKode.Text & "'"
        proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data telah dihapus..!!", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Bersih()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call Bersih()
        Call NonAktif()
    End Sub

    Sub Aktif()
        TxtJudul.Enabled = True
        TxtArtis.Enabled = True
        TxtStudio.Enabled = True
        txtTahun.Enabled = True
        CboGenre.Enabled = True
        CboFormat.Enabled = True
    End Sub
    Sub NonAktif()
        TxtJudul.Enabled = False
        TxtArtis.Enabled = False
        TxtStudio.Enabled = False
        txtTahun.Enabled = False
        CboGenre.Enabled = False
        CboFormat.Enabled = False
    End Sub
    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        SQL = "Update [film] Set Judul = '" & TxtJudul.Text & "', Artis='" & TxtArtis.Text & "', Genre = '" & CboGenre.Text & "', Format = '" & CboFormat.Text & "', Studio = '" & TxtStudio.Text & "', Tahun = '" & txtTahun.Text & "' where IDFilm = '" & TxtKode.Text & "'"
        proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data telah diubah..!!", "Perubahan Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Bersih()
        Call NonAktif()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub frmFilm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Bersih()
    End Sub

    Private Sub DgFilm_DoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgFilm.DoubleClick
        TxtKode.Text = DgFilm.SelectedCells(0).Value
        btnSimpan.Enabled = False : btnUpdate.Enabled = True : btnHapus.Enabled = True
        btnBatal.Enabled = True : btnKeluar.Enabled = False
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "Insert Into [film] Values ('" & TxtKode.Text & "','" & TxtJudul.Text & "','" & TxtArtis.Text & "','" & CboGenre.Text & "','" & CboFormat.Text & "','" & TxtStudio.Text & "','" & txtTahun.Text & "')"
        proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data Baru telah disimpan..!!", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Bersih()
    End Sub

    Private Sub TxtKode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKode.TextChanged
        If Len(TxtKode.Text) < 6 Then Exit Sub
        TblFilm = proses.ExecuteQuery("Select * From [film] Where IDFilm='" & TxtKode.Text & "'")
        If TblFilm.Rows.Count > 0 Then
            'MessageBox.Show("Data Karyawan Tidak Ditemukan..!!", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            With TblFilm.Rows(0)
                TxtKode.Text = .Item("IDFilm")
                TxtJudul.Text = .Item("Judul")
                TxtArtis.Text = .Item("Artis")
                CboGenre.Text = .Item("Genre")
                CboFormat.Text = .Item("Format")
                TxtStudio.Text = .Item("Studio")
                txtTahun.Text = .Item("Tahun")
            End With
            Call Aktif()
            TxtKode.Enabled = False
            TxtJudul.Focus()
            btnSimpan.Enabled = False : btnKeluar.Enabled = True
            btnUpdate.Enabled = True : btnHapus.Enabled = True : btnBatal.Enabled = True
        Else
            Call Aktif()
            TxtKode.Enabled = False
            TxtJudul.Focus()
            btnSimpan.Enabled = True
            btnUpdate.Enabled = False : btnHapus.Enabled = False : btnBatal.Enabled = True
        End If
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub TxtJudul_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJudul.TextChanged

    End Sub

    Private Sub DgFilm_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgFilm.CellContentClick

    End Sub
End Class