[syntax=delphi]Label1.Tag:=0; Label1.Caption:='00:00:00'; Timer.Interval:=1000; // można w inspektorze Timer.enabled:=true;[/syntax] OnTimer: [syntax=delphi]Label1.Tag:=Label1.Tag+1; Label1.Caption:=FormatTime('hh:nn:ss',La...
Przeanalizuj ten fragment (2 arkusze) tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption = wynik Else Label1.Caption = "Nie znaleziono."...
procedure TForm1.Button1Click(Sender: TObject); var ciag: string; I: integer; begin ciag := Edit1.Text; //Pobranie tekstu z pola edycyjnego Label1.caption := ''; //Czyszczenie labela For I := length(ciag) downto 1 do //Od długości tekstu w dół do 1 znaku Label1.Caption := Label1.Caption + ciag[I];...
Zastanow sie co robisz.. Sumujesz wartosc INT z Label1.Caption "X" i wartosc INT z Edit3.Text "Y" (oczywiscie obydwie po przekonwertowaniu ze String na Integer) Teraz aby wykonalo sie zdzrzenie przed ELSE to ta powyzsza suma "Z" musi sie rownac 0, bedzie rowna gdy: X+Y = 0 <=> (X=0 i Y=0) lub (X=-Y i Y=Y) lub (X=X i Y=-X) W przeciwnym wypadku...
Z astanawiam się, czemu Builder wyrzuca mi okienko a nie zmienia Caption w Label1. [syntax=cpp]int z=10, y=0; try { int i=z/y; } catch(String W) { Label1->Caption=W; }[/syntax]
[syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; begin if ZLIOStarted then Label1.Caption := 'Sterownik załadowany poprawnie.' else Label1.Caption := 'Nie można załadować sterownika.'; SleepTime:=500; portwriteb($378,$1); Sleep(SleepTime); portwriteb($378,$2); Sleep(SleepTime); portwriteb($378,$4); Sleep(SleepTime);...
samsung- a nie powinno być przypadkiem tak: Label1->Caption="nacisnieto OK"; ?
[syntax=delphi] if Label1.Caption='/' then if a<>0 then wynik:=(b/a); else showmessage ('pamiętaj cholero, nie dzili się przez 0 ;)'); [/syntax]
Zdaje się, że wystarczy porównać wartość w label'u z kolumną N. Nie są jasno określone granice, więc kombinuj ze znakiem porównania tak, żeby Ci pasowało. Np gdzie zaliczyć 0,1? Mieści się w Z3 (do) oraz w Z4 (od). Zwykle linia należy do pola, czyli powinno być <= [syntax=vb]Private Sub CommandButton1_Click() Label1.Caption = TextBox1.Value * Label3.Caption...
Jezeli nie zmienilesnazw formatek to pierwsza nazywa sie Form1 a druga Form2. Wiec wpisz w funkcji przycisku na formatce pierwszej Form2.label1.caption = "BlaBla" pozdro
Kiedyś sprawdzało się tak : [syntax=delphi] uses Windows, SysUtils; [...] var ID: LangID; Language: array [0..100] of char; begin ID := GetSystemDefaultLangID; VerLanguageName(ID, Language, 100); Label1.Caption := String(Language); end;[/syntax] Sprawdź, czy to jeszcze działa.
Trzeba #include <math.hpp> żeby poszło RoundTo(); (też troche nad tym spedziłem zani doszłem :) ) Jeszcze jest jedna metoda do formatowania (o ile pamietam) AnsiString A; A.printf("",);//tutaj normalnie formatujesz liczbe jak w printf Label1->Caption=A;
float x = 2.6543210; String tekst = FloatToStrF(x, ffNumber, 7, 2); Label1->Caption = "Wynik = " + tekst; Przy okazji, Refresh jest bezużyteczny chyba, że dalej w kodzie masz zdarzenie OnPaint.
nie mam jak sprawdzic tego programu, ale hm, moze sprobuj najpierw wyswietlic na labelce co ci przychodzi z portu: Label1->Caption = RS_buf; nie wiem, czemu uzywasz atoi skoro RS_buf jest typu liczbowego (BYTE), chyba, ze ma byc stringiem :P
Witam Pewnie kompilator pluje się że nie zostały one zadeklarowane. Aby temu zaradzić linia kodu zamiast np. label1.caption:='Coś'; powinna wyglądać tak: form1.label1.caption:='Coś'; Powinno to pomóc. PS. form1 to nazwa formatki na której umieszczony jest dany komponent. W procedurach/funkcjach których nagłówki są zadeklarowane w klasie formatki, zmienne/komponenty...
Np. w taki sposób : var tb1[1..100] of string; [...] begin randomize; Label1.Caption:=tb1[random(9... end; W takim przypadku nie ma znaczenie czy zainicjujesz wartości w tej tablicy. Jeżeli nie, to po prostu nic się nie wyświetli.
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
Pozostaje też jeszcze zabawa aby tak ustawić właściwości pola, żeby nie wyróżniało się ono w tekście Jeżeli chcesz tylko wyświetlać tekst, a użytkownik nie musi nic w pole wpisywać - to użyj Label zamiast TextBoxa. Wtedy zamiast do pola TEXT odwołujesz się do CAPTION, np. Label1.Caption = "test". A jeżeli koniecznie chcesz mieć niewyróżniającego się...
int liczba=StrToInt(Edit1->Text); char bufor_dwojek[10]; char bufor_osemek[10]; char bufor_szesnastek[10]; itoa(liczba,bufor_dwojek,2); itoa(liczba,bufor_osemek,8); itoa(liczba,bufor_szesnastek,16)... Label1->Caption="0x"+UpperC... Label2->Caption="0x"+UpperC...
Twoja liczba musi być 64 bitowa. Taka liczba nie może być użyta w "for", ale w "while" oczywiście może być, np.: procedure TForm1.Button1Click(Sender: TObject); var i: Int64; begin i:= 1; while i< 9999999999999999 do begin Label1.Caption:= FormatFloat(',#0', i); if i mod 100= 0 then Application.ProcessMessages; i:=...
Zapis danych do pliku tekstowego można realizować przez FileSystemObject, jak w przykładzie. Przykładowo wpisałem dwie linie tekstu z wartościami pobranymi z textboxa i labela. [syntax=vb] Sub Pisz_plik() Set oFS = CreateObject("Scripting.FileSystemObject... Set oFSFile = oFS.CreateTextFile("...ścieżka pliku txt", True) With oFSFile .WriteLine Userform1.TextBox1.Value...
bo to wszystko jest źle ;] sprawdź tak: [syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); var dane:string; begin dane := inputbox('okno wprowadzania danych','Podaj imie',''); if Length(dane) <> 0 then Label1.Caption:='Witaj '+dane; end; [/syntax] chyba o coś takiego chodziło ? podstawowy błąd to to, że w if niema żadnego warunku,...
Po co pobierasz X i Y myszy z Mouse jak masz jak na tacy podane X i Y poprzez argumenty zdarzenia MouseMove ? Zobacz: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X , Y : Integer); Wystarczy teraz wykonać: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption:=IntToStr(X);...
No własnie, nie ma sensu komplikować ;) procedure TForm1.MaskEdit1Exit(Sender: TObject); var wynik : string; begin Wynik:=StringReplace(' ','',(Sender as TMaskedit).text,[rfReplaceAll ... (Sender as TMaskedit).text:=wynik; //Label1.caption:=wynik; - zmienna wynik przechowuje adres IP w rozsądnym...
Więc przerób na przyszłość na: [syntax=delphi]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Date1,Date2,Row,Str:string; begin ComPort.ReadStr(Str,Count); Memo.Lines.Add(Str); while Length(Str)>0 do begin Row:=Parse(Str,#13); Label1.Caption:='wynik odczytu Date1= '+Copy(Row,1,1);//początek danych Label2.Caption:='wynik odczytu...
kolego no ale gdzie dodałeś? ;) .... ..... form4.Edit8.text := sList.Strings zobacz najpierw próbujesz odczytać coś ze stringlisty i to normalne że wywali się błąd index out of bound bo nie ma do niej nic wczytane najpierw wczytaj zawartość pliku do stringlisty sList.LoadFromFile(NazwaPliku); {dodałem} a potem odczytuj z niej poszczególne stringi form3.label1.caption...
Witam Mam pytanie , jakie są metody sortowania w delphi pisze program i nie wiem czym posortować wpisy w editach chodzi o to ze mam edity w których będą drużyny i labele w których są punkty , czym posortować to od największej liczby punktów ? punkty nie koniecznie muszą być w labelach , mogą być również w editach tylko problem jak i w jakim komponencie...
Czemu po prostu tekstu nie zmienisz? Label1.Caption = "aa" A jak bardzo chcesz ukrywać, to masz własność Visible
Jeśli chcesz to wyświetlić w postaci komponentu Label to prosze oto gotowa procedura: void __fastcall TForm1::Button1Click(TObject *Sender) { unsigned char InputData[512]; unsigned char b; int i,j; Label1->Caption = ""; for (i=0; i<512/16; i++) { Label1->Caption = Label1->Caption + IntToHex(i*16,4)...
label1.caption := ExtractFilePath(plik)
[syntax=delphi]var Value:Extended; var Str:String; Str:='12.34'; Value:=StrToFloatDef(StringReplace(Str,'... if IsNAN(Value) then Label1.Caption:='Nie udało się' else Label1.Caption:='Ok';[/syntax]
Witam. Musze zrobic kalkulator w programie delphi 7.Nie wiem czemu oczywiscie wykrywa błąd w if. Button z wynikiem chce zeby dzialal tak , ze jak nacisne +,-,*,/ to w label1 zapisuje wartosci 1,2,3,4. I gdy naciskam button z '=' to kod jest taki if Label1.Caption:='1' then Edit1.Text:=FloatToStr(StrToFloat(Label2... + StrToFloat(Label3.Caption));...
A zamiast: [syntax=delphi] OknoSterowania.Label1.Caption := [/syntax] Zrobił byś: [syntax=delphi] TOknoSterowania.Label1.Caption := [/syntax] To co się dzieje?
Chciałbym żeby w Label1 lub Panel1 wyświetlały się kolejne kroki wykonywanego programu. Fragment kodu: (Zapalanie diod przez LPT) void __fastcall TForm1::Button1Click(TObject *Sender) { // RESETOWANIE PORTU Label1->Caption = "RESETOWANIE PORTU"; OutPort .... //ZAPALANIE DIOD Label1->Caption = "Zapalenie diody 1"; OutPort ..... Label1->Caption = "Zapalenie...
Nie pomogło. [syntax=vb]Private Sub Form_Activate() Label1.Caption = "1" End Sub Private Sub Form_Deactivate() Label1.Caption = "0" End Sub[/syntax] Cały czas napis przedstawia 1
Oj tam:). Zależy jaki masz ten program :) bo jeśli on się składa z paru buttonów i kilku labeli to wystarczy zrobić sobie procedure typu zniana captiona. procedure english; begin Button1.Caption:= 'Search'; Button2.Caption:= 'Picture'; Label1.Caption:= 'Name'; end; procedure polski; begin Button1.Caption:= 'Szukaj'; Button2.Caption:=...
a żeby zmienić zawartość labelki piszesz label1.caption:='tekst'; jesli chcesz w label wpisać liczbę musisz użyć IntToStr albo FloatToStr label1.caption:=IntToStr(liczba&...
Witam i bardzo dziękuje za pomoc!!! Sporo zajmuje się projektowaniem ukladów elektronicznych, bardziej TV bo jestem technikiem tv i pracuje w TV Ale oczywiście jeśli bedę mógł pomóc to mój e-mail romantv(at)promax.media.pl Jeszcze raz bardzo dziekuje i jeśli to możliwe podaj swój e-mail. Pozdrawiam. Dodano po 3 mam jeszcze jedno pytanko :) Private Sub...
var Form1: TForm1; i:integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin i:=1; label1.Caption:='1'; timer1.Interval:=50; end; procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var msg:tmessage;...
unsigned char znak; plik.get(znak); int numer=char (znak); Label1->Caption=numer; nie chodzi, tzn w labelu wyswietla 0. ale char znak; plik.get(znak); int numer=char (znak); if (numer<0) numer+=256; Label1->Caption=numer; dziala ok... zastanawia mnie ten ujemny wynik...
A zamiast delaj można sleep(200). Mnie chodzi o wyświetlenie za każdą petlą w label wyniku X. I wiem że trzeba zamienic liczbę na łancuch. Np; repeat sleep(200); Label1.Caption:=FloatToStr(Z) Label1.Caption:=IntToStr(Z) until
Kod dostosowany, przerobiony, działa. Cud miód. Jeden mały acz irytujący szkopuł. Przy przeglądaniu kolumny z nazwiskiem liczącej 5000 rekordów czas jest szalenie długi głównie przy wpisywaniu nazwiska. Wpisując np Kowalska potrzebujemy ok 4sec żeby nazwisko pojawiło się w textboxie. Jakiś kolejny genialny pomysł? To już kwestia do optymalizacji -...
Odpowiedź na drugie pytanko: int i=0; do { i++ ; Sleep(1000); Edit1->Text=i; Edit1->Refresh(); Label1->Caption=i; Label1->Refresh(); } while(i<10);
Option Explicit ' clsComReader ' ' 1. instantiate ' 2. set timer & (optional) Interval ' 3. set comm (that will start the first measurement) ' ' 4. handle GotData or read Measurement & MeasurementTime ' ' does one measurement only when interval not set or set to 0 ' you can force next measurement calling RequestMeasurement '...
Witam. Jak napisał poprzednik takie opóźnienie nie jest wskazane. A jeżeli koniecznie potrzebujesz poniżej masz opdowiednik Pascal'owskiego DELAY. Deklarujemy funkcję Sleep: Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Natomiast w kodzie programu piszemy (musisz mieć labla na formie): Label1.Caption = "Demo...
Witam, Mam problem z przerobieniem makra do sprawdzania peselu na generator. Szukam chociaż naprowadzenia jak to zacząć. [syntax=vbscript]Private Sub CommandButton1_Click() Unload Me End Sub Private Sub sprawdzaj_pesel_Click() pesel = TextBox1.Text imie = TextBox2.Text nazwisko = TextBox3.Text rok = Val(Mid(pesel, 1, 2)) suma = 0 For i = 1 To 10 cyfra...
Nieco inny kod, bardziej stabilny. Aczkolwiej bez prawidłowo działającej funkcji start/stop. Tj. po zatrzymaniu i ponownym wystartowaniu licznik zeruje się ... Dodano po 3 ?
Otóż zrobiłem sobie program wzorując się na innych podobnych test w delphi i mam taki drobny problem bo nie za bardzo wiem jak dodać do niego podliczanie punktów. Mam taki pomysł żeby za dobra odpowiedź przyjmowało wartość 1 a za złą 0 i na koniec sumowało i pokazywało wynik o to kod programu: unit Unit1; interface uses Windows, Messages, SysUtils,...
A nie lepiej po prostu poczytać jakiś kurs, jakich multum w necie? [syntax=delphi]Label1.Caption := '2 + 3 = '+IntToStr(2+3);[/syntax]
A funkcja przełączania półkroku? Dodano po 2 [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; var Steps :dword ; var s :dword ; begin if ZLIOStarted then Label1.Caption := 'OK.' else Label1.Caption := 'BŁĄD.'; SleepTime:=StrToIntDef(Edit1.Text,1000); Steps:=StrToIntDef(Edit2.Text,1); for s:=0 to Steps do begin portwriteb($378,$1);...
ekspres krups evidence atmel studio programator naprawa moduł sterować pralka amica
blaupunkt limited bialoruśka wymiana pompy
Vaillant VUW OST 260 XE/VCK TR 260XE – iskra, brak zapłonu, elektrody, zawór gazowy, zamienniki Tryb serwisowy w radiotelefonie TYT UV98 - jak wejść?
