Început de CeanyB, Mie 2 mai 2007 · 27 răspunsuri · 10.044 vizualizări
tot ce e posibil sa fi gresit, ar trebui sa dorm mai mult probabil 
. nu stiam ce ai tu pe form, am crezut ca e gol, cu un buton si un label numai pe el. si mai ales nu m-am uitat ca tu il faceai undeva invisible.
de obicei ceea ce vrei tu se realizeaza cu ajutorul unui timer(componentule system).
da, ms...am gasit....deocamdata nu am inteles cum se poate afisa totusi ora itr-un label cu ajutorul timerului...dar o sa ma uit prin cartea ce mi-am tras-o la xerox....
in alta ordine de idei...am "copt" acum un pseudoalgoritm..care banuiesc ca e valid...sau pe aproape...
dar nu garantez ca il pot realiza eu acum...ca am stres si la fac....sunt in mijloc de sesiune....
initializez o variabila de tip TTime i:=Time; {sau cu NOW }
am un label care e visible:=false la inceput..
ma leg de conditia asta , adik
if visible=true...{sau la fel cu un while ..do } then
descompun timpul in ora, minut, secunda....
{si incepand cu momentul asta....nu mai am treaba cu tip de data TTime...lucrez doar cu integer....si
afisez cu IntToStr(...) }
deci afisez cele 3 numere integer in format text.......apoi...
........incrementez secunda cu 1; {nu cu 1000, ca nu mai e time, ci e integer...}
sleep(1000);
refresh;
if sec=59 then begin min:=min+1;
sec:=0;
afisez iar cele 3;
sleep(1000);
end
else if min=59 then begin ora:=ora+1;
min:=0;
afisez;
sleep(1000);
end
else IF sec=59 and min=59 and ora=23 begin resetez ora
afisez.
sleep(1000);
end;
end; -ul de la primul then...;
si faza asta ar trebui sa se continue si sa se repete, pana nu mai e labelul respectiv vizibil,
adik pana cand apas alt buton...care face altceva...
la o alta apasare a butonului care afiseaza timpul, se reia de la inceput...conditia if....se afla timpul actual, se descompune,
incr secunda, afisam, etc....
cu putin noroc banuiesc ca merge....cu toate ca pasii si logica sunt cam de gradinitza....
oricum, pun pariu ca profa de info din liceu ...ar fi permis macar sa incerc varianta asta....
cand ai vreme il pui in program si dupa aia vedem ce mai modificam si cum
e de stiut ca as vrea sa incerc......doar nu va exploda compu'.....:))))
hai k mai vb.....
byee
o mika intrebare....am facut un alt programel de calculat tot felul de siruri matematice....
daca ai facut info cred ca stii la ce ma refer...intrebarea nu e despre siruri sau calculul lor...ci despre....
am facut un alt form [form3], lansat de la un buton din form1... in care fac calc sirurilor...
si pe primul form mi-a venit ideea sa pun un progress bar....
insa m-a izbit din nou o problema....
********************************************
procedure TForm1.Button2Click(Sender: TObject);
var i:byte;
begin
Form1.ProgressBar1.Visible := true;
Form1.ProgressBar1.Min := 0; {astea sunt cam in plus, dar le-am facut pt siguranta}
i:= Form1.ProgressBar1.Min; { <== }
for i := 0 to 100 do
begin
Form1.ProgressBar1.Update;
Form1.ProgressBar1.StepBy(2);
Sleep(15);
Form1.ProgressBar1.Update;
end;
i:= Form1.ProgressBar1.Min;
Form1.ProgressBar1.Visible := false;
Form1.Visible := false;
Form3.Visible := true;
end;
***********************************************
orice update, refresh, repaint...as face, si oriunde le-as pune.[am incercat peste toooot]...
doar PRIMA DATA cand intru in program imi arata ca lumea cum "se incarca"
linia [culoarea] in progressbar.....dupa ce dau si pe alte butoane pe care le mai am pe form..
si dau din nou pe asta , linia la progressbar e deja incarcata pana la capat, instantaneu...
am incercat si eu codu tau si am observat ca ceva nu e in regula. sincer nu stiu care e exact problema, de ce nu face repaint , insa am rezolvat in felul urmator
procedure TForm1.Button2Click(Sender: TObject);
var i:byte;
begin
Form1.ProgressBar1.Visible := true;
Form1.ProgressBar1.Min := 0; {astea sunt cam in plus, dar le-am facut pt siguranta}
i:= Form1.ProgressBar1.Min; { <== }
form1.ProgressBar1.Position:=0;
for i := 0 to 100 do
begin
Form1.ProgressBar1.Update;
Form1.ProgressBar1.StepBy(2);
Sleep(15);
Form1.ProgressBar1.Update;
end;
i:= Form1.ProgressBar1.Min;
Form1.ProgressBar1.Visible := false;
Form1.Visible := false;
Form3.Visible := true;
end;
nu pot sa iti explic care ar fi exact problema, de ce nu se face repaint. poate gasesti aici ceva referitor la asta
http://delphi.about.com/sitesearch.htm?ter...3176&type=1
spor,
Editat Vin 11 mai 2007 07:37
mersi mult....!!!!!! MERGEEE !!! {culmea e ca si eu am incercat ceva cu position, dar nu exact ca tine, si nu l-am pus acolo}
am gasit un exemplu intr-un proiect......
dar dupa cum vezi, pura OOP, declarare de clase??!!??!! [TfrmSplash = class(TForm)],
unituri separate....si alte complicatii, prea mult pt mine, momentan...
faza nasoala e ca noi in liceu nu am prea facut decat O ORA de OOP in Pascal...
de asta nu sunt deocamdata obisnuit...
*******************************
unit splash;
type
TfrmSplash = class(TForm)
imgSplash: TImage;
progFeedBack: TProgressBar;
******************************
var
frmSplash: TfrmSplash;
******************************
*****************************
uses Splash in 'splash.pas' {frmSplash};
.....
implementation
....
begin
frmSplash := TfrmSplash.Create(Application);
frmSplash.Show;
for k := 0 to 14 do
begin
frmSplash.progFeedBack.StepBy(k);
frmSplash.Update;
sleep(30);
end;
.......
............
end.
******************************
have a nice day...& thnx
scuze din nou de deranj....:(
o mika intrebare...
1.)
am folosit in form un groupbox [mai mult pt aspect...]
si am vrut sa pun peste zona lui un label cu text...orice am bifat,
[inclusiv schimbat culoare label] , nu mi-l arata, mi-l ascunde in spate...
[ stii vreo solutie ??? ]
2.)
asa ca am trecut la altceva, in loc de label am folosit editbox si e ok...il arata...
dar...niste chestii minore...am vrut sa pun enabled=false....
sa nu ma lase deloc sa selectez textul din el...si .....culoarea textului....stii probabil si tu....
ca...... SE SCHIMBA !!!!! :( asta e o alta intrebare:
stii cumva daca se poate seta culoarea textului din editbox [la black, de exemplu], cand proprietatea enabled=false ???
de precizat ca prop "read only=true"......nu ma prea incanta...... fiindca se poate selecta textul...
numa' bine....
CeanyB a scris:mersi mult....!!!!!! MERGEEE !!! {culmea e ca si eu am incercat ceva cu position, dar nu exact ca tine, si nu l-am pus acolo}am gasit un exemplu intr-un proiect......
dar dupa cum vezi, pura OOP, declarare de clase??!!??!! [TfrmSplash = class(TForm)],
unituri separate....si alte complicatii, prea mult pt mine, momentan...
faza nasoala e ca noi in liceu nu am prea facut decat O ORA de OOP in Pascal...
de asta nu sunt deocamdata obisnuit...
*******************************
unit splash;
type
TfrmSplash = class(TForm)
imgSplash: TImage;
progFeedBack: TProgressBar;
******************************
var
frmSplash: TfrmSplash;
******************************
*****************************
uses Splash in 'splash.pas' {frmSplash};
.....
implementation
....
begin
frmSplash := TfrmSplash.Create(Application);
frmSplash.Show;
for k := 0 to 14 do
begin
frmSplash.progFeedBack.StepBy(k);
frmSplash.Update;
sleep(30);
end;
.......
............
end.
******************************
have a nice day...& thnx
nu inteleg cu ce sa te ajut aici
CeanyB a scris:scuze din nou de deranj....
o mika intrebare...
1.)
am folosit in form un groupbox [mai mult pt aspect...]
si am vrut sa pun peste zona lui un label cu text...orice am bifat,
[inclusiv schimbat culoare label] , nu mi-l arata, mi-l ascunde in spate...
[ stii vreo solutie ??? ]
2.)
asa ca am trecut la altceva, in loc de label am folosit editbox si e ok...il arata...
dar...niste chestii minore...am vrut sa pun enabled=false....
sa nu ma lase deloc sa selectez textul din el...si .....culoarea textului....stii probabil si tu....
ca...... SE SCHIMBA !!!!!
asta e o alta intrebare:
stii cumva daca se poate seta culoarea textului din editbox [la black, de exemplu], cand proprietatea enabled=false ???
de precizat ca prop "read only=true"......nu ma prea incanta...... fiindca se poate selecta textul...
numa' bine....
1) citeste aici ce inseamna parent - http://delphi.about.com/od/objectpascalide/l/aa031301a.htm
2) cand e enable=false eu am schimbat culoarea cu edit1.Color:=clAqua;(asta se ruleaza la apasarea unui button).
si cand un editbox e in stare de enabled false, nu poti selecta textul din el, cel putin eu nu am reusit.
ma inclin,
sal....am rez cu alea...
la calcul de siruri...insa....ceva neprevazut....
1) nu gasesc nici o procedura sa afisez un nr real....sub forma de text, adica string....
floattostr cred ca ar fi raspunsul ??? oare ??? , dar imi afiseaza tot un nr intreg, probabil trebuie "umblat" la nr de zecimale afisate, sau...in fine...nu stiu....
2) cum se pot genera random litere ?
3) se pot genera random cifre dintr-un interval....? .....
deocamdata atat.....daca binevoiesti sa ma ajuti cu niste raspunsuri/indicatii
o zi buna...