JAWABAN SOAL 3 ( MUHAMMAD ARDIANSYAH DAMANIK)

KLIK SOAL 3 PDAM UNTUK LIHAT KASUS

LISTING PROGRAM

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If name1.Text = "ardiansyah" And pass.Text = "ardi" Then
menu1.Show()
Me.Hide()
Else
MsgBox("maaf name/password anda salah!")
name1.Text = ""
pass.Text = ""

End If
End Sub
End Class

Public Class menu1

Private Sub ENDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ENDToolStripMenuItem.Click
End
End Sub

Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
tagihan.Show()
Me.Hide()
End Sub
End Class

Public Class tagihan




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


total.Text = Val(biaya.Text) + Val(hrg.Text) * pmkaian.Text
pjk.Text = (1 / 100) * Val(total.Text)
PEMBAYARAN.Text = Val(pjk.Text) + Val(total.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kodp.Text, 3)
If x = "TOK" Then
typ.Text = "TOKO"
biaya.Text = 25000
hrg.Text = 300


ElseIf x = "RUM" Then
typ.Text = "RUMAH"
biaya.Text = 15000
hrg.Text = 100


ElseIf x = "SWA" Then
typ.Text = "SWALYAN"
biaya.Text = 10000
hrg.Text = 200



ElseIf x = "PAB" Then
typ.Text = "PABRIK"
biaya.Text = 25000
hrg.Text = 500

End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 4, 1)

If x = "-" Then


End If




x = Microsoft.VisualBasic.Mid(kodp.Text, 5, 3)
If x = "MED" Then
dae.Text = "MEDAN"
ElseIf x = "BEL" Then
dae.Text = "BELAWAN"
ElseIf x = "TEM" Then
dae.Text = "AKSARA"
ElseIf x = "BIN" Then
dae.Text = "BINJAI"
ElseIf x = "PAK" Then
dae.Text = "LUBUK-PAKAM"



End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 8, 1)

If x = "-" Then


End If


no.Text = Microsoft.VisualBasic.Mid(kodp.Text, 9, 3)


End Sub
Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
kodp.Text = ""
typ.Text = ""
no.Text = ""
dae.Text = ""
pmkaian.Text = ""
biaya.Text = ""
hrg.Text = ""
pjk.Text = ""
total.Text = ""
PEMBAYARAN.Text = ""
End Sub
End Class

JAWABAN SOAL 2( MUHAMMAD ARDIANSYAH DAMANIK)

KLIK  SOAL 2 UNTUK LIHAT KASUS

LISTING PROGRAM
Public Class Form1
    Sub buattabel()
        lv1.Columns.Add("Nomor P.", 70, HorizontalAlignment.Left)
        lv1.Columns.Add("KdBrng", 80, HorizontalAlignment.Left)
        lv1.Columns.Add("NmBrng", 140, HorizontalAlignment.Left)
        lv1.Columns.Add("Merk", 90, HorizontalAlignment.Left)
        lv1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        lv1.Columns.Add("Jmlh Beli", 60, HorizontalAlignment.Center)
        lv1.Columns.Add("T. Harga", 80, HorizontalAlignment.Left)
        lv1.View = View.Details
        lv1.GridLines = True
        lv1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = np.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(hrg.Text)
        lst.SubItems.Add(jbeli.Text)
        lst.SubItems.Add(thrg.Text)
        lv1.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")
        Call buattabel()
    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim XKB As String
        Dim XM As String
        XM = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case XM
            Case "001"
                nb.Text = "Flashdisk 4GB"
            Case "002"
                nb.Text = "Flashdisk 2GB"
        End Select
        XKB = Microsoft.VisualBasic.Left(kb.Text, 2)
        Select Case XKB
            Case "TS"
                merk.Text = "Toshiba"
            Case Is = "VG"
                merk.Text = "V-Gen"
        End Select

       
        If XKB = "TS" And XM = "001" Then
            hrg.Text = 105000
        ElseIf XKB = "TS" And XM = "002" Then
            hrg.Text = 75000
        ElseIf XKB = "VG" And XM = "001" Then
            hrg.Text = 90000
        Else
            hrg.Text = 60000
        End If
        jbeli.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merk.Text = ""
        jbeli.Text = ""
        hrg.Text = ""
        thrg.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        thrg.Text = hrg.Text * jbeli.Text
    End Sub

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

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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        lv1.Items.Remove(lv1.SelectedItems(0))
    End Sub
End Class

KEgiatan sehari2

    Saya Muhammad ardiansyah damanik.memiliki kegemaran di bidang musik ,sepak bola,catur juga sih,hohoho

     kesehariaan saya ialah kuliah,saya ambil s1.Saya memiliki teman2 yg sangat seru, ada di saat butuh tapi tak ada di saat senang hahaha.kini saya sudah semester 5 dan insya Allah 2 thun lagi selesai deh,mudah2an aja biasa jadi orang ni anak,huhuii

mengisi hari luang selain kuliah biasanya saya jadi OP warnet di warnet kakak saya,ya itung2 sambil browsing2 tentang pelajaran,hasilnya saya bisa sdikit banyaknya mengetahui tentang macromedia flash dulu pengen banget bisa buat game tapi ternyata sulit padahal sudah mulai ngerti tentang bahasa programnya,hmmm saya juga pernah buat web tapi sebulan tak di buka kok tak bisa lagi login,kemarin ni saya juga lagi belajar fotoshop tapi ya gitu deh,
     selain jadi OP,biasanya saya dan temen2 bermain futsal itung2 olahraga eii,selain tu pulang kampong deh,,hohoho lebay.biasanya jika di kampung saya ngisi kegiatan dengan kumpul bareng temen2 disana,biasanya kami langsung atur jadwal latihan band tuh,salah hobi terberat saya,berharap bisa jadi band yg terkenal walaupun mngkin hanya mimpi. :)

MENGENAL VISUAL BASIC

    Bahasa Basic pada dasarnya adalah bahasa yang mudah dimengerti sehingga pemrograman di dalam bahasa Basic dapat dengan mudah dilakukan meskipun oleh orang yang baru belajar membuat program. Hal ini lebih mudah lagi setelah hadirnya Microsoft Visual Basic, yang dibangun dari ide untuk membuat bahasa yang sederhana dan mudah dalam pembuatan scriptnya (simple scripting language) untuk graphic user interface yang dikembangkan dalam sistem operasi Microsoft Windows.
Visual Basic merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.
Ledakan pemakaian Visual Basic ditandai dengan kemampuan Visual Basic untuk dapat berinteraksi dengan aplikasi lain di dalam sistem operasi Windows dengan komponen ActiveX Control. Dengan komponen ini memungkinkan penguna untuk memanggil dan menggunakan semua model data yang ada di dalam sistem operasi windows. Hal ini juga ditunjang dengan teknik pemrograman di dalam Visual Basic yang mengadopsi dua macam jenis pemrograman yaitu Pemrograman Visual dan Object Oriented Programming (OOP).
Visual Basic 6.0 sebetulnya perkembangan dari versi sebelumnya dengan beberapa penambahan komponen yang sedang tren saat ini, seperti kemampuan pemrograman internet dengan DHTML (Dynamic HyperText Mark Language), dan beberapa penambahan fitur database dan multimedia yang semakin baik. Sampai saat buku ini ditulis bisa dikatakan bahwa Visual Basic 6.0 masih merupakan pilih pertama di dalam membuat program aplikasi yang ada di pasar perangkat lunak nasional. Hal ini disebabkan oleh kemudahan dalam melakukan proses development dari aplikasi yang dibuat.
Gambar Program




Pembuatan program aplikasi menggunakan Visual Basic dilakukan dengan membuat tampilan aplikasi pada form, kemudian diberi script program di dalam komponen-komponen yang diperlukan. Form disusun oleh komponen-komponen yang berada di [Toolbox], dan setiap komponen yang dipakai harus diatur propertinya lewat jendela [Property].
Menu pada dasarnya adalah operasional standar di dalam sistem operasi windows, seperti membuat form baru, membuat project baru, membuka project dan menyimpan project. Di samping itu terdapat fasilitas-fasilitas pemakaian visual basic pada menu. Untuk lebih jelasnya Visual Basic menyediakan bantuan yang sangat lengkap dan detail dalam MSDN.
Modul Dasar Pemrograman 2 Dengan Visual Basic 2
Toolbox berisi komponen-komponen yang bisa digunakan oleh suatu project aktif, artinya isi komponen dalam toolbox sangat tergantung pada jenis project yang dibangun.

 Komponen standar dalam Toolbox

Konsep Dasar Pemrograman Dalam Visual Basic 6.0

     Konsep dasar pemrograman Visual Basic 6.0, adalah pembuatan form dengan mengikuti aturan pemrograman Property, Metode dan Event. Hal ini berarti:
(1) Property: Setiap komponen di dalam pemrograman Visual Basic dapat diatur propertinya sesuai dengan kebutuhan aplikasi. Property yang tidak boleh dilupakan pada setiap komponen adalah “Name”, yang berarti nama variabel (komponen) yang akan digunakan dalam scripting. Properti “Name” ini hanya bisa diatur melalui jendela Property, sedangkan nilai peroperti yang lain bisa diatur melalui script seperti
Command1.Caption=”Play”
Text1.Text=”Visual Basic”
Label1.Visible=False
Timer1.Enable=True
Modul Dasar Pemrograman 2 Dengan Visual Basic 3
(2) Metode: Bahwa jalannya program dapat diatur sesuai aplikasi dengan menggunakan metode pemrograman yang diatur sebagai aksi dari setiap komponen. Metode inilah tempat untuk mengekpresikan logika pemrograman dari pembuatan suatu prgram aplikasi.
(3) Event: Setiap komponen dapat beraksi melalui event, seperti event click pada command button yang tertulis dalam layar script Command1_Click, atau event Mouse Down pada picture yang tertulis dengan Picture1_MouseDown. Pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
1.4. Membuat Project Baru
Untuk memulai pembuatan program aplikasi di dalam Visual Basic, yang dilakukan adalah membuat project baru. Project adalah sekumpulan form, modul, fungsi, data dan laporan yang digunakan dalam suatu aplikasi. Membuat projrct baru dapat dilakukan dengan memilih menu [File] >> [New Project] atau dengan menekan ikon [new project] pada Toolbar yang terletak di pojok kiri atas. Setelah itu akan muncul konfirmasi untuk jenis project dari program aplikasi yan akan dibuat seperti terlihat pada gambar 1.3. berikut.









      Visual Basic 6.0 menyediakan 13 jenis project yang bisa dibuat seperti terlihat pada gambar 1.3 di atas. Ada beberapa project yang biasa digunakan oleh banyak pengguna Visual Basic, antara lain:
(1) Standard EXE: Project standar dalam Visual Basic dengan komponen-komponen standar. Jenis project ini sangat sederhana, tetapi memiliki keunggulan bahwa semua komponennya dapat diakui oleh semua unit komputer dan semua user meskipun bukan administrator. Pada buku ini akan digunakan project Standard EXE ini, sebagai konsep pemrograman visualnya.
(2) ActiveX EXE: Project ini adalah project ActiveX berisi komponen-komponen kemampuan intuk berinteraksi dengan semua aplikasi di sistem operasi windows.
(3) ActiveX DLL: Project ini menghasilkan sebuah aplikasi library yang selanjutnya dapat digunakan oleh semua aplikasi di sistem operasi windows.
(4) ActiveX Control: Project ini menghasilkan komponen-komponen baru untuk aplikasi Visual Basic yang lain
(5) VB Application Wizard: Project ini memandu pengguna untuk membuat aplikasi secara mudah tanpa harus pusing-pusing dengan perintah-perintah pemrograman.
(6) Addin: Project seperti Standard EXE tetapi dengan berbagai macam komponen tambahan yang memungkinkan kebebasan kreasi dari pengguna.
(7) Data project: Project ini melengkapi komponennya dengan komponen-komponen database. Sehingga bisa dikatakan project ini memang disediakan untuk keperluan pembuatan aplikasi database.
(8) DHTML Application: Project ini digunakan untuk membuat aplikasi internet pada sisi client (client side) dengan fungsi-fungsi DHTML.
(9) IIS Application: Project ini menghasilkan apliaksi internet pada sisi server (server side) dengan komponen-komponen CGI (Common Gateway Interface).
Selanjutnya pilih Standard EXE dan tekan [Ok]. Lalu muncul tampilan dari Standard Exe seperti pada gambar 1.1. Dengan demikian project sudah siap dibuat. Dalam pembuatan project sebelumnya double click pada form yang terbuat maka adak terlihat jendela tersembunyi (hidden windows) yang berupa jendela untuk pembuatan program atau jendela kode (code windows). Hal ini Dapat dilakukan dengan cara memilih ikon jendela form atau jendela kode yang ada di [Project Explorer]. Hal ini dapat dilihat pada gambar 1.4


Pada jendela form, pengguna dalam membangun tampilan dari program aplikasi yang akan dibuat dengan mengatur komponen-komponen baik letak, properti dan eventnya. Untuk mengambil suatu komponen dari [Toolbox] dapat dilakukan dengan click komponen tersebut, kemudian clik atau tarik pada posisi yang benar pada form
Langkah-langkah mengambil label dari toolbox untuk dipasangkan dalam form adalah sebagai berikut:
(1) Click ikon [Label] pada [ToolBox]
(2) Pindahkan ke posisi dimana label itu akan diletakkan
(3) Clik dan tarik sampai ukurannya benar lalu lepaskan
Dan untuk menjalankan program click ikon Run () pada toolbar atau pilih menu [Run] >> [Start], atau dengan tekan tombol [F5].