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

Segi 3 Bermuda

SEGI TIGA BERMUDA

Adalah sebuah gunung yang ada di dalam laut dan selalu tertutup kabut yang tebal.Sehingga Kapal-kapal yang melintas di daerah itu pada hilang karana menabrak sebuah gunung dengan kecepatan yang tinggi maka kapal itu hancur lebur.Dan ada yang mengatakan Segitiga bermuda adalah Tempat-tempat saitan yang jahat atau di sebut juga Dajjal.Segitiga bermuda yang juga biasa disebut segitiga setan terletak di wilayah lautan samudera atlantik seluas 1,5 juta mil² atau 4juta km² yang membentuk garis segita antara wilayah-wilayah teritorial britania raya sbg titik di sebelah utara, puerto rico teritorial amerika serikat titik di sebelah selatan dan miami negara bagian florida amerika serikat sbg titik disebelah barat.

Ada yang bilang segitiga bermuda itu adalah tempat mangkalnya alien dan ufo.Ada yg bilang itu adalah pusat magnet terbesar didunia.Ada juga yang bilang itu pusat bumi dan terdapat black hole yang mampu menyedot apapun yg melintas.Lalu apa pendapat islam tentang segita bermuda?

Ada hadist yg diriwayatkan Abu Hurairah bahwa Rasulullah SAW telah bersabda “Apabila salah seorang berada ditempat yg terbuka atau ditengah matahari sedang bersinar, lalu bayangan yg meneduhinya bergerau sehingga sebagian dari dirinya terletak ditempat panas dan sebagibn lagi di tempat sejuk, maka hendaklah dia berdiri atau meninggalkan tempat itu” dikatakan larangan ini karena tempat seperti itu adalah tempat yang paling digemari oleh Syaitan.Jadi apa kaitannya dengan bermuda???

Alasannya karena bermuda terletak di perairan atlantik di pertengahan antara benua Amerika bagian utara dan Afrika.Secara mudah lokasi ini adalah kawasan pertembungan dua arus panas dari afrika dan sejuk dari Amerika Utara. Dengan hadist ini maka terjawablah misteri segitiga bermuda.Perkara2 aneh yg terjadi itu tentu antara lain disebabkan pertembungan antara panas dan sejuk dan istana Syaitan yang mungkin tersembunyi disitu.

Ada sebuah buku yang berjudul “Dajjal akan muncul dari kerajaan jin di segitiga bermuda” Karya Sheikh Muhammad Isa Dawuud dari Mesir,bahwa kawasan bermuda adalah kawasan Jin dimana dari situlah akan muncul Dajjal. Jika benar dakwaan buku itu, tidak aneh lagi apa yang di Sabdakan Oleh Nabi SAW itu nyata adanya dan bahkan mendahului zaman sekaligus Nabi SAW membuktikan bahwa islam memiliki semua jawaban untuk semua pertanyaan.

Menurut Syaikh Imam M. Ma’rifatullah Al-arsy, segitiga bermuda merupan tempat titik terujung di dunia ini. Ditengah kawasan itu terdapat sebuah telaga yang airnya dapat membuat siapa saja yg meminumnya menjadi panjang umur, ditempat itu pula Nabiyullah Khidzir A.S bertahta sebagai penjaga sumber air kehidupan tersebut.Syaith imam M. Ma’rifatullah Al-arsy berkata kalau penyelamat akhir Zaman Imam Mahdi akan keluar dari Ghaibnya melalui tempat tersebut dengan menggukan jubah suci berwarna kebiruan.

Lalu apa penyebab hilangnya berbagai macam kapal ditempat itu??? Menurut Syaikh Imam  M. Ma’rifatullah Al-arsy , para iblis dan Syaitan tersebut yang tak bisa mendekati pusat kawasan agung itu,maka mereka pun berjaga disekelilingnya dan bertujuan untuk menghalangi setiap manusia yang mencoba untuk memasuki kawasan agung itu(segitiga bermuda).Karena sesungguhnya barang siapa yg bisa sampai ketempat titik tengah kawasan segitiga bermuda, maka dia akan mengetahui kebenaran alam yg sesungguhnya.

Banyak orang2 jaman dahulu yang telah mencoba kepusat Segitiga bermuda dan kebanyakan dari mereka enggan untuk kembali pulang kedunianya. Menurut sebuah artikel kuno, Raja Iskandar Agung pernah mencoba masuk ke kawasan agung itu.Dan sekembalinya mereka mengatakan bahwa tempat itu berpasirkan permata dan berbatukan berlian.Tempat yang dipenuhi dengan kabut putih tebal itu sangat indah untuk dipandang tapi sangat berbahaya untuk di datangi. PS: ya Allahu’alam… Semua kembali kepada sang pencipta Alam Allah SWT, karena sesungguhnya Allah SWT lah yang paling tahu apa sebenarnya segitiga bermuda itu.