Membuat Data Barang Meggunakan VB,net

Membuat Data Barang Meggunakan VB,net

hai teman2 hari neh saya akan memostingkan cara membuat data barang penjualan TV sony dengan menggunakan VB net..

Buat form seperti di gambar yah teman2

kemudian ketikkan perintah di bawah ini

1. Duble klik di Form 1..

Public Class Form1

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

        Nama.Items.Add("Sony 20 inchi")

        Nama.Items.Add("Sony 32 inchi")

        Nama.Items.Add("Sony 18 inchi")

        Dim i As Integer

        For i = 1 To 20

            JJ.Items.Add(i)

        Next

    End Sub

 2. duble klik di button keluar..

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

 3. Duble klik di  button Hapus....

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnhapus.Click

        Nama.Text = ""

        Harga.Text = ""

        JJ.Text = ""

        Discount.Text = ""

        Total.Text = ""

        TP.Text = ""

    End Sub

 4.Double klik di text box Nama...

    Private Sub Nama_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Nama.SelectedIndexChanged

        Select Case Nama.Text

            Case "Sony 20 inchi"

                Harga.Text = 2000000

            Case "Sony 32 inchi"

                Harga.Text = 5000000

            Case "Sony 18 inchi"

                Harga.Text = 1500000

        End Select

    End Sub

 5. Double klik di Button Proses...

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Btnproses.Click

        Total.Text = Harga.Text * JJ.Text

        If Total.Text > 2500000 Then

            Discount.Text = 0.01 * Total.Text

        Else

            Discount.Text = 0

        End If

        TP.Text = Total.Text - Discount.Text

    End Sub

End Class

ini hasil nya teman2

semoga bermanfaat yah teman2 :)

Read More

Obyek Wisata Pango-Pango Tana Toraja

Obyek Wisata Pango-Pango Tana Toraja

Pango-Pango terletak ± 7 km dari kota Makale di Kecamatan Makale Selatan. Terletak ± 1100 m dpl dengan hawa yang dingin dan lingkungan alam yang alami ditanami berbagai macam tanaman lokal seperti kopi, coklat, enau, tamarillo, kacang tanah, jagung dan beragam sayuran serta lainnya pada wilayah ini. Pemandangan ke dataran rendah dimana kota Makale dapat disaksikan dan bahkan sekeliling Toraja. Selain alam yang indah, pemerintah juga sedang merencanakan destinasi buatan seperti kolam renang, area berkuda, ekoturism, trekking dan outbound.

Pemerintah kabupaten (Pemkab) Tana Toraja mulai membuka kawasan wisata alam Pango-pango kepada masyarakat umum.

"Masyarakat umum sudah bebas mengunjungi objek wisata alam Pango-pango. Untuk sementara, pengunjung digratiskan masuk berwisata di Pango-pango," ujar Bupati Tana Toraja, Pak Theofilus Allorerung di Makale, Jumat (22/3/2013).

Dikatakan Theofilus, Pango-pango yang terletak di kecamatan Makale Selatan salah satu objek wisata alam baru yang dikembangkan menjadi objek wisata unggulan di Tana Toraja.

Wisatawan yang berkunjung ke Pango-pango bisa menikmati keindahan alam dan sejuknya udara pegunungan. Tidak hanya itu, wisatawan akan dimanjakan dengan rimbunnya hutan pinus yang masih "perawan" dan hamparan pegunungan yang mengelilingi kawasan wisata Pangopango.

Dipuncak Pangopango  yang berada pada ketinggian 1.643 meter dari permukaan laut, wisatawan bisa melihat jelas seluruh wajah kota Makale, hingga kabupaten Toraja Utara.

Bahkan, pemkab Tana Toraja berencana membangun sebuah menara ketinggian 30 meter di atas puncak agar pengunjung bisa melihat wajah kota Pare-pare dengan menggunakan teropong.

Ditengah-tengahnya terdapat sebuah gasebo tempat wisatawan beristirahat melepas lelah sambil menikmati indahnya panorama alam pegunungan. Akses jalan menuju Pangopango juga sudah bisa dilalui kendaraan roda empat.

"Sejuknya udara pegunungan dan keindahan alam yang luar biasa indahnya siap menyambut setiap wisatawan yang datang berwisata ke Pango-pango," kata Pak Theofilus.

Selain potensi alam, Pangopango juga menawarkan wisata agro. Tanaman yang tumbuh di sekitarnya seperti buah-buahan dan sayur mayur menambah daya tarik tempat wisata itu.

Pengunjung bisa melihat langsung  proses pembibitan, penanaman hingga proses pemetikan. Pangopango sebagai kawasan wisata agro diharapkan bisa meningkatkan pendapatan masyarakat setempat dan pendapatan daerah

"Wisatawan juga bisa langsung membeli buah-buahan dan sayurmayur kepada masyarakat setempat dengan cara memetik langsung di kebun di kawasan wisata angro Pangopango," kata Pak Theofilus.

Meski sudah dibuka untuk umum, Pemkab Tana Toraja masih terus membenahi fasilitas kawasan wisata alam dan wisata agro Pangopango guna lebih memikat wisatawan domestik dan mancanegara datang berkunjung ke Pangopango. Saat ini yang dilakukan pemerintah bagaimana mendatangkan wisatawan sebanyak-banyaknya ke kawasan wisata Pangopango.

Semakin banyak wisatawan datang, Pangopango akan makin terkenal. Setiap orang yang datang akan bercerita pengalamannya selama berada di Pangopango kepada orang lain. Cerita itu salah satu media promosi yang diyakini makin membuat orang penasaran untuk datang ke sana.

"Saya optimistis, Pangopango akan menjadi objek wisata unggulan di Toraja. Saya juga memprediksi, dalam beberapa tahun ke depan akan ada event spektakuler dilaksanakan di kawasan wisata alam dan kawasan wisata agro Pangopango" optimistis Pak Theofilus.

Ketua DPRD Tana Toraja, Welem Sambolangi menyatakan Pangopango dijadikan kawasan objek wisata baru merupakan terobosan spektakuler yang dilakukan pemkab Tana Toraja dalam upaya meningkatkan pariwisata daerah.

Pangopango juga sudah memeliki tempat tersendiri di hati masyarakat Toraja , Khususnya bagi para remaja di Toraja . Mereka berbondong-bondong ke Pangopango untuk menikmati keindahan alam yang tersaji langsung di Pangopango , mereka sangat senang , terlihat dari expresi mereka di foto-foto mereka yang di upload ke jejaring sosial seperti Facebook .

Jadi Tunggu apa lagi Teman-teman ayo berkunjung ke Pangopango dan rasakan Surga Dunia di Toraja City

By : Crystian August Valencia

Read More