REKLAMA

label1 caption

Znaleziono około 181 wyników dla: label1 caption
  • 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

    Programowanie   17 Mar 2022 22:45 Odpowiedzi: 9    Wyświetleń: 186
  • Timer - Liczenie sekund, minut w Delphi7

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

    Programowanie Początkujący   10 Gru 2015 10:57 Odpowiedzi: 1    Wyświetleń: 909
  • 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...

    Programowanie   27 Lut 2013 11:48 Odpowiedzi: 4    Wyświetleń: 1635
  • REKLAMA
  • Jest w VB 6.0 opóznienie?

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

    Programowanie   10 Sty 2009 18:59 Odpowiedzi: 7    Wyświetleń: 2489
  • REKLAMA
  • 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: U mnie jest to LPT1 więc będę posługiwać się adresem 378. Możemy wykorzystać...

    Artykuły   02 Sty 2012 20:07 Odpowiedzi: 4    Wyświetleń: 4896
  • [Delphi] Jak uzyskać wynik ?

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

    Programowanie   03 Lut 2012 03:46 Odpowiedzi: 2    Wyświetleń: 769
  • 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...

    Programowanie Początkujący   21 Lut 2021 19:54 Odpowiedzi: 12    Wyświetleń: 1155
  • delphi- pomoc z programem (mini test)

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

    Programowanie   26 Wrz 2007 06:24 Odpowiedzi: 9    Wyświetleń: 3206
  • Delphi - panowanie nad szybkością ściagania pliku

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

    Programowanie Początkujący   30 Mar 2011 23:25 Odpowiedzi: 0    Wyświetleń: 948
  • REKLAMA
  • 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...

    Software serwis   09 Cze 2015 19:59 Odpowiedzi: 1    Wyświetleń: 1389
  • VisualBasic - klawisze ?

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

    Programowanie   11 Mar 2006 21:27 Odpowiedzi: 6    Wyświetleń: 1265
  • Jak zciagnąć dane z wykresu w C++ Builderze (GetCursorValues

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

    Programowanie   21 Kwi 2005 09:05 Odpowiedzi: 3    Wyświetleń: 1067
  • Zapis i odczyt do pliku. Delphi 6. Jak to zrobić?

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

    Programowanie   09 Kwi 2007 21:31 Odpowiedzi: 5    Wyświetleń: 2067
  • Układ pomiarowy dla PC przez USB

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

    Artykuły   04 Sie 2005 15:22 Odpowiedzi: 0    Wyświetleń: 2832
  • [Delphi] Canvas - płynne rysowanie "w czasie rzeczywistym"

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

    Programowanie   29 Kwi 2011 20:57 Odpowiedzi: 7    Wyświetleń: 4136
  • 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];...

    Programowanie   31 Mar 2006 21:11 Odpowiedzi: 3    Wyświetleń: 912
  • pomoc z pętlą [Delphi]

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

    Programowanie   13 Paź 2008 21:57 Odpowiedzi: 6    Wyświetleń: 1212
  • 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 ?

    Programowanie Początkujący   25 Paź 2015 17:33 Odpowiedzi: 5    Wyświetleń: 969
  • [Delphi] Podliczaniem punktów w teście.

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

    Programowanie   15 Gru 2010 14:40 Odpowiedzi: 4    Wyświetleń: 1054
  • Platoforma na gąsienicach -Napęd i sterowanie.

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

    Robotyka Modelarstwo i CNC   04 Sie 2010 11:24 Odpowiedzi: 11    Wyświetleń: 8295
  • Porty COM w Turbo Pascal

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

    Programowanie   24 Lut 2008 20:40 Odpowiedzi: 9    Wyświetleń: 3719
  • Podstawowe pytanka (LPT i Delphi)

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

    Programowanie   17 Lis 2008 21:38 Odpowiedzi: 13    Wyświetleń: 2001
  • [Delphi] program z dwoma listami - początkujący

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

    Programowanie Początkujący   16 Mar 2011 01:00 Odpowiedzi: 25    Wyświetleń: 2885
  • [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...

    Programowanie   21 Wrz 2014 03:27 Odpowiedzi: 4    Wyświetleń: 1485
  • Problem z kodem ASCII a cpp builder

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

    Programowanie   11 Sty 2006 17:24 Odpowiedzi: 4    Wyświetleń: 1707
  • Niszczenie wątku (delete thread) [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)...

    Programowanie   26 Maj 2010 08:03 Odpowiedzi: 5    Wyświetleń: 2544
  • 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...

    Programowanie Początkujący   25 Lip 2013 08:54 Odpowiedzi: 3    Wyświetleń: 2355
  • [Turbo Pascal] Jak uruchomić program w Delphi.

    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

    Programowanie   01 Cze 2004 22:24 Odpowiedzi: 4    Wyświetleń: 2086
  • VB - jak obliczyć arcus sinusa

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

    Programowanie   14 Lut 2005 22:06 Odpowiedzi: 3    Wyświetleń: 10047
  • Delphi- problem ze sprawdzeniem czy plik istnieje

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

    Programowanie   22 Paź 2006 10:12 Odpowiedzi: 1    Wyświetleń: 1662
  • 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&...

    Programowanie   19 Mar 2007 10:06 Odpowiedzi: 3    Wyświetleń: 897
  • Delphi cport help!!!

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

    Programowanie Początkujący   03 Lut 2009 09:38 Odpowiedzi: 10    Wyświetleń: 3894
  • dodanie kodu program di okna programu

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

    Programowanie Początkujący   27 Maj 2014 16:26 Odpowiedzi: 33    Wyświetleń: 2979
  • Komendy delphi do sterownia silnika krokowego przez lpt

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

    Programowanie Początkujący   21 Maj 2014 16:13 Odpowiedzi: 14    Wyświetleń: 1740
  • [DELPHI] Kopiowanie i usuwanie plików 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...

    Programowanie   27 Lip 2018 18:28 Odpowiedzi: 3    Wyświetleń: 444
  • [delphi] podstawy składni

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

    Programowanie Początkujący   11 Kwi 2011 10:23 Odpowiedzi: 19    Wyświetleń: 2738
  • VB RS 232C problem z komunikacją

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

    Programowanie   28 Sie 2006 07:17 Odpowiedzi: 5    Wyświetleń: 1721
  • Problem z delphi dotyczący własnych procedur.

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

    Programowanie   13 Lut 2007 20:18 Odpowiedzi: 5    Wyświetleń: 990
  • komendy at-wysylanie smsa-pdu w delphi prozbha o pomoc

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

    Programowanie   03 Kwi 2007 16:59 Odpowiedzi: 1    Wyświetleń: 4097
  • [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...

    Programowanie   04 Lis 2007 13:58 Odpowiedzi: 22    Wyświetleń: 5747
  • Delphi/Pascal - Program z Memo Nie działa jak powinien

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

    Programowanie Początkujący   22 Wrz 2015 05:48 Odpowiedzi: 1    Wyświetleń: 633
  • Wyszukiwanie textbox petla i 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 -...

    Programowanie Początkujący   08 Paź 2014 11:42 Odpowiedzi: 18    Wyświetleń: 1533
  • [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);...

    Programowanie   02 Lut 2006 20:46 Odpowiedzi: 7    Wyświetleń: 2243
  • Delphi 6, zamieszczony kod. Co z nim jest nie tak?

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

    Programowanie   06 Mar 2007 16:30 Odpowiedzi: 5    Wyświetleń: 1233
  • [delphi] wyciagniecie danych z innej aplikacji

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

    Programowanie   06 Paź 2008 12:10 Odpowiedzi: 0    Wyświetleń: 939
  • [Delphi] Stoper analogowy, długość wskazówek.

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

    Programowanie   15 Lut 2010 15:45 Odpowiedzi: 6    Wyświetleń: 2312
  • delphi 7 błąd z funkcjąif

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

    Programowanie Początkujący   13 Lut 2012 17:09 Odpowiedzi: 1    Wyświetleń: 878
  • Wyświetlanie 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)...

    Mikrokontrolery   27 Cze 2003 18:39 Odpowiedzi: 11    Wyświetleń: 3935
  • Czas działania programu w C++

    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

    Programowanie   27 Lut 2006 14:58 Odpowiedzi: 16    Wyświetleń: 8398
  • Tworzenie pliku *.exe z projektu c++ buildera 6

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

    Programowanie   17 Maj 2008 16:07 Odpowiedzi: 18    Wyświetleń: 8499
  • [c++] listbox 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"...

    Programowanie Początkujący   15 Mar 2009 16:51 Odpowiedzi: 5    Wyświetleń: 2108
  • Sterowanie portem LPT VisualBasic6 i INNE

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

    Programowanie   14 Mar 2011 15:12 Odpowiedzi: 98    Wyświetleń: 67230
  • Borland c++ Builder 6.0 konwertowanie liczb na system 2,8,16

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

    Programowanie Początkujący   01 Cze 2010 17:49 Odpowiedzi: 2    Wyświetleń: 1441
  • Przechwycenie obrazu z kamery PS3Eye i jego podgląd w czasie rzeczywistym

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

    Programowanie   18 Cze 2014 10:43 Odpowiedzi: 0    Wyświetleń: 981
  • borland c++ - Przypisanie wartości z ComboBox

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

    Programowanie   27 Maj 2015 18:16 Odpowiedzi: 8    Wyświetleń: 939
  • Jak wyznaczyć ostatnią cyfrę liczby naturalnej?

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

    Nauka Szkolnictwo   15 Sty 2017 20:12 Odpowiedzi: 1    Wyświetleń: 1770
  • Delphi. Sprawdzanie pozycji myszki.

    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;

    Programowanie   20 Lut 2005 18:48 Odpowiedzi: 6    Wyświetleń: 4527
  • 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...

    Programowanie   09 Cze 2005 15:09 Odpowiedzi: 2    Wyświetleń: 1164
  • Jak napisać program w Delphi bazując na źródle z Tpascala?

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

    Programowanie   01 Sty 2007 14:34 Odpowiedzi: 8    Wyświetleń: 2397
  • Delphi - DLL jak przekazywać parametry funkcji PCHAR ?

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

    Programowanie   08 Kwi 2007 16:23 Odpowiedzi: 4    Wyświetleń: 3592
  • Delphi - blokowanie Edit'a

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

    Programowanie   20 Wrz 2008 12:43 Odpowiedzi: 11    Wyświetleń: 5205
  • [delphi] temperatura CPU, potrzebny adres portu ;/

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

    Programowanie   21 Paź 2008 06:28 Odpowiedzi: 0    Wyświetleń: 1191
  • Delphi, jak wysłać kody starujące na COM do fiskalnej?

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

    Programowanie Początkujący   13 Lip 2009 13:23 Odpowiedzi: 14    Wyświetleń: 4758
  • 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ę...

    Programowanie   14 Wrz 2009 21:12 Odpowiedzi: 4    Wyświetleń: 3588
  • [Delphi]Wczytywanie części pliku

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

    Programowanie Początkujący   19 Sie 2010 14:20 Odpowiedzi: 5    Wyświetleń: 2189
  • [Delphi] Odczyt rekordu bazy SQL.

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

    Programowanie   19 Paź 2010 17:59 Odpowiedzi: 27    Wyświetleń: 6992
  • Delphi + regulacja głośności w odtwarzaczu

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

    Programowanie   28 Lut 2011 22:35 Odpowiedzi: 4    Wyświetleń: 1683
  • [Lazarus] Brak komponentu TNotebook

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

    Programowanie   11 Maj 2011 10:25 Odpowiedzi: 1    Wyświetleń: 1203
  • Serwer TCP - Wielu klientów, FPR Lazarus + Sockety

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

    Programowanie   21 Sty 2012 17:15 Odpowiedzi: 1    Wyświetleń: 1523
  • Delphi&Arduino - Prosta komunikacja USB/RS-232

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

    Programowanie Początkujący   09 Lis 2015 00:33 Odpowiedzi: 24    Wyświetleń: 1356
  • Vba excel, jak można poprawić ten kod?

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

    Programowanie Początkujący   08 Mar 2018 16:24 Odpowiedzi: 10    Wyświetleń: 819
  • liczba miejsc po przecinku 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;

    Programowanie   13 Kwi 2005 12:12 Odpowiedzi: 3    Wyświetleń: 7791
  • Builder C++ Rok przestepny

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

    Programowanie   02 Lut 2006 02:24 Odpowiedzi: 13    Wyświetleń: 4404
  • 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

    Programowanie   12 Kwi 2006 11:58 Odpowiedzi: 2    Wyświetleń: 1213
  • C++ Builder 6 Automatyczne klikanie

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

    Programowanie   10 Kwi 2007 14:46 Odpowiedzi: 5    Wyświetleń: 4468
  • [c++] Builder pozycja karetki przepelnia sie

    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 ?

    Programowanie   16 Cze 2007 17:01 Odpowiedzi: 2    Wyświetleń: 967
  • 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

    Programowanie   10 Lip 2008 19:05 Odpowiedzi: 12    Wyświetleń: 3915
  • Obsługa prostego zdarzenia onClick w C++ Builderze

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

    Programowanie   29 Maj 2008 20:46 Odpowiedzi: 4    Wyświetleń: 2277
  • Wyświetlanie kolejnych linijek w Label lub Panel

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

    Programowanie   06 Cze 2009 21:25 Odpowiedzi: 4    Wyświetleń: 894
  • [C++ Builder 6] Struktury

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

    Programowanie Początkujący   16 Paź 2009 18:08 Odpowiedzi: 5    Wyświetleń: 1561
  • 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...

    Programowanie Początkujący   26 Kwi 2010 16:51 Odpowiedzi: 9    Wyświetleń: 7008
  • Borland C++ 6.0]Zaokrąglanie liczby do 2miejsca po przecinku

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

    Programowanie Początkujący   30 Maj 2010 16:12 Odpowiedzi: 15    Wyświetleń: 8608
  • Builder C++ ComPort i wątki.

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

    Programowanie   06 Sie 2010 15:02 Odpowiedzi: 4    Wyświetleń: 2254
  • C++ Builder - Kontrola błędów

    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]

    Programowanie Początkujący   29 Lip 2013 21:26 Odpowiedzi: 4    Wyświetleń: 1251
  • sprawdzenie pesel w visual basic?

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

    Programowanie   12 Lis 2005 17:01 Odpowiedzi: 7    Wyświetleń: 8841
  • Delphi 6 - jak zapisać dane do pliku?

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

    Programowanie   30 Gru 2007 14:23 Odpowiedzi: 28    Wyświetleń: 2849
  • [Delphi] Dane w TStringGrid

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

    Programowanie   18 Gru 2003 07:14 Odpowiedzi: 11    Wyświetleń: 14091
  • [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.

    Programowanie   17 Mar 2004 12:41 Odpowiedzi: 2    Wyświetleń: 3067
  • [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...

    Programowanie   28 Lip 2004 19:12 Odpowiedzi: 2    Wyświetleń: 1133
  • 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()...

    Artykuły   29 Maj 2005 21:02 Odpowiedzi: 2    Wyświetleń: 4151
  • Pytania w Delphi i przy okazji do XP

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

    Programowanie   12 Lis 2005 23:12 Odpowiedzi: 13    Wyświetleń: 4074
  • Stałe napisowe w bibliotekach DLL?

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

    Programowanie   13 Wrz 2005 10:59 Odpowiedzi: 3    Wyświetleń: 771
  • Visual Basic mierzenia czasu

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

    Programowanie   26 Paź 2005 17:47 Odpowiedzi: 3    Wyświetleń: 3898
  • Ciagle dodawanie do wyniku (Delphi)

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

    Programowanie   06 Lis 2005 17:15 Odpowiedzi: 9    Wyświetleń: 1413
  • BITY KONTROLNE XOR

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

    Mikrokontrolery   12 Maj 2006 17:11 Odpowiedzi: 5    Wyświetleń: 2728
  • Bardzo początkujący Delphi kontrolka Label

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

    Programowanie   24 Mar 2007 17:56 Odpowiedzi: 14    Wyświetleń: 2951
  • rs232 i cyfrowy przyrząd pomiarowy VB

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

    Programowanie   23 Mar 2007 00:34 Odpowiedzi: 4    Wyświetleń: 1302
  • Pytanie do znawcow delphi

    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

    Programowanie   25 Mar 2007 13:11 Odpowiedzi: 2    Wyświetleń: 999
  • zmienne globalne w VB

    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.

    Programowanie   03 Wrz 2007 14:39 Odpowiedzi: 2    Wyświetleń: 9737
  • RS-232. Jak zobaczyć zawartość rejestrów?

    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

    Programowanie   27 Gru 2007 13:12 Odpowiedzi: 5    Wyświetleń: 1224