Tugas Mengerjakan soal nomor 3

Untuk Kasus lihat linknya Disini

Listing Program  :


Public Class Login
  
    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If user.Text = "abdi" And pas.Text = "abdi" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("pasword/ID anda salah !!!!  Silahkan Anda Coba Lagi")
            user.Text = ""
            pas.Text = ""

        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Integer
        i = MsgBox(" Apakah Anda Ingin Keluar dari Program ini", MsgBoxStyle.YesNo, " Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

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

    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub
End Class

Hasil Program :

Listing Program untuk Menu Utama :

Public Class Menu_Utama

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click

        Tagihan_PDAM.MdiParent = Me

        Tagihan_PDAM.Show()

    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        Dim i As String

        i = MsgBox("Apakah Anda Ingin Keluar Dari Program ini", MsgBoxStyle.YesNo, "Kembali Ke menu utama")

        If i = vbYes Then

            End

        End If

    End Sub

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

    End Sub

    Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel1.Click

    End Sub

End Class

Hasil Program :

Listing Program Tagihan PDAM :

Public Class Tagihan_PDAM

   

    Sub table()

        ListView1.Columns.Add("K.Pelanggan", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("T.Pelanggan", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("N.Urut", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("B.Beban", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("J.pemakaain", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("T.tagihan", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub isi()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(plgn.Text)

        lst.SubItems.Add(no.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(jmlh.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(tagihann.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(pembayaran.Text)

        ListView1.Items.Add(lst)

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim i As String

        i = Microsoft.VisualBasic.Left(kode.Text, 3)

        If i = "TOK" Then

            plgn.Text = "Toko"

            biaya.Text = 25000

            harga.Text = 300

        ElseIf i = "RUM" Then

            plgn.Text = "Rumah"

            biaya.Text = 15000

            harga.Text = 100

        ElseIf i = "SWA" Then

            plgn.Text = "swalayan"

            biaya.Text = 10000

            harga.Text = 200

        ElseIf i = "PAB" Then

            plgn.Text = "pabrik"

            biaya.Text = 250000

            harga.Text = 500

        End If

        i = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If i = "MED" Then

            daerah.Text = "medan"

        ElseIf i = "BEL" Then

            daerah.Text = "Belawan"

        ElseIf i = "MAR" Then

            daerah.Text = "marendal"

        ElseIf i = "BIN" Then

            daerah.Text = "binjai"

        ElseIf i = "PAK" Then

            daerah.Text = "lubukpakam"

        ElseIf i = "TEM" Then

            daerah.Text = "Akasara"

        End If

        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Sub AddJumlah()

        For i = 1 To 100

            jmlh.Items.Add(i)

        Next

    End Sub

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

        AddJumlah()

        table()

        kode.Items.Add("TOK-MED-100")

        kode.Items.Add("TOK-BEL-101")

        kode.Items.Add("TOK-TEM-102")

        kode.Items.Add("TOK-MAR-103")

        kode.Items.Add("TOK-BIN-104")

        kode.Items.Add("TOK-PAK-105")

        kode.Items.Add("RUM-MED-106")

        kode.Items.Add("RUM-BEL-107")

        kode.Items.Add("RUM-TEM-108")

        kode.Items.Add("RUM-MAR-109")

        kode.Items.Add("RUM-BIN-110")

        kode.Items.Add("RUM-PAK-111")

        kode.Items.Add("SWA-MED-112")

        kode.Items.Add("SWA-BEL-113")

        kode.Items.Add("SWA-TEM-114")

        kode.Items.Add("SWA-MAR-115")

        kode.Items.Add("SWA-BIN-116")

        kode.Items.Add("SWA-PAK-117")

        kode.Items.Add("PAB-MED-118")

        kode.Items.Add("PAB-BEL-119")

        kode.Items.Add("PAB-TEM-120")

        kode.Items.Add("PAB-MAR-121")

        kode.Items.Add("PAB-BIN-122")

        kode.Items.Add("PAB-PAK-123")

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isi()

        kode.Text = ""

        daerah.Text = ""

        plgn.Text = ""

        no.Text = ""

        biaya.Text = ""

        harga.Text = ""

        jmlh.Text = ""

        pajak.Text = ""

        tagihann.Text = ""

        pembayaran.Text = ""

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

    Private Sub hapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuss.Click

        ListView1.Items.Clear()

    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

        tagihann.Text = biaya.Text + harga.Text * jmlh.Text

        pajak.Text = 0.1 * tagihann.Text

        pembayaran.Text = Val(tagihann.Text) + Val(pajak.Text)

    End Sub

End Class

Hasil Program :

terima kasih....!!!

tugas VB.net soal dari modul halaman 33

Untuk kasus Klik Link Di sini

Listing Program :

Public Class latihan
    Sub table()
        ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        ListView1.Items.Add(lst)
    End Sub


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


      

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub
    Sub AddJumlah()
        For i = 1 To 100
            jumlah.Items.Add(i)
        Next
    End Sub
    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub



    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim latihan As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
        If latihan = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf latihan = "VG" Then
            merk.Text = "V-Gen"
        End If
        latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
        If latihan = "001" Then
            nama.Text = "Flasdic 4GB"
        ElseIf latihan = "002" Then
            nama.Text = "Flasdisc 2GB"
      

        End If
        harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
        If kode.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kode.Text = "VG002" Then
            harga.Text = 60000
        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)




    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Byte
        i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            hitung_Click(sender, e)

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
        ListView1.Items.Clear()
    End Sub

  
    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class

Hasil Program :

mengobati herpes

Genital herpes adalah penyakit virus, menyebabkan wabah lepuh kecil dan luka masih sakit pada permukaan kulit. Ada dua jenis herpes: satu adalah herpes oral, yang di daerah bibir hidung, dan wajah, sementara yang lain adalah versi yang lebih intens disebut herpes kelamin , yang turun, alat kelamin atau anus tubuh. Sejauh ini, ilmu pengetahuan belum mampu menemukan obat untuk herpes. Namun, saat ini ada obat yang tersedia yang berguna untuk mengurangi apa yang bisa menjadi sering terjadinya epidemi. Tapi sebelum mengambil tindakan apapun, berikut adalah beberapa hal yang perlu diingat:

* Menahan diri dari menyentuh daerah yang terinfeksi, terutama dengan tangan kosong untuk menghindari penyebaran virus. Hal ini biasanya lebih baik untuk tidak memiliki kontak kulit dengan daerah yang terinfeksi. Juga, sentuh dapat mentransfer kotoran dari tangan, menjaga virus lebih aktif dan lebih tunduk terhadap infeksi.

* Ambil obat rasa sakit sementara mengurangi rasa sakit. Obat penghilang rasa sakit seperti aspirin generik dapat membantu meningkatkan rasa sakit, setidaknya untuk jangka waktu tertentu. Batasi dosis anda, karena terlalu banyak juga bisa menyebabkan efek samping, tergantung pada kepekaan dari sistem kekebalan tubuh orang tersebut.

* Menyingkirkan krim, gel dan lotion. Meskipun tampaknya bahwa rasa sakit berkurang oleh aplikasi ini pelumas, produk ini, terutama mereka yang dipasarkan, tidak dimaksudkan untuk mengatasi luka dingin dan lecet. Kebanyakan dari mereka adalah melembabkan kulit kondisioner atau pemutih dan tidak terkait dengan peningkatan iritasi kulit. Konsultasikan dengan dokter untuk obat lain yang mungkin berguna untuk pengobatan.

* Jauhkan daerah yang terinfeksi bersih dan kering sepanjang waktu. Untuk menjaga dari penyebaran infeksi, yang paling masuk akal untuk menjaga daerah melepuh tidak hanya sanitasi tetapi juga daerah sekitar mereka. Mandi hangat dikatakan sangat efektif. Pastikan bahwa area yang sama memiliki handuk lembut untuk mengeringkan. Virus ini mudah menyebar pada permukaan yang lembab atau basah.

* Diet tinggi rendah-arginin-lisin. Herpes adalah salah satu penyakit yang terus datang kembali. Lisin mengurangi waktu frekuensi, keparahan dan penyembuhan infeksi. Sumber baik dari lisin termasuk ikan, ayam, daging sapi, susu, keju, sayuran dan buah-buahan kebanyakan.

Untuk herpes kelamin, tidak mengelilingi daerah yang terinfeksi dalam pakaian ketat. Sederhananya, menjaga daerah yang terinfeksi dari setiap jenis iritasi dan semua yang mungkin bisa menyebabkannya. Kenakan pakaian disesuaikan dapat menyebabkan transfer virus ke bagian yang terinfeksi tidak terinfeksi. Hal ini juga dianjurkan untuk mengenakan pakaian katun, karena jenis pakaian ini lebih kompatibel dengan semua jenis kulit. Beberapa pakaian non-kapas dapat menjadi sumber iritasi, terutama untuk kulit sensitif.

cara menghapus tato

LASER

Laser yang digunakan tergantung pada warna tato. Beberapa perawatan yang biasanya diperlukan untuk menghilangkan tato seluruh. Laser fragmen pigmen tato, di mana sistem kekebalan tubuh Anda dan kemudian hapus. Sementara laser tidak memecah pigmen, juga melakukan beberapa kerusakan pada kulit Anda, kadang-kadang menyebabkan lecet dan mungkin jaringan parut.

EKSISI 

Anda mungkin pernah telah memotong gigi. Tattoo eksisi adalah proses yang serupa. Anestesi digunakan untuk mematikan daerah dan tato tersebut diangkat melalui operasi. Kulit kemudian dijahit bersama-sama, atau dalam beberapa kasus yang melibatkan daerah yang luas, cangkok kulit digunakan. Dengan tato besar, bagaimanapun, tato kadang-kadang diambil dalam bagian, dimulai dengan Pusat dan kemudian menghapus sisi selama operasi atau sebelum operasi. 

PENGHAPUSAN TATO KRIM 

Tato krim removal dimaksudkan untuk mengintensifkan warna tato anda. Sebagian besar perusahaan beriklan penghapusan tato krim tampak dangkal di terbaik, dan beberapa produk mungkin berisi bahan kimia berbahaya.

meningkatkan asupan kalsium Anda

Kalsium adalah salah satu mineral yang paling penting dalam tubuh kita. Hal ini dapat diambil baik dalam bentuk alam atau suplemen karena dapat ditemukan di beberapa makanan dan dapat mengambil sebagai suplemen makanan dalam bentuk obat-obatan. Mengapa kalsium penting? Hal ini penting karena mempengaruhi kontraksi otot dan ekspansi dan kontraksi pembuluh darah. Hal ini juga membantu dalam sekresi hormon dan enzim, dan akhirnya, membantu transmisi impuls seluruh sistem saraf.

Selain itu, 1% dari kalsium kita sangat diperlukan dalam menjaga kalsium dalam, cairan antara darah dan otot. 99% disimpan dalam tulang dan gigi. Tulang kita selalu terus-menerus mengalami rekonstruksi, sehingga kita perlu terus memasok kalsium mengisi tubuh kita. Hal ini terutama terjadi karena keseimbangan antara resorpsi tulang dan perubahan deposisi saat kita beranjak tua.

Hal itu penting bahwa sementara kita masih muda, kita harus memastikan Anda memiliki asupan kalsium yang cukup. Berikut adalah beberapa tips tentang bagaimana kita bisa meningkatkan konsumsi kita kalsium untuk mengurangi risiko osteoporosis.

* Tahu asupan kalsium yang direkomendasikan. Hal ini penting untuk mengetahui nilai asupan kalsium yang direkomendasikan oleh penyedia layanan kesehatan Anda. Ketika mereka tumbuh, untuk meningkatkan asupan nilai karena tubuh kita membutuhkan kalsium lebih banyak untuk mendukung struktur tulang dan gigi.

* Makan makanan yang memiliki kadar kalsium. Makanan seperti yoghurt, susu dan keju adalah kontributor utama kalsium. Anda juga dapat memiliki kalsium dalam sayuran seperti kangkung, kubis, dan brokoli. Beberapa item tidak memiliki kalsium kecuali ini telah diperkaya, tetapi tetap saja mereka dapat menjadi kontributor untuk suplemen makanan karena beberapa yang umum dikonsumsi. Kalsium makanan yang diperkaya dengan jus buah, sereal, dan tahu yang diproses dengan garam kalsium. Jika sedang diproses dengan garam jenis lain tidak akan memberikan jumlah kalsium yang memuaskan sama sekali. Jumlah kalsium juga bervariasi sedikit dengan jumlah asupan lemak. Isi lemak yang lebih tinggi, kalsium menyediakan kurang.

# Ambil suplemen gizi. Kalsium dapat ditemukan dalam kalsium karbonat atau sitrat. Kalsium karbonat adalah yang paling umum dan paling mahal, meskipun dua dari mereka dapat diserap. Anda juga mungkin memiliki suplemen kalsium lain sebagai laktat dan fosfat. Ini adalah terbaik untuk makan makan dulu sebelum mengambil suplemen, terutama kalsium karbonat, kalsium sitrat namun, Anda dapat mengambil dengan atau tanpa asupan makanan. Tidak memiliki asupan kalsium yang cukup dapat menempatkan tubuh Anda beresiko. Dan bukankah resiko selalu mudah, karena tubuh Anda tidak menghasilkan gejala yang jelas pada jangka pendek. Anda bisa merasakan hanya penyakit jangka panjang atau ketika usia Anda.

* Buatlah kebiasaan mengambil suplemen dan makan makanan yang memiliki kalsium setiap hari untuk menghindari segala bentuk penyakit yang mungkin terjadi di masa depan. Lindungi diri Anda sementara Anda masih muda. Ini adalah kewajiban paling penting Anda harus mendefinisikan diri sendiri. Jaga tubuh Anda dan Anda akan memiliki kekhawatiran di masa depan.

Senyumlah, Karena Senyum Dapat Memanjangkan Umur!

Jika Anda termasuk orang yang selalu terlihat memiliki senyuman paling lebar, itu artinya Anda akan berumur panjang, demikian hasil penelitian

Orang-orang yang banyak tersenyum biasanya lebih bahagia, memiliki kepribadian yang lebih stabil, lebih stabil perkawinan, lebih baik keterampilan kognitif dan keterampilan interpersonal, demikian menurut penelitian terbaru.

Penelitian terbaru menemukan manfaat lain dari wajah yang bahagia. Ternyata orang yang mempunyai senyuman besar, dapat hidup lebih lama.

Para peneliti di Wayne State University, Detroit, mengevaluasi foto 230 pemain Liga Utama Baseball yang bertanding sebelum tahun 1950. Melalui foto-foto tersebut, peneliti menilai senyum para partisipan yang dibagi dalam tiga kelompok, yaitu partisipan dengan senyuman terlebar, tersenyum biasa, dan yang tidak tersenyum sama sekali.

Penilaian senyum pemain dibandingkan dengan data kematian yang terjadi 2006 dan 2009. Selain menganalisa tingkat senyum partisipan, para peneliti juga mengumpulkan informasi lainnya yang berhubungan dengan faktor penyebab seseorang berumur panjang seperti status pernikahan, tahun kelahiran, dan indeks massa tubuh.

Tim peneliti menemukan pemain yang masuk kategori satu berusia rata-rata 73 tahun. Adapun usia rata-rata pemain yang masuk kategori dua dan tiga masing-masing 75 dan 80 tahun. Hubungan antara senyum dan usia itu bahkan tetap kuat setelah memasukkan faktor-faktor seperti status pernikahan, tahun kelahiran, indeks massa tubuh, dan pendidikan.

Penelitian yang dimuat di jurnal Psychological Science menemukan, semakin lebar senyum seseorang, mengindikasikan bahwa orang tersebut merasakan kebahagiaan yang kemudian menuntunnya untuk memiliki sifat positif.

"Orang yang tersenyum paling lebar memiliki umur lebih panjang dibandingkan dua kelompok lainnya," kata salah satu peneliti, Ernest L Abel. "Sangat sulit memalsukan senyum tulus yang datang dari pancaran hati," tambah Ernest.

Analisa Ernest dan timnya terbukti ketika pada 1 Juni 2009, hanya tinggal 46 partisipan yang masih hidup. Mereka adalah ternyata para pemain baseball yang memiliki senyuman paling lebar.

Sumber : [healthzone/cha/www.hidayatullah.com]

Hal dasar yang perlu di perhatikan dalam Visual bassic

a.   Membuat Proyek Baru

Untuk membuat proyek baru dilakukan dengan urutan berikut :

1. Pilih Menu File

2. Pilih New, hingga muncul tampilan pilihan New Project.

3. Untuk pengembangan aplikasi standar pada bagian(tab) New, pilihlah Standar.EXE  untuk  aplikasi  sederhana,  atau  VB  Enterprise  Edition Controls untuk aplikasi yang lebih kompleks.

b.   Menyimpan Proyek

Setelah   proyek   selesai   dikerjakan   atau   sekedar   untuk   menyimpan perubahan sementara, simpanlah proyek beserta keseluruhan modul atau form proyek tersebut.

Untuk menyimpan proyek pilihlam menu File, kemudian pilihlah Save. Pada saat pertama kali proyek disimpan, Visual basic akan menanyakan dimana proyek tersebut dan apa nama file proyek.

Konvensi penamaan

1. Untuk proyek awali nama proyek dengan awalan prj.

2. Untuk form awali nama form dengan frm

3. Untuk modul awali dengam mod

Lab. Teknologi Informasi, Jurusan Teknik Elektro, FT UNJ                                                                V-29

Pengantar Dasar Pemrograman Komputer

Tips :

Buatlah  sebuah  folder  di  lokasi  khusus  proyek-proyek  visual  basic. Simpanlah   proyek  beserta  seluruh  file  pendukung  proyek  di  folder

tersebut.

Gambar menyimpan project  prjLat1.vbp

Sebuah proyek akan menghasilkan sejumlah file, tabel berikut menunjukan jenis-jenis file berdasar ekstensi file yang dihasil kan proyek Visual Basic.

Tabel File proyek

Tipe File/ Ekstensi	Deskripsi
frm	Form
bas	Module
frx	Automatically generated file for every graphic in your project
ocx	ActiveX control
cls	Class module
vbp	Visual Basic project

c.   Membuka Proyek

1. Untuk membuat proyek yang telah disimpan, pilihlah menu Open dari menu File.

2. Untuk melakukan langsung ke loksi folder tempat proyek, pilihlah tab Existing,               sedangkan   untuk   membuka   proyek   yang   baru-baru   ini dikerjakan carilah pada tab Recent.

Lab. Teknologi Informasi, Jurusan Teknik Elektro, FT UNJ                                                                V-30

Pengantar Dasar Pemrograman Komputer

Gambar Membuka Projek

Catatan : Dalam melakukan aktivitas dalam lingkungan IDE Visual Basic terdapat cara         dan         urutan  serta  tampilan      jendela sendiri-sendiri.      Untuk   menguasai penggunaan         lingkungan     IDE     visual       basic       ini   harus   sering   latihan   untuk membiasakan diri dalam lingkungan Visual Basic.