Archive for 2017

  • TUGAS PEMROGRAMAN
    by; Dela.J

    PART 10

    “APLIKASI FORMAT TEXT”

    Untuk membuat aplikasi format text silahkan masukkan kontrol-kontrol dibawah ini:
    1 TextBox
    2  Frame
    4 Label
    1 ComboBox
    3 CheckBox
    1 CommandButton
    3 ListBox
    Kemudian susun dan edit kontrol diatas seperti gambar di bawah ini:
    Setelah sudah, masukkan Code-nya, dengan ketentuan:
    • Jika pada combobox background dipilih salah satu warna, misal hijau, maka warna pada texbox akan berubah menjadi hijau.
    • Jika memilih salah satu jenis huruf pada list jenis huruf, maka jenis huruf tulisan akan berganti.
    • Jika memilih salah satu angka pada list ukuran huruf, maka ukuran tulisan akan berubah.
    • Jika memilih salah satu perataan,misalkan ‘Rata Tengah’ pada list perataan, maka tulisan akan berubah menjadi rata tengah.
    • Pada frame efek huruf. Jika memilih checkbox, misalkan ‘Miring’ maka tulisan akan berubah menjadi miring.
    • Commandbutton ‘TUTUP’ untuk menutup program.

    Berikut Code untuk bisa menjalankan seperti ketentuan di atas:

    Kode untuk ComboBox Backgorund


    Private Sub CboWarna_Click()
    If CboWarna.Text = "Putih" Then
    TxtTeks.BackColor = vbWhite
    ElseIf CboWarna.Text = "Hitam" Then
    TxtTeks.BackColor = vbBlack
    ElseIf CboWarna.Text = "Merah" Then
    TxtTeks.BackColor = vbRed
    ElseIf CboWarna.Text = "Kuning" Then
    TxtTeks.BackColor = vbYellow
    Else
    TxtTeks.BackColor = vbGreen
    End If
    End Sub

    Kode untuk CheckBox Garis Bawah

    Private Sub ChkGaris_Click()
    If ChkGaris.Value = 1 Then
    TxtTeks.FontUnderline = True
    Else
    TxtTeks.FontUnderline = False
    End If
    End Sub

    Kode untuk CheckBox Miring

    Private Sub ChkMiring_Click()
    If ChkMiring.Value = 1 Then
    TxtTeks.FontItalic = True
    Else
    TxtTeks.FontItalic = False
    End If
    End Sub

    Kode untuk CheckBox Tebal

    Private Sub ChkTebal_Click()
    If ChkTebal.Value = 1 Then
    TxtTeks.FontBold = True
    Else
    TxtTeks.FontBold = False
    End If
    End Sub

    Kode untuk Tombol CommandButton Tutup

    Private Sub CmdTutup_Click()
    End
    End Sub

    Kode untuk Sub Form

    Private Sub Form_Load()
    For angka = 8 To 70 Step 2
    LstUkuran.AddItem angka
    Next angka

    For jenis = 1 To Screen.FontCount
    LstJenis.AddItem Screen.Fonts(jenis)
    Next jenis
    End Sub

    Kode untuk ListBox Jenis Huruf

    Private Sub LstJenis_Click()
    TxtTeks.FontName = LstJenis.Text
    End Sub

    Kode untuk ListBox Perataan

    Private Sub LstPerataan_Click()
    If LstPerataan.Text = "Rata Kiri" Then
    TxtTeks.Alignment = 0
    ElseIf LstPerataan.Text = "Rata Kanan" Then
    TxtTeks.Alignment = 1
    ElseIf LstPerataan.Text = "Rata Tengah" Then
    TxtTeks.Alignment = 2
    End If
    End Sub

    Kode untuk ListBox Ukuran Huruf

    Private Sub LstUkuran_Click()
    TxtTeks.FontSize = LstUkuran
    End Sub

    Selesai mengetikkan Code. Pilih Run>Start atau Tekan saja pada keyboard (F5)

    Ketikan pada kolom Textbox. Selanjutnya silahkan memilih akan di format seperti apa text tersebut. Misalnya, seperti gambar dibawah ini:




    PART 11
    "APLIKASI RESEP MAKANAN”

    Untuk membuat aplikasi resep makanan, masukkan kontrol berikut:
    1 Frame
    6 Label
    2 ComboBox
    1 CommandButton
    Susun dan Edit kontrol diatas seperti gambar di bawah ini:


    Setelah sudah, masukkan Code-nya, dengan ketentuan:
    • Jika  memilih salah satu resep masakan pada combobox ‘Pilih makanan’, maka akan muncul keterangan di kolom ‘Bahan dan Cara membuat’. Begitu pula pada Combobox ‘Pilih Kue’.

    Berikut Code-nya:

    Kode untuk ComboBox Kue

    Private Sub CboKue_Click()
    If CboKue.Text = "Wajik Tradisional" Then
    Label4.Caption = "400 gram beras ketan putih(rendam 2 jam),25 ml air panas, 250 ml santan, 250 gram gula merah(iris halus),3 lembar daun pandan(diikat), 1/2 sendok teh garam, daun pisang untk alas"
    Label5.Caption = "Kukus beras ketang selama 30 menit,stlah msuk dalm 15 menit prtama perciki dngan air panas. Rebus santan dan gula merah tambahkan daun pandan dan garam, aduk sampai meletup-letup. Masukkan ketan dan aduk di atas api kecil sampai air gula meresap. tuang adonan ke dalam loyang yg di alasi daun pisang. Potong wajik sesuai keinginan. Finish"

    ElseIf CboKue.Text = "Kue Bronis" Then
    Label4.Caption = "Tepung Terigu(1 gelas penuh),Minyak (1 gelas penuh),Coklat  bubuk(1/2 gelas),Susu bubuk(1 sndok makan),Telur(5),Gula pasir(1 gelas Penuh),Pengembang kue/SP (1 sndok teh),Vanili (2 bngkus)"
    Label5.Caption = "Campurkan semua bahan(kecuali coklat bubuk).Kocok hingga berwarna putih(dengan mixer). Masukkan coklat bubuk.Aduk Rata. Masukkan Loyang. Kemudian masukkan oven. setelah mengembang dan warna menjadi coklat.Angkat.Finish"

    ElseIf CboKue.Text = "Lapis Legit" Then
    Label4.Caption = "kuning telur 30 btr,gula halus 250 gr, susu bubuk 3 sdm, tepung terigu ayak 50 grm, mentega 350 grm, mentega/margarin 150 gr"
    Label5.Caption = "Campur mentega, serta gulas. dikocok sampai lembut.Masukkan satu per satu kuning telur sambil dikocok terus-menerus hingga adonan berwarna putih serta mengembang.Masukkan susu dan terigu sedikitsedikit sambil dikocok terus hingga rata.Siapkan loyang yang sudah dilapisi kertas roti dan dioles dengan mentega.Tuangkan 1 sendok sayur adonan dalam loyang dan panggang dalam oven dgn api atas kira-kira 5 menit.Keluarkan dari oven,tekan-tekan permukaan kue menggunakan alat penekan khusus untuk membuat kue lapis legit sampai permukaannya rata.Tambahkan selapis demi selapis dengan langkah yang sama sampai adonan habis.panggang kue dlm oven dgn api bawah dan atas sampai matang.Angkat dan diinginkan"

    ElseIf CboKue.Text = "Good Time" Then
    Label4.Caption = "225 gula halus,500 gr terigu,200 gr blue band,200 gr wisman,200 gr coklat masak leleh,200 gr coklat chip untuk hiasan,2 kuning telur,1/2 sdt baking powder,1/2 sdt soda kue,1,5 sdm coklat bubuk"
    Label5.Caption = "Kocok blueband dan wisman, masukkan gula halus kocok sampai putih dan mengembang, masukkan kuning telur, setelah rata masukkan coklat cair kocok, matikan mixer masukkan tepung dan coklat bubuk. Aduk RATA.Dibulatkan sebesar kelereng, dipipihkan dengan garpu. Tancapkan chokochip diatasnya. kemudian oven.Finish "
    End If
    End Sub

    Kode untuk ComboBox Makanan

    Private Sub CboMakanan_Click()
    If CboMakanan.Text = "Nasi Goreng" Then
    Label4.Caption = "Cabe merah dan cabe kecil, Bawang Merah, Bawang Putih, Garam, Kencur. Nasi .Telur, Kucai, dan Sosis(Sebagai penambah rasa)"
    Label5.Caption = "Haluskan : Cabe Merah, cabe kecil, bawang merah, bawang putih, garam, dan kencur.Potong Sosis berukuran kecil-kecil. Potong Kucai(seperti memotong Sledri). Setelah itu Panaskan Minyak untuk menumis bumbu. Tunggu setengah  matang. kemudian masukkan telur, Aduk. setelah tercampur, masukkan kucai, sosis. terakhir masukkan Nasi. aduk sampai rata. setelah tercampur. Angkat, tuangkan ke dalam Piring. Siap Santap (untuk pelengkap tambahkan kerupuk, bawang goreng, dan mentimu)"

    ElseIf CboMakanan.Text = "Seblak Sunda" Then
    Label4.Caption = "Cabe merah dan cabe kecil, Bawang Merah, Bawang Putih, Garam, Kencur, Air. KERUPUK MENTAH(bahan utama,biasanya kerupuk untuk pasangan nasi goreng), Telur (1),Sosis,Jamur,Sawi, Ayam yang sudah matang"
    Label5.Caption = "Kerupuk di rendam dengan air.Diamkan dulu. Haluskan : Cabe Merah, cabe kecil, bawang merah, bawang putih, garam, dan kencur. Untuk selera pedas (Tambahkan cabe lebih banyak). Potong Sosis ukuran kecil. Suwir-suwir kecil Jamur dan Ayam. Potong-Potong Sawi. Setelah sudah panaskan minyak untuk menumis bumbu. Aduk hingga setengah matang. Setelah itu masukkan Telur, Aduk rata. Kemudian masukkan Sosis,Ayam,Jamur,dan Sawi. Aduk Rata.Masukkan air secukupnya.Aduk.Terakhir, masukkan Kerupuk yang sudah direndam.Aduk, tunggu hingga matang. setelah kerupuk lunak. Angkat, Tuangkan ke mangkuk. Siap makan. "

    ElseIf CboMakanan.Text = "Pisang Molen" Then
    Label4.Caption = " Pisang (Pisang apa saja sesuai selera), Tepung terigu 500gram (Ayak terlebih dulu), Baking Powder (2 sendok teh), Gula putih yang sudah dihaluskan (120-140 gram),Telur ayam (2-3 butir), Air matang(kurang lebih yang digunakan dua sendok makan), Margarin (130-140 gram, Minyak goreng untuk menggoreng"
    Label5.Caption = "Siapkan wadah untuk adonan. Masukkan Tepung Terigu,Baking Powder,Gula bubuk,aduk sebentar. Tambahkan Telur dan Margarin, campur dan aduk semua bahan sampai menggumpal. Masukkan Air matang sedikit demi sedikit.Uleni sampai adonan kalis. Selanjutnya membentuk adonan kulit pisang molennya. Siapkan Gilingannya. Masukkan adonan ke dalam penggilingan lalu giling adonan mulai dari tebal sampai di dapat kulit pisang molen yang di inginkan. Potong dengan lebar sesuai yang diinginkan. Kupas kulit pisang, Potong menjadi dua dengan potongan menyerong. Balut pisang dengan Kulit sampai semua bagian tertutup. Panaskan minyak, lalu goreng. Jika warna sudah kuning kecoklatan. Angkat. Finish"

    ElseIf CboMakanan.Text = "Cakwe Renyah" Then
    Label4.Caption = "Tepung Terigu 250 gram, Baking Soda(setengah sendok teh),Garam Halus(sendok kecil),Baking Powder(setengah sendok makan),Air 200ml,Saus Tomat, Bawang Putih(1 siung) haluskan untuk campuran saus cakwe, Gula Pasir(1 sendok teh) untuk bahan saus, Tepung Maizena(setengah sendok makan untuk bahan saus), Garam dapur(setengah sendok teh untuk bahan saus), Setengah sendok makan sambal instan(untuk bahan saus), Air bersih 175 ml untuk bahan saus, Minyak goreng untuk menggoreng"
    Label5.Caption = "Ambil wadah cukup besar, masukkan garam halus,baking soda dan baking powder, aduk sampai bercampur. Masukkan tepung terigu,aduk rata. Masukkan air 200ml, aduk sampai kalis, diamkan selama 15-20 menit. aduk dan uleni lagi kemudian diamkan lagi selama 20 menit. ulagi proses ini sampai 3 kali, sampai adonan cakwe elastis dan bisa dibentuk. Balik adonan yang sudah elastis beri sedikit minya di atas permukaannya, agar adonan tetap lembab, diamkan di dalam plastik kurang lebih 3 jam. Keluarkan adonan, tekan menggunakan botol, sampai setengah tipis, beri sedikit tepung agar tidak lengket. Rekatkan dan tempel 2 potongan adonan dengan air, tekan bagian tengah sambungannya dengan sumpit dari atas ke bawah, hati-hati saat menekan dan jangan sampai putus. siapkan penggorengan dengan minyak dan api sedang,masukkan beberapa potong adonan di atas. Goreng bolak balik sampai kuning kecoklatan. Untuk membuat sausnya tinnggal mencampur gula pasir,garam, saus sambal, saus tomat,bawang"
    End If
    End Sub

    Kode untuk Tombol CommandButton Keluar

    Private Sub CmdKeluar_Click()
    End
    End Sub

    Kode untuk Sub Form

    Private Sub Form_Load()
    CboMakanan.AddItem "Nasi Goreng"
    CboMakanan.AddItem "Seblak Sunda"
    CboMakanan.AddItem "Pisang Molen"
    CboMakanan.AddItem "Cakwe Renyah"
    CboKue.AddItem "Wajik Tradisional"
    CboKue.AddItem "Kue Bronis"
    CboKue.AddItem "Good Time"
    End Sub

    Selanjutnya jalankan program , Run>Start atau tekan F5.

    Dan hasilnya seperti gambar di bawah:




    "semoga bermanfaat"
    ..part 11 terlalu paniang isi ya..:D
    bisa diganti kok,,boleh apa saja..
    "Terimakasih"
    by: Jeje_Art

    Materi Microsoft Visual BasicPart 10,11

    0
    By : AKei

    Read More
  • KUIS 2

    by: Dela.J


    “Membuat Aplikasi Kolam Renang AQUARIUS”


    Masukkan kontrol-kontrol seperti gambar di bawah:
    2 Frame
    8 Label
    2 ComboBox
    2 OptionButton
    7 TextBox
    3 CheckBox
    3 CommandButton
    Susun dan Edit kontrol diatas seperti gambar dibawah:



    Setelah selesai masukkan Code. Dengan ketentuan :
    • Jika di pilih salah satu optionbutton ‘L/P’ maka akan muncul keterang di kolom sampingnya ‘L untuk Laki-laki dan P untuk Perempuan’.
    • Pada ComboBox ‘Jenis Kolam Renang’ terdapat dua item yaitu ‘Dewasa dan anak-anak’, jika dipilih salah satu maka akan muncul keterangan harga di kolom ‘Harga Tiket Per-orang’.
    • Pada ChecBox jika di ceklist maka akan muncul harganya di kolom sampingnya.
    • Terakhir, ketika klik CommandButton ‘HITUNG’ maka akan muncul hasil/uang yang harus dibayarkan di kolom ‘TOTAL PEMBAYARAN’.


    Berikut Coding-nya:

    Kode untuk ComboBox  Jenis Kolam Renang

    Private Sub CboJenis_Click()
    If CboJenis.Text = "Dewasa" Then
    TxtHarga.Text = "25000"
    ElseIf CboJenis.Text = "Anak-anak" Then
    TxtHarga.Text = "15000"
    End If
    End Sub

    Kode untuk CheckBox Coca cola

    Private Sub ChkCola_Click()
    If ChkCola.Value = 1 Then
    TxtCola.Text = "6000"
    ElseIf ChkCola.Value = 0 Then
    TxtCola.Text = ""
    End If
    End Sub

    Kode untuk CheckBox Parfait

    Private Sub ChkParfait_Click()
    If ChkParfait.Value = 1 Then
    TxtPar.Text = "12000"
    ElseIf ChkParfait.Value = 0 Then
    TxtPar.Text = ""
    End If
    End Sub

    Kode untuk CheckBox Potato

    Private Sub ChkPotato_Click()
    If ChkPotato.Value = 1 Then
    TxtPotato.Text = "5000"
    ElseIf ChkPotato.Value = 0 Then
    TxtPotato.Text = ""
    End If
    End Sub

    Kode untuk Tombol CommandButton Hitung

    Private Sub CmdHitung_Click()
    If ChkPotato.Value = Checked Then
    total = total + 5000
    End If
    If ChkCola.Value = Checked Then
    total = total + 6000
    End If
    If ChkParfait.Value = Checked Then
    total = total + 12000
    End If
    TxtTotal.Text = Val(TxtHarga.Text) * Val(TxtJumlah.Text) + Val(total)
    End Sub

    Kode untuk Tombol CommandButton Keluar

    Private Sub CmdKeluar_Click()
    Unload Me
    End Sub

    Kode untuk Tombol CommandButton Lagi

    Private Sub CmdLagi_Click()
    TxtNama.Text = ""
    TxtJenis.Text = ""
    TxtHarga.Text = ""
    TxtJumlah.Text = ""
    TxtTotal.Text = ""
    CboNomor.Text = ""
    CboJenis.Text = ""
    TxtCola.Text = ""
    TxtPotato.Text = ""
    TxtPar.Text = ""
    End Sub

    Kode untuk Sub Form

    Private Sub Form_Load()
    CboNomor.AddItem "1"
    CboNomor.AddItem "2"
    CboNomor.AddItem "3"
    CboNomor.AddItem "4"
    CboNomor.AddItem "5"
    CboNomor.AddItem "6"
    CboNomor.AddItem "7"
    CboNomor.AddItem "8"
    CboNomor.AddItem "9"
    CboNomor.AddItem "10"
    CboNomor.AddItem "11"
    CboNomor.AddItem "12"
    CboNomor.AddItem "13"
    CboNomor.AddItem "14"
    CboNomor.AddItem "15"
    CboJenis.AddItem "Dewasa"
    CboJenis.AddItem "Anak-anak"
    End Sub

    Kode untuk OptionButton L

    Private Sub OptLaki_Click()
    TxtJenis.Text = "Laki-Laki"
    End Sub

    Kode untuk OptionButton P

    Private Sub OptPerempuan_Click()
    TxtJenis.Text = "Perempuan"
    End Sub
    Setelah selesai pilih RUN>Start atau tekan F5 (biar cepet)
    Isikan manual di kolom ‘Nama Pengunjung, dan Jumlah orang”. Hasilnya seperti gambar dibawah:




    "Semoga bermanfaat"
    "Terimakasih"
    by: Jeje_Art

    VISUAL BASIC 6.0 KUIS 2 (9)

    0
    By : AKei

    Read More
  • Tugas..Pemrograman
    by: Dela.J



    PART 4

    “Membuat Aplikasi Peminjaman Buku”


    Aplikasi ini biasanya diterapkan di perpustakan atau jasa yang menyediakan peminjaman buku. Masukkan kontrol-kontrol berikut:
    8 Label
    8 TextBox
    1 ComboBox
    2 CommandButton
    Susun dan edit kontrol di atas seperti gambar dibawah:


    Dengan ketentuan:
    • Jika di pilih salah satu item di combobox, maka akan muncul keterangan di ‘Judul Buku, Penulis, Rak’
    • Jika sudah memasukkan jumlah keterlambatan peminjaman dan di enter akan muncul berapa dendanya di kolom ‘Denda’.

    Ketikkan Code seperti gambar di bawah:

    Kode untuk ComboBox Kode Buku

    Private Sub CboKode_Click()
    If CboKode.Text = "110" Then
        TxtJudul.Text = "Photoshop"
        TxtPenulis.Text = "Doni Albana"
        TxtRak.Text = "R1"
    ElseIf CboKode.Text = "111" Then
        TxtJudul.Text = "Corel Draw"
        TxtPenulis.Text = "Kerin Naoula"
        TxtRak.Text = "R2"
    ElseIf CboKode.Text = "112" Then
        TxtJudul.Text = "Jaringan"
        TxtPenulis.Text = "Jonathan Fernan"
        TxtRak.Text = "R4"
    ElseIf CboKode.Text = "113" Then
        TxtJudul.Text = "LAN"
        TxtPenulis.Text = "Goul"
        TxtRak.Text = "R3"
    ElseIf CboKode.Text = "114" Then
        TxtJudul.Text = "PHP"
        TxtPenulis.Text = "Law"
        TxtRak.Text = "R5"
    Else
        TxtJudul.Text = "Java"
        TxtPenulis.Text = "Rito"
        TxtRak.Text = "R6"
    End If
    TxtTerlambat.SetFocus
    End Sub

    Kode untuk Tombol CommandButton Keluar

    Private Sub CmdKeluar_Click()
    If MsgBox("Anda Yakin Ingin Keluar", vbYesNo, "kotak pesan") = vbYes Then
    End
    End If
    End Sub

    Kode untuk Tombol CommandButton Lagi

    Private Sub CmdLagi_Click()
    TxtJudul.Text = ""
    TxtPenulis.Text = ""
    TxtRak.Text = ""
    CboKode.Text = ""
    TxtNama.Text = ""
    TxtTerlambat.Text = ""
    TxtDenda.Text = ""
    TxtNama.SetFocus
    End Sub

    Kode untuk Sub Form

    Private Sub Form_Load()
    CboKode.AddItem "110"
    CboKode.AddItem "111"
    CboKode.AddItem "112"
    CboKode.AddItem "113"
    CboKode.AddItem "114"
    CboKode.AddItem "115"
    End Sub

    Kode untuk TextBox Terlambat

    Private Sub TxtTerlambat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtDenda.Text = Val(TxtTerlambat.Text) * 3000
    End If
    End Sub
    Setelah sudah selesai. Tekan F5.
    Masukkan manual di kolom ‘ Nama Peminjam, Terlambat’. Hasilnya seperti gambar di bawah:


    PART 5 
    “Membuat Aplikasi Nilai Mahasiswa”


    Langsung saja masukkan kontrol berikut:
    1 Frame
    10 Label
    8 TextBox
    3 CommandButton
    Susun dan Edit kontrol diatas seperti gambar di bawah ini:

    Dengan ketentuan :

    Jika di klik CommandButton ‘Proses’ maka akan muncul hasil dari ‘Absensi, KUIS, Tugas, UTS, UAS’ yang telah dijumlahkan di kolom ‘Nilai Akhir dan Huruf Mutu’.

    Berikut Codenya :

    Kode untuk Tombol CommandButton Keluar

    Private Sub CmdKeluar_Click()
    Unload Me
    End Sub

    Kode untuk Tombol CommandButton Lagi

    Private Sub CmdLagi_Click()
    TxtNpm.Text = ""
    TxtNama.Text = ""
    TxtAbsen.Text = ""
    TxtKuis.Text = ""
    TxtTugas.Text = ""
    TxtUts.Text = ""
    TxtUas.Text = ""
    TxtNA.Text = ""
    Label2.Caption = ""
    TxtNpm.SetFocus
    End Sub

    Kode untuk Tombol CommandButton Proses

    Private Sub CmdProses_Click()
    TxtNA.Text = (Val(TxtAbsen.Text) + Val(TxtKuis.Text) + Val(TxtTugas.Text) + Val(TxtUts.Text) + Val(TxtUas.Text)) / Val(5)
    If TxtNA.Text >= 80 Then
    Label2.Caption = " A"
    ElseIf TxtNA.Text >= 73 Then
    Label2.Caption = "B"
    ElseIf TxtNA.Text >= 65 Then
    Label2.Caption = "C"
    Else
    Label2.Caption = "BL"
    End If
    End Sub

    Kode Keypress  untuk TextBox Absen 

    Private Sub TxtAbsen_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtKuis.SetFocus
    End If
    End Sub

    Kode  Keypress untuk TextBox Kuis

    Private Sub TxtKuis_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtTugas.SetFocus
    End If
    End Sub

    Kode Keypress untuk TextBox Nama

    Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtAbsen.SetFocus
    End If
    End Sub

    Kode Keypress untuk TextBox NPM

    Private Sub TxtNpm_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtNama.SetFocus
    End If
    End Sub

    Kode Keypress untuk TextBox Tugas

    Private Sub TxtTugas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtUts.SetFocus
    End If
    End Sub

    Kode Keypress untuk TextBox Uts

    Private Sub TxtUts_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    TxtUas.SetFocus
    End If
    End Sub
    Kemudian pilih Run>Start atau tekan F5.
    Isikan kolom dengan cara manual kecuali ‘Nilai Akhir dan Huruf Mutu’.

    Dan hasilnya seperti gambar di bawah:





    PART 6


    "PROGRAM APLIKASI 2 BILANGAN"

    untuk membuat program aplikasi 2 bilangan, masukkan kontrol-kontrol di bawah ini:
    4 Label
    3 TextBox
    3 CommandButton
    Setelah itu susun dan edit kontrol seperti gambar di bawah:



    setelah selesai menyusun dan mengedit masing-masing kontrol masukkan kode dengan ketentuan:
    • jika dimasukkan nilai pada kolom nilai pertama dan nilai kedua, dan di klik commandbutton 'HITUNG' maka akan muncul hasilnya di kolom 'Hasil
    berikut Code-nya:

    Kode untuk Tombol CommandButton HITUNG

    Private Sub CmdHitung_Click()
    TxtHasil.Text = Val(TxtPertama.Text) + Val(TxtKedua.Text)
    End Sub

    Kode untuk Tombol CommandButton Lagi

    Private Sub CmdLagi_Click()
    TxtHasil.Text = ""
    TxtPertama.Text = ""
    TxtKedua.Text = ""
    TxtPertama.SetFocus
    End Sub

    Kode untuk Tombol CommandButton Selesai

    Private Sub CmdSelesai_Click()
    Unload Me
    End Sub

    Kemudian pilih Run>Start atau tekan F5.

    Isikan kolom nilai pertama dan nilai kedua  dengan cara manual kecuali ‘kolom hasil'
    kemudian klik CommandButton 'HITUNG'

    Dan hasilnya seperti gambar di bawah:




    "semoga bermanfaat"
    "Terimakasih"
    by: Jeje_Art




    Materi Visual Basic 6.0 Part 4,5,6,

    0
    By : AKei

    Read More

    • Popular Posts

    Blogger templates

    Diberdayakan oleh Blogger.

    Mengenai Saya

    Foto saya
    Manusia pinggiran Neptunus, yang kadang-kadang mampir ke Uranus, dan tidak sering berjemur di Mars, lalu bersantai di Saturnus.

    - Copyright © PERMROGRAMAN - Powered by Blogger - Designed by Johanes Djogan -