Sinauku Telaten

Belajar Program Deklarasi dan Variabel dengan Delphi
         
              Hallo semuanya ?Sekarang saya akan berbagi tentang pelajaran yang telah saya dapat dalam sebuah praktikum mata kuliah pemrograman dasar.Mari kita mencoba lagi untuk me review tentang sebuah program yang ada deklarasi dan Variabel.Saya akan mencoba membuat program penjualan barang yang memuat tentang Deklarasi dan variabel.Mungkin untuk tampilan programnya seperti dibawah ini :

            Ok sekarang kita akan membongkar tentang program diatas.Untuk langkah pembuatanya ikuti petunjuk dibawah ini :

1. Buat dulu componenya yaitu ada botton,groupbox,label dan edit.Soal tampilan programnya si terserah selera kalian aja.
2. Setelah membuat componenya karang tingal buat sintax programnya.Pertama klik botton Hitung total,untuk hitung total ini kita harus membuat sebuah variabel.Untuk sintax lengkapnya seperti dibawah ini :


procedure TForm1.Button1Click(Sender: TObject); var hrgDAsMB,hrgDasPROS,hrgDasHD,hrgDasRAM:currency; jmlMB,jmlPROS,jmlHD,jmlRAM:integer; TotMB,TotPROS,TotHD,TotRAM:currency; begin //MENDEKLARASIKAN HARGA SATUAN hrgDasMB:=StrToCurr(Edit1.Text); hrgDasPROS:=StrToCurr(Edit2.Text); hrgDasHD:=StrToCurr(Edit3.Text); hrgDasRAM:=StrToCurr(Edit4.Text); //MENDEKLARASIKAN Jumlah Pembelian jmlMB:=StrToInt(Edit5.Text); jmlPROS:=StrToInt(Edit6.Text); jmlHD:=StrToInt(Edit7.Text); jmlRAM:=StrToInt(Edit8.Text); //Menghitung Harga Dasar x Jumlah Beli TotMB:=hrgDasMB*jmlMB; TotPROS:=hrgDasPROS*jmlPROS; TotHD:=hrgDasHD*jmlHD; TotRAM:=hrgDasRAm*jmlRAM; //Menulis Hasil ke komponen Total Edit9.Text:=CurrToStr (TotMB); Edit10.Text:=CurrToStr (TotPROS); Edit11.Text:=CurrToStr (TotHD); Edit12.Text:=CurrToStr (TotRAM); Edit13.Text:=CurrToStr(TotMB+TotPROS+TotHD+TotRAM); end;
3. Setelah selesai dengan sintax diatas sekarang kita buat sintax program untuk mulai input yang baru dengan cara klik botton hitung jumlah lain lalu tulis dengan sintax dibawah ini :


procedure TForm1.Button2Click(Sender: TObject); begin Edit5.Clear;Edit6.Clear;Edit7.Clear;Edit8.Clear;Edit9.Clear; Edit10.Clear;Edit11.Clear;Edit12.Clear; Edit5.SetFocus; end;
4. Bila sudah karang buat perhitungan yang tanpa variabel dengan cara klik botton tanpa variabel isi sintax seperti ini :
rocedure TForm1.Button3Click(Sender: TObject); begin Edit9.Text :=CurrToStr( StrToCurr (Edit1.Text)*StrToInt (Edit5.Text)); Edit10.Text:=CurrToStr(StrToCurr (Edit2.Text)*StrToInt (Edit6.Text)); Edit11.Text:=CurrToStr(StrToCurr (Edit3.Text)*StrToInt (Edit7.Text)); Edit12.Text:=CurrToStr(StrToCurr (Edit4.Text)*StrToInt (Edit8.Text)); Edit13.Text:=CurrToStr(StrToCurr (Edit9.Text)+ StrToCurr (Edit10.Text) + StrToCurr (Edit11.Text)+ StrToCurr (Edit12.Text)); end;
5. Untuk botton exit tulis dengan sintax :


procedure TForm1.Button4Click(Sender: TObject); begin close; end;
6. Bila sudah sekarang klik save dan jalankan programnya dengan klik run.