Delphi - (Delphi7) Gli operatori relazionali

Forum - Delphi - (Delphi7) Gli operatori relazionali

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 17:24
Martedì, 27/04/2010

Codice sorgente - presumibilmente Delphi

//controlla da 0 a 30
  numero_da_Controllare := StrToInt(Ren.Caption);
  numero := 30;
if numero_da_Controllare <= numero then
ALed1.Value := True;
//controlla da 31 a 60
numero_da_Controllare := StrToInt(Ren.Caption);
  numero := 31;
if numero_da_Controllare >= numero then
ALed2.Value := True;
//controlla da 61 a 100
numero_da_Controllare := StrToInt(Ren.Caption);
  numero := 61;
if numero_da_Controllare > numero then
ALed3.Value := True;
end;

il codice qui sopra:
da 0 a 30 mi accende un led verde che si spegne al valore 31.
da 31 a 60 un led giallo che dovrebbe spegnere al valore 61 (Ma non lo fa).
da 61 in poi uno rosso.
Adesso il problema è che quello giallo che dovrebbe avere un campo tra 31 a 60 non riesco a controllarlo perché anche quando supera il valore 60 resta acceso come devo impostare l'operazione?
Spero di essermi spiegato bene.

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 18:19
Martedì, 27/04/2010

Ciao! Ho letto il tuo spezzone di progaamma.

Devo dire che è difficile contestualizzare il problema; ho i seguenti dubbi:

-> Il codice fa parte di una procedura di controllo? Se si postala per intero.

-> Quando attivi il controllo?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 18:47
Martedì, 27/04/2010

Perchè utilizzare la variabile numero (e in quel modo) dato che puoi scrivere i valori costanti nella if senza problemi?

In pseudocodice

Codice sorgente - presumibilmente Delphi

if numero_da_controllare > 60 allora
   accendi ALed3
else
   if numero_da_controllare > 30 allora
      accendi ALed2
   else
      accendi ALed1
   end
end

Però con True accendi i Led, ma quando li spegni? Se non ho capito male, devi spegnere gli altri quando ne accendi uno ... quindi

Codice sorgente - presumibilmente Delphi

if numero_da_controllare > 60 allora
    spegni ALed1   
    spegni ALed2
    accendi ALed3
else
   if numero_da_controllare > 30 allora
      spegni ALed1   
      accendi ALed2
      spegni ALed3
   else
      accendi ALed1
      spegni ALed2
      spegni ALed3
   end
end

Ultima modifica effettuata da nessuno il 27/04/2010 alle 18:49

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 20:16
Martedì, 27/04/2010

Codice sorgente - presumibilmente Delphi

ALed1.Value := False;
  ALed2.Value := False;
  ALed3.Value := False;
  numero_da_Controllare := StrToInt(Ren.Caption);
//controlla da 0 a 30
if numero_da_Controllare <= 30 then
  ALed1.Value := True;
//controlla da 31 a 60
if numero_da_Controllare >= 31 then
  ALed2.Value := True;
//controlla da 61 a 100
if numero_da_Controllare > 61 then
  ALed2.Value := False;
if numero_da_Controllare > 61 then
  ALed3.Value := True;
end;

ho risolto in questo modo prendendo spunto dal tuo suggerimento.

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 21:06
Martedì, 27/04/2010

Le ultime due if sono ripetute ... ottimizza il codice ...