Sabtu, 13 Desember 2014

Perintah Input dan Output Pada Bahasa C/C++

Terdapat beberapa perintah I/O, diantaranya yaitu :

1. STATEMEN printf()
Pemakaian prinff telah diperkenalkan pada bab-bab sebelumnya. Dengan menggunakan obyek ini, pemrogram dapat meletakkan suatu informasi ke standard output (normalnya berupa layar) Untuk menampilkan tulisan  ”Program C” diikuti dengan ganti baris (newline), pemrogram bisa menggunakan pernyataan berikut :

prinft( “Program C  \n” )   ;

Untuk menampilkan   “Nama    : “ diikuti dengan variable nama dan kemudian karakter newline, pernyataan berikut yang diperlukan.

prinft( “  Nama     :  %s \n”, nama )   ;

2. STATEMEN scanf()
C menyediakan suatu obyek standar bernama scanf yang bermanfaat untuk membaca data dari

standard input (normalnya adalah keyboard)

Bentuk umum  :     scanf( format, &variabel)

contoh 1 :
#include <stdio.h>
#include <conio.h>

void main()
{
    float    f , c   ;
    clrscr() ;

    prinft( “ Nilai Derajat FAHRENHEIT    : ” ) ;
    scanf( ”%f”, &f )  ;

    c = (f  – 32)  *  5 / 9  ;
    prinft ( “\n Nilai CELCIUS yaitu      : %f ”  , c ) ; getch() ;
}

Contoh 2 :

#include<stdio.h>
void main()
{
    int jumlah ;
    float harga, total ;
    char nama[20] ;
    clrscr() ;
    printf (“Input Penjualan “) ;

    printf (“Nama Barang  : ” ) ;
    scanf (“%s”, &nama ) ;

    printf (“Harga   :  ” ) ;
    scanf (“%f”, &harga ) ;

    printf (“Jumlah  :  ” ) ;
    scanf (“%i”, &jumlah ) ;

    total = harga * jumlah ;
    printf (“Total Harga : %8.0f ” , total ) ; getch () ;
}

3. STATEMEN cout <<
Selain statemen printf, C juga menyediakan statemen cout. Ini akan anda temui pada C++. Dengan menggunakan obyek ini, pemrogram dapat meletakkan suatu informasi ke standard output (normalnya berupa layar)

Untuk menampilkan tulisan  ”MesranKU” menggunakan pernyataan berikut :

cout  << “ MesranKU  \n”  ;  atau   cout  << “ MesranKU” << endl  ;

Untuk menampilkan   “Nama    : “ diikuti dengan variable nama dan kemudian karakter newline, pernyataan berikut yang diperlukan.

cout << “Nama    : “ << nama  << “\n”

Penggunakan cout WAJIB menggunakan file header iostream.h

4. STATEMEN cin
C juga menyediakan suatu obyek bernama cin yang bermanfaat untuk membaca data dari standard input (normalnya adalah keyboard)

Bentuk umum  :     cin >> nmVariabel
Tanda >> disebut operator “pengambilan dari”

Penggunakan cin WAJIB menggunakan file header iostream.h

contoh 3 :

#include<iostream.h>
void main()
{
    int jumlah ;
    double harga, total ;
    char nama[20] ;
    clrscr() ;
    cout << “Input Penjualan ” ;
    cout << “Nama Barang  : ” ; cin >> nama ;
    cout << “Harga   :  ” ; cin >> harga ;
    cout << “Jumlah  :  ” ; cin >> jumlah ;
    total = harga * jumlah ;
    cout << “Total Harga :  ” << total ;
}

KESIMPULAN
Pada bahasa C, tidak sembarangan menggunakan variabel tertentu, dalam artian, pada saat anda menggunakan data STRING, formatnya harus anda ingat, pada saat menggunakan Pecahan/FLOAT yah juga harus anda ingat formatnya.

Minggu, 07 Desember 2014

Kasus Pemrograman Pemakaian Listrik



 


 



Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
        Call buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Harga KWH", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        kode.Items.Add("PAB-PAK-100")
        kode.Items.Add("PAB-BEL-101")
        kode.Items.Add("RUM-BEL-102")
        kode.Items.Add("SWA-MED-103")
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(bibe.Text)
        lst.SubItems.Add(hrga.Text)
        lst.SubItems.Add(pmkaian.Text)
        lst.SubItems.Add(totag.Text)
        lst.SubItems.Add(pjk.Text)
        lst.SubItems.Add(pbyaran.Text)
        LV.Items.Add(lst)

    End Sub
   

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "Toko"
                bibe.Text = 150000
                hrga.Text = 500
                nama.Text = "putry"

            Case "RUM"
                tipe.Text = "Rumah"
                bibe.Text = 50000
                hrga.Text = 200
                nama.Text = "Eli"
            Case "SWA"
                tipe.Text = "Swalayan"
                bibe.Text = 40000
                hrga.Text = 1500
                nama.Text = "Githa"

            Case "PAB"
                tipe.Text = "Pabrik"
                bibe.Text = 1000000
                hrga.Text = 10000
                nama.Text = "Nurainun"

        End Select
        x = Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case "PAK" : daerah.Text = "Patumbak"
            Case "MAR" : daerah.Text = "Marendal"
            Case "BIN" : daerah.Text = "Binjai"
            Case "BEL" : daerah.Text = "Belawan"
        End Select
    End Sub
    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisi.Click
        Call isitabel()
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        bibe.Text = ""
        hrga.Text = ""
        pmkaian.Text = ""
        totag.Text = ""
        pjk.Text = ""
        pbyaran.Text = ""

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()

    End Sub

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

    End Sub

    Private Sub Btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        totag.Text = (bibe.Text + hrga.Text) * (pmkaian.Text)
        pjk.Text = 0.015 * totag.Text
        pbyaran.Text = Val(totag.Text) + Val(pjk.Text)

    End Sub
End Class