label1 caption

Jak liczyć sekundy i minuty od zera w Delphi7 za pomocą Timera?

[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...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

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."...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Zadanko w Delphi. Zwracanie łańcucha znaków wspak.

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];...

Jak zapamiętać wynik i dodawać kolejne wartości w Delphi?

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...

Komendy delphi do sterownia silnika krokowego przez lpt

[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);...

Obsługa prostego zdarzenia onClick w C++ Builderze

samsung- a nie powinno być przypadkiem tak: Label1->Caption="nacisnieto OK"; ?

Jak obsłużyć dzielenie przez zero w kalkulatorze Delphi?

[syntax=delphi] if Label1.Caption='/' then if a<>0 then wynik:=(b/a); else showmessage ('pamiętaj cholero, nie dzili się przez 0 ;)'); [/syntax]

Ex VBA - Sprawdzanie wartości w zależności od danego zakresu liczbowego

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...

Visual Basic - przełączanie właściwości elementów

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

Jak zaokrąglić zmienną float do 1 miejsca po przecinku w C++ Builder?

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;

[delphi] Jak sprawdzić wersję językową windows ?

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.

Jak zmienić parametry komponentów w procedurze w Delphi 7 Enterprise?

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...

Builder C++ + RS232 - przeróbka programu z konsoli na okienk

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

Borland C++ 6.0]Zaokrąglanie liczby do 2miejsca po przecinku

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.

[Delphi] Jak poprawnie wywołać rekord z tablicy w DLL w Delphi?

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.

Word dokument - wyświetlić w nim wartość zmiennej z makra

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ę...

[DELPHI] - Wygenerowanie 16bitowej liczby w pamięci

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:=...

Borland c++ Builder 6.0 konwertowanie liczb na system 2,8,16

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...

Jak eksportować dane z Label lub TextBox do pliku txt w Visual Basic?

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...

Delphi 5: Błąd przy użyciu funkcji InputBox w procedurze Button1Click

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,...

[DELPHI] pozycja piksla Timage odczytywana za pomoca myszki

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);...

[DELPHI] Jak stworzyć właściwą maskę wprowadzania adresu IP

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...

[delphi] Sortowanie labeli , listbox'a lub stringgrid'a

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...

Delphi - jak wyświetlić ścieżkę pliku graficznego w Label?

label1.caption := ExtractFilePath(plik)

Delphi 6 zapis i odczyt danych z pliku – przykład zapisu dwóch zmiennych

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...

C++Builder 5: Jak wyświetlić dane binarne z pliku *.bin w formacie HEX?

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)...

Jak pokazać caption labeli nachodzących się na siebie

Czemu po prostu tekstu nie zmienisz? Label1.Caption = "aa" A jak bardzo chcesz ukrywać, to masz własność Visible

Komunikacja USB/RS-232 między Delphi 7 a Arduino - jak to zrobić?

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...

ATMEGA32 i DELPHI 7 - Błąd EConvertError przy konwersji String na Float

[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]

Delphi 7: Błąd w instrukcji if przy tworzeniu kalkulatora

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));...

Jak wyświetlać kolejne kroki programu w Label1/Panel1 w C++ Builder?

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...

Visual Basic 6.0 - jak użyć GetFocus do sprawdzenia aktywności okna Form?

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

Gdzie umieścić ten kod? Dodawanie wartości w labelach?

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&...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

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

[Delphi] Jak przełączać języki w aplikacji za pomocą przycisku?

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:=...

Dlaczego polskie znaki w C++ Builder zwracają ujemne wartości ASCII?

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...

Jak napisać pętlę w Delphi, która działa do momentu puszczenia przycisku?

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;...

VisualBasic6 - Jak przypisać akcję do klawisza, np. a?

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...

C++ Builder 6 - Automatyczne klikanie i aktualizacja co 1 sek.

Odpowiedź na drugie pytanko: int i=0; do { i++ ; Sleep(1000); Edit1->Text=i; Edit1->Refresh(); Label1->Caption=i; Label1->Refresh(); } while(i<10);

C++ Builder - Obsługa wyjątków przy dzieleniu przez zero w Label1

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]

Jak w Visual Basic 6.0 wprowadzić opóźnienie podobne do wait(czas)?

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...

Przeróbka makra do sprawdzania PESEL na generator w Visual Basic

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...

Delphi - Jak wyświetlić wyniki obliczeń w labelach na TForm?

A nie lepiej po prostu poczytać jakiś kurs, jakich multum w necie? [syntax=delphi]Label1.Caption := '2 + 3 = '+IntToStr(2+3);[/syntax]

VBA - stoper - Niestabilne działanie. Olbrzymia zasobożerność.

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 ?

Jak wyszukiwać nazwiska w UserForm z obsługą duplikatów i przyciskiem Next?

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 -...

Jak podłączyć przycisk do portu COM w Delphi z komponentem CPort?

Faktycznie można to zrobić bez dodatkowych układów. Dla testów zrobiłem coś takiego: http://obrazki.elektroda.net/32_12336496... Programik testowy też jest bardzo prosty: procedure TForm1.FormCreate(Sender: TObject); begin ComPort1.Open; ComPort1.SetRTS(True); end; procedure TForm1.ComPort1DSRChange(Sender: TObject; OnOff:...

[Delphi] Jak dodać podliczanie punktów w teście w Delphi?

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,...

Zawieszanie programu przy usuwaniu wątku w C++ Builder 6

Program mi się zawiesza kiedy zrobie tak: watek *analizator; void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { delete analizator; } watek jest stworzony przez New->Thread Object czyli mam go w osobnym pliku. Wygląda tak: void __fastcall watek::UpdateCaption() { if (z==1)...

Jak dodać funkcje do przycisków w Delphi 7 dla sterowania silnikiem krokowym?

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);...

Delphi 6 – dlaczego warunek if w procedurze Button1Click nie działa poprawnie?

Nie używałem tego od lat, ale na pierwszy rzut oka dla mnie ten fragment jest bez sensu: if edit1.Visible= false then edit1.Visible:= true; edit2.Visible:= true; label2.Visible:= true; label3.Visible:= true; label1.Caption :='0' begin else if edit1.Visible:= true else a:=label2.Caption + label3.Caption end; end. Nie wiem dokładnie, o co tu chodzi, ale...

[delphi] ShowMessage - jakie możliwości ma funkcja?

Witam Wystarczy że dodasz nową formatkę do projektu i na niej umieścisz to co chcesz. Przed wywołaniem tej formatki możesz ustawić kolor, styl komunikatu i pokazać formatkę. Np. Form2.label1.caption:='Przykladowy text'; {tutaj ustawisz inne właściwości label1} form2.showmodal;

[Visual Basic] Jak umieścić na formularzu tabelkę.

Dzięki za odpowiedź. Rzeczywiście działa. W sieci szukałem nie pod tym hasłem co trzeba. Dodatkowo dodam że dane z tabeli wyładowujemy podobnie tzn. najpierw ustawiamy rząd i kolumnę a potem przekierowujemy np. tak: label1.caption=msflexgrid1.text Jeszcze raz dzięki za pomoc.

Jak sprawdzić, czy rok jest przestępny w Builder C++?

int ile_lat,year; ile_lat=year=0; for (year=1; year<=2006; year++ ) if ( IsLeapYear(year)==true ) //jesli rok przestepny ile_lat++; //zwieksz zmienna ile_lat o 1 dalej np. Label1->Caption=IntToStr(ile_lat);

[delphi] [Delphi] Czcionka Label1 zmienia rozmiar i błąd canvas does not allow drawing

Witam, uzylem podstawienia label1.caption:=inttostr(progressbar1.po... wszystko działa dobrze tylko czasami czcionka labela zmiania sie na wieksza i tak jakby wychodzi poza forme i pojawia sie blad "canvas does not allow drawing". Jak mozna temu zaradzic?

Jak przekazać i modyfikować zmienną `s` między Form4 a Form5 w Delphi?

ale jak wziąść z labela wartosc zeby mozna nią dalej operowac (tj. dodawac do niej kolejne liczby)? Bo w labelu zapisujemy chyba tylko tekst jak sie nie mylę. strtoint(label1)? cos takiego??? w labelu siedzi string jak chcesz go wyciągnąć i zamienić na liczbę to konwertujesz go w ten sposób: var i: integer; begin i:= StrToInt(Label1.Caption);...

Delphi - Jak odczytać pozycję kursora, gdy aplikacja jest zminimalizowana?

Poszukaj w helpie przykłądu użycia polecenia GetCursorPos(). Tu jest przykład z Buidera C++, w Delphi będzie podobnie a nawet prościej :) POINT pos; GetCursorPos(&pos); Label1->Caption=pos.x; Label2->Caption=pos.y;

Delphi 7 - Jak przerwać pętlę while przyciskiem stop?

A czy mógłbyś mi jeszcze podpowiedzieć jak używa się Synchronize? Próbowałem na kilka sposobów, ale niestety nie udało mi się tego poprawnie napisać. Czy w przypadku Labelów też się to stosuje? Jeśli tak, to chciałbym to zastosować np. do takiej linii: [syntax=delphi]Form1.Label1.Caption:=For...

[delphi] Jak sprawdzić modyfikację zmiennej string w Delphi?

Witam W programie do zmiennych przypisuje zawartość z label. s:string; s:=label1.caption; Załózmy, że na początku zawartość label to - poznan12 po kliknięciu w button label zmienia się na - poznan34 Czy można sprawdzić czy string uległ modyfikacji ??

RS-232 w C: Jak odczytać rejestry portu COM?

Witam, skorzystaj z eventu OnRxChar np. tak: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var tmpstr: string; begin ComPort1.ReadStr(tmpstr,Count); Label1.Caption := tmpstr; end; Pozdrawiam

Jak zmierzyć czas wykonania procedury w C++ i wyświetlić wynik?

Na początku wykonywanej procedury dajesz float Start = GetTickCount(); a na końcu float End = GetTickCount(); a to wyświetli czas w Label1 Label1->Caption = FloatToStr((End - Start) / 1000) + " s."; Ten kod pokaże Ci czas z dokładnością co do 0,001 sekundy

Jak ustawić wartość textboxa, aby wpisać konkretne liczby? VBA i stawka VAT.

Coś w tym rodzaju Definiujesz sobie w UserFormie kontrolkę ListBox1. [syntax=vbscript]ListaWartosci=Array ("0", "0,05", "0,08", "0,23") ListBox1.List = ListaWarosci . Dim Stawka As String Dim Kwota As Double . Private Sub ListBox1_Click() Stawka = ListBox1.Value Kwota=Val (Stawka) * Val (WartoscZTextboxa) Label1.Caption = Str (Round (Kwota, 2)) End...

Turbo Pascal – jak zmienić obsługę portu COM3 ($3E8) na COM5 ($2F0) w kodzie?

Niestety nic - program się wiesza, a modem nie reaguje. Myślałem żeby zrobić to w Delphi za pomocą modułu ZlportIO oto znaleziony w sieci program: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Zlportio; type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender:...

Delphi 7 - TFormy, Show/Hide , Kolor Tekstu w Buttonie, Show Message

A mógłbyś jakoś jaśniej co mam zrobić? Nie siedzę w tym tyle co Ty, więc nie wiem jak to zrobić dlatego pytam ;) // Dobra dajmy na to że w każdym butonie w którym jest poprawna odp wrzucę: [syntax=delphi]pkt := pkt+1 Label1.Caption :=' IntToStr(pkt);[/syntax] ale czy to dobrze?

Program w c++ B zamieniający małe litery na duże i odwrotnie

Witam jak w temacie potrzebuje napisać program w c++ Builder który po wpisaniu zdania zamieni w nim małe litery na duże a duże na małe ma być on napisany jako Form tzn. (pewnie wszyscy to wiedza ale napisze dla pewności)File - > New -> Form Cześć kodu zamieniającego wielkość liter już mam tak samo jak pole do wpisania danych-zdań oraz pole gdzie wyświetla...

[delphi] [Delphi] Jak znaleźć uchwyt okna dla Opera@USB 10.15?

Szukam w necie i nie mogę znaleźć jakie jest uchwyt OperyUSB? var h:hWnd; begin h:=FindWindow('Opera(at)USB 10.15', nil); if h<>0 then begin label1.Caption:='jest opera'; end end; Pozdrawiam.

Inicjalizacja zmiennej globalnej w VB - błąd invalid outside procedure

Może należałoby wartość zmiennej przypisać w Form_Load()? Na przykład: Public i200 As Integer Private Sub Command1_Click() i200 = i200 - 1 Label1.Caption = i200 End Sub Private Sub Form_Load() i200 = 20 End Sub U mnie to działa.

Excel Vba - Combobox pobiera tylko dane z 4 komórek

Mam taki problem że Combobox pobiera dane tylko z 4 komórek, ja mam dane około 4000 komórek pomóżcie co innrgo zrobic sterowania ale to ???????? :) Private Sub ComboBox1_Change() Label1.Caption = Sheets("Arkusz1").Cells(ComboBox1.ListIn... + 2, 1) End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Click() End Sub

Delphi - Alternatywy dla timera do monitorowania zmian w pliku tekstowym

Słuchaj. przeczytam to i jutro się odezwę czy można temat zamknąć, czy nie, bądź poproszę o pomoc:) Dzięki śliczne. //edit. Mógłbyś mi pomóc to zrozumieć? Np. podając skrypt by bez timera wciskało co 2 sec klawisz ''enter'', bądź zmianę label1.caption///dodanie czegoś do memo/listboxa, czy cokolwiek. By to się po prostu działo co parę sec....

[DELPHI] Jak kopiować, wysyłać mail i usuwać pliki z Listbox?

W Listboxie mam listę ścieżek do plików *.jpg. Chciałbym, żeby po kolei, każdy plik ze ścieżki kopiowało mi do 'C:\1.jpg', następnie wysyłało na maila w załączniku, po czym usuwało plik z 'C:\1.jpg' i tak robiło kolejno z każdą linią z listboxa i żeby po ostatniej linii zakończyło czynność. [syntax=delphi]var i: Integer; begin for i:=0 to listbox1.count...

Basic4android - Automatyczne dopasowanie czcionki do przycisków i etykiet

Zrobiłem sobie taką próbę Dałem takie zdarzenie do przycisku: form1.edit1.Text:=IntToStr(canva... Sądziłem że będę otrzymywał różne wartości wielkości wraz ze zmianą wielkości czcionki dla labela1. Tak jednak nie jest. Funkcja ta zwraca zawsze tą sama liczbę niezależnie jaką czcionkę zadam.

Delphi: Błąd przy wyświetlaniu wyniku w Label z użyciem zmiennych i pi

Mam problem z wyświetleniem wyniku równania w kontrolce Label. Podaje dwie zmienne , które wpisuje w edit1 i edit2. db:=StrToInt(edit1.Text); db:=db/2*(pi)* StrToInt(edit2.Text); label1.caption:=IntToStr(db)... No i właśnie na linijce z labelem jest błąd... :(

[c++] Jak przypisać wartość z ListBox do zmiennej x w C++ Builder?

Teraz chcialbym aby pewna liczba x byla rowna temu co wyswietlam w ListBox. Jak to zrobic? void __fastcall TForm1::ListBox1Click(TObjec... *Sender) { int pewna_liczba = ListBox1->Items->Strings[ListB... Label1->Caption = IntToStr(pewna_liczba);//przepis... "pewnej_liczby"...

[Delphi] Jak zliczyć punkty w teście jednokrotnego wyboru?

Witam! Potrzebny do szkoły jest mi program który będzie krótkim testem jednokrotnego wyboru, program mam zrobiony do momentu w którym powinien wypisać wynik, i tu pojawia się mój problem jaki powinien być kod, aby program odczytał poprawne odpowiedzi i przypisał +1 punkt za odpowiedź a na koniec wyświetlił liczbę zdobytych punktów ? :) [syntax=delphi]unit...

[VB] Jak stworzyć grę wzorowaną na Familiadzie w Visual Basic na Win XP?

Popatrz na kod programu który Ci zaproponowałem... Treść Label'a jak najbardziej można zmieniać w trakcie pracy programu - wyświetlany tekst to właściwość Caption: w zdarzeniu np. onClick dla Buttona /klikasz dwa razy przycisk na formatce, sam Ci stworzy odpowiedni kod/ wstawiasz coś w w stylu: Label1.Caption = "1. WARSZAWA....30" gdzie Label1...

Jak otworzyć port RS-232 w Delphi 6 za pomocą komponentu CPort?

Witam, do odczytu z ComPort-a proponuje wykorzystać event OnRxChar lub OnRxBuf ( nie testowałem ), cos w ten deseń: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var bufor : array [0..1023] of char; begin ComPort1.Read(bufor,Count); Label1.Caption:=bufor; end; Pozdrawiam

[c++] Builder - Jak poprawnie pobrać pozycję karetki z Memo1 powyżej 3258 linii?

Mam problem z pobraniem pozycji karetki z Memo1 Pozycje karetki pobieram w następujący sposób: TPoint caret_position=Memo1->CaretPos; Label1->Caption=IntToStr(caret_po... Pozycja karetki powyżej 3258 linii źle wskazuje (przepełnia sie). Zna ktoś zna jakiś lepszy sposób pobrania pozycji karetki ?

Jak w Visual Basic mierzyć czas od 00:00:00 i wznawiać po zatrzymaniu?

Witam proszę o pomoc. Private Sub Timer2_Timer() Label1.Caption = "DVD REC " & Time End Sub Jest to fragment programu, pokazuje czas poprawnie w cześniej jest procedura która uruchamia timer po naciśnięciu przycisku. Jak mogę gokonacz mierzenia czasu od 00:00:00 jak zastopuje to ma nie liczyć go i po ponownym uruchomieniu ma kontynuować odmierzanie...

Jak obliczyć bity kontrolne XOR dla danych na ATmega128?

Wykonaj operację Xor na wszystkich znakach (ich kodach ASCII), np: procedure TForm1.Button1Click(Sender: TObject); var Suma: integer; Petla: integer; begin Suma:=0; for Petla:=1 to Length(Edit1.Text) do Suma:=Suma xor Ord(Edit1.Text[Petla]); Label1.Caption:=IntToHex(Suma,2&... end; Pozdrawiam...

Konwersja, sformatowanie danych odbieranych przez RS232.

Witam, w ten sposób ? int tabl[1000]; int dl; AnsiString pom1; pom1=Memo1->Text; dl=pom1.Length(); Label1->Caption=dl; for (int p=0; p<dl;p++) { tabl[p]=(int)Str[p&#... } No bo nijak to nie działa. Wywala zawsze błąd. Dl jest mniejsze od tysiące, nie wiem co robię nie tak. Pozdrawiam Piotrek

Poradnik jak napisać program sterujący LPT delphi

Włączanie poszczególnych Pinów LPTWitam Od jakiegoś czasu szukałem jak podać sygnał(5v) poszczególne Piny LPT np.żeby załączać diody...Aż w końcu do tego doszedłem i postaram się podzielić z wami moją wiedzą. Na początek jest nam potrzebny Adres portu.Przeczytamy go w tabeli: http://obrazki.elektroda.net/82_12664384... U mnie jest to LPT1 więc...

Delphi cport: Jak wykonać akcję po odbiorze tekstu z RS232?

Witam, ja bym to rozwiązał tak: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var D:string; begin ComPort1.Readstr(D, Count);//odczytujemy String z Portu RichEdit1.Text :=RichEdit1.Text+D; if D='Linia' then begin Label1.Caption:='Alarm'; end; Kod proszę umieszczać w znacznikach code - krzychoocpp...

[Delphi ]Jak skorzystać z DNS w pisanych programach?

function IPAddrToName(IPAddr : String): String; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr)); HostEnt:= gethostbyaddr((at)SockAddrIn.sin_addr.S_... 4, AF_INET); if HostEnt<>nil then begin result:=StrPas(Hostent^.h_name); end;end; procedure...

Delphi - ShellExecute nie uruchania pliku ze zmiennej

Wybieram plik i ścieżkę dostępu poprzez FileOpenDialog. To działa, wyświetlam ją w Label, ale tego stringa nie wiem jak przekazać do ShellExecute aby uruchomić wybrany program (lub otworzyc skojarzony plik). Gdy podam w ShellExecute ścieżkę i plik jawnie to OK, lecz jak wstawię w to miejsce zmienną to nic, chociaż w zmiennej jest cała ścieżka wraz z...

Delphi: Jak stworzyć quiz z 3 pytaniami i wyborami odpowiedzi?

Witam potrzebuję zrobić program z 3 pytaniami i 3 wyborami odpowiedzi do każdego z pytań. Wybór pytania zrealizowany ma być checkboxami (z tym że po zaznaczeniu jednej z odpowiedzi nie będzie można już zmienić wyboru,oraz kolejne pytanie ma mieć nie zaznaczone chceckboxy i ma pojawić się button "Dalej", który po naciśnięciu wyświetli kolejne pytanie.)...

Visual Basic - Excel, wklejanie text boxa do komórek

Chcę aby to co znajduje się w Label po kliknięciu Buttona znalazło się w komórce np. h14 ..jak dodać pozycję (chodzi mi o items) w ComboBox ? [syntax=vb]Private Sub UserForm_Initialize() ComboBox1.AddItem "Nowak" ComboBox1.AddItem "Kowalski" ComboBox1.AddItem "Jackowski" ComboBox1.AddItem "Majewski" ComboBox1.AddItem "Wojewódzki" End Sub[/syntax]

Automatyczne przejście z edit1 do edit2 w Delphi i tryb poleceń w WinXP

Nie da się tak: If Lenght(Label1.Caption) > 65 Then... Pisze mi taki błąd: Undeclared identifier: 'lenght' I jeszcze jeden problem: Jak otwieram jakiś plik z OpenDialog to w OpenDialog.FileName jest zawarta cała ścieżka wraz z nazwą pliku. Jak zrobić, żeby z OpenDialog można było odczytać samą nazwę pliku z rozszerzeniem (np. plik.txt , albo katalog\plik.txt...

[Delphi] Aktualizacja obrazka w ImageList po zmianie danych

Witam, Mam mały problem. Pisze program, w którym na podstawiem obliczonych danych ustawia mi w Image któryś z obrazków z ImageList. W ImageList mam 10 obrazków. Procedure TForm.Button1Click(Sender: TObject); (...) x:=Label1.Caption; //obliczona wartość a:=StrToInt(x[1]); //pobieram pierwszą cyfrę ImageList1.GetBitmap(a, Image1.Picture.Bitmap); Wszystko...

[DELPHI] - TFrame - dynamicznie tworzenie i przekazanie zmiennych

Mam problem gdyż na moim Form chcę wyświetlić kilkanaście ramek TFrame. Oczywiście tworze je sobie następnie chcę je wyświetlić dynamicznie oraz przekazać do nich moją zmienną ale przesyłam kod przykładowy: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Unit2; type TForm1...

Jak dodać kolejne litery w Delphi w instrukcji case?

1. Pobierasz tekst do zakodowania. 2. Kodujesz z liter na kod Morse-a, zapisując do jakiejś zmiennej tekstowej. Możesz to zrobić za pomocą CASE, tak jak w twoim pierwszym poście. Żmudna metoda, ale kod Morse-a jest jak sama nazwa wskazuje jest kodem, i nie ma możliwości matematycznego przekształcenia liter na w/w kod. 3. Wyświetlasz zmienną w jakiejś...

[Delphi] Jak odczytać wartość SQL do Labela lub Edita?

Spróbuj czegoś takiego : if IBQuery1.Active then IBQuery1.Close; IBQuery1.SQL.Clear; IBQuery1.SQL.Add('select * from users where id=10'); IBQuery1.Open; if not IBQuery1.Eof then begin label1.caption:=IBQuery1.FieldByName... label2.caption:=IBQuery1.FieldByName... label3.caption:=IBQuery1.FieldByName...

[delphi] Jak stworzyć wielojęzykowy interfejs w Delphi dla istniejącego programu?

Dżyszla ma rację. Jest wiele pakietów, nawet darmowych, które służą do robienia lokalizacji. Ja sam, kiedyś, używałem pakietu (mogę coś w nazwie przekręcić) Balm-Soft Poliglot. Sam program integruje się z IDE. Po dodaniu go do projektu, wszystkie zasoby są zapisywane do pliku, który wygląda mniej więcej tak: form1.label1.caption=napis nr 1 form1.label1.hint=jakis...

[delphi] Jak napisać warunek w Delphi do obsługi przycisku BitBtn1 i Timer1?

Przepraszam, że pomogłem. Dodano po 1 Naciśnięcie F1 lub poszukanie w Google - 10 sekund Czekanie, aż zrobi to za nas ktoś inny: 45 minut... http://4programmers.net/Delphi/StringRep... 1. to znalazłem 2. nie jestem informatykiem 3. nigdy się nie uczyłem programowania "w szkole" więc brak mi podstaw a to powoduje kłopoty ze składnią. 4. to już sobie...

VBA/EXCEL/FORMULARZ - Formatowanie pól na formularzu.

Witam, Od jakiegoś czasu pracuje nad swoim pliczkiem który ma za zadanie zebrać kilkaset danych i je przeliczyć. Teraz postanowiłem dodac do pliku formularz wpisywania tych danych. Zorganizowałem go tak, że w kolumnach mam pola textowe do wpisywania danych a podsumy robię polami typu label do których ściagam dane z arkusza kodem [syntax=vb] Label1ControlSource...

AD557JN - przetwornik cyfrowo analogowy do PC

Podobne rozwiązanie zasilacza regulowanego przez port LPT. Tym razem o większej wytrzymałości prądowej do prawie 1A. Ograniczenie prądowe jest także sterowane przez LPT sygnałem Strobe i ALF Prosty program w Visual Basic 6.0 Private Sub Command1_Click() Out &H37A, 3 End Sub Private Sub Command2_Click() Out &H37A, 2 End Sub Private Sub Command3_Click()...

Potrzebny kod zrodlowy w Dephi do wyswietlenia czasu i date!

Umieść ma formie Labela i Timera: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); private...

Delphi 3 - Jak sprawdzić istnienie pliku przed zapisem w notatniku?

Od niedawna zacząłęm programować w delphi3 (takie mam na uczelni), postanowiłem stworzyć program notatnik (nie kopie windosowskiego). Wygląd programu wymyśliłem następujący, jedno duże pole typu memo małe edit przycisk zapisz i zamknij. Program działa kiedy przycisk zamknij zaprogramuje tak, że zapisuje zawartość obiektu nemo w pliku txt o nazwie z...

Builder C++: Jak dynamicznie stworzyć ComPort w wątku?

Wątek zatrzymuje WT->Terminate(); wiem że w funkcji Execute wątku jeszcze powinno być "while(!Terminated){..... ale starałem sie uprościć program by był bardziej przejrzysty. A "delete ComPort1;" to jest błąd z mojch poprzednich prób on tu niema znaczenia bo bez niego efekt jest taki sam. Do komponentu Label1 znajdującego...

Jak odczytać dane z czujnika RS232 w VB? Konfiguracja i kod programu

Parametry portu ustawiłeś na takie jak w specyfikacji? Deklaracja zmiennej wynik powinno raczej być na samej górze. Private Sub Timer1_Timer() 'wysłanie z komputera do miernika znaku D , żądanie przesłania wyniku pomiaru MSComm1.Output = "D" End Sub Private Sub MSComm1_OnComm() 'odczyt danych z portu wynik = MSComm1.Input 'wyslanie...

Borland C++ - Jak przypisać wartości z ComboBox do Edit1, Edit2, Edit3?

Z kodu [syntax=cpp] AnsiString b = (ComboBox1->Text); const char* m = b.c_str(); int d, s, w; char nazwa[512]; sscanf(m,"%s d=%i s=%i w=%i",nazwa,&d,&s,&w); Edit17->Text=d; [/syntax] Po wybraniu z listy nazwy1, d przyjmuje wartość 1 a nie 10 Może to prymitywny sposób ale zrobiłem wykombinowałem coś takiego [syntax=cpp] String ab = ComboBox1->Items->Strings[ComboBox1->Ite...

Pascal,wyszukiwanie - Znajdź najkrótszy wyraz w tablicy

Witam. Postanowiłem napisać program na znalezienie najkrótszego hasla w tablicy: [syntax=text] Type Tablica=Array[1..8] of string ;[/syntax] Napisałem taki oto algorytm: [syntax=text]var a,b:string ; z,x,y:integer ; begin x:=30 ; b:=' ' ; for y:=1 to 8 do begin a:=tab[y] ; z:=length(a) ; if (z<x) and (z>0) then x:=z ; if length(a)<x then b:=b+a...