menghitung bayar PAM

iseng – iseng gak ada kerjaan, sempet ngerjain tugas algoritma ternyata bagus juga ni soalnya.

• Buat algoritma untuk menentukan harga air PAM yang harus dibayar. Nilai yang diinput adalah jumlah m kubik air PAM. Berlakuketentuan sebagai berikut :

1. 50 m kubik pertama, harga per m kubik =Rp 1000
2. 50 m kubik kedua, harga per m kubik =Rp 1500
3. 50 m kubik ketiga, harga per m kubik =Rp 2000
4. Dan untuk m kubik selanjutnya, harga per m kubik =Rp 3000
5. Contoh : 175 m kubik = 50*1000 + 50*1500+50*2000+25*3000

di sini ada kasus mencari seperti sitem koin, di situ ada nilai 175 yang bagaimana caranya bisa di pecah menjadi pecahan 50 50 50 dan 25, sebagai 25 itu sisa. saya gunakan cara saya seperti :

Program MenghiutngBiayaPAM
{program  menghiutng biaya pam yang harus di bayar berdasarkan pemakian per m3}

Deklarasi
jmkubik, i, mkubik1, mkubik2, mkubik3, mkubik4, bayarpam : integer;

Algoritma
  jmkubik := 175
  i:=0;
  mkubik1:=0;
  mkubik2:=0;
  mkubik3:=0;
  mkubik4:=0;

  while (i <= jmkubik) do
  begin
    if (i <= 50) then
      mkubik1 := i;
    endif;

    if (i > 50) and (i <= 100) then
      mkubik2 := i;
      mkubik2 := mkubik2 - mkubik1;
    endif;
  
  if (i > 100) and (i <= 150) then
      mkubik3 := i;
      mkubik3 := mkubik3 - (mkubik2 + mkubik1);
    endif;

    if (i >= 151) then
    begin
      mkubik4 := i;
      mkubik4 := mkubik4 - (mkubik3 + mkubik2 + mkubik1);
    end;

     i:=i+1;
  end;
  bayarpam := mkubik1 * 1000 + mkubik2 * 1500 + mkubik3 * 2000 + mkubik4 * 3000;
  write(bayarpam);

moga bisa membantu dan bisa membuat inspirasi baru, kalo temen – temen semua punya algoritma ato coding yg lbih simple boleh kita share. maklum saya dalam masa belajar juga

mencegah inputan kosong

langkah praktis yang umum digunakan untuk mencegah input kosong adalah dengan memanfaatkan fungsi empty(); namun, perlu diperhatikan, fungsi ini menerima input spasi sebagai suatu karakter. apabila tidak ingin input berupa spasi, hilangkan menggunakan trim(); jadi, untuk mencegah input kosong, tinggal mengkombinasikan fungsi empty(); dan trim();

perlu diketahui, fungsi empty(); hanya memeriksa variabel, dan tidak akan mengolah variabel yang diproses fungsi lain, misal dengan empty(trim($var)); oleh karena itu, kita bisa mencari solusinya,
contoh :

<?php
if (isset($_POST['oke'])){
   $name = trim($_POST['name']);
   //jika field tidak kosong
   if (!empty($name)) {
      echo 'hii, .$name;
   } else {
      echo 'isikan nama anda';
   }
}
?>

<form action="<?$_SERVER['PHP_SELF']?>" method=POST>
<table>
<tr>
  <td>nama kamu</td>
   <td><input type=text name="name"></td>
</tr>
</table>
<input type=submit name"oke" value ="oke">
</form>

copy, rename and move file dengan delphi

sedikit membuat applikasi kecil bahakan sangat kecil kecilan, ia kalo untuk copy pate, move paste dan rename file itu sudah biasa di windows tinggal klik kanan saja beres…
tpi sekarang sya memcoba membuat itu di delphi dengan coding yang sederhana ..
siap dan udah di buka delphi nya ?
iu kita mulai
pertama, kita design form kayak gini iu .

kurang lebih seperti itu pake Edit dan Button saja dan jangan lupa tempelkan OpenDialog juga ia..
kedua, biasa double klik di Button browse atas

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Caption:='';
  if OpenDialog1.Execute then
  begin
    Edit1.Text:=OpenDialog1.FileName;
    Edit2.Text:=Edit1.Text;
  end;
end;

Button browse bawah

procedure TForm1.Button6Click(Sender: TObject);
var
  St: string;
begin
  St:='c:\';
  if SelectDirectory(St, [], 0) then
    Edit2.Text:=St+'\'+ExtractFileName(Edit1.Text);
end;

Button Copy

procedure TForm1.Button4Click(Sender: TObject);
begin
  if (Edit1.Text<>'')and(Edit2.Text<>'') then
    if CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), False) then Label3.Caption:='OK'
end;

Button Rename

  if (Edit1.Text<>'')and(Edit2.Text<>'') then
    if RenameFile(Edit1.Text, Edit2.Text) then Label3.Caption:='OK'

eh lupa itu ada Label3.caption:=’OK’ ia tingggal bikin aja ia Label3 nya tinggal tempel, selamat mencoba ..

mencoba Delphi 2010 . .

udah lama nie tidak upload lagi blog, maklum banyak kerjaan n tugas luar nie,
ini mah ya cuman sekedar yang aku tau maklum baru nyoba pake delphi 2010 ya kalo yang udah master udah gax usah di tanya,hhe.

ini kurang lebih layout untuk interface delphi 2010 .


beda banget ya ma delphi 6 or 7, eh gax ketinggalan saya juga coba bikin proses kecil kecilan ya cuman nampilin pesan aja,
ni contohnya .

simple kan n tertarik kah ..hhe..

untuk yang mau coba, coba saja mencoba gax ada salahnya sama sekali..
hhe..

membuat report di deplhi menggunakan Crystal Report ..

kemaren dapat tugas nie mu buat report pake CR (Crystal Report) di delphi sebenernya dah banyak nie tutorialnya ya maklum laa baru baru sih belajar delphinya juga, ya lumayan sulit juga nie cari sana cari sini ada yang bilang enggak usah pake komponen ada yang pake komponen, saya liat tutorial yang pake komponen pake CrystalReports11XIVcl. ternyata gampang ko yu kita mulai dulu eh jangan lupa download dulu komponennya CrystalReports11XIVcl.zip
di sini CrystalReports11XIVcl terus install deh komponennya, bisa kan installnya tinggal baca readme aja ..hhe..

kalo udah selesai yu kita mulai, eh tunggu dlu komponen yang ini lumayan membingungkan juga soalnya tidak membuat tab baru komponennya, terletak di tab DataAkses nama komponennya Crpe1,

<br />
procedure TForm1.btnCetakClick(Sender: TObject);<br />
begin  Crpe1.ServerName:=ExtractFilePath(Application.ExeName)+'namadatabase.mdb'); //saya pake ms access<br />
Crpe1.Password:='dbpassword'; //kalo ada passowrdnya<br />
Crpe1.DatabaseName:=ExtractFilePath(Application.ExeName)+'namdatabase.mdb'); //pake ms access jga<br />
Crpe1.WindowState:=wsMaximized;<br />
Crpe1.Execute;<br />
end;<br />

gampang kan, coba aja dulu kalo ada eroor, itu wat belajar aja, hhe..

untuk conto ini langsung di execute di delphinya tapi jangan lupa CrystalReportnya harus sudah jalan yc waktu di priview ..

selamat mencoba,,