Czemu po prostu tekstu nie zmienisz? Label1.Caption = "aa" A jak bardzo chcesz ukrywać, to masz własność Visible
[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...
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...
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...
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: U mnie jest to LPT1 więc będę posługiwać się adresem 378. Możemy wykorzystać...
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...
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...
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.)...
Witam. Poniżej standardowa procedura do ściągania pliku, która chciałbym usprawnić, mam nadzieję że nie przestarzała, ale u mnie się na razie sprawdza. Szukam informacji na temat jak ograniczyć prędkość ściągania a konkretnie idealne było by: 1. Jak sprawdzić prędkość pobierania z danego stanowiska np. SpeedNet=?B. 2. Jak zabezpieczyć się przed zawieszeniem...
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...
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...
Układ do pomiaru charakterystyk oparty na mikrokontrolerze wykonuje pomiary i przesyła dane do Peceta. Rysowana jest charakterystyka. Po zakończeniu pomiaru muszę wyznaczyć 2 punkty (klikając w charakterystykę) i od razu dane z pierwszego punktu wrzucić po pierwszego pola edycyjnego a dane z drugiego punktu do drugiego pola edycyjnego i wykonać obliczenia...
Witajcie unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Button2: TButton; GroupBox1: TGroupBox; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; GroupBox2:...
Jest to mikroprocesorowy układ pomiarowy dla PC podłączany za pośrednictwem USB. Umożliwia pomiar napięcia w zakresie od 0-10V lub prądu np. 0-20mA. Wszystko zależy od układu wejściowego. Można równie dobrze mierzyć temperaturę, ciśnienie czy dowolną wielkość fizyczną, którą za pomocą układu wejściowego możemy zamienić na napięcie. Najważniejszym składnikiem...
Dzięki za szkic programu, miałem się na czym wzorować :) Ja to napisałem tak i nie było żadnego problemu: [syntax=delphi] unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4:...
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];...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Timer1: TTimer; procedure FormCreate(Sender: TObject) ; procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;...
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,...
Witam, Mam problem z programem a mianowicie się zawiesza na moment podczas wykonywania. Myślę, że dlatego że używam funkcji sleep dla zrealizowania opóźnień. Czym mogę to zastąpić ew. proszę podać mi "wzór”, który mogę wykorzystać? Proszę o wyrozumiałość, jeśli chodzi o kod, jest pisany w prosty sposób by tylko działał. #include <vcl.h>...
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:...
Poczytałem od podstaw elektroniki itp. Zrobiłem mini obwód czyli podłączyłem kabelek do portu LPT a dokładnie do pinu 2 (D0), następnie rezystor 700 ( będzie inny ale jes sobota i nigdzie nie dostałem innych) następnie diodę LED i kabelek do masy. Dioda świeciła, świeciła smile.gif Teraz w środowisku Delphi chciałbym sterować włączaniem i wyłączniem...
Witam ponownie. Nadszedł jednak czas żeby przedstawić dotychczasowe wyniku naszej pracy nad programem ponieważ rodzi się więcej problemów niż przypuszczałem i chyba bez zapoznania się namacalnie z przeznaczeniem programu będzie Ci coraz ciężej. W załączniku przedstawiam projekt w bardzo surowym stanie. Poniżej kod: [syntax=pascal]unit Zapytywacz; interface...
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...
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...
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)...
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...
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
Mam beznadziejnie banalne pytanie ... Jak napisać kod obliczający ASIN? Posługuję się przykładem z helpa i kompilator podaje mi błąd o niezdefiniowanej funkcji lub procedurze Private Sub Form_Load() ss = Asin(0.5) Label1.Caption = ss End Sub Powyższy kod nie działa! A już zapis: Private Sub Form_Load() ss = Sin(0.5) Label1.Caption...
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...
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&...
Faktycznie można to zrobić bez dodatkowych układów. Dla testów zrobiłem coś takiego: Programik testowy też jest bardzo prosty: procedure TForm1.FormCreate(Sender: TObject); begin ComPort1.Open; ComPort1.SetRTS(True); end; procedure TForm1.ComPort1DSRChange(Sender: TObject; OnOff: Boolean); begin Beep; case OnOff of...
W innym poście koledzy trochę mi pomogli sterowanie działa bez problemów. Dodano po 9 Możesz mi pomóc co zrobić żeby wprowadzać wartość predkości i ilości kroków ,zapisz,wczytaj,i czy da się zrobić koło sterujące o takie [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; begin if ZLIOStarted then Label1.Caption :=...
[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; var Steps :dword ; var s :dword ; begin if ZLIOStarted then Label1.Caption := 'Sterownik załadowany poprawnie.' else Label1.Caption := 'Nie można załadować sterownika.'; SleepTime:=StrToIntDef(Edit1.Text,1000); Steps:=StrToIntDef(Edit2.Text,1); for s:=0 to Steps do...
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...
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... 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 z tym poradziłem ale po za tym to nie rozumiem...
Witaj wlasnie coś testuje może taki program Ci pomoże tylko go musisz zmodyfikiwać do swoich potrzeb program wysyła kody i jest ok Ja coś testuje dla tego troche jest dziwny : o to on Dim varHex As Variant Dim licznik As Single Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "38400,O,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen = 0 MSComm1.PortOpen...
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...
czesc jak myslicie co w tym kodzie jest nie tak bo nie moge znalesc bledu. Pisalem go na podstawie innego kodu napisanego w C. Dziwne jest to, ze po przekodowaniu pierwsze dwa znaki sie zgadzaja z tym wygenerowanym przez program z sieci. Chcialem jeszcze zapytac czy dlugosc smsa powinna byc w hexie czy w systemie dziesietnym. A moze nie ma to w ogole...
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...
Witam Dostałem takie zadanie do rozwiązania i nie mam zielonego pojęcia jak to zrobić. Opracować aplikacje, która wykorzystuje komponent Memo do wprowadzania wymiarów prostokąta(długość i szerokość). Nie więcej niż 20 prostokątów. Każda linia Memo zawiera dwa wymiary jednego prostokąta rozdzielone znakiem dwukropka. Okienko główne powinno zawierać także...
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 -...
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);...
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...
cześć Próbuje zrobić programik, który wyciągnie parę danych z okien aplikacji tzn handle, class name oraz text z belki programu. Wszystko to po najechaniu myszką na jakieś okno. Mam, że po najechaniu myszką np na okno gg pojawią mi się dane w programie: procedure TForm1.ShowHwndAndClassName(CrPos... TPoint); var hWnd: THandle; aName:...
Napisałem sobie taki oto programik w delphi i nie mogę sobie poradzić ze sterowaniem długości wskazówki: var Form1: TForm1; s : Integer =1; r : Integer =65; x:real =0; y:real =0; a:integer =0; b:integer =0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('tarcza....
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));...
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)...
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
Już znalazłem i poprawiłem :D Ale nasuwa się kolejne pytanie :idea: Jak w komponencie Memo1 robić żeby najpierw załadować 1 literę a potem kolejną do bufora :?: czy jest taka możliwość :?: NP napisze patryk i chcę po kolei ładować do zmiennej char a najpierw znak a='p' następnie a='a' ... a='k' char a; for (int i = 1; i <= Memo1->Lines->Strings[0].L...
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"...
Ja mam problem innego typu. Mam urządzenie wykonawcze, program w C i wszystko działało na XP. Dziś zainstalowałem Windows 7 RC x64 i klapa. To, że nie działa to akurat mnie nie zdziwiło, bo w końcu jest to wersja 64-bitowa, a pierwotna aplikacja była pisana pod 32-bity. Program uruchamiam jako administrator i od razu wywala komunikat, że nie potrafi...
ok Zrobione void __fastcall TForm1::Button1Click(TObject *Sender) { if (Form1->RadioButton1->Checked == true) { int liczba = Edit1->Text.ToInt(); char buf[2]; itoa(liczba, buf, 2); Label1->Caption = buf; } else if (Form1->RadioButton2->Checked == true) { int...
Witam serdecznie. Korzystając z kamerki PS3Eye potrzebuje przedstawić akwizycję czarno-białego obrazu QVGA w czasie rzeczywistym . Jedyne co udało mi się stworzyć to program, który pobiera obraz z kamery, tylko i wyłącznie przy kliknięciu w zadany button. Potrzebuję zrobić to tak. aby po kliknięciu <np w przycisk start> zaczynało się wyświetlanie...
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...
Witam. I mam problem z wyznaczeniem ostatniej cyfry numeru telefonu. U mnie wyznacza cyfrę bez problemu, za to rocznikowy wiek nie wychodzi taki jak powinien. Wystarczy jednak w punkcie 4. zamiast 1764 dodać 1767 - wówczas wiek się zgadza. ;) Poniżej kod napisany na szybko w C++ Builder 6 dla aplikacji okienkowej (dla konsoli kod będzie się odrobinę...
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;
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...
Algorytm to już jest, tylko interfejs użytkownika zamienić z DOS konsola na Windows GUI. Do tego wystarczy na delphi formularzu, przez kliknięcie myszką wprowadzić dwa elementy edycyjne z palety komponentów GUI, oraz dla wyniku funkcji etykiety Label. wtedy Edit1.Text:= IntToStr(n); // readln(n) oraz n:= StrRoInt(Edit1.Text); wtedy Edit2.Text:= IntToStr(k);...
Witam, napotkałem poważny dla mnie problem ... otóż niedawno postanowiłem utworzyć własne biblioteki swoich funkcji ale w plikach dołączanych dynamicznie DLL. Jak się okazało wiele spośród moich funkcji jako parametry ale także zwracane wyniki przekazuje stringi i to długie a tu kicha - bo jak się doczytałem tak nie powinno się w DLLach robić. Jak już...
Program działa na takiej zasadzie: w polach maskedit należy wpisać liczbę godzin minut i sekund, po naciśnięciu buttona start zostaje wywołana funkcja sprawdzająca poprawność. błąd wyskakuje jeszcze przed naciśnięciem buttona zaraz po kliknięciu na inne pole maskedit. podaje prost przykładzik wystarczy wpisać liczbę godzin większa niż 23 liczbę minut...
Spisałem z internetu źródło dla programu sprawdzającego temperaturę procesora i obroty wiatraczka i niby wszystko działa ale niestety wskazuje, że temperatura i obroty wynoszą 255. Z tego co się domyślam jest zły adres portu wpisany ;/. Może ktoś powiedzieć jak mogę znaleźć adres portu na temperaturę procesora albo zna jakiś inne rozwiązane ?;/ potrzebne...
Witam, raczkuję w Delphi i nie potrafię wysłać komend do drukarki fiskalnej. Otwarłem port COM1 i kiszka. Tyle mam i co dalej, bo nic mi nie wychodzi? Proszę w wskazówki od delphi wyjadaczy. procedure TForm1.Button1Click(Sender: TObject); var hCOM:THandle; nrWrit:DWORD; nrRead:DWORD; Errors:DWORD; Dcb:TDCB; ComStat:TComStat;...
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ę...
Witam. Również napotkałem problem przy próbie odczytania pliku, choć nieco inny. Mianowicie: Robię sobie pomiar sygnału zmiennego podłączonego do Line In dźwiękówki. Wszystko śmiga. Na koniec dostaję 2 tablice (dwa kanały) danych. Zapisuję je ładnie do pliku txt, z dodatkowymi informacjami o ilości próbek i częstotliwości próbkowania. Format pliku wygląda...
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...
Witam Mam mały problem wynikający z mojej niewiedzy na temat użycia scrollbar'a lub trackbar'a w Delphi. Chciałbym was prosić o pomoc Napisałem skromny odtwarzacz muzyki oparty na MediaPlayer'ze i chciałem do niego dołożyć jeszcze dwa elementy. Mianowicie regulacje głośności i przewijanie utworu za pomocą paska. Nie za bardzo wiem jak tego dokonać....
Dowiedziałem się dzisiaj że komponent Tnotebook został czasowo usunięty z Lazarusa z powodu błędów. Załączam gotowy program z dzisiejszych zajęć, może komuś się przyda. 1.Wykorzystaj komponenty TNotebook, TTreeView i TMainMenu do zbudowania interfejsu graficznego. Pasek menu powinien zawierać możliwość wyboru zadania (2. lub 3.), wyjście z programu...
Witam! Jak w temacie. Zrobiłem prosty serwer i klienta TCP z wykorzystaniem komponentów lnet do Lazarusa. Wszystko się łączy pięknie, komunikuje, ale problem przyszedł dopiero, gdy chciałem podłączyć więcej niż jednego użytkownika. Wiadomo, w prostej postaci serwer działa z jednym klientem. Gdy dołączam drugiego, ten akceptuje połączenie, mogę z użytkowników...
Witam. Szukam prostego rozwiązania na komunikację Delphi Arduino, szukają po necie sprawa nie jest tak prosta tym bardziej iż nie jestem programistą. Ale znalazłem rozwiązanie tak przynajmniej myślę :) Może na początek Arduino -> USB ->Delphi 7(ComPort) [syntax=vbnet]void setup(){ Serial.begin(9600); } void loop(){ delay(5000); Serial.println("R130");...
Dzieki bardzo, Wlasnie chcialem dac ci znac ze ogarnalem temat, jesli mozna mam jeszcze dwa pytania, co do pytania odniosnie nazw kontrolek to zapisuje je tak zeby pozniej wiedziec o co chodzi - mam mala sciage, (wiem ze to moze wydawac sie smieszne, ale dopiero sie ucze) 1) w tym samym userform udalo mi sie zrobic podsumowanie z listbox (textbox1)...
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;
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);
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
Mam jeszcze małe pytanko co do tego int i=0; do { i++ ; Sleep(1000); Edit1->Text=i; Edit1->Refresh(); Label1->Caption=i; Label1->Refresh(); } while(i<10); w C okienko Edit odświeżamy za pomocą Edit1->Refresh(); a jak odświeżyć okienko jFieldText w Javie ??
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 ?
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! Zapoznałem się nieco z obsługą prostych aplikacji Windows Form w Visual C#, teraz chciałbym spróbować swoich sił w C++ Builderze. Czy mogę prosić o podanie kodu źródłowego obsługującego proste zdarzenie - klikam na przycisk OK i zmienia się text obiektu Label1. void __fastcall TForm1::OKClick(TObject *Sender) { Label1.caption=("nacisnieto...
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...
Witam, jestem początkującym programistą i dziś chciałem zobaczyć co i jak ze strukturami. Znalazłem ogólny opis z przykładem Przykład Zdefiniujmy strukturę pacjent: struct pacjent { char imie[10]; int wiek; char opischoroby[50]; bool zdrowy; char ostatniawizyta[15]; } ; Składa się ona z 5 odrębnych pól, wypełnijmy...
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...
Następnym razem dodaj, że nie masz z programowaniem absolutnie żadnego doświadczenia, zadawaj konkretne pytania i pisz dokładnie czego oczekujesz i co już zrobiłeś. String tekst = FloatToStrF(StrToFloat(Edit1->... ffNumber, 7, 2); Label1->Caption = "Wynik = " + tekst; Albo nawet: Label1->Caption = "Wynik =...
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...
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]
Private Sub CommandButton1_Click() Dim a, b, c, d, e, f, g, h, i, j, k, suma, reszta, kontrol As Integer Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, suma1, kontrol1 As Integer Dim pesel, nip, plec, plec1, plec2 As String Dim m, r, rok As Integer pesel = TextPESEL.Text a = CInt(Left(pesel, 1)) b = CInt(Mid(pesel, 2,...
Witaj Coś mi jeszcze nie działa W tym miejscu wywala błąd : program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4}, Unit2 in 'Unit2.pas' {Form2}; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm3, Form3); Application.CreateForm(TForm4, Form4);...
procedure TForm1.Button2Click(Sender: TObject); var Rez1,Rez2,i,j:integer; begin for i:=1 to 16 do for j:=1 to 16 do begin if i<>j then begin Rez1:=StrToIntDef(Stringgrid1.Cells Co jest nie tak z tą procedurą? Właśnie u siebie sprawdziłem że metoda "podczepiona" pod przycisk: procedure TForm1.BitBtn1Click(Sender: TObject); var i:integer;...
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.
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...
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()...
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...
Witam, dziękuję za wszelkie odpowiedzi i podpowiedzi. Wgryzłem się w ten problem bardzo mocno, znalazłem trochę literatury i udało mi się to zrobić. Oto przepis: 1.W aplikacji zrobiłem okienko wyboru wersji językowej (pojawia się przy 1 uruchamianiu) czyli konkretnej biblioteki dll. 2.Wybrana biblioteka jest ładowana i już można korzystać z umieszczonych...
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...
Dzieki Notset i Luk_F wskazaliscie mi jasna sciezke. Notset pokazal moj zly tok rozumowania, a Luk_F ze moge dac jeszcze jedna zmienna zeby wkoncu mi ta procedura wyszla tak jak chce. Oto koncowy rezultat ktory dziala tak jak chcialem: procedure TForm1.Button3Click(Sender: TObject); var X,Y,Z,A: Integer; begin X:=StrToInt(Label1.Caption); Y:=StrToInt(Edit3.Text);...
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...
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... :(
Witam, przedstawiam problem. Na mojej uczelni jest czujnik pomiarowy z wyjsciem rs232. Moim zadaniem jest napisanie programu który będzie pobierał wskazanie czujnika i zapisywał je do okna tekstowego np po wciśnięciu buttona (a najlepiej żeby jeszcze był wyświetlacz aktualnego wskazania). Niestety jestem początkujący w VB i mi to za bardzo nie wychodzi....
Czesc Chcialem zapytac jak pobrac tekst z komponentu edit, by pozniej dokonac na nim zmieny na bitach. Chodzi o to, ze pobieram sobie jeden znak z ciagu np z:=edit1.text Przeniosłem z działu Komputery Software
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.
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