Ĺadny brzuch
chce w pascalu npaisca program do obslugi pilota i tak
uses crt; var b:string; a:text; begin assign(a,'com1'); reset(a); repeat begin readln(a,b); writeln(b); until keypressed; readln; end.
poraz pierwszy robie program do obslugi urzadzenia z portu szeregowego
i nieweim jak to powinno wygladac myslalem ze po takim czysm to bedzie mi wyrzuca po wcisniecu klawisza na pilocie (do portu szeregowego jest podlonczona irda) bedzie wyrzuca mi cos ale
Chciałbym wiedzieć jak to bedzie w delphi i czy da sie w ten sposub zamiast nap com1 wstawic cos zeby sie polonczyc z mikrofonem,glosnikiem itp
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
Delphi + asm + www.4programmers.net i da rade
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
Co ty tu napisałeś!?
[code]
uses crt; (moduł crt)
var b: string; (zmienna znakowa)
var a: text; (zmienna pliku tekstowego) CO TO JEST?!
begin
assign(a,'com1')(skojarz zmienną tekstową a z plikiem tekstowym com1 CO TO JEST?!
reset(a) (otwórz plik)
repeat (powtarzaj)
readln(a,B); (odczytaj linie z pliku a i przekaż do B) CO TO JEST?!
writeln(B) (napisz zmienna b na ekranie)
until keypressed(az do nacisniecia klawisza)
readln; (czekaj do nacisniecia entera)
end. (koniec)
i gdzie tu widzisz niby PORT COM!
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura.
Pozdrawiam.
PS o co ci chodzi z tym mikrofonem? Pascal nie obsluguje mikrofonu.
Piszcie na forum i piszcie na e-mail: pokorski@neostrada.pl
assign(a,'costam')
nie sluzy tylko do skojarzena z plikem zamiast nazwy plku mona wpisac
inne zeczy np .
'aux' - pierwszy port szeregowy
'com[numer poru]' -port szerwgowy o danym numerz
'con' - consloa (monitor i klawiatura)
'' - to samo co 'con'
'nul' - wyslanie wiadomosci w przestrzen
'prn' - drukarka podlonczona do poru lpt1
'lpt[numer poru]' - drukarka podlonczona do o danym numerz
wiec co ty mi tu wyskakujesz z tekstem
"i gdzie tu widzisz niby PORT COM!
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura."
wlasnie to wyczytalem w ksiazce "praktyczny kurs turbo pascala"
i moze sam sobie najpierw poczytaj a nie komentujesz to takimi tekstami
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
cytat:Karol - programista napisał:
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura.
Poczytaj troche o pascalu i dopiero potem odpowiadaj - jeżeli ty o czymś nie wiesz, to nie znaczy, że takie coś w ogóle nie istnieje!
cytat:CO TO JEST?!
Polecam kurs dla początkujących: http://turbopascal.s...teka.pl/13.html - tutaj dowiesz się o plikach tekstowych.
cytat:PS o co ci chodzi z tym mikrofonem? Pascal nie obsluguje mikrofonu.
Pascal to język programowania, więc sam z siebie niczego nie "obsługuje", ale na pewno można w nim napiasć program, który "obsługuje" mikrofon.
Pozdrawiam i zapraszam na *** www.windowsik.prv.pl ***
do puszczenia czegos z glosniczka lub nagrania dzwieku z mikrofonu uzyj Tmediaplayer
co do tego co pisales z tym assign..
wykaz z pomocy delphi:
You can define your own text-file device drivers for your programs. A text-file device driver is a set of four functions that completely implement an interface between Object Pascal#8217;s file system and some device.
The four functions that define each device driver are Open, InOut, Flush, and Close. The function header of each function is
function DeviceFunc(var F: TTextRec): Integer;
where DeviceFunc is the name of the function (that is, Open, InOut, Flush, or Close). The return value of a device-interface function becomes the value returned by IOResult. If the return value is zero, the operation was successful.
To associate the device-interface functions with a specific file, you must write a customized Assign procedure. The Assign procedure must assign the addresses of the four device-interface functions to the four function pointers in the text-file variable. In addition, it should store the fmClosed #8220;magic#8221; constant in the Mode field, store the size of the text-file buffer in BufSize, store a pointer to the text-file buffer in BufPtr, and clear the Name string.
Assuming, for example, that the four device-interface functions are called DevOpen, DevInOut, DevFlush, and DevClose, the Assign procedure might look like this:
procedure AssignDev(var F: Text);
begin
with TTextRec(F) do
begin
Mode := fmClosed;
BufSize := SizeOf(Buffer);
BufPtr := @Buffer;
OpenFunc := @DevOpen;
InOutFunc := @DevInOut;
FlushFunc := @DevFlush;
CloseFunc := @DevClose;
Name[0] := #0;
end;
end;
The device-interface functions can use the UserData field in the file record to store private information. This field isn#8217;t modified by the product file system at any time.
wesoledi.prv.pl
+1 post
to ktos wie jak to zrobic z tym pilotem w pascalu
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
może spróbuj się zapytać na elektrodzie - oni tam bawią się chyba w takie rzeczy.
www.lewbar.prv.pl
jakiej elektrodzie
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
http://elektroda.pl/
--------------------
-=[ Delphi rUlzZz ]=-
www.elektroda.pl
www.lewbar.prv.pl
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
uses crt; var b:string; a:text; begin assign(a,'com1'); reset(a); repeat begin readln(a,b); writeln(b); until keypressed; readln; end.
poraz pierwszy robie program do obslugi urzadzenia z portu szeregowego
i nieweim jak to powinno wygladac myslalem ze po takim czysm to bedzie mi wyrzuca po wcisniecu klawisza na pilocie (do portu szeregowego jest podlonczona irda) bedzie wyrzuca mi cos ale
Chciałbym wiedzieć jak to bedzie w delphi i czy da sie w ten sposub zamiast nap com1 wstawic cos zeby sie polonczyc z mikrofonem,glosnikiem itp
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
Delphi + asm + www.4programmers.net i da rade
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
Co ty tu napisałeś!?
[code]
uses crt; (moduł crt)
var b: string; (zmienna znakowa)
var a: text; (zmienna pliku tekstowego) CO TO JEST?!
begin
assign(a,'com1')(skojarz zmienną tekstową a z plikiem tekstowym com1 CO TO JEST?!
reset(a) (otwórz plik)
repeat (powtarzaj)
readln(a,B); (odczytaj linie z pliku a i przekaż do B) CO TO JEST?!
writeln(B) (napisz zmienna b na ekranie)
until keypressed(az do nacisniecia klawisza)
readln; (czekaj do nacisniecia entera)
end. (koniec)
i gdzie tu widzisz niby PORT COM!
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura.
Pozdrawiam.
PS o co ci chodzi z tym mikrofonem? Pascal nie obsluguje mikrofonu.
Piszcie na forum i piszcie na e-mail: pokorski@neostrada.pl
assign(a,'costam')
nie sluzy tylko do skojarzena z plikem zamiast nazwy plku mona wpisac
inne zeczy np .
'aux' - pierwszy port szeregowy
'com[numer poru]' -port szerwgowy o danym numerz
'con' - consloa (monitor i klawiatura)
'' - to samo co 'con'
'nul' - wyslanie wiadomosci w przestrzen
'prn' - drukarka podlonczona do poru lpt1
'lpt[numer poru]' - drukarka podlonczona do o danym numerz
wiec co ty mi tu wyskakujesz z tekstem
"i gdzie tu widzisz niby PORT COM!
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura."
wlasnie to wyczytalem w ksiazce "praktyczny kurs turbo pascala"
i moze sam sobie najpierw poczytaj a nie komentujesz to takimi tekstami
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
cytat:Karol - programista napisał:
Poczytaj troche o pascalu i dopiero potem pytaj bo to co napisałeś to bzdura.
Poczytaj troche o pascalu i dopiero potem odpowiadaj - jeżeli ty o czymś nie wiesz, to nie znaczy, że takie coś w ogóle nie istnieje!
cytat:CO TO JEST?!
Polecam kurs dla początkujących: http://turbopascal.s...teka.pl/13.html - tutaj dowiesz się o plikach tekstowych.
cytat:PS o co ci chodzi z tym mikrofonem? Pascal nie obsluguje mikrofonu.
Pascal to język programowania, więc sam z siebie niczego nie "obsługuje", ale na pewno można w nim napiasć program, który "obsługuje" mikrofon.
Pozdrawiam i zapraszam na *** www.windowsik.prv.pl ***
do puszczenia czegos z glosniczka lub nagrania dzwieku z mikrofonu uzyj Tmediaplayer
co do tego co pisales z tym assign..
wykaz z pomocy delphi:
You can define your own text-file device drivers for your programs. A text-file device driver is a set of four functions that completely implement an interface between Object Pascal#8217;s file system and some device.
The four functions that define each device driver are Open, InOut, Flush, and Close. The function header of each function is
function DeviceFunc(var F: TTextRec): Integer;
where DeviceFunc is the name of the function (that is, Open, InOut, Flush, or Close). The return value of a device-interface function becomes the value returned by IOResult. If the return value is zero, the operation was successful.
To associate the device-interface functions with a specific file, you must write a customized Assign procedure. The Assign procedure must assign the addresses of the four device-interface functions to the four function pointers in the text-file variable. In addition, it should store the fmClosed #8220;magic#8221; constant in the Mode field, store the size of the text-file buffer in BufSize, store a pointer to the text-file buffer in BufPtr, and clear the Name string.
Assuming, for example, that the four device-interface functions are called DevOpen, DevInOut, DevFlush, and DevClose, the Assign procedure might look like this:
procedure AssignDev(var F: Text);
begin
with TTextRec(F) do
begin
Mode := fmClosed;
BufSize := SizeOf(Buffer);
BufPtr := @Buffer;
OpenFunc := @DevOpen;
InOutFunc := @DevInOut;
FlushFunc := @DevFlush;
CloseFunc := @DevClose;
Name[0] := #0;
end;
end;
The device-interface functions can use the UserData field in the file record to store private information. This field isn#8217;t modified by the product file system at any time.
wesoledi.prv.pl
+1 post
to ktos wie jak to zrobic z tym pilotem w pascalu
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
może spróbuj się zapytać na elektrodzie - oni tam bawią się chyba w takie rzeczy.
www.lewbar.prv.pl
jakiej elektrodzie
------------------------
gg:6245630
nie jestem mistrz11 tylko 4d4m_! te mistrz11 to kiedyś miałem tak tylko żeby jeden post napisać i bo czegoś nioewiedziałem i tak zostało!!!
------------------------
http://elektroda.pl/
--------------------
-=[ Delphi rUlzZz ]=-
www.elektroda.pl
www.lewbar.prv.pl