Ĺadny brzuch
Kto wie jak napisać program w c++ builder ZEGAR... Muszę napisać program w c++ builder personal zegar. Kto wie skąs mogę ściągnać gotowy program, lub opis jak go zrobić ???? Będe na prawdę wdzięczny!!!!!!!!!!
UWAGA: TEN ZEGAR MUSI BYĆ ZE WSKAZÓWKAMI !!!! ;( KTO JEST TAKI DOBRY Z TEGO????
Użytkownik informatykpl edytował ten post 19 kwiecień 2005, 21:47
wiele razy poruszana była już ta tematyka, ale w związku z Delphi. Jako, że BCB zbliżone jest do Delphi to z przerobieniem kodu nie powinno być problemu :) try -> Caption = TimeToStr(Time); ;)
wiele razy poruszana była już ta tematyka, ale w związku z Delphi. Jako, że BCB zbliżone jest do Delphi to z przerobieniem kodu nie powinno być problemu :) try -> Caption = TimeToStr(Time); ;)
Nie wiem jaki poziom reprezentujesz ale podpowiem ci że trzeba tu korzystać za opcji Canvas->LineTo() i
Canvas->MoveTo()
Oraz przyda się troche znajomości geometrii + trygonomertii.
Ale najlepszy efekt uzyskasz stosując dodadkowo podwójne buforowanie.
Było o tym w którymś z ekspertów:)
Miał być ZE wskazówkami, nie cyframi. A co do programu, to mogę napisać, ale dopiero na piątek... na pewno o tym napiszę.
Może to będzie Ci pomocne:[ale to jest coś ala-stoper]
http://kni.kul.lubli...yn/builder5.pdf
Postaw na Form Image i Timer i podopisuj takie coś:
#include <math.h> //........ #define tc Image1->Canvas #define tmx Image1->Width #define tmy Image1->Height #define txname "ZEGAR" //.......... void __fastcall TForm1::Timer1Timer(TObject *Sender) { double xts=(M_PI/30)*int((double)Time()*60*24*60)+M_PI; double xtm=(M_PI/30)*(double)Time()*60*24+M_PI; double xth=(M_PI*4)*(double)Time()+M_PI; Form1->Caption=Time(); tc->Pen->Width=5; tc->Pen->Color=(TColor)0; tc->Ellipse(2,2,tmx-2,tmy-2); tc->Pen->Width=10; tc->Ellipse(tmx/2-3,tmy/2-3,tmx/2+3,tmy/2+3); tc->Font->Color=(TColor)0xdd0000; tc->Font->Name="ShotgunBlanks BT"; tc->Font->Size=(Image1->Width*Image1->Height)/8000; tc->TextOutA((tmx-tc->TextWidth(txname))/2,tmy/1.5,txname); tc->Pen->Width=1; tc->MoveTo(tmx/2+sin(-xts)*(tmx/2-10),tmy/2+cos(-xts)*(tmy/2-10) ); tc->LineTo(tmx/2,tmy/2); tc->Pen->Width=10; tc->LineTo(tmx/2+sin(-xtm)*(tmx/2.2),tmy/2+cos(-xtm)*(tmy/2.2) ); tc->MoveTo(tmx/2,tmy/2); tc->LineTo(tmx/2+sin(-xth)*(tmx/4),tmy/2+cos(-xth)*(tmy/4)) ; }
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
UWAGA: TEN ZEGAR MUSI BYĆ ZE WSKAZÓWKAMI !!!! ;( KTO JEST TAKI DOBRY Z TEGO????
Użytkownik informatykpl edytował ten post 19 kwiecień 2005, 21:47
wiele razy poruszana była już ta tematyka, ale w związku z Delphi. Jako, że BCB zbliżone jest do Delphi to z przerobieniem kodu nie powinno być problemu :) try -> Caption = TimeToStr(Time); ;)
wiele razy poruszana była już ta tematyka, ale w związku z Delphi. Jako, że BCB zbliżone jest do Delphi to z przerobieniem kodu nie powinno być problemu :) try -> Caption = TimeToStr(Time); ;)
Nie wiem jaki poziom reprezentujesz ale podpowiem ci że trzeba tu korzystać za opcji Canvas->LineTo() i
Canvas->MoveTo()
Oraz przyda się troche znajomości geometrii + trygonomertii.
Ale najlepszy efekt uzyskasz stosując dodadkowo podwójne buforowanie.
Było o tym w którymś z ekspertów:)
Miał być ZE wskazówkami, nie cyframi. A co do programu, to mogę napisać, ale dopiero na piątek... na pewno o tym napiszę.
Może to będzie Ci pomocne:[ale to jest coś ala-stoper]
http://kni.kul.lubli...yn/builder5.pdf
Postaw na Form Image i Timer i podopisuj takie coś:
#include <math.h> //........ #define tc Image1->Canvas #define tmx Image1->Width #define tmy Image1->Height #define txname "ZEGAR" //.......... void __fastcall TForm1::Timer1Timer(TObject *Sender) { double xts=(M_PI/30)*int((double)Time()*60*24*60)+M_PI; double xtm=(M_PI/30)*(double)Time()*60*24+M_PI; double xth=(M_PI*4)*(double)Time()+M_PI; Form1->Caption=Time(); tc->Pen->Width=5; tc->Pen->Color=(TColor)0; tc->Ellipse(2,2,tmx-2,tmy-2); tc->Pen->Width=10; tc->Ellipse(tmx/2-3,tmy/2-3,tmx/2+3,tmy/2+3); tc->Font->Color=(TColor)0xdd0000; tc->Font->Name="ShotgunBlanks BT"; tc->Font->Size=(Image1->Width*Image1->Height)/8000; tc->TextOutA((tmx-tc->TextWidth(txname))/2,tmy/1.5,txname); tc->Pen->Width=1; tc->MoveTo(tmx/2+sin(-xts)*(tmx/2-10),tmy/2+cos(-xts)*(tmy/2-10) ); tc->LineTo(tmx/2,tmy/2); tc->Pen->Width=10; tc->LineTo(tmx/2+sin(-xtm)*(tmx/2.2),tmy/2+cos(-xtm)*(tmy/2.2) ); tc->MoveTo(tmx/2,tmy/2); tc->LineTo(tmx/2+sin(-xth)*(tmx/4),tmy/2+cos(-xth)*(tmy/4)) ; }