Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

JUDUL SOAL : PENJUALAN BARANG 

Berikut Jawaban Program :

Public Class Form2

    Sub RancangTable()
        Listview1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Nama Barang", 200, HorizontalAlignment.Center)
        Listview1.Columns.Add("Merek", 150, HorizontalAlignment.Center)
        Listview1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
    End Sub

    Sub IsiTable()
        Dim list As New ListViewItem
        list.Text = No_Pembelian.Text
        list.SubItems.Add(Kode_Barang.Text)
        list.SubItems.Add(Nama_Barang.Text)
        list.SubItems.Add(Merek.Text)
        list.SubItems.Add(Harga.Text)
        list.SubItems.Add(Jumlah_Beli.Text)
        list.SubItems.Add(Total_Harga.Text)
        ListView1.Items.Add(list)
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")
        RancangTable()
    End Sub

PERINTAH PERKALIAN PADA ASSEMBLY

Perintah Assembly Untuk Menampilkan Perkalian

mov cx,a; untuk menampilkan berapa banyak bilangannya
mov bh,00; untuk membuat karakter yang dari 0
mov bl,bh; pindahkan bh itu ke bl
mov dl,30; untuk karakter nol
add dl,bl; tambahkan bl kedalam dl
mov ah,02; untuk mencetak karakter pada kalimat baru
int 21; untuk mencetak karakter
mov dl,2a; untuk memunculkan bintang
int 21; untuk mencetak karakter
mov dl,31;untuk mencetak karakter 1
int 21; untuk mencetak karakter
mov dl,3d; untuk karakter sama dengan - = -
int 21; untuk mencetak karakter
mov al,01; start of heading
mul bl; untuk mengalikan
mov dl,al;pindahkan al ke dl
add dl,30; start of heading
mov ah,02; untuk mencetak karakter pada kalimat baru
int 21; untuk mencetak karakter
mov dl,0d; corriage return
int 21; untuk mencetak karakter
mov dl,0a; line feed
int 21; untuk mencetak karakter
inc bl; increament tambah 1
loop 107; perulangan pada angka yang berbeda/meningkat seperti 1,2,3
int 20; mencetak ke layar

JIM ROHN (MOTIVATOR)

Jim Rohn, Siapakah Dia? Pasti tau donk ? Ya, Jim Rohn adalah Motivator terbaik di Dunia, yang mampu membuat Anthony Robbins menjadi motivator terbaik juga setelah beliau. Kali ini saya ingin berbagi informasi mengenai Jim Rohn, termasuk Profilnya.

Jim Rohn, born September 17, 1930, is an American entrepreneur, author, and motivational speaker. His work has been influential in launching or furthering the careers of many others in the personal development industry, including Anthony Robbins, Mark Victor Hansen, Brian Tracy, Jack Canfield. Born to an Idaho farming family, Mr. Rohn began his early adulthood without acclaim, leaving college after his first year, starting a family, and trying to get by as best he could as a salaried worker. By age 25, according to his accounts, he was in a personal rut familiar to many middle-class families--in debt, unable to see a way that would lead to his personal ambitions. Around this time, he was introduced to John Earl Shoaff, an entrepreneur who impressed Mr. Rohn with his wealth, business accomplishments, charisma, and life philosophy. Mr. Rohn joined Mr. Shoaff's direct sales organization and began a process of personal development that culminated in his becoming a millionaire by age 31. It was a source of sorrow to Mr. Rohn that Mr. Shoaff, who had challenged him to reach for this goal, died one year before he (Mr. Rohn) achieved it. In the years that followed, Mr. Rohn discovered a demand from people outside his industry to hear his rags to riches story and the personal development philosophy that he felt had led to his accomplishments. Rohn has been presenting his seminars for more than 40 years. He has addressed over 6,000 audiences and 4 million people worldwide. He was the recipient of the 1985 National Speakers Association CPAE Award and is the author of 17 different books, audio, and video programs. Jim Rohn is considered a "Business Philosopher". He does not claim to teach novel truths, only fundamentals - and as he is fond of saying, "There are no new fundamentals. Truth is not new, it's old. You've got to be a little suspicious of the guy who says, 'come over here, I want to show you my manufactured antiques!' No. You can't manufacture antiques." His "Five Major Pieces To the Life Puzzle" include: Philosophy - how you think Attitude - how you feel Action - what you do Results - measure often to see if you are making progress Lifestyle - the kind of life you can make for yourself out of the first four pieces.

Indonesian

Jim Rohn adalah salah satu motivator besar di dunia asal Amerika Serikat. Beliau adalah salah satu yang mengajarkan kepada salah satu motivator terbesar di dunia, yaitu Antony Robbins,Mark Victor Hansen, Jack Canfield dan Brian Tracy. . Maka Jim Rohn layak mendapatkan urutan pertama. Salah satu pengajaran yang diajarka kepada Anthony Robbins adalah “kebahagiaan dan kesuksesan dalam hidup adalah bukan hasil dari apa yang kita miliki, melainkan bagaimana kita hidup dan apa yang kita lakukan dengan hal-hal yang telah kita membuat perbedaan terbesar dalam kualitas hidup“.

- Filsafat – Bagaimana Anda berpikir

- Sikap – Bagaimana perasaan Anda

- Aksi – Apa yang Anda lakukan

- Hasil – Ukur sering untuk melihat apakah Anda membuat kemajuan

- Gaya hidup – jenis kehidupan Anda dapat membuat sendiri dari empat buah pertama

Berikut adalah salah satu kutipan dari Jim Rohn :

“Untuk menarik orang-orang yang menarik, Anda harus menarik. Untuk menarik orang kuat, Anda harus kuat. Untuk menarik orang-orang berkomitmen, Anda harus berkomitmen. Alih-alih akan bekerja pada mereka, Anda pergi bekerja pada diri sendiri. Jika Anda menjadi, Anda dapat menarik“.  Jim Rohn. Jim Rohn meninggal pada tahun 2009.

Sumber : http://www.in.com/jim-rohn/biography-139519.html

Membuat Aplikasi Sederhana Menggunakan Listview Di VB. Net 2008

Penggunaan Listview

Ini adalah Kodingnya

Import Mysql.Data Mysql Client

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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staff")

        For i = 1 To 4

            juman.Items.Add(i)

        Next i

        For i = 1 To 10

            jamlem.Items.Add(i)

        Next i

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        buattabel()

    End Sub

Sumber : http://mesran.net/ 

Mesran [dot]Net Tempat Pemograman

Kamu mau pintar bahasa Pemograman ? Jangan bingung karna saya akan membawa anda ke website yang penuh dengan bahasa pemograman, baiklah marilah kita menuju ke sana.

Merupakan Website dimana Anda/Kamu/Kita bisa belajar bahasa pemograman dengan berbagai Bahasa Pemograman contohnya (Bahasa C, Bahasa C++, Bahasa C#/C Sharp, Bahasa Pascal, Bahasa Visual(VB 6.0, VB.Net), Bahasa Java, Bahasa Delphi,maupun bahasa pemogramman yang terbaru yaitu Android).

Bagaimana caranya ? caranya gampang kok kalau mau mengaksesnya tingal kamu klik nama ini Mesran.net 
atau tulis link ini http://mesran.net/. Anda akan langsung ditujukan ketepat yang website yang penuh dengan bahasa pemograman.

Website ini dibuat oleh seorang Dosen dikampus saya, Beliau selain menjadi Dosen, juga menduduki jabatan sebagai Ketua STMIK di kampus saya. Siapakah orangnya yaitu Bapak Mesran, S.KOM., M.KOM.

Beliau adalah Dosen yang membentuk dan juga membina suatu Organisasi dikampus saya yang bernama Budidarma Programming Club (BPC). Budidarma Programming Club (BPC) yaitu suatu organisasi yang mempelajari bahasa pemograman, juga merupakan organisasi yang cukup ternama dikampus saya, Kenapa? Karena BPC banyak membantu mahasiswa dalam pengerjaan Tugas Akhir(TA) maupun Skripsi.

O ya dari tadi saya hanya membahas kampus saya tapi saya belum memberi tahu nama kampus saya, jadi saya berkuliah di STMIK BUDIDARMA MEDAN.

Sekian informasi yang bisa saya share kepada teman-teman semua, semoga bermanfaat dan Terima Kasih. Jangan lupa dikunjungi ya........... :)

Membuat Aplikasi Sederhana Menggunakan Database Acces

Untuk mengisi waktu luang, saya mengajak Anda untuk menuangkan tulisan di dalam Aplikasi Visaul Basic.Net 2008, kali ini saya mengajak anda belajar VB.Net 2008 Lanjutan dimana pada VB.Net 2008 lanjutan ini kita akan membahasnya menggunakan database Acces. Pembelajaran ini saya dapatkan dari seorang guru besar dikampus saya yaitu : Bapak Mesran,S.KOM,M.KOM

Bagaimana caranya inilah program sederhana yang saya buat,dengan rincian : 

1. Database Name : DBMahasiswa.mdb

2. Inilah gambarnya

Inilah Source Codenya :

Imports System.Data.OleDb

Public Class Form1

    Dim db As OleDbConnection

    Dim cmd As OleDbCommand

    Dim adp As OleDbDataAdapter

    Dim rs As OleDbDataReader

    Dim ds As New DataSet

    Dim sql As String

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

        OpenDB()

        TampilMHS()

        Baru_Click(sender, e)

    End Sub

    Sub OpenDB()

        Dim lokasi = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DBMahasiswa.mdb"

        db = New OleDbConnection(lokasi)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub TampilMHS()

        adp = New OleDbDataAdapter("Select * From Mahasiswa", db)

        ds = New DataSet

        adp.Fill(ds, "Mahasiswa")

        DataGridView1.DataSource = ds.Tables("Mahasiswa")

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        sql = "Insert Into Mahasiswa (NPM,Nama,Jenjang,Jurusan,Semester)" & _

                      " Values('" & NPM.Text & "','" & _

                                    Nama.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Semester.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click

        sql = "Update Mahasiswa Set Nama='" & Nama.Text & "'," & _

                               " Jenjang='" & Jenjang.Text & "'," & _

                               " Jurusan='" & Jurusan.Text & "'," & _

                               " Semester='" & Semester.Text & "'," & _

                               " Where NPM='" & NPM.Text & "'"

        Try

            cmd = New OleDbCommand(sql, db)

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

LOOPING (PIRAMIDA)

Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.

Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan.... 

Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.

Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.

Nih contoh gambarnya........

Source Codenya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, x As Byte
        For i = 1 To Val(TextBox1.Text)
            For x = 1 To i
                lv.Items.Add(x)
            Next x
        Next i
    End Sub

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(TextBox1.Text)
        TextBox2.Clear()
        Do While y <= q
            z = 1
            'TextBox2.Text = TextBox2.Text & Space(q - y)
            Do While z <= y
                TextBox2.Text = TextBox2.Text & " " & z
                z += 1
            Loop
            TextBox2.Text = TextBox2.Text & vbCrLf
            y += 1
        Loop
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.TextAlign = HorizontalAlignment.Center
    End Sub
End Class

Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI