LISTVIEW PERHITUNGAN PENJUALAN BARANG

Disini kita akan mencoba menghitung perhitungan penjualan barang
mari ikuti langkah berikut :

Pertama-tama kita medesain programnya terselbih dahulu seperti gambar berikut :

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 75, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = No_Pem.Text

        lst.SubItems.Add(Ko_Barang.Text)

        lst.SubItems.Add(Na_Barang.Text)

        lst.SubItems.Add(Merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jlh_Beli.Text)

        lst.SubItems.Add(Tot_Harga.Text)

        lv.Items.Add(lst)

    End Sub

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

        BuatTabel()

        Ko_Barang.Items.Add("TS001")

        Ko_Barang.Items.Add("TS002")

        Ko_Barang.Items.Add("VG001")

        Ko_Barang.Items.Add("VG002")

    End Sub

    Private Sub Ko_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ko_Barang.SelectedIndexChanged

        Dim X As String

        Dim y As String

        X = Microsoft.VisualBasic.Left(Ko_Barang.Text, 2)

        y = Microsoft.VisualBasic.Right(Ko_Barang.Text, 3)

        Select Case X

            Case "TS" : Merk.Text = "Toshiba"

            Case "VG" : Merk.Text = "V-GEN"

        End Select

        Select Case y

            Case "001" : Na_Barang.Text = "Flashdisk 4GB"

            Case "002" : Na_Barang.Text = "Flashdisk 2GB"

        End Select

        If X = "TS" And y = "001" Then

            Harga.Text = 105000

        ElseIf X = "TS" And y = "002" Then

            Harga.Text = 75000

        ElseIf X = "VG" And y = "001" Then

            Harga.Text = 50000

        ElseIf X = "VG" And y = "002" Then

            Harga.Text = 80000

        End If

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        No_Pem.Text = ""

        Ko_Barang.Text = ""

        Na_Barang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jlh_Beli.Text = ""

        Tot_Harga.Text = ""

    End Sub

    Private Sub Hps_Smuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hps_Smuadata.Click

        lv.Items.Clear()

    End Sub

    Private Sub Hps_Dataygpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hps_Dataygpilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Simkelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simkelist.Click

        IsiTabel()

        No_Pem.Text = ""

        Ko_Barang.Text = ""

        Na_Barang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jlh_Beli.Text = ""

        Tot_Harga.Text = ""

    End Sub

    Private Sub Jlh_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jlh_Beli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Tot_Harga.Text = Harga.Text * Jlh_Beli.Text

            Simkelist.Focus()

        End If

    End Sub

End Class

TAMPILAN PENGIMPUTAN DATA

 

TAMPILAN HASIL  PENYIMPANAN DI LV

Belajar Bahasa Pemograman

MENGHITUNG NILAI MAHASISWA

 MENGGUNAKAN VISUAL STUDIO 2008

Teman-teman smuanya, disini kita akan belajar bersama, melatih sebuah testimony tentang menghitung Nilai Mahasiswa dengan menggunakan  program  Visual Studio 2008

Mari ikuti prosedur berikut :

Ketentuan :

NPM   : 12110575 atas Nama : Isati Albertus Laoly

            : 12020525 atas Nama : Yunita Afrida

            : 12230533 atas Nama : Aroly Lase

Nilai Akhir = 10% nilai kehadiran + 15 % nilai tugas + 35 % nilai uts + 40 % nilai UAS
Jika nilai Akhir :
lebih dari sama dengan 80 nilai huruf A keterangan Lulus
70 - 79 nilai huruf B keterangan Lulus
60 - 69 nilai huruf C keterangan Lulus
50 - 59 nilai huruf D keterangan Mengulang
lebih kecil sama dengan 49  nilai huruf E keterangan Gagal Total    

Teman pertama-tama kita di tuntut untuk mendesain formnya dulu dengan alat seperti :

-          Lebel

-          ComboBox

-          TextBox

-          Button

seperti gambar berikut:

BELAJAR PEMOGRAMAN JAVA DASAR DENGAN NETBEANS

Java merupakan bahasa pemrograman yang berorientasi OOP (Object Oriented Programming), yaitu suatu metode pemrograman yang berorientasi pada Objek, tujuannya untuk mempermudah pengembangan program dengan mengikuti model yang sudah ada pada kehidupan sehari-hari. Saya ambil contoh sebuah Mobil, mobil adalah sebuah Object yang terbentuk dari beberapa objek-objek yang lebih kecil lagi sepeti Mesin, Roda, Kursi, Stir dll. semua nya saling terhubung, berinteraksi, dan berkomunikasi satu sama lainya, nah begitu juga dengan program sebuah objek yang besar terbentuk dari objek-objek yang kecil dan objek-objek itu saling berinteraksi/ mengirimkan pesan dengan objek-objek lainya.
Dalam Pemrograman berbasis Objek, dikenal dengan beberapa elemen-elemen dasar diantaranya :

ASP.NET - First Example

An ASP.Net page is made of number of server controls along with the HTML controls, text and images. Sensitive data from the page and the states of different controls on the page are stored in hidden fields and forms the context of that page request.
ASP.Net runtime controls all association between a page instance and its state. An ASP.Net page is an object of the Page Class or inherited from it.
All the controls on the pages are also objects of the related control class inherited from a parent Control class. When a page is run an instance of the page object is created along with all its content controls.
An ASP.Net page is also a server side file saved with the .aspx extension. It is modular in nature and can be divided into the following core sections:

• Page directives
• Code Section
• Page Layout

Page directives:

The page directives set up the environments for the page to run. The @Page directive defines page-specific attributes used by the ASP.Net page parser and compiler. Page directives specify how the page should be processed, and which assumptions are to be taken about the page.
It allows importing namespaces, loading assemblies and registering new controls with custom tag names and namespace prefixes. We will discuss all of these concepts in due time.

20 Tips dan Trik Penting Memaksimalkan Blackberry

20 Tips dan Trik Penting Memaksimalkan Blackberry - Smartphone Blackberry merupakan salah satu produk gadget yang paling banyak digunakan di Indonesia, Produk buatan RIM (Research In Motion) ini memiliki keunggulan dan kelebihan diantara smartphone lainnya, walaupun akhir-akhir ini pamornya mulai turun akibat semakin tingginya persaingan gadget canggih smartphone di Indonesia.

Penggunaan Smartphone Blackberry sendiri tidaklah terlalu sulit, banyak fitur yang bisa dimanfaatkan untuk memudahkan dan memaksimalkan penggunaan Smartphone yang satu ini. Seperti Shortcut atau Tweaks dan yang lainnya. Berikut penjelasan lebih lanjut tentang 20 Tips dan Trik Penting Memaksimalkan Blackberry.

1. Manfaatkan Auto Text

Blackberry mempunyai fitur auto teks sendiri yang akan memudahkan anda ketika mengetik, jadi anda bisa menghemat waktu mengetik anda dengan cara pintas auto text. 

AutoText: Mempercepat mengetik dengan membuat singkatan sendiri dan koreksi

MESRAN.NET

Selamat Pagi teman-teman....

Jumpa lagi dengan saya Ishal

Disini kita ada sebuah  topik  yang membahas tentang sebuah blog, dan blog ini sangat bermanfaat kog buat kita semua....ayo kita simak cuplikannya......

Mesran M.Kom adalah salah seorang Rektor di salah satu Perguruan Tinggi Sumatera Utara Medan yaitu di Perguruan Tinggi Swasta  STMIK BUDIDARMA MEDAN.

Selain jadi seorang Rektor, ia juga menjadi seorang dosen yang mendidik dan membangun anak-anak bangsa agar terampil unggul di dunia IPTEK. Mesran juga memiliki sifat konsekwen dalam proses belajar dan mengajar serta memiliki kedisplinan yang sangat aktif baik itu disiplin waktu dan belajar buat mahasiswa dan mahasiswinya.

Disini mesran juga memiliki sebuah atau beberapa blog, salah satunya yaitu seperti judul diatas “MESRAN.NET”, yang mana di dalam blog tersebut terdapat banyak ilmu pengetahuan tentang program komputer yang sangat perlu kita pelajari..

Diantaranya seperti :

1.      Program JAVA

2.      Program VB Net

3.      C++

4.      Paskal

5.      Dan lain sebagainya…

Yang penting menariklah teman…..:)

Disitu juga kita bukan Cuma bisa melihat atau mengambil modul tentang program-program komputer, informasi, tapi juga kita juga bisa men download aplikasinya tersebut yang dapat memudahkan kita untuk mempelajarinya dimana saja, dirumah, dikampus dimana saja terserah teman-temanlah….

Waahhhh…. Menarikkan teman, dan yang lebih menarik lagi, kita dapat langsung sharing-sharing sama beliau tersebut…

Hanya di Mesran.net

 

Gimana teman, sangat bermanfaatkan untuk teman-teman termasuk juga saya…

Nah kalo begitu jangan lupa kita mengunjunginya yach….

Terima kasih… salam dariku

Ishal