svp aidez moi

mister alger

  • Newbie
  • *
    • مشاركة: 6
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: أيار 23, 2012, 12:22:03 مسائاً
bjr svp aider moi pour resoudre cet exo avec delphi


un vendeur de ticket de manège offre des promotions selon le numéro de ticket

*si votre ticket port le numéro 25 vous avez droit a 25% de reduction
*si votre ticket port le numéro 40 vous avez droit a 25% de reduction
*si votre ticket port le numéro 1 vous n'avez droit a aucune reduction

elaborer un programme qui affiche combien vous avez payé votre ticket et si vous avez béniéficié d'une réduction . pour cet exo vous etes tenu d'utiliser l'instruction      case....of


rachidlac2

  • Newbie
  • *
    • مشاركة: 5
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: حزيران 09, 2012, 12:54:07 مسائاً
t'as besoin d'un composant edit(qui saisi le prix ) un combobox pour le num de tecket
et edit2 pour le resultat
dans propriete item de combobox ecri dans la 1er ligne 25 la deuxiem 45 et lla troisiem 1
et dans la propriete itemindex mit 0 au lieu -1
pui inserer un button
et double clique
et la condition suivante
if combobox1.itemindex = 0 or combobox1.itemindex = 1 then
edit2.text :=strrtoint(edit1.text)-strtoint(edit1.text)*25/100 ;
else
if icombobox1.itemindex :=2 then
edit2.text :=edit1.text ;


يوسف الضادي

  • Hero Member
  • *****
    • مشاركة: 5333
    • مشاهدة الملف الشخصي
    • http://www.sou9dz.com
    • البريد الالكتروني
رد #2 في: حزيران 09, 2012, 03:25:05 مسائاً
شكرا أخي رشيد و يمكن أيضا العمل بنفس الامر المطلوب عند حدث الضغط على الزر


case combobox1.itemindex of
0..1
:begin
edit2
.text :=strrtoint(edit1.text)-strtoint(edit1.text)*25/100 ;
end;
2:begin
edit2
.text :=edit1.text
end
;
end;