https://obrazki.elektroda.pl/3330083100_... Model Warstwy Łączna liczba parametrów Liczba aktywnych parametrów na token Łączna liczba ekspertów Liczba aktywnych ekspertów na token Długość kontekstu gpt-oss-120b 36 117b 5,1b 128 4 128 tys. gpt-oss-20b 24 21b 3,6b 32 4 128 tys. Tutaj pokażę uruchomienie gpt-oss:20b krok po kroku oraz...
czyli o ile dobrze myślę, to tutaj bym wartość miał nie zwracaną bezpośrednio przez funkcję, ale musiałbym podać "wskaźnik" do zmiennej w argumencie funkcji i moja funkcja zapisze wartość do tej zmiennej. A sama funkcja mogła by zwracać swój stan 0 - udało się wykonać funckję prawidłowo; 1 - "jakiś tam błąd". Ale to jest proste do zrobienia. Najpierw...
ktos mi znajdzie czy to s line? E0ASpecial editions: Without special action equipment 1PDLockable wheel bolts: Wheel bolts with anti-theft protection (unlockable) 0HPVehicle class differentiation units/platform components: Vehicle class differentiation -4F0- 5P0Mounting fixture for oxygen bottle: Without mounting fixture for oxygen bottle 7GGEmission...
VINVF34H9HZHAS082482 BrandPEUGEOT Vehicle characteristics ParameterValue Vehicle family308 (T7) AS/RP N°12170 89 1 0426 Warranty Start Date02/08/2010 Engine serial number10 JBBN 3121835 BERe2*2001/116*0362*20 P4A9663324399 TRIM LEVELMEDIUM HIGH PAINT TYPEMETALLIC PAINTWORK BODY COLOURKTV - BLACK PEARL PAINT INTERIOR TRIM TYPEKAWANA CLOTH + OMNI "TT"...
Kolego autobaza.pl to żaden fake, podaje dane wyposażenia z fabryki ETKA itp .. Przed chwilą sprawdzałem audi, uważasz że to nic ? ParameterValue BrandAUDI ModelAUDI A3 SPORTBACK 2.0 TDI VINXXXXXXXXXXXXXXXXXXXXXXXXXXXX Production date2010-09-23 Model year2011 Engine codeCFFB (TDI CR) Engine number000 Engine volume, L2.00 Number of cylinders4 Power,...
VINVF34H9HR8BS094036 BrandPEUGEOT Vehicle characteristics Vehicle family308 (T7) AS/RP N°12544 89 1 0396 Warranty Start Date26/04/2011 Engine serial number10 JBEK 3035212 BERe2*2001/116*0362*29 P4A9666521999 TRIM LEVELMEDIUM HIGH PAINT TYPEMETALLIC PAINTWORK BODY COLOURKTV - BLACK PEARL PAINT INTERIOR TRIM TYPEKAWANA CLOTH + OMNI "TT" UPHOLSTERY COLOUR"FX"...
Nie wiedziałem do jakiego tematu to wrzucić to więc proszę mnie poprawić w razie potrzeby. Dostałem RAID jak w temacie. Tu # uname -a Linux MNAS4100 2.6.10-iop1 #135 Tue Apr 4 18:11:39 CST 2006 armv5tel unknown # cat /proc/cpuinfo Processor : XScale-IOP8032x Family rev 0 (v5l) BogoMIPS : 399.76 cpu MHz : 399.769 Features...
Dzisiaj, zaraz po uruchomieniu kompa uruchomiło się 15 iexplore.exe i 2 winlogon.exe przy czym jeden systemowy a drugi użytkownika - będę działał wg. waszych wskazówek Dodano po 3 To jest log ze skanowania, mi osobiście nic to nie mówi. Logfile of HijackThis v1.99.1 Scan saved at 09:06:58, on 10-01-2006 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600)...
Kod był napisany pod linux dlatego na Win nie działa tyle wyszło po kompilacji [syntax=java] /* * (at)(#)Collections.java1.106 06/04/21 * * Copyright 2006 Sun Microsystems, Inc. All rights reserved. * SUN PROPRIETARY/CONFIDENTIAL. Use is subject to license terms. */ package java.util; import java.io.Serializable; import java.io.ObjectOutputStream; import...
/var/log/kern.log Jun 22 23:21:17 Nas kernel: [ 0.000000] Booting Linux on physical CPU 0x0 Jun 22 23:21:17 Nas kernel: [ 0.000000] Initializing cgroup subsys cpuset Jun 22 23:21:17 Nas kernel: [ 0.000000] Initializing cgroup subsys cpu Jun 22 23:21:17 Nas kernel: [ 0.000000]...
Z tego co pamiętam, to przy inicjalizacji framebuffora w przypadku zaznaczonej opcji w kernelu o której pisałem wcześniej też krzyczał ten sam błąd, na razie nie jestem w stanie więcej podać gdyż z racji długiego weekendu urlopuję się cały tydzień. Edytka: Na stronie toradexa jest nowszy kernel do tego modułu niestety dalej występuje ten sam błąd. Dodatkowo...
Witaj, to urządzenie jest najprawdopodobniej zbudowane w oparciu o TuyaMCU, więc procedura wyglądałaby tak jak tutaj: https://www.elektroda.com/rtvforum/topic... https://www.elektroda.com/rtvforum/topic... Z tego co widzę dpID są już znane: A właściwie to mamy już zrobione, można to pominąć, chyba, że producent coś mocno pozmieniał...
Raczej: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ExtCtrls, ToolWin; type Tabl = array[0..100] of real; type TForm2 = class(TForm) ToolBar1: TToolBar; Image1: TImage; ToolButton1: TToolButton;
Tak jak Ci kolega pisał - Parent, Caption, Left, Top i Visible unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public {...
Witam Wszystkich! Posiadam -micro wieżę YAMAHA model CRX-E320 . Przyznam, że dla mnie sprzęt gra tak sobie... Chciałbym więc polepszyć jakość jego dźwięku. Nie zależy mi na mocy maksymalnej ale może potrzeba dać jeszcze więcej Trebli albo Bassów niż ta wieża umożliwia? Czy takimi mini wzmacniaczami coś zdziałam, jak np.: 1) Albo tu pomoże tylko zupełnie...
Formę zawartą w DLL-u, w dowolnym języku można wywołać całkiem prosto. Jedyna różnica, pomiędzy taką formą a "normalną" polega na tym, że forma nie jest tworzona automatycznie przy uruchomieniu programu, a dopiero gdy jest potrzeba pokazania takiej formy. 1. Tworzymy interesującą nas formę wraz z procedurą, która będzie tę formę tworzyć i wyświetlać....
Hmmm, chyba wtedy najlepszym rozwiazaniem (przynajmniej dla mnie- bo znam :P) jest obsluga komunikatow (kod z buttonem na formie), keypreview nie ma wtedy znaczenia : unit klawisz; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton;...
Witajcie, Otóż odbiłem się od pewnego problemu. Mam RPi4b, postawione na raspbianie oraz skonfigurowane zgodnie z Jul 20 16:21:47 raspberrypi kernel: ...RPi zwyczajnie zwisa jakiś czas po podłączeniu i wykryciu pamięci (mmcblk1*). Po podłączeniu do zasilania płyty z pamięcią, mogę bez pośpiechu wpisać sobie dmesg|grep mmc, widzę to co jest na końcu...
Spróbuj zrobić flash nokii programem phoenix z opcją dead usb.
Może coś w ten deseń? Aczkolwiek odradzam. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9:...
Napisałem na razie coś takiego: Option Explicit Dim szukana$, szukac_dalej As Variant, iFolder$ Dim oFolder As MAPIFolder, oMail As MailItem, x& Sub szukaj_wiadomosci_po_temacie() iFolder = Application.ActiveExplorer.CurrentFolder szukana = "dodatek" If FindTematCzastkowo(szukana) = False Then MsgBox "Niestety nie ma wiadomoœci z treœci¹...
Ten kod mi dziala. Mam delphi 7. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellApi, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations }...
Witam mały dopisek i będzie działać myitems.Sort "[Wysłano]", True Wersja poprawiona [syntax=vbscript] Sub GetInboxItems() Dim ol As Outlook.Application Dim ns As Outlook.NameSpace Dim fol As Outlook.Folder Dim i As Object Dim mi As Outlook.MailItem Dim n As String Dim FilterText As String Dim kontrakt As Variant 'Dim OutMail As Object 'Dim OutApp As...
A mi się, z twoim kodem, udało połączyć bez problemu. http://obrazki.elektroda.pl/2566199600_1... Wywaliłem te wszystkie zbędne inicjacje itd.. Wszystko idzie w standardzie. http://obrazki.elektroda.pl/7006299900_1... Może zainstalowanie takich bibliotek OpenSSL, jakie ja mam, pomoże ?
V10.80 21-01-11 RM-638 Variant 68.03 Czy link softu wyżej bedzie odpowoedni?
Nokia 2730 classic V 07.70 18-09-09 RM-578 (c) Nokia Varian: 68.01 Virtual Variant: No virtual variant Language: V 07.70 18-9-09 RM-578 (c) Nokia BOR 0591380
Dostęp do bazy MS Access-a w Delphi można uzyskać dość łatwo. Na przykład za pomocą komponentów ADO. Potrzebujesz do tego dwóch komponentów : TADOConnection oraz TADOTable. Napisałem na szybko aplikację do połączenia z plikiem MDB, ale jest ona napisana w Delphi 2009, wiec raczej jej pod Delphi 7 nie otworzysz. Nie jest to jednak problem, bo aplikacja...
Mogę zdobyć źródła ale to trochę robota od d.. strony. Trochę poczytałem i w zasadzie powinno być chyba tak, że rejestruję ją w systemie, a później dodaje ją do projektu w Delphi. Niestety odmawia jakiekolwiek rejestracji za pomocą regsvr32 na moim kompie. Próbowałem na innym z Win7, ale to samo. Po informacji, że było to kompilowane w NET, znalazłem...
Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany, a nie pierwszy. Jakieś pomysły jak to można wykonać?...
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...
Witam, a no bardzo prosto... Img : TImage; musisz zadeklarować w unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm2 = class(TForm) private { Private declarations } Img : TImage; public { Public declarations } end; var Form2: TForm2;...
Ciekawe komentarze, jednakże zwrócę tu uwagę na kilka rzeczy: Przesyłając duże ilości danych przez jakieś wolne medium - zdecydowanie tak. Dokładnie o to mi chodziło, w sumie mogłem to dodać na początku, oczywiście samo określenie stream/strumień/serializacja sugeruje, że pewnie jakiś plik lub socket sieciowy to odbiera lub wysyła. Oczywiście nie korzystałbym...
Option Explicit ' clsComReader ' ' 1. instantiate ' 2. set timer & (optional) Interval ' 3. set comm (that will start the first measurement) ' ' 4. handle GotData or read Measurement & MeasurementTime ' ' does one measurement only when interval not set or set to 0 ' you can force next measurement calling RequestMeasurement '...
nie to są kody błędów do opla Pytałem, czy próbowałes kompilować kod podany przez tzok: unit CodeChecker; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) txtErrorCode: TEdit; txtErrorDescription: TEdit; btnCheck: TButton; procedure btnCheckClick(Sender:...
Mam dziwny problem. Piszę aplikację która będzie miała kilka okien MDI i naciśnięcie jakiegoś klawisza będzie powodować tworzenie okien MDI jeżeli nie istnieją, a jeżeli istnieją to pokazywać je (np. metodą show). Otórz przy otwieraniu okna MDI za pomocą toolButton jest ok, natomiast ładniejsze są bitBtn, ale użycie ich powoduje blokowanie się dbgrida...
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...
Witam o to log: v0.915030/UNI CARD SERIAL: 00088xxx Loaded 51 flash descriptors FILE RECOGNIZED AS CUSTOMIZATION PACKAGE. MODEL:HB1-06 Gen CDA: CDA102568/2 CDA REV: R8A VARIANT:CENT_EUROPE LANGUAGE: EN PL CS SK HU SIGNED MODE (USING SERVER) ChipID:9900,EMP protocol:0301 BOOTROM MODE DETECTED Speed:921600 OTP: LOCKED:1 CID:51 PAF:1 IMEI:3523xxxxxxxxxx...
To co jest poza ekranem i sam nie zadbasz o pamiętaniu tego jest po prostu gubione. Stwórz obiekt typu TBitmap, na nim wykonuj operacje i wyświetlaj go na komponencie TImage. Obrazek ten będzie mógł zmieniać dowolnie swoją wielkość i zależnie od parametrów formy będzie można go skrolować. http://pl.wikibooks.org/wiki/Delphi/Bitm... Przykład: [syntax=delphi]unit...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, JPEG, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations...
Witam. Mam Delphi 7 Personal i nie mogę (albo nie umiem) go skompilować, nie wiem dlaczego, może popełniłem jakiś błąd (pomijając to że ten program:) jest bez sensu). Próbowałem tak: Project ----> Compile project lub ctrl+F9 i nie działa (nic się nie dzieje). Dodam że jestem w progrogramowaniu jeszcze zielony:( unit Unit1; interface uses Windows, Messages,...
Witam Usuń dwa ostatnie resety bo przez nie wracasz na poszątek pliku unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type Tdzienne = class(TForm) Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button1: TButton;...
Witam , mam problem ze sortowaniem . Program działał poprawnie dopóki nie dołączyłem sortowania . Program niby się uruchamia ale po naciśnięciu buttonu chwilkę łapie zawiasa i wywala jakieś dane od procesora . Nie wiem co jest grane . Dodam że samo sortowanie znalazłem w internecie i je tutaj chciałem wykorzystać . [syntax=pascal] unit sortowanie1;...
Jeśli chodzi o dynamiczne tworzenie obiektów-komponentów (jak zwał tak zwał) wystarczy w sekcji uses dodać moduł w którym jest klasa, dajmy na to na przykładzie ComPort-a unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort; type TForm1 = class(TForm) procedure FormCreate(Sender:...
Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić! - arnoldziq
Chciałam się zapytać czy ktoś wie jak można ten program przerobić, żeby nie używać "Fly" i zrobić ruchomy obrazek zamiast napisu ? Kod wczytanego z pliku jest taki: " Bitmap.LoadFromFile('D:\1.jpg')" ale mi chodzi o obrazek już utworzony w Delphi "Image" na który został wczytany obrazek. unit DemoFrm; interface uses Windows, Messages, SysUtils, Variants,...
To jest nowy model 43UD6404 . https://mediamarkt.pt/products/thomson-4...
(1995-1997) Seat Cordoba/Vario (6K2/6K5) (1995-1997) Seat Ibiza (6K1) (1995-1997) Seat Inca (6K9) (1995-1999) Seat Toledo (1L2) (1995-1997) Skoda Felicia (6U1/6U5) (1995-1997) VW Caddy (9K9) (1995-1996) VW Golf III (1H1/1H5) (1995-1996) VW Golf Cabriolet (1E7) (1995-1997) VW Passat (3A2/3A5) (1995-1997) VW Polo Classic/Variant (6K2/6V2/6V5) (1995-1996)...
nie czuję się orłem w Delphi, mówiąc szczerze pierwszy mam do czynienia a bibliotekami, ale wyskrobalem takie coś unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private...
nie dziala. Ma znaczenie czy mysz jest na USB czy ps2 Bo kompiluje mi to ale nie nic sie nie dzieje jak przytrzymam button co w tym kodzie jest nie tak ze nie działczy? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel;...
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, Dialogs, CPortCtl, CPort, ComCtrls, ExtCtrls, Messages,Variants, OleCtrls, Chartfx3; Podejrzewam, że muszę skopiować kontrolkę odpowiedzialną za Chartfx do system32 i ją zarejstrować: "REGSRVR32 C:\WINDOWS\SYSTEM32\CFX32.OCX", bo cyrki zaczęły się w momencie wrzucenia komponentu...
Wrzucam przykładowy program: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Foto1: TImage; Foto6: TImage; Foto2: TImage; Foto7: TImage; Foto3: TImage; Foto8: TImage; Foto4: TImage; Foto9: TImage; Foto5: TImage; Foto10: TImage;...
Zgadzam się z Wami, moim problemem właśnie były parametry a właściwiej niewłaściwa ich deklaracja. Jednak jakoś w końcu wyszło :D, ku mojemu zdumieniu okazało sie że mogę też wykorzystać tzw pliki dołączone wcześniej nie wiedzieć dlaczego wyskakiwał mi błąd. Ogólnie mam już 2/3 rozwiązania. Dzięki którym będę miał bardziej przejrzysty kod. Rozwiaznie1...
Teraz mój kod wygląda tak: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Button1: TButton; MainMenu1: TMainMenu; Plik1: TMenuItem; Zamknij1: TMenuItem; Pomoc1: TMenuItem; OProgramie1: TMenuItem; Narzdzia1:...
Przeciez podalem przyklad , nie musisz zapisywac loga przy kazdym nowym wpisie tylko przy wystapieniu bledu - na forme 2 przyciski i applicationevents: unit log; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,CtlPanel, AppEvnts; type TForm1 = class(TForm) Button1: TButton; Button2:...
Witam! Mam problem zodczytem danych z RS - wykorzystuje komponent Tcomport, procedury odczytu znalazłem na elektrodzie, jednak mimo wszytko nic mi nie działa. AVR wysyła temperaturę w formacie np. 23.4 (string), jeśli korzytam z emulatora BASCOM lub Hyperterminala wszystko jest OK, dane są poprawnie odczytywane, zaś przez załączony poniżej programik...
Cześć, robię ostatnio zestaw zadanek od mojego "korepetytora", lecz niestety na jednym się zatrzymałem. Program ów ma posiadać 2 guziki - jeden losuje liczby z przedziału [-5,5] do StringGrida1, drugi guzik podlicza ile liczb jest takich samych jak w komórce [0,0]. Próbowałem coś pokombinować z ifem. Najbliżej na co wpadłem to to: [syntax=delphi]unit...
Hmm.. teraz to już nie wiem, możliwe, że palnąłem głupotę. Sprawdź kilka kolejnych odczytów portu pod kątem długości zwróconego stringa. Możesz to zrobić np tak: [syntax=pascal] unit ODCZYTRS; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPort; type TForm1 = class(TForm) Memo1: TMemo; Button1:...
Na czacie rozmówczyni zaproponowała mi Link prowadzi do działu "modemy-i-routery-domowe", do produktu "ZTE MF297D" - to tak fyi, bo może nie ten link podałeś? Sama propozycja wymiany routera w kontekście Twojego problemu wydaje się być, hm... niepoważna? ;] Ping 8.8.8.8 działa, a strony się nie ładują. Taki objaw z mojego doświadczenia najczęściej...
Wstawiacie na Form1 Button1 i potem podmieniacie to co jest w oknie projektu na mój kod.Może się komuś przyda. Zrobilem tak: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; procedure ZmianaSowaka(Sender: TObject);...
Ew Routery Draytek Bandwidth ManagementQoS (Specific regional variants only) Class-based Bandwidth Guarantee by User-defined Traffic Categories DiffServ Code Point Classifying 4-level Priority for Each Direction (Inbound/Outbound) Bandwidth Borrowed Bandwidth / Session Limitation
[syntax=basic4gl]$regfile = "M16DEF.DAT" $crystal = 16000000 $baud = 57600 Config 1wire = Portd.7 Dim Odczyt As Integer Dim T As Single Dim Z As Byte Dim Zn As String * 1 Wait 1 1wreset 1wwrite &HCC 1wwrite &H44 Wait 1 1wreset 1wwrite &HCC 1wwrite &HBE Odczyt = 1wread(2) T = Odczyt - 16 T = T * 10 T = T \ 16 T = T \ 10 Print T Do Z = Ischarwaiting()...
Tylko że średnio rozumie to co tam jest ja potrzebuję informacji to skopuj i wklej tu. Dodano po 12 I co zrobić żeby po naciśnięciu 1 przycisku włączają się po kolei 4 piny? Dodano po 1 Mój kod [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, zlportio; type...
Mam Delphi 7 oraz Borland Developer Studio 2006. Próbowałem na obydwóch. Czy mam określić ErrorCode jako integer? Ale i tak się nie kompiluje, czy określę ErrorCode czy nie. Niestety, wcześniej tego nie robiłem więc może mi umykać jakiś szczegół. Cały program: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Nie działa :( [syntax=delphi] unit Oscyloskop_comport; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls, ExtCtrls; type TForm1 = class(TForm) BtnOtworz: TButton; Settings: TButton; Wyslij: TButton; EdtMsg: TEdit; ComMemo: TMemo; CBNewLine: TCheckBox; ComPort: TComPort; Image1: TImage;...
Magnat Classic 1000 :D:D ja go mam i polecam
chodziło mi bardziej o to, gdzie i jak są zadeklarowane obie funkcje: ChIm oraz ChangeImages Pozdrawiam. Dodano po 5 zmień swój kod na podstawie tego: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Image2: TImage; Image3:...
Witam. Postanowiłam rozwiązać problem "stukania" głośników PC podczas gdy komputer zostanie wyłączony. Napisałem małą aplikację w Delphi 7 do obsługi portu LPT pod WIN XP. oto kod: unit lpt; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, shellapi, AppEvnts; type TForm1 = class(TForm) procedure...
witam. Ostatnio zajmuję sie pisaniem programów sterujących portem lpt. Gdzieś wyczytałem że najprostszy sposób na wyliczenie liczb binarnych to wybrać profesjonalny tryb w opcjach kalkulatora windows , kliknąć bin , wpisać i kliknąć dec , powinien pojawić się wynik który muszę wpisać w kompilatorze. Jednak mam problem bo kompilator nie przyjmuje liczb...
Witam wczoraj postanowiłem napisać prosty programik który miałby uruchomić plik "cmd" Program miałby wyglądać następująco... -7 zakładek (z tym sobie jeszcze radzę) -w każdej zakładce inny obrazek oraz przycisk -obrazki mają się ładować razem z uruchomieniem programu* -kliknięcie w przycisk w zakładce nr1 uruchamia plik nr1 kliknięcie w przycisk w zakładce...
Witam, skorzystałem z komponentu Indy Clients/Servers oraz programu jaki znalazłem na http://4programmers.net/Delphi/INDY poniżej załączam kod: unit UDP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, StdCtrls,IdSocketHandle, ExtCtrls;...
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ć....
Witam. Przykład jest zrobiony na podstawie gotowca, chce opanować watki, ale ciągle czegoś brakuje. W tym przypadku mam problem z synchronizacją błąd dostępu 6 i jak kliknę na wątek to się pokazuje jeden progresbar, który zaczyna naliczać i staje. Bardzo proszę o jakieś nakierowanie albo wskazanie błędów, bo pewnie na jednym się nie skończy. Jest moduł...
Dzięki za pomoc problem rozwiązany zamykam temat i załączam kod gotowego programu może kiedyś komuś się do czegoś przyda;] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel;...
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.)...
O kurcze , dzięki , ja myślałem że te 255 to hex;]. Sorry. Wiedzę staram się pogłębiać cały czas , ale mam na to jeszcze trochę czasu (mam 14 lat). Więc wydaje mi się , że wszystko o lpt już wiem , ale na wszelki wypadek spytam - Jeśli podepnę któryś z pinów masy do pinu 10 ACK to program z portu 279 powinien odczytać wartość 191?? Dodano po 2 kiedy...
Witaj jestem początkujący w Delphi co jest z tym kodem ,że nie działa mi to proszę o pomoc. Chodzi o warunek : unit suma1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Label2: TLabel; Label3: TLabel; Button1: TButton;...
Witam. Muszę zrobić projekt aplikacji bazodanowej w Visual Studio. Dawniej miałem styczność z programem Borland Builder C++. Z językiem C++ miałem już styczność więc w tym języku również zamierzam napisać, oczywiście przy Waszej pomocy :D, aplikację bazodanową. Może ona współpracować z bazą na SQL server lub na bazie zapisanej w pliku. Ja w tym przykładzie...
Cześć! Jestem początkującym, program mam 1 dzień, Mam dwa pytanie więc tak: -Jak dodać playlistę do odtwarzacz mp3 w Delphi -Czy jest możliwość przesuwanie image(obrazu). 1.Pierwsze pytanie raczej nie trzeba tłumaczyć ;] 2. Natomiast drugie, chodzi mi o takie coś jak jest tu : unit sada1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
GPT5 Thinking - jego ocena odpowiedzi ElektrodaBot: [syntax=text]Short answer: mostly correct 👍 — with a couple of caveats/clarifications. What’s right You don’t have to use the BI (backup) line on WS2813/WS2815. Leaving BI unconnected is fine. You can drive WS2813/WS2815 with a WS2812B-style, single-data-line controller as long as timings and voltages...
Na podstawie tego co znalazłem w internecie chciałem napisać na socketach komunikator internetowy, ale większość stron każe w miejscu client.host wpisać adres 127.0.01 - czy to znaczy, że sockety mogą działać tylko i wyłącznie w sieci lan? Kiedy próbuję wpisać inne IP wyskakują mi błędy - 10060 albo 10061. Program działa tylko kiedy wpisze właśnie 127.0.01,...
witam Po napisaniu programu w oparciu o artykół : http://4programmers.net/Delphi/Artykuły/... napotkałem na błąd, który wyskakuje za każda próbą naciśnięcia przycisków otwórz, i wyslij,a także przy próbie zatwierdzenia settingu cportu. ten błąd to http://obrazki.elektroda.net/23_12358278... różni...
Kiedys napisalem sobie programik do "glosowania" na posty napisane na onet.pl. Jest tam wlasnie wykonywany js + czyszczenie cookie zeby mozna bylo oddac glos powtornie ,closc umieszczona w timerze zliczajacy ilosc glosow jak i z ustawialnym intervalem (w zaleznosc od szybkosci ladowania strony). Kod (jedna linijka) js umieszoczny jest w edt3.Text. Calosc...
Dlaczego ten kod nie działa pod Windows 7 i 8. [syntax=delphi] unit MainFrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TMainForm = class(TForm) Memo: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); end; var MainForm: TMainForm; implementation...
Witam wszystkich otóż piszę na zaliczenie program zegar analogowy nie powiem bo także przy pomocy internetu i w pewnym momencie stanąłem niby zegar działa ale... Właśnie wskazówki zmieniają długo przy zmianie godziny minuty wszystko zapewne przez funkcji Canvas.LineTo tylko nie wiem czy to można jakoś zastąpić i nie wiem jaką funkcję napisać aby dobrze...
Na razie wymyśliłem coś takiego: unit color; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XiButton; type TForm1 = class(TForm) Edit1: TEdit; ColorDialog1: TColorDialog; Button1: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure...
Witam. Zrobiłem prosty odtwarzacz muzyki MP3 (w załączniku) unit mp3speedplayer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, Menus; type TForm1 = class(TForm) Media: TMediaPlayer; Open: TOpenDialog; MainMenu1: TMainMenu; Plik1: TMenuItem; Otwrz1: TMenuItem; Zakocz1:...
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...
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...
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:...
Witam, Robię obsługę po RS-ie miernika Motech MT 4090. Miernik Ustawiony na Tryb Remote. I teraz kilka dziwnych rzeczy. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Chyba jednak TurboDelphiExplorer nie daje rady :( co tam mam jeszcze w programie? teraz to już nie mam NIC bo wszystko wyrzuciłem: Źródło projektu: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. plik Unit1.pas:...
Witam, jako że dopiero zaczynam swoją przygodę z programowaniem, przy pierwszym problemie lekko się zniechęciłem. Mam tu dość dziwny program, zapisujący do pliku po linijce wpisanego tekstu. Zapisywanie jest w 100% poprawne. Gorzej z odczytem. Najzwyczajniej w świecie mi nie działa, i nie wiem co z tym zrobić żeby zadziałało Kod źródłowy: unit Unit1;...
Witam. Na wstępie chciałbym uprzedzi że dopiero zaczynam przygodę z delphi :) Chcę aby mój programik połączył się z dowolnym serwerem, znalazłem w internecie jak to zrobić, ale nie działa. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,...
Witam, mam taki kod w Pascalu, który robi permutacje: P(n,r) = n! / (n-r)! [syntax=pascal]program Permute; {$APPTYPE CONSOLE} uses SysUtils; var R, Slen: Integer; procedure P(var A: string; B: string); var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then begin Write(' {' + A + '} '); {Per++} end else for J := 1 to...
Witam ostatni w dziedzinie delphi dostałem ochrzan na forum i przyniosło to skutki :) Za co dziękuję niektórym użytkownikom. Chce w swojej aplikacji zastosować wysyłanie e-mail, poszukałem przykładów jak jest to wykonane i znalazłem na komponentach indi. Wszystko było by w porządku gdyby nie to, iż program pomimo pomyślnej kompilacji i wypełnieniu pól...
Witam, A proszę Ciebie bardzo :P Nic prostszego, Tworzymy plik rekordowy i ognia :) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Math, ExtCtrls; //tutaj nasz record type TZapis = record dane : array [1..4, 1..12] of Double; end; type TForm1 = class(TForm)...
Witam funkcja AnsiReplaceStr generuje następujący błąd: "Undeclared identifier: 'AnsiReplaceStr'" Fragment kodu użytej funkcji: b := AnsiReplaceStr(z1, '.', ','); //Zamiana znaku - przecinka na kropke Sekcja USES: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls, Shellapi, IdBaseComponent,...
Witam. Chyba prościej byłoby zrobić coś takiego w oparciu o pliki INI. Podam ci przykład: Zrób nową formę, wrzuć na nią TIMER z dokładnością co do sekundy i w sekcji uses dodaj wpis: INIFiles . Dodaj zmienną globalną do projektu: INI: TIniFile; Dodaj zdarzenie OnFormCreate i w tej procedurze zostanie załadowany plik INI. Stwórz procedurę OnClose , w...
mam problem ze zczytaniem hash z noki 6303ci,zarówno po usb jak i po fbus.kabel jest ok bo zczytalem nim kilka 6303ci. MCU VersionV 06.61 MCU Date08-02-10 Product RM-638 (Nokia 6303i classic) Manufacturer(c) Nokia IMEI 3xxxxxxxxxxx Mastercode4215136057 IMEI Spare3A25860264355905 IMEI SV 3325860264355925F2000000 PPM V 06.61, 08-02-10, RM-638, (c) Nokia...
Trochę kolega "przedobrzył" :P To powinno wystarczyć :) [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, UserAgentBrowser; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; UserAgentBrowser1: TUserAgentBrowser; private { Private declarations...
stacja variant variant empty claas variant
migomat bester podajnik drutu sprężarka kompresora lodówki schemat pedał
droga dojazdowa droga dojazdowa
Napięcie wtryskiwacza w silniku Boxer 2.2 - Subaru i Peugeot Defro piec na pelet – wyrzuca korki przy starcie, zapalarka, zwarcie, diagnostyka
