Pengkondisian If Then Else pada Delphi7

Hallo dear!

Apa kabar? Lama nih gak ngeblog hehe

Di blog kali ini aku akan kasih coding tentang pengkondisian If Then Else dalam Delphi7 !!!

Disimak baik-baik yah teman-teman hehe

------------------------------------------------------------------------------------
If Then Else menggunakan tanda lebih besar (>)

------------------------------------------------------------------------------------ 

 

Untuk menentukan nilai dengan menggunakan If Then Else menggunakan tanda lebih besar (>) seperti gambar diatas, kalian tinggal mengetikkan atau mengcopy Coding dibawah ini dan mempastekannya pada Edit1 (Pada kolom yang ada angka 100 seperti pada gambar diatas).

If (StrToFloatDef(edit1.Text,0)>100)Then
begin
Edit2.Text:='INPUT SALAH';
Edit3.Text:='INPUT SALAH';
end
else

If (StrToFloatDef(edit1.Text,0)>=80)Then
begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end
else

If (StrToFloatDef(edit1.Text,0)>=70)Then
begin
Edit2.Text:='B';
Edit3.Text:='BAIK';
end
else

If (StrToFloatDef(edit1.Text,0)>=60)Then
begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end
else

If (StrToFloatDef(edit1.Text,0)>=50)Then
begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end
else

If (StrToFloatDef(edit1.Text,0)>=0)Then
begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end
else

If (StrToFloatDef(edit1.Text,0)<0)Then
begin
Edit2.Text:='INPUT SALAH';
Edit3.Text:='INPUT SALAH';
end
end;

------------------------------------------------------------------------------------
If Then Else menggunakan tanda lebih kecil (<) 

------------------------------------------------------------------------------------ 

Untuk menentukan nilai dengan menggunakan If Then Else menggunakan tanda lebih kecil (<) seperti gambar diatas, kalian tinggal mengetikkan atau mengcopy Coding dibawah ini dan mempastekannya pada Edit1 (Pada kolom yang ada angka 100 seperti pada gambar diatas).

If (StrToFloatDef(edit1.Text,0)>100)Then
begin
Edit2.Text:='ERROR';
Edit3.Text:='ERROR';
end
else

If (StrToFloatDef(edit1.Text,0)<0)Then
begin
Edit2.Text:='ERROR';
Edit3.Text:='ERROR';
end
else

If (StrToFloatDef(edit1.Text,0)<50)Then
begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end
else

If (StrToFloatDef(edit1.Text,0)<60)Then
begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end
else

If (StrToFloatDef(edit1.Text,0)<70)Then
begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end
else

If (StrToFloatDef(edit1.Text,0)<80)Then
begin
Edit2.Text:='B';
Edit3.Text:='BAIK';
end
else

If (StrToFloatDef(edit1.Text,0)<=100)Then
begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end
end;

================================================

Udah segitu aja buat blog hari ini!

Semoga bermanfaat buat teman-teman yah :)

Kalau ada kritik dan saran bisa Komentar dibawah yah teman-teman.

Jangan lupa G+ yah hehe

Thank you ;))

================================================