Sistem Penjualan Televisi

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("2")

        kode.Items.Add("1")

        kode.Items.Add("3")

        jumlah.Items.Add("1")

        jumlah.Items.Add("2")

        jumlah.Items.Add("3")

        Call buattable()

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "1" Then

            produk.Text = "TV"

            harga.Text = "2000000"

        ElseIf kode.Text = "2" Then

            produk.Text = "DVD"

            harga.Text = "650000"

        ElseIf kode.Text = "3" Then

            produk.Text = "CD ROOM"

            harga.Text = "4500000"

        End If

    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

        total.Text = jumlah.Text * harga.Text

    End Sub

    Sub buattable()

        lv.Columns.Add("kode", 100, HorizontalAlignment.Center)

        lv.Columns.Add("produk", 100, HorizontalAlignment.Center)

        lv.Columns.Add("harga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("jumlah", 100, HorizontalAlignment.Center)

        lv.Columns.Add("total", 100, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(produk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call isitable()

        kode.Text = ""

        produk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        kode.Text = ""

        produk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        lv.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Close()

    End Sub

End Class

Cara Membuat Teks Animasi Berjalan pada Form, Text Box atau Label Acces Microsoft Access

Running Text istilah kerennya. Yah sebuah program tanpa adanya teks animasi berjalan rasanya akan kurang sreg

Gak usah bertele-tele, langsung aja ikuti tutorial berikut:
 Jalankan Aplikasi Microsoft Office Access

Pilih Menu >>> File >>> New atau tekan perintah tombol secara berurutan (Alt+F+N) atau (Ctrl+N)

Jendela baru akan muncul di sebelah kanan layar dengan beberapa pilihan.

Pilih "Blank Database", sehingga muncul jendela seperti dibawah ini:

Ketik Nama file anda pada pilihan "File Name", misalnya "Teks Berjalan"
Click tombol "Create" di sudut kanan bawah. Maka akan muncul jendela proyek anda

Pilih Form>>>Create form in Design View, perhatikan gambar berikut

Buatlah sebuah sebuah "Label" dengan menekan icon Aa pada "Toolbar"
Letakkan pada bidang "Form". Berikan nama sesuai keinginan anda, misalnya: "TeksBerjalan" atau
Masuk ke property (Klik Kanan pada Label yang telah diletakkan pada form) dan ubah: 
      Name      = LabelBerjalan
      Caption   = TeksBerjalan 

Simpan Form anda dengan nama yang anda suka. Misalnya: Form: Teks_Berjalan

Langkah selanjutnya adalah:

Pilih Menu Bar: Tools>>>Macro>>>Visual Basic Editor (atau tekan Alt+F11 pada keyboard)

Muncul Jendela Berikut 

Langkah selanjutnya, copy code program dibawah ini dan paste pada visual basic editor seperti gambar di atas di bawah "option explixit"

'yang berwarna merah dapat diubah sesuai nama label yang anda buat

'Membuat kontrol teks berjalan
Private Sub Form_Timer()
Dim Kalimat As String
Dim Counter As Integer
Kalimat = "Anda telah berada pada sistem aplikasi *McBoeraghtv.1.0*"""
Counter = Counter + 1
DoEvents
LabelBerjalan.Caption = TulisJalan(Counter, Kalimat, 30)
End Sub

'Membuat perintah tulis jalan pada kontrol teks berjalan
Public Function TulisJalan(hitung As Integer, strKalimat As String, Panjang As Integer)
If hitung = Len(strKalimat) + Panjang Then
        hitung = 0
ElseIf hitung > Len(strKalimat) Then
        TulisJalan = strKalimat & Space(hitung - Len(strKalimat))
Else
        TulisJalan = Mid(strKalimat, 1, hitung)
End If
End Function

Tunggu dulu, bro...
Belum berakhir sampai disini... Masih ada langkah yang perlu dilakukan

Save data dan Close visual basic editor.
Kembali ke jendela "Form" anda.
Edit Property Form anda.

yang perlu and edit adalah:
     Time Interval = 100
     Pop Up = Yes
     Deviding Line = No
     Scroll Bar = Neither     Record Selector = No
     Navigation Button = No
    Auto Center = Yes
    Borther Style = None
    Min Max Button = Both Enable
    Allow Design Change = Design View Only

Simpan dan jalankan form anda... dan lihat hasilnya.

(catatan: jika program anda tidak bisa berjalan maka perlu ada setingan tambahan pada acces anda)

1. Masuk ke menu Tools>>>Macro>>>Security dan Pilih "Low (not recomended)
2. Masuk ke visual basic editor dimana code srift tadi dipastekan) dan masuk ke Menu Tools pada menu bar. Menubar: Tools>>>reference>>>

 Carilah "Missing reference" (COMDLG32.OCX) dan cari dan download filenya. Paste di system32 atau pilih browse pada menu reference tadi dan pilih OK. atau download. disini here

Jalankan Ulang form anda.

Cara membuat animasi form bergerak ke atas, ke bawah, ke kanan dan ke kiri pada Visual Basic.

Suatu program akan lebih menarik apabila dibuat dengan disain dan penggunaan warna yang menarik serta menampilkan animasi. Dalam postingan ini, akan dibahas bagaimana cara membuat  animasi form bergerak ke atas, ke bawah, ke kanan dan ke kiri. animasi ini sangat cocok digabungkan dengan program lain agar tampilannya lebih menarik dimana sebelum program yang sedang dijalankan ditutup (end), form akan bergerak ke atas atau ke bawah atau ke kanan atau ke kiri. Tanpa banyak basa - basi, kita langsung saja masuk ke dalam langkah – langkah pembuatan program : 

·           Buka proyek Standard EXE yang baru

·           Disain tampilan form seperti gambar berikut dengan menggunakan CommandButton dan objek Timer sebanyak 4 buah.

 

  Gbr 1

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
Timer1	Name Interval	tmr_atas 100
Timer2	Name Interval	tmr_bawah 100
Timer3	Name Interval	tmr_kanan 100
Timer4	Name Interval	tmr_kiri 100
CommandButton1	Name Caption	cmd_atas Form Bergerak Ke Atas
CommandButton2	Name Caption	cmd_bawah Form Bergerak Ke Bawah
CommandButton3	Name Caption	cmd_kanan Form Bergerak Ke Kanan
CommandButton4	Name Caption	cmd_kiri Form Bergerak Ke Kiri

·           Klik menu View  =>  Code, lalu copy paste (copas) kode program di bawah ini :

Private Sub cmd_atas_Click()

Me.tmr_atas.Enabled = True

End Sub

Private Sub cmd_bawah_Click()

Me.tmr_bawah.Enabled = True

End Sub

Private Sub cmd_kanan_Click()

Me.tmr_kanan.Enabled = True

End Sub

Private Sub cmd_kiri_Click()

Me.tmr_kiri.Enabled = True

End Sub

Private Sub Form_Load()

Me.tmr_atas.Enabled = False

Me.tmr_bawah.Enabled = False

Me.tmr_kanan.Enabled = False

Me.tmr_kiri.Enabled = False

End Sub

Private Sub tmr_atas_Timer()

DoEvents

    For i = 1 To Form1.Top

        If Form1.Top < Screen.Width Then

            Form1.Top = Trim(Str(Int(Form1.Top) - 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_bawah_Timer()

DoEvents

    For i = 1 To Screen.Width

        If Form1.Top < Screen.Width Then

            Form1.Top = Trim(Str(Int(Form1.Top) + 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_kanan_Timer()

DoEvents

    For i = 1 To Screen.Width

        If Form1.Left < (Screen.Height * 2) Then

            Form1.Left = Trim(Str(Int(Form1.Left) + 10))

        End If

    Next i

    End

End Sub

Private Sub tmr_kiri_Timer()

DoEvents

    For i = 1 To Form1.Left

        If Form1.Left < Screen.Height Then

            Form1.Left = Trim(Str(Int(Form1.Left) - 10))

        End If

    Next i

    End

End Sub

Membuat Tabel Pada isi Listview

syalom pada sore ini saya posying VB.NET 2008 memmindahkan file ke listview pertama-tama kita lakukan adalah membuka program VB NET yang kita punya hingga tampil sebuah form1 yang
kosong seperti gambar berikut ini��

setelah kita lakukan langkah di atas kita buat seperti gambar berikut ini dengan menggunakan dua label dua textbox empat buah button dan satu listview hingga tampilah gambar di bawah ini,��

setelah selesai sesuaikan gambar tersebut sesuai dengan gambar di bawah ini dengan menggantikan teks pada porperti,sehingga terlihat seperti gambar di bawah ini,�

�

kemudian masukan kode di bawah ini

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call buattable()

End Sub

Sub buattable()

LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub Sub isitable()

Dim lst As New ListViewItem

lst.Text = npm.Text

lst.SubItems.Add(nama.Text)

LV.Items.Add(lst)

End Sub Private

Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click Call isitable()

npm.Text = ""

nama.Text = ""

End Sub

Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click

LV.Items.Clear()

End Sub

Private Sub btnhapusnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusnpm.Click

LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub End Class

pada button di atas sesuikan namanya de kode yeahhh soalnya belum saya bikin keterangannya biar sobat sekalian belajar seperti saya kemarin belajar,jika kita tau di mana salahnya pasti kita bisa dan susah untuk lupa mgingisi kodenya. itu sengaja saya tidak membuat keterangannya yahh maaf jika ada kesalahan dalam artikel ini sampai jumpa dan selamat belajar VB NET 2008�

Referensi�