Penjualan

Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged        Dim x As String        x = Microsoft.VisualBasic.Left(Kode.Text, 2)        Select Case x            Case "TS" : Nama.Text = "Toshiba"            Case "LG" : Nama.Text = "LG"            Case "PL" : Nama.Text = "Polytron"            Case "SN" : Nama.Text = "Sony"        End Select        Dim y As String        y = Microsoft.VisualBasic.Mid(Kode.Text, 1)        Select Case y            Case "TS001" : Harga.Text = "950000"            Case "LG002" : Harga.Text = "876000"            Case "PL001" : Harga.Text = "990000"            Case "SN002" : Harga.Text = "957000"        End Select    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        Kode.Items.Add("TS001")        Kode.Items.Add("LG002")        Kode.Items.Add("PL001")        Kode.Items.Add("SN002")    End Sub
    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click        TotalHarga.Text = Val(Harga.Text) * Val(Jumlah.Text)        If TotalHarga.Text >= 2500000 Then            Discount.Text = 0.1 * TotalHarga.Text        ElseIf TotalHarga.Text <= 2500000 Then            Discount.Text = 0        End If
        TotalBayar.Text = Val(TotalHarga.Text) - Val(Discount.Text)    End Sub
    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click        Kode.Text = ""        Nama.Text = ""        Harga.Text = ""        Jumlah.Text = ""        TotalHarga.Text = ""        Discount.Text = ""        TotalBayar.Text = ""    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click        End    End Sub

Read More

Informasi Penjualan Menggunakan C++

Tugas Pemograman Informasi Penjualan Menggunakan bahasa C
Object :
Kode 1 Televisi : Rp. 2.000.000
Kode 2 DVD     : Rp. 650.000
Kode 3 CD ROOM : Rp. 450.000
Apabila Total diatas 2.000.000 maka discount nya 10%
Apabila Total diatas 4.000.000 maka discount nya 20%
Berikut Syntax nya :

#include "stdio.h"
#include "conio.h"
#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> 2000000)disc=0.1*total; else
     if(total> 4000000)disc=0.2*total;
     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--------------------------------------------------------------------------------");
}

Screen Shot Pengimputan : 

 

Screen shot Hasil nya : 

Sekian dulu Tugas Pemograman saya, semoga bermanfaat :)

Read More

Instal Windows 7 Dengan USB

sudah banyak artikel yang membahas tentang cara-cara menginstall windows melalui USB flashdisk, dan saya pikir gak ada salahnya mencoba trik yang lain, siapa tau ada peningkatan dalam penginstalanya. Menginstal operating system biasanya menggunakan dvd/cd room. Namun untuk notbook edisi sekarang ini biasanya diproduksi tanpa disertai cd/dvd room. Cara ini sangat berguna jika kebetulan dvd room pada laptop/notbook anda mengalami kerusakan dan anda tidak memiliki dvd external.

Read More

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikan kasus Berikut :
Buat lah pemograman dengan menampilkan hasik berikut :
Inputkan Nilai : 5
Hasil : 1*2*3*4*5
Menggunakan Program Pascal


Uses crt;
Var i,x,n:integer;
Begin
Write('INPUTKAN NILAI : ');Readln(n);
For i:= 1 to n do
Begin
x:=(x*i);
if (i=1) then
write(i)
else
write('*',i);
end;
Writeln(' = ',x);
end.
Screen Shot : 

Demikian lah postingan saya  Nama : Rahmat Tullo Npm : 12110801

Selamat Belajar Pemograman

Read More

Tugas Kuliah

Tugas Pemograman Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.
Object :
1. Televisi = Harga nya Rp.175000
2. DVD Player = Harga nya Rp.650000
3. CD ROOM = Harga nya 450000


uses crt;
Var
kode:byte;
harga,jumlah:longint;
th:longint;
nama:string;
begin
     clrscr;
     Writeln('INPUTKAN KODE PENJUALAN');
     Writeln('------------------------------------------');
     Write('KODE :');readln(kode);
     case kode of
          1 : begin
                 clrscr;
                 NAMA:=' "TELEVISI"';
                 Writeln('NAMA  :',nama);
                 Writeln('---------------------------------');
                 HARGA:= 1750000;
                 Writeln('HARGA : ',harga);
                 Writeln('-----------------------------------');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('-------------------------------------');
                 writeln('TOTAL HARGA :',th);
          end;
           2 : begin
                 clrscr;
                 NAMA:=' "DVD PALYER"';
                 Writeln('NAMA  :',nama);
                 Writeln('-----------------------------------');
                 HARGA:= 650000;
                 Writeln('HARGA : ',harga);
                 Writeln('-----------------------------------');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('-----------------------------------');
                 writeln('TOTAL HARGA :',th);
          end;
           3 : begin
                 clrscr;
                 NAMA:=' "CD ROOM"';
                 Writeln('NAMA  :',nama);
                 Writeln('-------------------------------------');
                 HARGA:= 450000;
                 Writeln('HARGA : ',harga);
                 Writeln('____________________');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('____________________');
                 writeln('TOTAL HARGA :',th);
           end;
     end;
readln;
end.

Screen Shot Hasil :


Kode 1 :

 

Kode 2 :

kode 3 :

sekianlah postingan saya dan hasil tugas saya,terimakasih,,,:)

Read More

Faktor Utama Penyebab Kerusakan pada Hardisk

 Kerusakan yang terjadi pada Hardisk tak hanya disebabkan oleh kualitas pabrikan akan tetapi juga dari sisi pengguna atau si pemakai tersebut.Seperti pada salah satu contoh kasus berikut ini yaitu : pada saat memakai harddisk kita tidak melakukan procedure parkir sebelum mematikan PC, sehingga posisi head berada di posisi sembarang. Jika head berhenti dan menyentuh permukaan disk tempat data atau system disimpan, bisa dipastikan lapisan magnet penyimpan data tersebut akan rusak.

Read More

Tentang Mesran[dot]net

Mesran[dot]net adalah website yang dimiliki oleh dosen saya dan sekaligus ketua di universitas yang saya duduki sekarang yaitu STMIK BUDI DARMA yang berada di kota Medan.yang akrab di panggil  pak mesran oleh mahasiswanya.Mesran[dot]net sangat membantu untuk mahasiswanya dan juga untuk seorang programing untuk mendapatkan informasi seperti program visual basic,turbo C+ +,turbo pascal,dll.

        di Mesran[dot]net juga sangat penting untuk mahasiswa STMIK BUDI DARMA,karena di Mesran[dot]net mahasiswa bisa melihat hasil study secara online,dan melakukan quiz online untuk mata kuliah pak mesran.

    so...bagi anda yang masih newbie dan membutuhkan informasi tentang program,anda dapat mengunjungi Mesran[dot]net,insyaallah dapat membantu dan menambah wawasan,dan jangan lupa like ya',,hehehehe,:)
Terimakasih,,,,,,,,!!!

 

Read More