RSS

Nilai Mhs


Iklan
 

81 responses to “Nilai Mhs

  1. dodi cahyadi

    Mei 7, 2009 at 8:23 am

    nilai quis pengantar aplikasi komputer

     
  2. soni afriansyah(08100092)

    Juni 8, 2009 at 2:49 am

    NAMA : SONI AFRIANSYAH
    NPM : 08100092
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  3. adi yoga pangestu (08100015)

    Juni 8, 2009 at 3:23 am

    NAMA : ADI YOGA PANGESTU
    NPM : 08100015
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  4. fenty triani

    Juni 9, 2009 at 9:38 am

    NAMA : FENTY TRIANI
    NPM : 08100114
    Strata 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  5. JUNIAR ISNAENI

    Juni 9, 2009 at 9:41 am

    NAMA : juniar isnaeni
    NPM : 08100384
    Strata 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  6. kicky efedndi

    Juni 9, 2009 at 9:42 am

    NAMA : kiki efendi
    NPM : 08100011
    Strata 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  7. arif budiarto

    Juni 9, 2009 at 9:43 am

    NAMA :arif budiarto
    NPM : 08100004
    Strata 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  8. ervan

    Juni 9, 2009 at 9:44 am

    NAMA :ervan
    NPM : 08100072
    Strata 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  9. novi hermanto

    Juni 9, 2009 at 9:49 am

    NAMA :novi hermanto
    NPM : 08100057
    Strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  10. meli oktavia

    Juni 9, 2009 at 9:51 am

    nama :meli oktavia
    npm :27010031

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  11. y.paramitaningtias

    Juni 9, 2009 at 9:55 am

    NAMA : y.paramitaningtias
    NPM : 07010059

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  12. yuliana

    Juni 10, 2009 at 1:10 am

    NAMA :yuliana
    NPM : 08100088
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  13. fenty triani

    Juni 10, 2009 at 1:11 am

    NAMA :fenty triani
    NPM : 08100114
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  14. juniar isnaeni

    Juni 10, 2009 at 1:12 am

    NAMA :juniar isnaeni
    NPM : 08100384
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  15. arif budiarto

    Juni 10, 2009 at 1:14 am

    NAMA :arif budiarto
    NPM : 08100004
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  16. kiki efendi

    Juni 10, 2009 at 1:16 am

    NAMA :kicki efendi
    NPM : 08100011
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  17. anita karlina

    Juni 10, 2009 at 1:17 am

    NAMA :anita karlina
    NPM : 08100101
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  18. dwi putri handayani

    Juni 10, 2009 at 1:18 am

    NAMA :dwi putri handayani
    NPM : 08100003
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  19. ahmad fahrudin

    Juni 10, 2009 at 1:20 am

    NAMA :ahmad fahrudin
    NPM : 08100009
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  20. mira particha

    Juni 10, 2009 at 1:22 am

    NAMA :mira particha
    NPM : 08100008
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  21. siti mudrikah

    Juni 10, 2009 at 1:23 am

     
  22. meli oktavia

    Juni 10, 2009 at 1:24 am

    NAMA :meli oktavia
    NPM : 27010031
    D3

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  23. suci ramadhani safitri

    Juni 10, 2009 at 1:26 am

    NAMA :suci ramadhani safitri
    NPM :08100012
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  24. novi hermanto

    Juni 10, 2009 at 1:28 am

    NAMA :novi hermanto
    NPM :08100057
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  25. hanary atim

    Juni 10, 2009 at 1:36 am

    NAMA :hanary atim
    NPM : 08100116
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  26. untoro

    Juni 10, 2009 at 1:38 am

    NAMA :untoro
    NPM : 08100006
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  27. gadang setiawan

    Juni 10, 2009 at 1:39 am

    NAMA :gadang setiawan
    NPM : 08100010
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  28. HAIRIYAH

    Juni 10, 2009 at 3:52 am

    NAMA : HAIRIYAH
    NPM : 08100081
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  29. NENENG ROSITAWATI

    Juni 10, 2009 at 3:54 am

    NAMA : neneng rositawati
    NPM : 08100059
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  30. yuliana

    Juni 10, 2009 at 3:55 am

    NAMA : neneng rositawati
    NPM : 08100059
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  31. dwi putri handayani

    Juni 10, 2009 at 4:03 am

    NAMA :dwi putri handayani
    NPM : 08100003
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  32. aprian sahendra

    Juni 10, 2009 at 4:05 am

    NAMA :afrian syahendra
    NPM : 08100286
    strata1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  33. yuliana

    Juni 10, 2009 at 4:29 am

    NAMA : yuliana
    NPM : 08100088
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  34. nanang suparjo

    Juni 10, 2009 at 4:30 am

    NAMA : nanang suparjo
    NPM : 08100019
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  35. y.paramitaningtias

    Juni 10, 2009 at 4:34 am

    nama :y.paramitaningtias
    npm :27010059
    D3

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  36. siti mudrikah

    Juni 10, 2009 at 5:27 am

    NAMA :siti mudrikah
    NPM : 08100017

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  37. sayu leridha

    Juni 10, 2009 at 5:29 am

    NAMA :sayu leridha
    NPM : 08100016

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  38. siti mudrikah

    Juni 10, 2009 at 5:41 am

    NAMA :siti mudrika
    NPM : 08100017

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  39. RINI YUNIARTI

    Juni 11, 2009 at 7:22 am

    NAMA : RINI YUNIARTI
    NPM : 08100013

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  40. hidayatul ni'mah

    Juni 12, 2009 at 3:47 am

    NAMA :hidayatul ni’mah
    NPM : 08100005
    B.STUDI : VISUAL BASIC 1

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  41. JOKO PRASETIYO (07100024)

    Juni 14, 2009 at 5:31 pm

    NAMA :JOKO PRASETIYO
    NPM : 07100024
    B.STUDI : VISUAL BASIC 1
    S-1 EXECUTIVE
    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6.

    If kk=”p205”

    If kk =”p308”

    If kk=”p310”

    If kk=”p415”

    If kk=”P417”

    If Hp>30.000.000

    If hp >25.000.000

    If hp >20.000.000

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205″
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308″
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310″
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415″
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417″
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419″
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga

    End Sub

    Private Sub Cmdclose_Click()
    End
    End Sub

    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205″
    Cbokode.AddItem “P308″
    Cbokode.AddItem “P310″
    Cbokode.AddItem “P415″
    Cbokode.AddItem “P417″
    Cbokode.AddItem “P419″
    End Sub

     
  42. ngatoil

    Juni 15, 2009 at 3:01 am

    NAMA : ngatoil
    NPM : 08100106

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  43. yudhi ahmad subakir

    Juni 15, 2009 at 3:02 am

    NAMA : yudhi ahmad subakir
    NPM : 08100091

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  44. ngatoil

    Juni 15, 2009 at 4:24 am

    NAMA :ngatoil
    NPM : 08100106

    1.Sebutkan dan jelaskan struktur keputusan (percabangan) dan contohnya
    JAWAB:
    Ada 3 pernyataan yang berkaitan dengan alur percabangan program yaitu:
    a.IF…..THEN (pernyataan if …then akan menguji suatu kondisi, jika True.program akan menjalankan pernyataan yang mengikutinya.Struktur if…then bisa memiliki sintaks satu baris atau banyak baris).
    CONTOH :kode dalam satu baris adalah:
    If nilai >=60 then hasil =”lulus”
    CONTOH :kode dalam banyak baris adalah :
    If nilai >=80 then
    Msgbox “Anda pintar”
    ExitSub
    End if
    b.IF….THEN ….ELSE (yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai true blok pernyataan lainnya jika kondisi Flase
    CONTOH KODE :
    IfNilai >=60 Then
    Hasil =”Lulus”
    Else
    Hasil =”Tidak lulus”

    c.SELECT CASE (menguji ekpresi tunggal yang dievaluasi sekali pada bagian atas dari struktur.Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok .blok pernyataan yang berhubungan akan dijalankan)
    CONTOH KODE :
    Dim pesan As String
    Select Case Weekday(Date)
    Case vbSunday
    Pesan =”libur”
    Case vbMonday
    Pesan= “I Love MONDAY!”
    Case Else
    Pesan =”kerja lagi,kerja lagi!”
    End Select
    MsgBox (pesan)

    2.Sebutkan dan jelaskan beberapa tipe perulangan dan contohnya
    JAWAB :
    a.Do…..LOOP ada 2 jenis yaitu : untuk menjalan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
    Do While Kondisi
    Blokpernyataan
    Loop
    Do Until kondisi
    Blokpernyataan
    Loop
    CONTOH DO WHILE
    Dim Nilai As Integer
    Nilai = 0
    Do While Nilai
    Nilai =Nilai + 5
    Loop
    Hasilnya 5,10,15,20,…..sampai 100
    CONTOH DO UNTIL
    Dim Nilai As Integer
    Nilai = 0
    Do Until Nilai >=100
    Nilai = Nilai + 5
    Loop
    b.FOR …..NEXT (pada pengulangan for…..Next,anda harus mengetahui beberapa kali pernyataan dalam pengulangan akan dijalankan For ….Next menggunkan suatu variabel (disebut Counter )yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop.
    CONTOH Pengulangan For…..Next sbb :
    Dim n As Integer
    For n = 1 To 10 Step 2
    ‘menambahkan item kedaftar ListBox
    Lista.AddItem”Item ke “ & n
    c.FOR EACH……NEXT (pernyataan for Each mirip dengan pernyataan For…..Next,kecuali variaberl pengulangan yang diperlukan bukan numeric melainkan array dan collection.
    CONTOH :
    Hewan = Array(“kucing”,”anjing”,”monyet”)
    For Each NamaHewan In Hewan
    ‘tambahkan masing – masing data ke lisbox
    List1.AddItem (NamaHewan)Next

    3.Apa yang dimaksud dengan :

    a.LINE adalah menambahkan kontrol gambar garis lurus
    SHAPE adalah menambahkan kontrol gambar berupa lingkaran oval,persegi panjang,bujur sangkar dll
    b.HSCROLLBAR adalah menambahkan kontrol batang penggulungan horizontal
    VSCROLLBAR adalah menambahkan kontrol batang penggulungan vertikal
    c.TIMER adalah menambahkan kontrol sebagai tombol perintah waktu
    d.PROSEDUR adalah perincian langkah-langkah dari sistem dan rangkaian kegiatan yang saling berhubungan etar satu sama lain untuk mencapai tujuan tertentu.
    E,SUB PROSEDUR adalah menambahkan atau dari bagian-bagian suatu sistem dan rangkain kegiatan.

    4. Apa VB6 ada 2 jenis prosedur utama sebutkan dan jelaskan?
    JAWAB :
    a. GENERAL PROCEDURE,prosedur yang diaktifkan oleh aplikasi
    b. EVENT PROCEDURE , prosedur yang diaktifkan oleh sisten sebagai respon terhadap event.

    5. Ada tiga perbedaan antara prosedure dan function sebutkan dan jelaskan
    JAWAB ;
    A. prosedur menerima masukan parameter output tetapi fungsi hanya menerima masukan parameter
    B. fungsi mengembalikan nilai prosedur tetapi tidak mengembalikan nilai
    C. nilai kembali dimasukan ke namafunction itu sendirinya,dan suatu function dapat menjadi suatu ekpresi yang panjang

    6. PROGRAM

    Private Sub Cbokode_Click()
    Dim jenis, harga As Variant
    Dim penjualan, jumlah As Long
    Select Case Cbokode.Text
    Case “P205”
    jenis = “PentiumII500MegaHz”
    harga = 1500000
    Case “P308”
    jenis = “PentiumIII800MegaHz”
    harga = 2100000
    Case “P310”
    jenis = “PentiumIII1.0GigaHz”
    harga = 3500000
    Case “P415”
    jenis = “pentiumIV1.5GigaHz”
    harga = 4000000
    Case “P417”
    jenis = “pentiumIV1.7GigaHz”
    harga = 4200000
    Case “P419”
    jenis = “PentiumIV1.9GigaHz”
    harga = 5500000
    Case Else
    harga = 0
    End Select
    jumlah = Val(Txtjum.Text)
    penjualan = jumlah * harga
    Txtpenjualan.Text = penjualan
    Txtjum.Text = jumlah
    Txtjenis.Text = jenis
    Txtsatuan.Text = harga
    End Sub
    Private Sub Cmdclose_Click()
    End
    End Sub
    Private Sub Cmdhitung_Click()
    kosong
    End Sub
    Public Sub kosong()
    Cbokode.SetFocus
    Cbokode.Text = “”
    Txtjenis.Text = “”
    Txtsatuan.Text = “”
    Txtjum.Text = “”
    Txtpenjualan.Text = “”
    Txtdiskon.Text = “”
    Txtbayar.Text = “”
    End Sub

    Private Sub Cmdproses_Click()
    Dim penjualan, jumlah, diskon As Long
    Dim bayar As Variant

    If Txtpenjualan.Text >= 30000000 Then
    diskon = 0.15 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text >= 25000000 Then
    diskon = 0.1 * Txtpenjualan
    Txtdiskon.Text = diskon
    ElseIf Txtpenjualan.Text > 20000000 Then
    diskon = 0.05 * Txtpenjualan
    Txtdiskon.Text = diskon
    Else
    diskon = 0.02 * Txtpenjualan
    Txtdiskon.Text = diskon
    End If

    bayar = Txtpenjualan – diskon
    Txtbayar.Text = bayar
    End Sub

    Private Sub Form_Load()
    Cbokode.AddItem “P205”
    Cbokode.AddItem “P308”
    Cbokode.AddItem “P310”
    Cbokode.AddItem “P415”
    Cbokode.AddItem “P417”
    Cbokode.AddItem “P419”
    End Sub

     
  45. Kicky

    Agustus 7, 2009 at 6:45 am

    nilai uas kok belum keluar? kapan pak nur!!

     
  46. Kicky

    Agustus 7, 2009 at 6:47 am

    Kapan Nilai Uas nya keluar pak

     
  47. nurul fihri

    September 6, 2009 at 4:14 am

    semua nilai pasti bagus,barkah romadon ya pak

     
  48. nurul fihri

    September 6, 2009 at 4:21 am

    pak.katanya bulan puasa banyak berkahnya,slah satunya membahagiakan anak didiknya tul g pak?

     
  49. nurhafizah

    Oktober 28, 2009 at 4:19 am

    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  50. reni widyaningsih

    Oktober 28, 2009 at 4:22 am

    Jenjang Data

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  51. m.syeh

    Oktober 30, 2009 at 7:33 am

    Jenjang Data

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  52. MURDIYANTO

    Oktober 30, 2009 at 8:06 am

    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  53. Reni widyaningsih

    Oktober 30, 2009 at 8:09 am

    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  54. MURDIYANTO

    Oktober 30, 2009 at 8:22 am

    NAMA:MURDIYANTO
    NPM:0810028
    30-10-2009

    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  55. SUHERDI

    Oktober 30, 2009 at 8:24 am

    nama:suherdi
    npm:08100020
    30-10-2009
    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  56. sugiyanti

    Oktober 30, 2009 at 8:26 am

    Jenjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  57. MURDIYANTO

    Oktober 30, 2009 at 8:28 am

    Jenjang Data
    ni lho tugasnya di trima ya,pleace!!!!!!!!!1

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  58. nur kholifah

    Oktober 30, 2009 at 8:48 am

    enjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  59. umi munibah

    Oktober 30, 2009 at 8:50 am

    enjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  60. tri joko susilo

    Oktober 30, 2009 at 8:51 am

    enjang Data
    pak ini tugasnya.

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar. Jenjang data dapat Anda lihat pada gambar di bawah ini.

     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Bit : Reperentasi unit terkecil dari data yang bias ditangani
     Byte : Sekumpulan bit yang berbuntuk huruf,angka,symbol dll.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Database : Kumpulan dari file / tabel membentuk suatu database

     
  61. Dede Ria Novita (27010007)

    Oktober 30, 2009 at 1:29 pm

    Jenjang Data

    Dalam database terdapat jenjang atau urutan data mulai dari kumpulan yang terkecil sampai yang terbesar.
    Jenjang data dapat dilihat pada data dibawah ini.

    1. Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
    2. Bit : Reperentasi unit terkecil dari data yang biasa ditangani
    3. Byte : Sekumpulan bit yang berbentuk huruf, angka, symbol dll.
    4. Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record. field name: harus diberi nama untuk membedakan field yang satu dengan lainnya field representation: tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data). field value: isi dari field untuk masing-masing record.
    5. Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
    6. File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
    7. Database : Kumpulan dari file / tabel membentuk suatu database

     
  62. Dedi eko cahyono

    Oktober 31, 2009 at 1:43 am

    Nama: Dedi Eko Cahyono
    Npm: 08201098
    Dosen: Nur Aminudin, S.Kom
    Mata kuliah: Visual Basic II
    Tugas mencari Hirarki Data (Jenjang Data)
    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Field adalah merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok data yang mempunyai ciri tertentu dan diberi nama. Contoh, “tanggal” terdiri atas data hari, bulan dan tahun.
    5. Record adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis yang terelasi.
    7. Basis data adalah sekumpulan dari record yang mempunyai hubungan antarrecord.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem.

     
  63. siti muniroh

    Oktober 31, 2009 at 1:45 am

    Hirarki Data (Jenjang Data)

    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Rinci data / data item / field / elemen data adalah unit terkecil yang disebut data, merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok rinci data yang mempunyai ciri tertentu dan diberi nama. Contoh, agregat data bernama “tanggal” terdiri atas data item hari, bulan dan tahun.
    5. Record / tuple adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis secara relasi.
    7. Basis data / library adalah sekumpulan dari macam-macam tipe record yang mempunyai hubungan antarrecord, agregat data dan rinci data terhadap suatu objek tertentu.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem. (Edhy Sutanta, 1995)

     
  64. agus sri ningsih

    Oktober 31, 2009 at 1:47 am

    Nama : Agus Sriningsih ( 08100037)
    Tugas : VB 2
    pak ini tugas nya dah tak kerjain
    Hirarki Data (Jenjang Data)

    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Rinci data / data item / field / elemen data adalah unit terkecil yang disebut data, merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok rinci data yang mempunyai ciri tertentu dan diberi nama. Contoh, agregat data bernama “tanggal” terdiri atas data item hari, bulan dan tahun.
    5. Record / tuple adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis secara relasi.
    7. Basis data / library adalah sekumpulan dari macam-macam tipe record yang mempunyai hubungan antarrecord, agregat data dan rinci data terhadap suatu objek tertentu.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem.

     
  65. farida ahyuni

    Oktober 31, 2009 at 1:49 am

    Nama : Farida ahyuni
    Tugas : Visual Basic 2

    6 Hirarki Data

    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Rinci data / data item / field / elemen data adalah unit terkecil yang disebut data, merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok rinci data yang mempunyai ciri tertentu dan diberi nama. Contoh, agregat data bernama “tanggal” terdiri atas data item hari, bulan dan tahun.
    5. Record / tuple adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis secara relasi.
    7. Basis data / library adalah sekumpulan dari macam-macam tipe record yang mempunyai hubungan antarrecord, agregat data dan rinci data terhadap suatu objek tertentu.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem. (Edhy Sutanta, 1995

     
  66. Denie Rachman

    Oktober 31, 2009 at 3:36 am

    Bit = satuan paling dasar dalam jaringan “organ” komputer, atau bagian dalam komputer. Pada dasarnya bilangan bit merupakan perwakilan aliran listrik, yakni hanya ada 2 saja yaitu 1 dan 0, yang bisa disebut 1 = ada listrik dan 0 = tidak ada listrik
     Byte = nah, ini baru satuan paling dasar komputer. 1 byte terdiri dari 8 bit. Oleh karena itu 1 byte bisa mewakili angka sampai 255, (kalau dijelaskan panjang, karena hubungan ama matematika, singkatnya bilangan 15 desimal = 1111 dalam bilangan bit). byte bisa juga mewakili 1 karakter komputer.
     Database adalah sekumpulan data yang saling berhubungan satu dengan yang lainnya.
     Characters : merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data / field.
     Field : merepresentasikan suatu atribut dari record yang menunjukkan suatu item dari data, seperti misalnya nama, alamat dan lain sebagainya.
     File : Terdiri dari record – record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi tentang semua mata pelajaran yang ada
     Record : Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
     File: File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
     Atribut Data : bagain yang berpotensi menjadi data dan berguna dalam dat.

     
  67. Wahyu Andika

    Oktober 31, 2009 at 3:37 am

    Visual Basic II
    Tugas mencari Hirarki Data (Jenjang Data)
    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Field adalah merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok data yang mempunyai ciri tertentu dan diberi nama. Contoh, “tanggal” terdiri atas data hari, bulan dan tahun.
    5. Record adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis yang terelasi.
    7. Basis data adalah sekumpulan dari record yang mempunyai hubungan antarrecord.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem.

     
  68. piarisna (08100324)

    Oktober 31, 2009 at 7:31 am

    Nama : piarisna
    Tugas : Visual Basic 2

    8 Hirarki Data

    1. Bit adalah suatu sistem angka biner yang terdiri atas dua macam nilai saja, yaitu 0 dan 1.
    2. Byte adalah bagian terkecil yang dapat dialamatkan dalam memory.
    3. Rinci data / data item / field / elemen data adalah unit terkecil yang disebut data, merupakan sekumpulan byte/character yang mempunyai makna.
    4. Agregat data adalah sekelompok rinci data yang mempunyai ciri tertentu dan diberi nama. Contoh, agregat data bernama “tanggal” terdiri atas data item hari, bulan dan tahun.
    5. Record / tuple adalah merupakan sekumpulan data item atau agregat data yang saling berhubungan dengan suatu objek tertentu.
    6. File adalah sekumpulan record sejenis secara relasi.
    7. Basis data / library adalah sekumpulan dari macam-macam tipe record yang mempunyai hubungan antarrecord, agregat data dan rinci data terhadap suatu objek tertentu.
    8. Sistem basis data adalah sekumpulan basis data dalam suatu sistem yang mungkin tidak berhubungan satu sama lain, namun secara umum mempunyai hubungan sistem. (Edhy Sutanta, 1995
    Balas

     
  69. dodi cahyadi

    November 24, 2009 at 3:01 am

    ASSSLAMUALAIUM WR.WB
    PAK….. GIMANA NILAI QUIS DAN MID KOMPUTER BISNIS
    KOK BELUM ADA

     
    • z4lf4

      Desember 7, 2009 at 2:45 am

      Wa’alaikumsalam. Ya, Mohon maaf. Kebetulan pas sibuk bener nih…?

       
  70. edikarsidi

    Januari 23, 2010 at 9:19 am

    Assalamu’alaykum
    Pak saya belum ikut Mid Semester Pengolahan Citra , Mohon nilainya ditampilkan
    Wassalam

     
  71. agus suherman

    Mei 31, 2010 at 8:11 am

    Pak……??
    Nilai teori lan praktekum S-1, Gel 2 kok dereng di tampilke utawi di keluarke pak….?

     
  72. agus suherman

    Mei 31, 2010 at 8:14 am

    Pak…??
    nilai teori lan praktekuym S-1 Gel.2 kok dereng di tampilke pak…….
    setunggal maleh pak…??? seng nilaine C perbaikan nilai nopo kengeng damel buku nopo pripun pak…??????

     
  73. fandi setiawan

    Juni 22, 2010 at 6:35 am

    pak… nilai analisa kenapa lum dipajang..

     
  74. fandi setiawan

    Juli 18, 2010 at 7:59 am

    assalamu’alaikum….
    Bapak… nilai analisa kok belum keluar pak…. cp tau da yang perbaikan….

     
  75. dedi eko cahyono

    Agustus 17, 2010 at 8:08 am

    aww mohon maaf pak saya dedi eko cahyono, mau nanya saya kan kemaren yang usul agar nilai Mata kuliah APSI di keluarkan, tapi koq nilai saya malah g keluar ya, padahal saya sudah ngumpul tepat waktu, mohon tanggapanya….terimaksih

     
  76. dedi eko cahyono

    Agustus 17, 2010 at 8:10 am

    aww mohon maaf pak saya dedi eko cahyono, mau nanya saya kan kemaren yang usul agar nilai Mata kuliah APSI di keluarkan, tapi koq nilai saya malah g keluar ya, padahal saya sudah ngumpul tepat waktu, mohon tanggapanya….terimaksih

     
    • z4lf4

      Agustus 23, 2010 at 3:13 am

      Ya, saya akan cek terlebih dahulu. Thanks

       
  77. khoirunnis4

    Oktober 13, 2010 at 2:47 am

     
  78. khoirunnis4

    Oktober 13, 2010 at 2:49 am

     
  79. khoirunnis4

    Oktober 14, 2010 at 5:41 am

    Nama : Khoirunnisa
    NPM : 09100241
    Tugas Visual basic

    Visual Basic (Data Mahasiswa)

    Visual Basic (Pembelian)

    Pak, tugas saya yang tak kirim uda masuk belum?
    kalau uda kasih tau ya pak……

     

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: