belajar delphi jadwal shalat

ini adalah form pengkonversian waktu shalat yang baru saya buat hehehe maklum newbie saran dan komentnya monggO sedanten

lah ni dia scriptnya.......


yang aku buat sendiri hehehehe sombong dikit!!!!

penjelasan scriptnya menyusul okay

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit3.Text := FormatDateTime('H : m : s', strtotime(edit1.Text) - StrToTime(Edit2.Text));

edit5.text:=formatdatetime('H : m: s',strtotime(edit4.text)-strtotime(edit2.text));

Edit7.Text := FormatDateTime('H : m : s', strtotime(edit6.Text) - StrToTime(Edit2.Text));

Edit9.Text := FormatDateTime('H : m : s', strtotime(edit8.Text) - StrToTime(Edit2.Text));

Edit11.Text := FormatDateTime('H : m : s', strtotime(edit10.Text) - StrToTime(Edit2.Text));

Edit13.Text := FormatDateTime('H : m : s', strtotime(edit12.Text) - StrToTime(Edit2.Text));

Edit15.Text := FormatDateTime('H : m : s', strtotime(edit14.Text) - StrToTime(Edit2.Text));

Edit17.Text := FormatDateTime('H : m : s', strtotime(edit16.Text) - StrToTime(Edit2.Text));

Edit19.Text := FormatDateTime('H : m : s', strtotime(edit18.Text) - StrToTime(Edit2.Text));

Edit21.Text := FormatDateTime('H : m : s', strtotime(edit20.Text) - StrToTime(Edit2.Text));

Edit23.Text := FormatDateTime('H : m : s', strtotime(edit22.Text) - StrToTime(Edit2.Text));

Edit25.Text := FormatDateTime('H : m : s', strtotime(edit24.Text) - StrToTime(Edit2.Text));

Edit27.Text := FormatDateTime('H : m : s', strtotime(edit26.Text) - StrToTime(Edit2.Text));

Edit29.Text := FormatDateTime('H : m : s', strtotime(edit28.Text) - StrToTime(Edit2.Text));

Edit31.Text := FormatDateTime('H : m : s', strtotime(edit30.Text) - StrToTime(Edit2.Text));

Edit33.Text := FormatDateTime('H : m : s', strtotime(edit32.Text) - StrToTime(Edit2.Text));

Edit35.Text := FormatDateTime('H : m : s', strtotime(edit34.Text) - StrToTime(Edit2.Text));

Edit37.Text := FormatDateTime('H : m : s', strtotime(edit36.Text) - StrToTime(Edit2.Text));

Edit39.Text := FormatDateTime('H : m : s', strtotime(edit38.Text) - StrToTime(Edit2.Text));

Edit41.Text := FormatDateTime('H : m : s', strtotime(edit40.Text) - StrToTime(Edit2.Text));

Edit43.Text := FormatDateTime('H : m : s', strtotime(edit42.Text) - StrToTime(Edit2.Text));

Edit45.Text := FormatDateTime('H : m : s', strtotime(edit44.Text) - StrToTime(Edit2.Text));

Edit47.Text := FormatDateTime('H : m : s', strtotime(edit46.Text) - StrToTime(Edit2.Text));

Edit49.Text := FormatDateTime('H : m : s', strtotime(edit48.Text) - StrToTime(Edit2.Text));

Edit51.Text := FormatDateTime('H : m : s', strtotime(edit50.Text) - StrToTime(Edit2.Text));

Edit53.Text := FormatDateTime('H : m : s', strtotime(edit52.Text) - StrToTime(Edit2.Text));

Edit55.Text := FormatDateTime('H : m : s', strtotime(edit54.Text) - StrToTime(Edit2.Text));

Edit57.Text := FormatDateTime('H : m : s', strtotime(edit56.Text) - StrToTime(Edit2.Text));

Edit59.Text := FormatDateTime('H : m : s', strtotime(edit58.Text) - StrToTime(Edit2.Text));

Edit61.Text := FormatDateTime('H : m : s', strtotime(edit60.Text) - StrToTime(Edit2.Text));

Edit63.Text := FormatDateTime('H : m : s', strtotime(edit62.Text) - StrToTime(Edit2.Text));

Edit65.Text := FormatDateTime('H : m : s', strtotime(edit64.Text) - StrToTime(Edit2.Text));

Edit67.Text := FormatDateTime('H : m : s', strtotime(edit66.Text) - StrToTime(Edit2.Text));

Edit69.Text := FormatDateTime('H : m : s', strtotime(edit68.Text) - StrToTime(Edit2.Text));

Edit71.Text := FormatDateTime('H : m : s', strtotime(edit70.Text) - StrToTime(Edit2.Text));

Edit73.Text := FormatDateTime('H : m : s', strtotime(edit72.Text) - StrToTime(Edit2.Text));

Edit75.Text := FormatDateTime('H : m : s', strtotime(edit74.Text) - StrToTime(Edit2.Text));

Edit77.Text := FormatDateTime('H : m : s', strtotime(edit76.Text) - StrToTime(Edit2.Text));

Edit79.Text := FormatDateTime('H : m : s', strtotime(edit78.Text) - StrToTime(Edit2.Text));

Edit81.Text := FormatDateTime('H : m : s', strtotime(edit80.Text) - StrToTime(Edit2.Text));

Edit83.Text := FormatDateTime('H : m : s', strtotime(edit82.Text) - StrToTime(Edit2.Text));

Edit85.Text := FormatDateTime('H : m : s', strtotime(edit84.Text) - StrToTime(Edit2.Text));

Edit87.Text := FormatDateTime('H : m : s', strtotime(edit86.Text) - StrToTime(Edit2.Text));

Edit89.Text := FormatDateTime('H : m : s', strtotime(edit88.Text) - StrToTime(Edit2.Text));

Edit91.Text := FormatDateTime('H : m : s', strtotime(edit90.Text) - StrToTime(Edit2.Text));

Edit93.Text := FormatDateTime('H : m : s', strtotime(edit92.Text) - StrToTime(Edit2.Text));

Edit95.Text := FormatDateTime('H : m : s', strtotime(edit94.Text) - StrToTime(Edit2.Text));

Edit97.Text := FormatDateTime('H : m : s', strtotime(edit96.Text) - StrToTime(Edit2.Text));

end;

diatas itu bagaimana proses dari edit yang dikiri ke edit yang dikanan itu dikonversikan ke waktu yang dibutuhkan

begitu..........!!!kalao mudeng alhamdulillah kalao gak mudeng yoOOOO hehehehhe saya sendiri mudenge lama kok hahahha

maklum newbie,selanjutnya(next)

ups mungkin itu tok wis yo hehehe okay mohon dimaklumi mas baru pertama kali ini eke ngepost blog hahahhini ini adalah link dowloadnya silahkan download http://www.4shared.com/file/tjuWUS7e/jadwal_penting.html