it's Simple

Pada hari pas liburan semesteran gw membuka pesan yang ada di grup kelas whatsapp. Saat gw baca ada info bahwa di Stundentsite telah ada lowongan untuk asisten Lepkom F4. Langsung dah gw buka itu link SS ternyata bener bukan hoax. Setelah gw baca persyaratannya gw ngerasa mampu ni coi :D langsung dah gw nga pake lama langsung mempersiapkan segala yang dibutuhkan. Sambil nyiapin berkas yang sesuai diminta di link SS gw pun juga nyiapin diri gw secara mental wkwk gw searching2 tuh tahapan-tahapan untuk jadi asisten di Lepkom ini. Pas gw searching sih sama banget kaya kita mau ngelamar kerjaan di perusahaan gitu, ada psikotesnyalah, ada materi, ada tes bahasa inggris translitein trus lanjut tahap bikin program semacem rumus2 gitu http://satriodjati.blogspot.co.id/2013/04/tahap-tahap-tes-aslab-lepkom_29.html disini yang gw baca.

Sudah lama saya tak posting di blog yang satu ini, okee kali ini saya ingin membagikan sebuah ilmu yang bisa kita pelajari atau untuk kalian sebagai contoh pembuatan program di Delphi 7 dan sekaligus sebagai arsip bagi saya sendiri.  LISTING PROGRAM Form1 ============================================================= procedure TForm1.Button1Click(Sender: TObject); var nilai : Integer; begin nilai := StrToInt(Edit2.Text); if nilai < 30 then   Edit3.Text:='Kalah' else if nilai <= 50 then   Edit3.Text:='Juara Harapan' else if nilai <=70 then   Edit3.Text:='Juara 3' else if nilai <=90 then   Edit3.Text:='Juara 2' else if nilai <=100 then   Edit3.Text:='Juara 1' else   Edit3.Text:='Tidak Ada';