Quiz Online 08 Desember 2013 (Pemograman Pemakaian Listrik)

 

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


    End Sub

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

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

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


    End Sub

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

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

    End Sub

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

        End If


    End Sub

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

        End If
    End Sub

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

Pemograman Visual

Pemrograman Visual

Selasa, 05 Nopember 2013

Neli Elprida Sihombing 

 

Beberapa bulan lalu saya sering cerita via chat ama temen tentang tugas kuliahnya di kampus *tiiiit*, beberapa kali dia mention tentang tugas mata kuliah Pemrograman Visual, setelah saya intip, cukup kaget karena materinya tidak sesuai dengan judul mata kuliahnya. Kalau kalian lagi ambil mata kuliah Pemrograman Visual dan diajarin VB atau Java, selamat, kalian tersesat.
Belakangan ini saya mulai terusik lagi dengan judul mata kuliah Pemrograman Visual. Sekarang saya pengen bahasa singkat aja (karna kalau diulas semua sumpah panjang banget) tentang salahnya dimana dan apa yang membedakan antara Pemrograman Visual dan yang bukan.
Permasalahan utamanya adalah: Mata kuliah dengan judul Pemrograman Visual, tapi dengan materi bahasa pemrograman seperti Visual Basic dan Java, digabungkan dengan software seperti Microsoft Visual Studio, Eclipse dan NetBeans.

Bahasa-bahasa tersebut bukanlah bahasa pemrograman visual

Dalam desain bahasa pemrograman, ada satu bagian tentang studi semantik, yaitu proses penterjemahan sebuah valid statement dari bahasa pemrograman menjadi sebuah computational model, ini terdiri dari banyak sekali parameter, salah satunya adalah struktur sintatik, dan dimensi.
Jumlah dimensi inilah yang menentukan bahwa bahasa-bahasa seperti VB dan teman-temannya adalah bukan bahasa pemrograman visual, melainkan textual programming language. Apa saja dimensi textual programming language?

• Dimensi horizontal, adalah semantic sebagai legal linear string, yang membentuk sebuah statement menjadi computational model
• Dimensi vertikal, adalah line continuation, baris ke 2 di kode biasanya diartikan sebagai baris selanjutnya setelah baris pertama, atau jalankan baris kedua setelah baris pertama

Dimensi vertikal meskipun salah satu bagian utama, tapi bukan bagian dari semantik melainkan spatial relationship, atau flow/blok selanjutnya setelah blok pertama (baris pertama).

Apa itu Pemrograman Visual?

VPL adalah bahasa pemrograman yang menggunakan banyak dimensi yang visually expresive sebagai semantiknya. Expresi Visual bukan berarti tombol-tombol di Microsoft Visual Basic untuk bikin textbox atau picture box, tapi simbol-simbol yang menjelaskan tentang alur program, hubungan antar entity, dan impact.
Didalam VPL, saya bisa secara visual mendeklarasikan A dan B, lalu menggabungkan keduanya dengan sebuah operator matematika, lalu melihat dampaknya secara langsung, semua dalam bentuk diagram/simbol.
Flowchart, UML Diagram, adalah contoh dari model sebuah VPL, dimensinya adalah spatial relationship lewat penunjuk panah, atau time-based impact seperti perubahan data sebelum dan sesudah.

Tapi kan, saya pakai Microsoft Visual Basic/Netbeans, bisa drag & drop, itu visual!

Software yang dipakai untuk 'drag & drop' itu adalah development environment, nggak boleh disamakan dengan bahasa pemrogramannya, development environment adalah software yang ngasih kita shortcut untuk melakukan task-task yang umum seperti manage project, bikin GUI (Form/Tombol/Textbox/dll), bikin build, dll, tapi dibelakang layar mereka ngehasilin kode yang kurang lebih sama dengan kalau kita ngetik di teks editor biasa. Tampilan GUI yang dibuat di software ini juga di simpan ke file teks manifest biasa.
Ini yang namanya VPE (Visual Programming Environment), bahasa pemrograman seperti Visual Basic dan Java punya Microsoft Visual Studio dan Netbeans sebagai VPEnya, namun nggak diwajibkan harus pakai karena sifat textual programming languagenya yang dengan semantik terbatas bisa dimanage sebagai teks biasa dan bisa di compile terpisah.
Sedangkan VPE untuk untuk Visual Programming Language (VPL) lebih bersifat sebagai sebuah keharusan karna VPL sendiri sangat ekspresif dan sulit untuk bekerja dengan VPL (dengan simbol dan sebagainya) tanpa menggunakan software yang mensupport untuk membuat visually expressive syntax.

Tadi katanya Textual Programming itu berbentuk teks dan VPL berbentuk simbol, Jadi maksudnya VPL itu nggak boleh ada teks sama sekali?

Ini yang paling sering disalah artikan, TP dan VP itu yang membedakan adalah semantik, bukan tentang teks atau tidak, VPL juga punya teks di beberapa bagian sampai batas tertentu.
Lalu kenapa ada VPL? Salah satu main goalnya adalah untuk nge-improve language design yang sekarang konvensional seperti textual programming language, masalah dengan textual programming language adalah sifatnya yang restriktif sekali, nggak banyak ekspresi yang bisa kita lakukan karena dibatasi oleh struktur sintaks & parse tree bahasa pemrograman yang bersangkutan, sementara VPL punya lebih sedikit aturan, sehingga result yang dihasilkan bisa bermacam-macam karena objek dan spatial relationshipnya yang nggak terlalu restriktif.

Lalu apa efek negatifnya belajar Pemrograman Visual dengan materi yang salah?

Banyak sekali, ibaratkan dengan ikut les bahasa Korea tapi yang diajarkan adalah bahasa Jepang. VPL kebanyakan bukanlah general-purpose-language, sedangkan yang diajarkan (contoh:Java), adalah general-purpose-language, VPL lebih domain spesifik seperti untuk edukasi, hardware, dan multimedia seperti audio analyzer atau animation. Sedangkan bahasa seperti Java punya fungsi/domain yang luas sekali. Ditambah lagi biasanya materi yang diajarkan adalah tentang "Visual" yang salah, yaitu gimana cara membuat program berbasis GUI, gimana caranya supaya waktu tombol A ditekan, keluar gambar kucing lagi pakai topi semangka, dll. Ini bukan visual programming, mempelajari membuat program berbasis GUI nggak akan ngajarin kita tentang visual programming, dan bisa jadi tersesat lebih jauh, contoh: mengesampingkan materi yang lebih penting ketimbang belajar GUI, seperti programming language paradigm.
Post ini cuma mau menekankan perbedaan mendasar dari textual-programming language, dan VPL. Nggak ada contoh/screenshot karena pengennya dibahas singkat aja tentang karakteristik utama masing2 jenis programming languagenya.
Untuk paper yang ngebahas tentang VPL cukup lengkap, ada disini: http://www.cs.auckland.ac.nz/courses/compsci732s1c/archive/2005/lectures/WhatIsVP.pdf

Konsep OOP Pemograman Visual

Konsep OOP Pada Pemrograman Visual

Bagaimana OOP bekerja : Objek, Pesan, dan Method Pemrograman berorientasi objek terdiri atas komponen-komponen berikut :

1. Apa itu OOP : dalam pemrograman berorientasi objek, data dan instruksi untuk pemrosesan di mana data dikombinasikan menjadi “objek” yang cukup memadai bisa digunakan pada program lain. Hal terpenting disini adalah objek.

2. Apa itu “objek” : objek adalah modul self-contained yang terdiri dari kode pemrogaman yang telah disusun sebelumnya. Modul memuat atau mengkapsulasi baik (1) cabang data, maupun (2) instruksi pemrosesan yang bisa dilakukan pada data tersebut.

3. Kapan objek data akan diproses – mengirim “message”: setelah objek menjadi bagian dari suatu program, instruksi tertentu diaktivasi hanya ketika “message” yang terkait sudah dikirimkan. Message adalah pengiriman peringatan kepada objek ketika operasi yang harus melibatkan objek tertentu dilakukan.

4. Bagaimana data objek diproses – “method”: message cukup mengidentifikasi operasinya. Bagaimana sebenarnya hal itu dilakukan akan disertakan didalam instruksi pemrosesan yang menjadi bagian dari objek. Instruksi pemrosesan ini dinamakan method.

Menggunakan kembali blok kode program setelah anda menuliskan satu blok kode program, kode tersebut dapat digunakan kembali pada program-program lain. Jadi, dengan OOP-tidak seperti pemrograman tradisional-anda tidak perlu memulai dari awal.

Dibandingkan dengan pemrogaman tradisional, mempelajari pemrogaman berorintasi objek memakan waktu yang lebih lama karena seperti berpikir dengan cara yang baru. Sekalipun demikian, OOP memilliki keunggulan yaitu objek bisa digunakan berulang-ulang pada aplikasi yang berbeda dan oleh programmer yang berbeda, karena itu waktu pengembanganya pun lebih cepat dan biaya pun bisa berkurang.

Pemrograman berorientasi objek memiliki tiga konsep dasar yang penting, yaitu enkapsulasi, pewarisan, dan polimorfisme.

1.      Enkapsulasi, berarti objek memuat (1) data dan (2) instruksi pemrosesan yang relevan. Setelah objek dibuat, objek dapat digunakan kembali untuk program lain. Penggunaan sebuah objek bisa dijabarkan melalui konsep kelas dan pewarisan.

2.      Pewarisan, setelah menciptakan sebuah objek. Kita dapat menggunakannya sebagai fondasi untuk objek yang sama yang memilliki perilaku atau karakteristik sama. Semua objek berasal dari atau yang saling berhubungan bisa membentuk suatu kelas. Masing-masing kelas memuat instruksi khusus (method) yang unik untuk kelompok tersebut.

Kelas bisa diatur dalam hierarki-kelas atau subkelas. Pewarisan adalah metode untuk mewariskan ciri dari suatu objek dari kelas ke subkelas dalam hierarki. Jadi objek yang baru dapat diciptakan dengan mewariskan ciri dari kelas yang sudah ada.

3.      Polimorfisme, berarti “banyak bentuk” . Dalam pemrograman berorientasi objek, polimorfisme berarti sebuah pesan (permintaan yang sudah digeneralisasi) memberikan hasil yang berbeda berdasarkan objek yang dikirimkan.

Polimorfisme sangat berguna karena programmer dapat membuat prosedur mengenai objek yang jenisnya tidak diketahui sebelumnya, namun akan diketahui saat program dijalankan di komputer.

Dari konsep diatas, dapat disimpulkan bahwa terdapat hubungan yang jelas antara OOP dengan pemrograman visual. Pemrograman berorientasi objek berperan dalam pendefinisian rutin-rutin pemrograman sedangkan pemrograman visual mendefinisikan secara visual bagaimana programmer atau user menjalankan program tersebut sehingga tampilan nyata yang ada pada program tersebut dapat kita ketahui. Dan ini sangat membantu dan memudahkan programmer dalam pembuatan program dan juga memungkinkan pengguna untuk lebih fokus pada pemecahan masalah daripada cara menangani bahasa pemrograman atau tidak perlu mendalami sintaks atau menulis kode. Selain itu dengan adanya konsep OOP ini kita cukup mendefinisikan event-event yang akan terjadi pada objek tersebut. Jadi,dalam pembuatan suatu program atau aplikasi yang berbasis visual kita cukup dimudahkan dengan objek-objek yang telah tersedia tersebut. Dengan kata lain adanya pemrograman visual ini cukup membantu dalam pembuatan program aplikasi dengan mendukung konsep object oriented programming.

Contoh dari penerapan konsep OOP adalah membuat sebuah aplikasi sederhana dengan mengunakan Borland C++ Builder karena tinggal menggunakan objek-objek yang telah disediakan sesuai kebutuhan kita. Misalnya form, label, edit, button, dan lain-lain. Objek-objek tersebut nantinya akan dapat bekerja sesuai dengan fungsinya tergantung event yang kita berikan. Yang menjadi objek dalam hal ini adalah form, label, edit, button atau objek lain yang kita tambahkan pada aplikasi yang kita buat.

Sistem basis data

Selasa, 15 Oktober 2013

Neli Elprida Sihombing

Basis Data Perpustakaan

A. ENTITY RELATIONSHIP DIAGRAM (ERD)

ERD di atas relasi antara entitas Buku dengan entitas Mahasiswa membentuk suatu entitas baru, yaitu sebuah entitas dipinjam (nama relasi dijadikan nama entitas baru tersebut). Kemudian, terbentuk sebuah relasi antara entitas dipinjam dengan entitas RekapPeminjaman dengan relasi direkap. Hal tersebut dinamakan sebuah hubungan agregasi.Agregasi merupakan suatu kasus yang menunjukkan adanya relasi yang secara kronologis mensyaratkan adanya relasi dengan suatu himpunan relasi.

B.      TABEL RELASI 

1. Entitas dengan kaardinalitas satu ke satu (1-1)

Tabel relationalnya menjadi:

• Entitas Petugas lebih kuat daripada entitas RekapPeminjaman

• Entitas RekapPeminjaman lebih kuat daripada entitas Petugas

2. Entitas dengan kardinalitas satu kebanyak (1 ke N)

Contoh yang terdapat pada ERD perpustakaan :

Table Relational :

3. Entitas dengan kardinalitas banyak ke banyak (N ke M) Maka table yang terbentuk ada tiga yaitu:

• Tabel bentukan dari Entitas 1 yang terdiri atas kolom PK1 dan Atribut Non PK1.
• Tabel bentukan dari Entitas 2 yang terdiri atas kolom PK2 dan Atribut Non PK2.
• Tabel bentukan dari Relasi yang terdiri atas Atribut Relasi, PK1 dan PK2.

Contoh yang terdapat pada ERD perpustakaan :

Tabel Relational:

4.Entitas dengan kasus agregasi

Contoh yang terdapat pada ERD perpustakaan :

Tabel Relational :

Tabel RELASI PERPUSTAKAAN

  C. UJI NORMALISASI

Normalisasi merupakan sebuah teknik dalam logical desain sebuah basis data yangmengelompokkan atribut dari suatu relasi sehingga membentuk struktur relasi yang baik (tanpa redudansi). Normalisasi adalah proses pembentukan struktur basis data sehingga sebagian besar ambiguity bisa dihilangkan. Tujuan normalisasi :

• Untuk menghilang kerangkapan data
• Untuk mengurangi kompleksitas
• Untuk mempermudah pemodifikasian data

Tahapan Normalisasi

 

Bentuk keluaran Kartu Peminjaman Perpustakaan

Unnormalized Form

Merupakan bentuk tidak normal.

1NF (Normalisasi Bentuk 1)

KARTU PEMINJAMAN PERPUSTAKAAN

Diagram Ketergantungan Fungsional

2NF (Normalisasi Bentuk 2)

TABEL MAHASISWA

TABEL PEMINJAMAN

3NF (Normalisasi Bentuk 3)

TABEL BUKU

TABEL DIPINJAM

   D  DATA DEFINITION LANGUAGE (DDL) DAN DATA MANIPULATION LANGUAGE (DML)

vData Definition Language (DDL)

Skema basis data dispesifikasikan oleh sekumpulan definisi dengan sebuah bahasa khusus yang disebut Data Definition Language (DDL). Hasil kompilasi DDL berupa tabel-tabel yang disimpan dalam sebuah file yang disebut data dictionary (kamus data) atau data directory.DDL merupakan bagian dari perintah SQL untuk membuat, memodifikasi atau menghapus struktur basis data Oracle. Suatu DDL akan dieksekusi apabila sudah diakhiri dengan ‘;’ (titik koma).

1.   CREATE TABLE

Perintah Create Table digunakan untuk membuat / mendefinisikan sebuah tabel baru.

Contoh :

2. CREATE VIEW

View merupakan sebuah tabel semu / tabel lojik, dimana datanya berasal dari satu atau lebih tabel lain yang disebut sebagai tabel sumber.

Contoh :

3.  CREATE SEQUENCE

Sequence digunakan untuk mengenerate angka angka unik secara otomatis. Biasanya sequence diaplikasikan untuk membentuk primary key secara otomatis.

Contoh :

4. CREATE SYNONYM

 Synonym digunakan untuk membuat nama alias bagi sebuah tabel, view atau sequence.

Contoh :

CREATE SYNONYM mhs FOR mahasiswa

;

5. CREATE USER

Create user digunakan untuk mendefinisikan user baru beserta passwordnya.

Contoh :

CREATE USER basdat

IDENTIFIED BY d3if3502;

6.  DROP TABLE

Perintah ini digunakan untuk menghapus definisi tabel pada ORACLE yaitu semua data dan indeks yang dimiliki tabel.

                             Contoh :
DROP TABLE mahasiswa CASCADE CONSTRAINT;

7.   MODIFY 

  Digunakan untuk mengubah definisi (tipe data, constraint, atau ukuran size dari suatu tipe data) suatu kolom.

Contoh :

      ALTER TABLE mahasiswaMODIFY no_telfon varchar2(13);

8.   RENAME

Perintah ini digunakan untuk mengubah nama tabel, view, sequence dan synonym.

                           Contoh :

             RENAME mahasiswa TO college;

9.  TRUNCATE 

Oracle menyediakan TRUNCATE statement untuk menghapus seluruh data dari suatu tabel tanpa menghapus tabel yang ada (yang dihapus isi tabelnya saja, tabel menjadi kosong). Berikut adalah perintah Truncate:

Contoh :

      TRUNCATE TABLE mahasiswa

10. DROP

                                      Untuk mengahapus seluruh table yang ada beserta datanya.

Data Manipulation Language (DML)
Data Manipulation Language merupakan bahasa yang memungkinkan pengguna untuk mengakses dan mengubah data yang sesuai dengan model datanya seperti:

• Pengambilan informasi yang disimpan dalam basis data
• Penyisipan informasi baru ke basis data
• Penghapusan informasi dari basis data
• Modifikasi informasi yang disimpan dalam basis data

Query adalah ‘permintaan data’ berupa bahasa bisnis, untuk mengolah data dalam tabel-tabel menjadi satu informasi yang bisa dimengerti. Bagian dari DML yang menangani pengambilan informasi ini disebut bahasa query. Query bisa berdasarkan pada satu tabel saja, atau pada dua/lebih tabel, ataupun berdasarkan pada query yang telah ada.

1.   INSERT

Berfungsi untuk menambahkan baris baru ke table.
Contoh :

   2. UPDATE
Berfungsi untuk memodifikasi nilai pada baris tabel.
Contoh:

      3. DELETE
Berfungsi untuk menghapus baris tunggal atau lebih dari satu baris berdasarkan kondisi tertentu.
Contoh :

      4. SELECT
Untuk menampilkan semua table yang terdapadat di dalam data base.
Contoh :

     5. IN dan NOT IN
Operator IN dan NOT IN digunakan untuk membandingkan sebuah nilai terhadap nilai di dalam (IN) atau di luar  (NOT IN) sebuah list. Bentuk umumnya adalah :
Contoh :

6.LIKE dan NOT LIKE
Operator LIKE dan NOT LIKE digunakan untuk mencari suatu nilai bertipe string dengan membandingkan susunan karakternya. Bentuk umumnya :
Contoh :
Menampilkan nama mahasiswa yang diawali dengan huruf ‘S’

7. Menampilkan nama mahasiswa dan NIM dari table mahasiswa dimana nama mahasiswa berawalan A atau S dan diurutkan secara descending.
Contoh :

8.  Menampilkan nama petugas dan tanggal pinjam dari table petugas dan table dipinjam dengan kondisi tgl_pinjam=’21-Nov-2012′.
Contoh :

        9.KOLOM KONKAT
Operator konkat (||) atau penggabungan digunakan untuk menghubungkan suatu kolom dengan kolom lain, ekspresi aritmatik atau nilai konstan untuk membentuk ekspresi karakter.
Contoh :

TABLE EXAMPLE

           
       10.DISTINCT
Menampilkan nama mahasiswa yang ada di tabel mahasiswa
Contoh :
SELECT DISTINCT nama
FROM mahasiswa;

Program Informasi Penjualan Produk

#include"stdio.h"
#include"conio.h"
void main()
{
int i,kode[15],jumlah[15],jumdata=5;
char*produk;
float harga,total,disc,pembayaran;

printf("\nInput Data Penjualan");
for(i=0;i<jumdata;i++){
    printf("\nKode Produk :"); scanf("%d",&kode[i]);
    printf("\nJumlah Produk :"); scanf("%d",&jumlah[i]);
}
clrscr();
printf("\nInformasi Penjualan Produk");
printf("\n-------------------------------------------------------------------------------");
printf("\nNo Kode  Produk                  Harga   Jumlah    Total    Discount Pembayaran");
printf("\n-------------------------------------------------------------------------------");
for(i=0; i<jumdata; i++){
    if(kode[i]==1){
        produk="TV"; harga=2000000;
    }else if(kode[i]==2){
        produk="DVD"; harga=650000;
    }else if(kode[i]==3){
        produk="CD ROOM"; harga=450000;
    }
    total=harga*jumlah[i];
    if(total> 4000000)disc=0.1*total; else
    if(total< 4000000)disc=0;
    pembayaran=total-disc;
    gotoxy(1,6+i);printf( "%i   %d     %s  ",i+1,kode[i],produk);
    gotoxy(30,6+i);printf("%10.0f   %i   %10.0f%10.0f%10.0f"  ,harga,jumlah[i],total,disc,pembayaran);
    }
    printf("\n--------------------------------------------------------------------------------");
}

hasil printout

Soal Quiz No. 2

SOAL 2 : Buatlah program C untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari harga photo copy  
 

#include"iostream.h"

#include"conio.h"

                void main()

{

float jp,disc=0;

clrscr() ;

cout<< "menghitung discount----------------------\n";

cout<<" masukan jumlah penjualan :";

cin>>jp;

if(jp>2500000);

disc=10 * jp ;

cout << " nilai discount yaitu :" << disc;

}

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Quiz Online Soal 1 Coba Selesaikan Kasus Berikut Ini

Coba Selesaikan Kasus Berikut Ini

Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan : 

Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120

Jawab: 

----------------------------------------------------------------------------------------------------------------------


uses crt;
var
nilai : byte;
i,j : byte;
hasil : integer;
k: char;
begin
clrscr;
write('Input Nilai:');readln(nilai);
for i:= 1 to 5 do
hasil:=1*2*3*4*5;
k:='=';
write('Hasil:1*2*3*4*5',k,hasil );
readln;
end.





hasil akhir



Sekian dan Trima kasih.