Minggu, 08 Desember 2013

Menguasai Visual Basic 6 Dalam 7 Jam

Salam Programmer.... kali ini saya akan share bagaimana cara belajar visual basic 6 dengan benar, mudah dan cepat hanya dalam waktu 7 jam. Berikut ini daftar materinya:
Jam ke 1
-Membuka Visual Basic 6
-Integrated Development Envirotment (IDE)
-Mengenal Komponen ToolBox
-Memanfaatkan Toolbar Form Editor
-Menambah Komponen Baru Pada ToolBox
-Menambah Form Baru
-Memasukan Listing Program
-Menjalankan Program
-Menyimpan Program
-Mengubah Program
-Mengubah Tampilan IDE
-Membuat File EXE

Jam ke 2
-Label, TexBox dan CommandButton
-Image, PictureBox dan Frame
-RichTextBox dan CommonDialog
-HScrollBar dan VSrcollBar
-CheckBox dan OptionButton
-ComboBox dan Listbox
-Shape, Line dan Timer
-DriveListBox, DirListBox dan FileListBox
-Animation,DTPicker dan SSTab

Jam ke 3
-Type Data
-Deklarasi Variable
-Konversi Type Data
-Operator Perhitungan
-Operator Perbandingan
-Operator Penggabungan

Jam ke 4
-If .. Then
-For .. Next
-Select Case .. End Select
-While .. Wend
-Do .. Loop
-Function
-Subroutine

Jam ke 5
-Fixed Size Array
-Array Dinamis
-Mengetahui Ukuran Array
-Error Handling

Jam ke 6
-Membuat Database Dan Table
-Select Statement
-Insert dan Update Statement
-Delete Statement

Jam ke 7
-Membuka Koneksi
-Desain Laporan
-Membuat Form Untuk Menampilkan Laporan
-Membuat Setup File

Link Updated on 2012-12-03 (yy-mm-dd) !
Click HERE to download MenguasaiVisualBasic6Dalam7Jam (Source Code)
Click HERE to download MenguasaiVisualBasic6Dalam7Jam (Video Tutorial)


Dengan metode latihan seperti ini, semoga anda dapat memahami, mempelajari dan menguasai visual basic 6 dengan benar, mudah dan cepat. Tak ada yang tak mungkin jika kita belajar dengan tekun dan sabar, selamat mencoba, sukses selalu !

Teknik belajar pemograman visual

Minggu, 08 Desember 2013

Neli Elprida Sihombing

Belajar Visual basic 6 - Jika kita membahas  Belajar Visual Basic 6 dasar, sebenarnya tidak cukup hanya dengan satu panduan, apalagi satu contoh. Namun di sini akan dibatasi agar uraianya tidak terlalu umum ataupun khusus. Artinya, bagian ini mencoba menguraikan hal-hal ringan yang di anggap penting dan sering di perlukan.

Apakah anda sudah berkenalan dengan Visual basic 6?[....]

Visual basic 6
Visual Basic 6
•    Awalan Penanaman variebel
Konsistensi sering di kaitkan dengan penulisan kode program yang standart. Ini tentu cukup beralasan karena penulisan kode yang konsisten menjadikan kode program lebih mudah dibaca dan dipahami.

‘ Jika hanya ada satu variebel string di Saturday
‘ ruang lingkup
Dim Str As String

‘ Jika terdapat lebih dari Satu
Dim strNama As String
Dim strAlamat As String

•    Hindari Tipe Variant
Tipe data Variant secara otomatis akan ditetapkan pada suatu variebel manakala anda tidak menetapkan tipe datanya secara eksplisit.

‘ Variabel intX bertipe Variant
Dim IntX, intY As Integer

‘ intA dan intB bertipe Integer
Dim intA as Integer, intB As Integer

Alasan utama untuk menghindari tipe data Variant adalah karena eksekusinya yang cenderung lebih lambat mengkonsumsi memori lebih besar.

•    Ruang Lingkup Variabel
Apabila variabel-variabel anda hanya diperlukan oleh suatu method (prosedur/fungsi), sebaiknya deklarasikan di level

Local. Teknik ini terkait erat dengan performa aplikasi, dimana variabel local akan lebih cepat di eksekusi disbanding variabel global.

•    Konkatenasi dan Multiline
Pada saat anda ingin menghubungkan string, gunakan operator konkatenasi (&). Adapun jika konkatenasi melibatkan baris baru, sebaiknya manfaatkan karakter garis bawah (Underscore)

‘ Hello Indonesia adalah satu bagian
strData = “Hello” & _
“Indonesia”

‘ strA dan strB adalah dua bagian
Dim strA As string
strB As string

•    Definisi tipe data
Anda pasti pernah menemui kode program Visual Basic (VB) yang mendefinisikan suatu tipe data menggunakan akhiran karakter tertentu, seperti $, %, dan sebagainya.  Pendekatan yang juga disebut definisi tipe data secara implicit ini umumnya dilakukan untuk mempercepat eksekusi kode, berikut ini symbol (karakter ) yang dapat digunakan sebagai akhiran nama variabel untuk merepresentasikan tipe data.


Perlu di perhatikan, bagian ini tidak bermaksud menyarankan anda untuk menggunakan pendekatan di atas, namun hanya sekedar memperlihatkan bagaimana implementasi secara implicit. Bagaimanapun juga, pendekatan definisi seperti ini seringkali membingungkan , terutama bagi yang belum memahami makna karakter terkait

•    Verifikasi tipe data
Pada saat akan melakukan operasi terhadap suatu variabel terkadang kita ingin memeriksa tipe datanya terlebih dahulu. Untuk memudahkan verifikasi ini, kita bisa menambahkan method-method yang tersedia.

Method vb
Tabel Tipe data

Pernyataan kondisional
Dalam melakukan analisis dua kasus , anda tidak bisa meringkas penulisan kode program dengan memanfaatkan  method if

Dim bStatus As Boolean
Dim intResult As integer

‘ Pendekatan if (satandart)
If  bStatus then
     intResult = 1
else
 intResult = 0
End if
Print intResult

‘ Pendekatan if
intResult = if(bStatus, 1, 0)
Print intResult

Namun perlu diperhatikan , eksekusi method If cenderung lebih lambat dibanding pernyataan kondisional If

•    Keyword Step
Disamping menyederhanakan penulisan kode program pengulangan keyword step juga mampu mempercepat eksekusi kode. Sebagai contoh , kedia program berikut akan menghasilkan keluaran sama.
Dim i as Integer
‘Mencetak bilangan ganjil 1-10
For I = 0 to 9
I = 1 + 1
Print i
Next i

‘Menggunakan pendekatan step
For I = 1 to 10 step 2
    Print i
Next i

Tentang Mesran[dot]net

Tentang Mesran[dot]net


Mesran[dot]net merupakan salah satu website untuk para programmer,pengelola sekaligus pemilik website ini merupakan pengajar disalah satu perguruan tinggi swasta terkemuka di Medan yaitu STMIK BUDIDARMA Medan yang juga merupakan tempat aq menuntut ilmu! Pada website ini para programmer ataupun Mahasiswa dapat mempelajari berbagai macam program seperti Visual basic.net,Pascal,VB.6,Visual C/C++,Visual C# dan lain sebagainya.

Pada website ini juga dilengkapi registrasi sebagai member yang hanya dikhususkan untuk para Mahasiswanya, dimana setelah Login para mahasiswanya juga bisa melihat nilai,mengikuti kuis ataupun mengerjakan berbagai tugas lainnya.

Salam sukses deh buat Pak Mesran dan situs Mesran[dot]net.

FormNilai Sederhana

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111134")
        NPM.Items.Add("12110000")
        NPM.Items.Add("12115656")
   

        KDosen.Items.Add("001")
        KDosen.Items.Add("002")
        KDosen.Items.Add("003")
 
        Kodematkul.Items.Add("p001")
        Kodematkul.Items.Add("p002")
        Kodematkul.Items.Add("p003")
     

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12111134"
                Nama.Text = "sahli fadli"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnik Informatika"
            Case "12110000"
                Nama.Text = "Bachri"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12115656"
                Nama.Text = "Lastri"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case Else
                Nama.Text = "-"
        End Select

    End Sub

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "001"
                NmDosen.Text = "Mesran"
            Case "002"
                NmDosen.Text = "Sinar Sinurat"
            Case "003"
                NmDosen.Text = "Toni Limbong"
            Case Else
                NmDosen.Text = "-"

        End Select
    End Sub

    Private Sub Kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematkul.SelectedIndexChanged
        Select Case Kodematkul.Text
            Case "p001"
                Nmatkul.Text = "Pemrograman Visual"
            Case "p002"
                Nmatkul.Text = "Sistem Operasi"
            Case "p003"
                Nmatkul.Text = "Komunikasi Data"
         
            Case Else
                Nmatkul.Text = "-"
        End Select
    End Sub

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

    Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
        NA.Text = 0.1 * Nhadir.Text + 0.15 * NT.Text + 0.3 * NU.Text + 0.45 * NUS.Text
        If NA.Text >= 50 Then
            Ket.Text = "LULUS"
        Else
            Ket.Text = "GAGAL"

        End If

        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        End If
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = "'"
        Jurusan.Text = ""
        KDosen.Text = ""
        NmDosen.Text = ""
        Kodematkul.Text = ""
        Nmatkul.Text = ""
        Nhadir.Text = ""
        NT.Text = ""
        NU.Text = ""
        NUS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

    Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

    End Sub
End Class

hasilnya:

Quiz Online 08 Desember 2013 (Pemograman Pemakaian Listrik)


 
 Public Class Form1
    Sub BUAT_TABLE()
        Lv.GridLines = True
        Lv.View = View.Details
        Lv.FullRowSelect = True
        Lv.Columns.Add("Kode pelanggan")
        Lv.Columns.Add("daerah")
        Lv.Columns.Add("tipe")
        Lv.Columns.Add("Biaya beban")
        Lv.Columns.Add("Harga Kwh")
        Lv.Columns.Add("Meter Bulan Ini")
        Lv.Columns.Add("Meter Bulan lalu")
        Lv.Columns.Add("Besar Pemakaian")
        Lv.Columns.Add("Total Tagihan")
        Lv.Columns.Add("pajak")
        Lv.Columns.Add("Pembayaran")


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("PAB-MED-100")
        kode.Items.Add("TOK-MAR-101")
        kode.Items.Add("SWA-TEM-102")
        kode.Items.Add("RUM-BIN-103")
        kode.Items.Add("PAB-PAK-104")
        Call BUAT_TABLE()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kode.Text = ""
        daerah.Text = ""
        Tipe.Text = ""
        Bbeban.Text = ""
        Kwh.Text = ""
        mini.Text = ""
        mlalu.Text = ""
        bpakai.Text = ""
        ttagihan.Text = ""
        pajak.Text = ""
        bayar.Text = ""
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Bbeban.Text)
        lst.SubItems.Add(Kwh.Text)
        lst.SubItems.Add(mini.Text)
        lst.SubItems.Add(mlalu.Text)
        lst.SubItems.Add(bpakai.Text)
        lst.SubItems.Add(ttagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(bayar.Text)
        Lv.Items.Add(lst)


    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnhapusterpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusterpilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 3)
        Select Case x
            Case "TOK" : Tipe.Text = "TOKO"
                Kwh.Text = "500"
                Bbeban.Text = "150000"
            Case "RUM" : Tipe.Text = "RUMAH"
                Kwh.Text = "200"
                Bbeban.Text = "50000"
            Case "SWA" : Tipe.Text = "SWALAYAN"
                Kwh.Text = "1500"
                Bbeban.Text = "400000"
            Case "PAB" : Tipe.Text = "PABRIK"
                Kwh.Text = "10000"
                Bbeban.Text = "1000000"
        End Select
        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerah.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerah.Text = "AKSARA"
        ElseIf x = "MAR" Then
            daerah.Text = "MARENDAL"
        ElseIf x = "BIN" Then
            daerah.Text = "BINJAI"
        Else
            daerah.Text = "LUBUK PAKAM"

        End If


    End Sub

    Private Sub bpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bpakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ttagihan.Text = Val(Bbeban.Text) + Val(Kwh.Text) * bpakai.Text
            pajak.Text = 0.015 * ttagihan.Text
            bayar.Text = Val(pajak.Text) + Val(ttagihan.Text)

        End If
    End Sub

    Private Sub mlalu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mlalu.TextChanged
        bpakai.Text = Val(mini.Text) - Val(mlalu.Text)
    End Sub
End Class