haris setiawam: 2013

Minggu, 08 Desember 2013

membuat program list view

Public Class Form1
    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = np.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merek.Text)
        lst.SubItems.Add(jb.Text)
        lst.SubItems.Add(harga.Text)
        lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kb.Text, 2)
        y = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case X
            Case "TS" : merek.Text = "Toshiba"
            Case "VG" : merek.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nb.Text = "Flashdisk 4GB"
            Case "002" : nb.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merek.Text = ""
        jb.Text = ""
        harga.Text = ""
    End Sub

    Private Sub hapusall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusall.Click
        lv.Items.Clear()
    End Sub

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

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merek.Text = ""
        jb.Text = ""
        harga.Text = ""


    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub jb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jb.KeyPress
        If Asc(e.KeyChar) = 13 Then
            th.Text = harga.Text * jb.Text
            simpan.Focus()
        End If
    End Sub

    Private Sub jb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jb.TextChanged

    End Sub
End Class

Jumat, 21 Juni 2013

menampilkan informasi penjualan denga bahasa C

Kopi paste svript dibawah ini di program turbo c anda :

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

    printf ("\n Input Data Penjualan") ;
    for(i=0 ; i<jumdata ; i++ ){
        printf ( "\nKode Produk   : " ) ; scanf("%d", &kode[i]) ;
        printf ( "Jumlah Produk : ") ; scanf("%d", &jumlah[i]) ;
    }
    clrscr() ;
    printf ("\n Informasi Penjualan Produk") ;
    printf ("\n----------------------------------------------------------------------------") ;
    printf ("\n No Kode    Produk               Harga Jumlah Total     Diskon   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 ;
        }

        gotoxy(1,6+i) ; printf(" %i   %d     %s", i+1, kode[i], produk) ;
        gotoxy(30,6+i) ; printf("%10.0f    %i %10.0f", harga, jumlah[i], tohar) ;
        tohar = harga * jumlah[i] ;
        if (tohar>=4000000)
        diskon=0.2*tohar;
            else if (tohar <4000000 && tohar>=2000000)
        diskon=0.15*tohar;
        else if (tohar <2000000 && tohar>=1000000)
        diskon=0.1*tohar;
        else
        diskon=0;
        bayar=tohar-diskon;
        gotoxy(54,6+i) ; printf("%10.0f", diskon) ;
        gotoxy(65,6+i) ; printf("%10.0f", bayar) ;

    }
    printf ("\n---------------------------------------------------------------------------") ;

}

lalu jhalankan dengan menekan tombol Ctrl + F9

sehingga muncul tampilan seperti dibawah ini...

input kode produk dan jumlah produk yang ingin anda beli...
setelah itu maka akan muncul tampilan informasi dari penjualan yang anda inputkan seperti gambar dibawah ini :

Senin, 27 Mei 2013

membuat program diskon di C++

ini lah kode atau bahasa yg di gunakan dalam pemprograman C++

#include "stdio.h"
void main (){
int kode,jumlah;
char*nama;
float harga,total,diskon;

printf("Input penjualan \n");
printf("kode : ");scanf ("%i",&kode);
switch (kode){
case 1:nama="Televisi";harga=1750000;break;
case 2:nama="DVD";harga=650000;break;
case 3:nama="CD-ROOM";harga=450000;break;
}
printf("\nNama Produk : %s",nama);
printf("\nHarga : %.1f",harga);
printf("\nJumlah jual: ");scanf ("%i",&jumlah);
total=harga*jumlah;
printf("\nTotal Harga : %.2f",total);
if (total>=3000000)
diskon=total*0.1;
else
diskon=0;
printf("\nDiskon : %.2f",diskon);
}