Scrivere un programma che segnali in rosso tutti i numeri maggiori di
500.
....a dirla così sembra facile...
oh, ragazzi... ma io sono uno serio... uno con 25 anni di esperienza
alle spalle... mica bau bau micio micio...
se avete delle domande più difficili, bene... altrimenti andate a
studiare....
che ci vuole...
EditField1.TextColor=RGB(0,0,0) <------ inizio con il
colore nero
for i=0 to 100
Num=Rnd()*1000
If Num>500 then
EditField1.TextColor=RGB(255, 0, 0) <---------- maggiore
di 500, colore rosso.....
else
EditField1.TextColor=RGB(0,0,0) <----------
diversamente... nero.
end if
EditField1.text=EditField1.text+format(Num, "####.##0")+chr(13)
next
ecco fatto... basta lanciare e....
o cazzo... non funziona... ehmm... volevo dire...
aspe'... forse....
Oddio....... che figura da pivello...
Insomma... dopo tutta 'sta farsa, c'e' un modo per mettere una sola
riga o una parte di essa ad un determinato colore?
Sto scrivendo un programma di calcolo e vorrei evidenziare in rosso
SOLO certi numeri... Ma non ci riesco.
Grazie...
|