Marcin, początkujący programista, wita wszystkich na forum. Mój pierwszy program z przerwaniem sprzętowym i pierwszy blok w SCL.... i pierwszy problem nie do rozwiązania samodzielnie... Blok Hardware Interrupt wygląda tak: REPEAT IF "Read_Io" = TRUE THEN "Io" := "Ix_sc(4-20)"; "Read_Io" := FALSE; END_IF; IF "Read_Ia" = TRUE THEN "Ia" := "Ix_sc(4-20)";...
Program się wiesza bo jest zbyt zajęty pętlą repeat-until. Jeżeli by to miało być tylko opóźnienie 100ms, to wystarczy sleep(100). Jeżeli konieczna jest pętla repeat-until, to w jej wnętrzu proponuję dodanie jeszcze np sleep(10) - aby system mógł wykonać inne operacje np. procedurę od Timera. Niestety nawet przy bardzo dużych parametrach dla Sleep...
repeat until false; Zawieszenie programu - pętla się nigdy nie skończy gdyż warunek wyjścia będzie zawsze fałszywy czyli nigdy nie będzie spełniony.
repeat //powtarzaj until Upcase(znak)<>'T'; //dopoki wprowdzony znak (duza litera) jest rozny od 'T' wprowadzajac 'n' spelniasz warunek ,bo 'N' jest rozne od 'T'
kolega szwagros ma racje. brakuje repeat. ; ) dziekuje bardzo
[syntax=pascal]Program Liczby; var x,i:integer; // deklarujemy zmienne tab: array [1..10000] of integer; //deklarujemy tablice begin i:=1; // na poczatku i wynosi 1; repeat // rozpoczynamy petle begin readln(x); // user podaje liczbe tab[i]:=x; // podstawiamy do tablicy podana liczbe i:=i+1; // zwiekszamy liczbe podanych liczb o 1 until x=0; for x:=1...
Wiem, łączenia okropnie wyglądają, to w skutek ciągłych zmian, ale to tylko płyta testowa, jak uda mi się odpalić LS020 to docelowy układ dla tego wyświetlacza będzie zupełnie inny :) Tutaj zdjęcia: A tutaj program, jeden z wielu i chyba ten wygląda na najbardziej ok: Dodano po 1 Dodam, że programuje BASCOM AVR, najzwyczajniej podłączając Megę8 do portu...
Witam Przeglądałem tematy na forum ale nie znalazłem jednoznacznej odpowiedzi... Na wyświetlaczy mam tylko śnieg czyli pali się tylko podświetlenie gdy odłączę napięcie 1V8(1,75V) to pokazują się kolorowe pasy. Nie pomaga połączenie 1V8 i 2V9(2,95V) Korzystałem już z tylu kodów z forum ze nie wiem jaki wrzucić... Atmega to tak jak w temacie Mega16 taktowana...
No właśnie taki kod przychodzi do głowy jako pierwszy ale to nie działa, nic mi sie nie wyświetla. Może na początek jakiś prosty zegarek spróbuje zrobić więc pisze taki kod: [syntax=basic4gl] $hwstack = 100 $swstack = 100 $framesize = 100 $regfile = "m128def.Dat" $crystal = 8000000 $baud = 19200 '=== Config the hardware === Rs Alias Portb.7 'S65 Data/command...
Witam. Mam program do obsługi wyświetlacza tft z dotykiem. Program nie mój, działa prawidłowo ale jest problem z szybkością wyświetlacza i chciałbym przejść na Xmega128A3. Problem w tym że Xmegi nigdy nie miałem "w rękach" i mam problemy z przeróbką programu. Chciałbym też wiedzieć na pewno że ten program będzie działał na Xmega zanim wpakuję się w...
Siemka ugh123 :D Co prawda nie mam tego wyświetlacza (Nokia), lecz o wiele większy. Ale do do tematu. Pliki ".bgc" są zapisywane w 8-bitowym kolorze, Ja pracuję z 16-sto bitowymi kolorami, więc konieczna jest konwersja z 8 na 16 bitów. Informacje na temat wymieniony przez Ciebie znajdziesz w sieci (poszukaj). Nie dam Ci gotowca,i sądzę, iż nikt Ci nie...
arnoldziq. Dostałeś pomógł, bo na prawdę mi pomogłeś. Chodzi o funkcję ReadKey oraz KeyPressed. To eliminuje użycie asemblera do odczytu znaków z klawiatury. Reszcie dziękuję za spopularyzowanie tego tematu. Ogólnie to program chodzi paskudnie. Działa bardzo powoli. Spodziewałem się tego. Ale na początek nauki programowania wystarczy. Na razie nie chcę...
Zobaczcie to, ale w Twoim przypadku podejżewam problem z systemem operacyjnym. Sprawdz czy nie masz zainstalowanej drukarki, która moze Ci mieszać tekst : Receipt printer commands to open cash drawers Ithaca 1 27,43 Ithaca 2 "&%DF" Ithaca 50 (RecTrac! pre-set) 7 Ithaca 80 (RecTrac! pre-set) 27,112,48,5,5 Ithaca 80Plus 27,112,48,64,64 (actually used...
method Read copy from string into buffer. Your buffer is array of byte. try..finally section - in finnaly free stream. Dodano po 3 and why program hang while sending bytes to com For how long? Maybe you have low speed COM port, also operation write can take a while (you can calculate this ;) )
CAR300(D) Switch On the Vehicle Ignition and press and hold the "AS" button as you turn the unit on. The Radio will beep followed by "10 - - - -" on the display. If the display shows "SAFE" then the unit is Codelocked, and will require Decoding to reset. Press Preset "1" repeatedly until the first digit is correct Press Preset "2" repeatedly until the...
BETA Switch On the Vehicle Ignition and turn the unit on. The Radio will display "SAFE" followed by "1000" after 5 seconds If the display continues to show "SAFE" and a number in the bottom left of the display, then the unit is Codelocked, and will require Decoding to reset. Press Preset "1" repeatedly until the first digit is correct Press Preset "2"...
Zajdz na stronę o tym Dell The Dell XPS 13 2-in-1 uses system diagnostic lights to communicate any issues with the device should it not be able to boot. This system has been used for a while and uses both the amber and the white light to tell you what’s going on. Here are a few of the system diagnostic light codes it uses. The example will be...
Napisz fragment kodu dla przykładu. coś ze starych zasobów [syntax=pascal]Program BazaTeleadresowa; Uses Crt; type TData = record {definicja typu danych strukturalnego} Imie: String[10]; {dane - stringi o okreslonej dlugosci} Nazwisko: String[15]; Tel: String[12]; Ulica: String[20]; Mieszkanie: String[5]; Miasto: String[15]; Kod: String[5]; end; const...
siemka Mam problem z sortowaniem rekordów w bazie danych. Nie chce mi sie skompilować ponieważ mam gdzieś błąd. Męczę ten temat juz dosyć długo dlatego teraz postanowiłem zwrócić sie o pomoc . [syntax=pascal] program baza; uses crt; type ksiegarnia = record tytul, autor, rok, numer:string[20]; cena: Real; ilosc:Byte; end; var Klaw, Klawisz2:char; Licznik:byte;...
witma .. mam kompletna baze danych juz napisana .. ale brakuje jej tylko odczytywania z pliku .. ktos moze mi mopoc gdzie mam ja wpisac i jak mam ja powiazac z czyms oto baza : Program prawie_gotowy; Uses CRT; Const haslo='dupa'; Var wprowadz:String; petla:byte; imie,nazwisko,telefon: array [1..30] of string; c,c2,c3:char; iloscosob:byte; t1:byte; plik:text;...
Witam. Mam taki problem. Mam barze danych w free pascal. Problem jest taki że nie potrafię zrobić kilku rzeczy, które chciałbym aby się znalazły w programie.. - Po wybraniu SZUKAJ pojawiało się pole wyboru: szukaj po: 1.kolorze, 2.marce, 3.roku produkcji.. i zabezpieczenia przed brakiem samochodu w bazie po danym typie.. - zabezpieczenia przed wpisaniem...
Witam! Mam 2 pytanka: 1)Jak zrobić w C++ odpowiednik pascalowskiego repeat...until...keypressed?? Funkcja ma sie powtarzać dopuki nie nacisne jakiegoś klawisza. 2) Jak w C++ zastosować delay... np na 500ms delay(500)...bo kompilator twierdzi że nie ma takiej funkcji....
Program nadal zawiera blad (warunek zakonczenia petli repeat... until ). Proces losowania mozna zautomatyzowac w taki sposob: for i := 1 to 5 do begin los[i] := random(49)+1; for j:=1 to i-1 do if los[i]=los[j] then begin i:=i-1; break; end; end; Poza tym poprawnie bylo by zdefiniowanie stalej okreslajacej...
1. Napisałem sobie w Delphi 7 programik, który wyświetla w oknie informacje dotyczące wolnego miejsca na HD. Jak jednak zrobić, by informacje aktualizowały się np. co 10 sekund? Włożenie wszystkiego pod pętlę Repeat-until nie skutkuje. 2. Jak używać głośnika komputera (PC Speaker)? Znam nieco Turbo Pascala, ale w Delphi jest nieco inaczej. 3. Jak można,...
Witam. Brakuje początku. Może poniżej zamieszczę kod "mojego" programu. Są to w zasadzie sklejki fragmentów kodów z książki. unit termos; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TTermostat = class(TForm) RichEdit1: TRichEdit; Odbieraj: TButton;...
Witam Potrzebuje pomocy w opracowaniu algorytmu dualnego simpleks w języku c, dokładnie chodzi o znalezienie błędu w programie, program się kompiluje ale nie odpala, jak by ktoś był na tyle dobry i zerkną na to to bym był bardzo wdzięczny: # include <stdio.h> # include <stdbool.h> main (void) { int nminm; int m, n, fopt ; float...
Sugeruję zajrzeć tutaj : [url=]Pętle REPEAT..UNTIL oraz WHILE..DO
IntToStr to po prostu zamiana liczby na string (zgodnie z nazwą). Praktycznie podałem gotowy algorytm. Pęlta? Wedle uznania! Może być for, while, repeat..until... Badasz tak długo, aż dojdziesz do końca ciągu wejściowego.
robisz drugą pętlę w tej pętli, która szuka od miejsca 0 do $i, czy taka wartość już występuje. Najprościej zapisać takie przeszukiwanie w funkcji, a jej wynik użyć jako argumentu do pętli repeat..until obejmującą samo losowanie. 0. i = 0 1. jesli i >= max to koniec. 2. losuj = wartosc_wylosowana() 3. sprawdz od 0 do i, czy losuj = tab[i];...
No cóż...na razie struktury dynamiczne są dla mnie za trudne. Starałem się jakoś napisać program na strukturze statycznej i wyszło mi to tak mniej więcej jak poniżej. [syntax=pascal]program wypozyczalnia; uses crt; type auto=record marka:string; model:string; rok:integer; km:integer; wypozyczajacy:string; cj:boolean; end; klient=record id:integer; imie:string;...
Co do rozwiązania problemu to raczej "wsio rybka" chociaż nas uczyli, że pętla zaczyna się od warunku a nie od inkrementacji. Inkrementacje wykonuje się na końcu. A co do tego przypisania na początku, to nie dowiemy się nim autorka się nie wypowie. To nie jest prawda. Pętle repeat..until (do..while) właśnie bardzo często rozpoczną się od inkrementacji...
Yamaha RX-V481 Ampli kupiony na początku stycznia 2017, od tego momentu używany często aż do wczoraj. Podłączenie jest od początku następujące: PS3 do ampli - HMDI IN. Dekoder UPC do ampli - HMDI IN. Net do ampli po kablu. Ampli do TV - HDMI OUT. Nagle po 3 miesiącach użytkowania przestało działać. Objawy - na wyświetlaczu napisy wyblakłe. Nie można...
Witam Mam następujący problem. Napisałem program który wysyła z jednego komputera ciąg znaków. Działać ma pod DOSem i tylko DOSem ... napisany jest w turbo Pascalu. Program czyta z portu COM1 nadchodzące dane... czyżby?? Czyta jakieś bzdury!! Zamiast czytać takie dane jakie przychodzą na port to program wypisuje mi same znaki r z daszkiem... A żeby...
Witam, czy może mi ktoś pomóc w narysowaniu schematu blokowego tych 2 programów? Pozdrawiam serdecznie i z góry dziękuję. program 1: Program Zgadywanka; uses crt; var pr,li,a,b,x:integer; c:char; label new,zle; begin new: clrscr; randomize; li:=random(70+1)+10; pr:=0;a:=10; b:=80; repeat pr:=pr+1; writeln('Podaj...
begin repeat repeat repeat a:=dane[i]; b:=dane[j]; c:=dane[k]; if (i<>k) and (j<>k) and (i<>j) then sprawdz(a,b,c); k:=k+1; until k=n; j:=j+1; until j=n; i:=i+1; until i=n; Według takiego schematu zrobiłbym całą pętlę programu, korzystając z funkcji, którą...
Ale to tak funkcjonuje ;) Wycinek z programu, który dokonywał konwersji BMP na WAV (tak, to nie pomyłka - analizator XY dźwięku pokazywał obraz!) with FS do begin Write('RIFF',4); len:=Round(MediaPlayer1.Length*&... // freq/1000 * 2 fps:=MediaPlayer1.Length; MediaPlayer1.TimeFormat:=tfFrames; ProgressBar1.Max:=MediaPlayer1.Lengt...
Witam. Nie wiem jak zrobić usuwanie wybranego elemnetu z listy jednokierunkowej. Usuwanie ma być pod 3 w case of. Z góry dzięki za pomoc. [syntax=pascal]program nowy; uses crt; label poczatek,koniec; type w_samochod=^samochod; samochod=record marka:string; model:string; pojemnosc:string; moc:string; poprzedni:w_samochod; end; var w_tmp,w_poprzedni:w_samochod;...
Witam!! Mam do napisania prostą grę w Pascalu polegającą na zbieraniu opadających symboli '(at)' za pomocą platformy w konsoli . Chciałbym zapytać o kilka rzeczy: Jak zrobić aby poruszać się platformą i jednocześnie opadały symbole. Dlaczego, gdy wciskam strzałki program wykonuje pętlę dwukrotnie? i jak się tego pozbyć. Jak mam zrobić podliczanie punktów...
AVE... Będąc młodym programistą chciałem stworzyć urządzenie USB HID na bazie PIC18F45K50 i języka MikroPascal. Użyłem do tego szczytnego celu gotowej biblioteki z tego linka: Z jakiegoś powodu program testowy nie chce działać, komputer wystawia błąd 43, VID i PID są równe zeru. Poniżej kody główny i konfiguracji. CONFIG1L :$300000 : 0x0023...
W sortowaniu stogowym Cormen i reszta podają pseudokod procedury przywracającej kopiec z użyciem rekurencji. Jak zapisać równoważną procedurę w sposób iteracyjny? Proszę w przyszłości używać znaczników syntax. Tym razem poprawiłem.
Dziękuję Panom za chęć pomocy, pozostaje mi holowanie co niestety i tak nie będzie łatwe bo parking 24h zawalony autami, jedno przy drugim i za drugim, moim wielkim Blazerem nie da się nawet na jeden raz wyjechać. Pozdrawiam :). Jak pojedziesz do majstra i będzie to co było niech ci wyciągnie kod pin z BCM jak może. "Na przyszłość". Bo znając pin zrobiła...
proszę bardzo: "Setting the Display Language 1 Press and hold [Select] while powering ON. Hold [Select] until CONFIG LANGUAGE appears. 2 Release [Select]. INTERNAL TEST appears briefly. Wait for LANGUAGE=ENGLISH to appear. 3 Press [+] repeatedly until the desired language appears. 4 Press ]Select] to save your choice. An asterisk (*) will appear beside...
cytuje serwisówkę (w razie potrzeby służe tłumaczeniem ale tylko w razie potrzeby): Setting the display language 1 Press and hold
Spruboj tak, powinno dzialac, ale nie mam przy sobie TP, wiec moga byc jakies bledy skladniowe, itp.: Program Lista; Uses crt; var l: array [ 0 .. 255 ] of real; n: integer; z: char; begin ClrScr Write('Podaj pierwsza liczbe i zatwierdz wciskajac [ENTER]: '); Readln(l[1]); n:=2; Repeat Write('Podaj kolejna liczbe: '); Readln(l[n]); n:=n+1 Write('Czy...
Czy mogę prosić kogoś o skompilowanie tego sterownika dokonującego konwersji plików graficznych ze standardu HP-GL/2 na język poleceń plotera MDG-1 lub o podpowiedź czym to skompilować Nawet nie wiem w jakim to jest języku program HPGL; uses crt,dos,printer,graph,bgidriv; {$G+} var nazwa_pliku: string[12]; mnemonika: string[2];...
Witam Mam problem z połączeniem przez RS232 z zewnętrznym uK pod Win98. W programie do testowania transmisji S3Term procek sie komunikuje bez problemu a program napisany w pascalu kompletnie nie dziala :( dodam że używam Free Pascala. Transmisję napisałem na podstawie znalezionych na elektrodzie porad. const com=$3f8; var odbior,i: word; z: longint;...
program sortowanie; uses crt; var tab:array po pierwsze primo to kod pisz w znacznikach CODE. po drugie primo to strasznie pogmatwany ten twój kod. domyślam się, że chcesz zrobić sortowanie w kolejności rosnącej. Program Sortowanie; uses crt; var T:array[1..20] of integer; //wyswietlanie zawartosci tablicy na ekranie Procedure PokazTab;...
writeln('pole trojkata rownobocznego o boku ', d,' i wysokosci ', h,' wynosi ', wynik:2:2); Wystarczy dodać "ciapki" :P (znaczy apostrofy) kończące stringi - wtedy zadziała jak chcesz. A pętla - weź całość w pętlę repeat .. until: var a, b, c, d, e, f, h, wynik: real; z: integer; begin repeat {tutaj cała treść programu}...
Chciałbym zrobić pętlę (typu repeat - until), która byłaby wykonywana gdy dany klawisz jest wciśnięty, a kończona, gdy zostanie puszczony. Coś w stylu: repeat a:=readkey; cośtam... until "klawisz puszczony" No i żeby przy stale wciśniętym klawiszu nie zaczął go cały czas powtarzać, tylko żeby odczytywał znak z klawisza tylko raz na początku jego dłuższego...
Witam, do dokładnego odliczenia jednostki czasu możesz wykorzystać funkcje GetTickCount, jest to w miarę proste rozwiązanie lub skorzystać z dwóch funkcji QueryPerformanceFrequency(); i QueryPerformanceCounter(); zamieszczam kawałek kodu z użyciem GetTickCount. procedure DelayM(interwal_w_milisekundach:... var Start:longint; begin...
Program obliczanie pola trójkąta Uses crt; Var a,h,pole:Real; Begin Clrsclr: Write(‘podaj długość boku a’);readln(a); Write(‘podaj wysokośc trójkąta h’);readln(a); Pole:=a*h/2 1) Po napisaniu program w pascalu jest zasada ze tekst ma być spójny bez spacji i ciągły wiec jako znak spacji...
to mi wyglada jak zwykly pascal, nie uzywaj w nim polskich liter, "then to" na "then", zamiast / powinno byc DIV bo dzielisz liczby calkowite i repeat nie mialo until Program kalkulator; Var liczba1:integer; liczba2:integer; chr:char; decyzja:integer; Procedure DODAWANIE; Begin WriteLn('Podaj dwie liczby'); ReadLn(liczba1,liczba2);...
A tak a propos? Kompilowales kolego Dixon18 ten program? Czy w notatniku go napisales? On nie ma prawa dzialac. Ale niech bedzie i ostrzegam ze od kiedy przezucilem sie dawno temu na C to mi sie skladnia myli i nie gwarantuje ze bedzie dzialac. A pozatym jak wiesz ze masz zaliczenie to sie od poczatku semestru uczy a nie dzien przed forumowiczow o prosty...
W liceum miałem pascala wiec coś takiego wystrugałem jednak C ni w ząb...Czy ktoś mógłby pomóc napisać program w C podobny do tego poniżej? Program Liczby_pierwsze; Uses Crt; Var N, K : Integer; i, j : Integer; Licz : Integer; Begin Repeat Clrscr; Writeln('Podaj liczbę naturalną (N > 1)'); Write('n = '); Readln(N);...
Język nie zmieni się "przypadkowo" ale może to Ci pomoże Setting the display language 1 Press and hold [Select] while turning on the printer. Hold [Select] until SELECT LANGUAGE appears. 2 Release [Select]. INITIALIZING appears briefly. Wait for LANGUAGE=ENGLISH to appear. 3 Press [– Value +] repeatedly until the desired language appears. 4 Press...
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10101100 10101010 01101011 coś takiego pętle już zrobiłem ale zapisuje tylko jedną liczbę binarna w notatniku [syntax=pascal]program postac_binarna;...
Program do kompilacji pod Free Pascala pod DOSa. Założenie jest takie : program ma zmieniać godzinę w czasie systemowym o +1 po naciśnięciu strzałki do góry i odpowiednio o -1 po naciśnięciu strzałki w dół na klawiaturze. Wymyśliłem sobie to tak: 1. odczytam aktualną godzinę ( przerwanie 21h funkcja 2Ch) 2. dodam lub odejmę 1 3. zapiszę poprawionę godzinę...
Witam Mam Problem z napisaniem 2 procedur Sam coś tam zrobiłem z pomocą Google ale nie wiem czy dobrze zadanie jest z matury z przed paru lat , mam je oddać na zaliczenie roku 1 Procedura "W zestawieniu dla każdego pracownika, w osobnym wierszu, zamieszczono jego następujące dane: imię, nazwisko, data urodzenia, kod. Postaci wiersza zestawienia odczytaj...
wielkie dzięki ;) tylko mam problem z tym sortowaniem bo myślę że napisałem wszystko dobrze jednakże nie sortuje ... mógł by ktoś pomóc ?? i mam pytanie czy jest jakaś procedura/funkcja do zatrzymywania wyświetlanego tekstu ??(chodzi o to żeby np. wyświetliło 1 osobę po kliknięciu następną itd. a nie od razu wszystkie i widać tylko ostatnie) Dodano...
Yyyy. ten manual widzialem juz z 10 razy jest w nim napisane cos takiego: When using the unit for the first time: In order to deactivate the demonstration mode, be sure to press the transmit button to transmit the Mask Key's signal. If this procedure is not carried out, the control panel of the unit will re-open in two seconds even with your vehicle's...
Is it possible to verify the following program to run correctly on attiny2313A? It is: [syntax=cpp]//##########################... //##### SUMLOG with stepper and crystal 6.0MHz ##### //######################################... //Port assignment: //Port D.6 [input] = reed Switch //Port D.5 [input] = unused //Port D.4 [input]...
Witam. Co oznacza ostrzeżenie: "dereferencing type-punned pointer will break strict-aliasing rules [-Wstrict-aliasing]". Widać w kodzie że odnośi się do makra LD_WORD W odnośniku załączam cały projekt. Pojawia się on w kilku miejscach kodu: [syntax=c] plik pff.c Ostrzeżenie występujew tych miejscach: linia 376: wc = LD_WORD(buf); linia 381: return LD_WORD(buf);...
Niby da rade, z tym ze chińczyk raczej polegnie. VW Passat (3C) Immobilizer Key Matching Prerequisites: At least one original matched key is present. All keys are either brand new (meaning ordered by VIN at the VW Dealer) or were adapted to this car (IMMO-ID) before. While adapting each key, make sure to place the other keys away from the ignition lock...
Robiąc fotki chodziło mi o maszynę a to co się wyświetla potrafię sobie wyobrazić. Zegar zlicza do tyłu czy do przodu? Wydaje mi się że do tyłu czyli do wartości 0:00:00 a podczas tego liczenia zmienia kolory i może pokazywać się coś jeszcze. ... sequence is repeated until the burn-in time is completed. and then a final test ... the LCD meter displays...
opatologicznie marcin walcze juz 5h wiec nie kumam juz Dodano po 6 dopiero to zadziałało # Turn on the computer. When the initial logo screen appears, press the F10 key repeatedly until a message about starting recovery appears. # At the Recovery screen, click Advanced Options and then press the Alt and D keys at the same time to go to a command prompt....
google nie gryzą kod błędu w google 0000c1f5 i pierwszy link So, here’s an overview of how I fixed my system. For part 1, you need a SystemRescueCD disc (and don’t forget that Linux commands are case-sensitive): 1. Boot the SystemRescueCD disc, answering any localization questions as required, until you get to a command prompt. 2. Mount...
Reseting the Engine Oil Life Display Honda CRV 2007-09 US 1.Turn the ignition switch to the ON (II) position 2.Press the Select/Reset knob repeatedly until the engine oil life is display 3.Press the Select/Reset knob for about 10 second. The information display shows the reset mode initial display as shown. 4.Select the"OIL LIFE" indicator by turning...
1. Hold down the MENU button for one second or more. "MENU" is displayed and the menu mode is turned on. 2 Press the ¢button repeatedly until the Selectable Illumination function appears in the display. Press the 4button to search in the other direction. The function setting is indicated by "COL GRN" or "COL AMB" in the display, indicating that...
Wprowadz sobie 2 zmienne - pierwsza niech przechowuje wynik dzialnia na poczatku programu. Nastepnie zrob petle(np. repeat until), gdzie pierwsza zmienna bedzie podstawiana do kolejnego dzialania a wynik zapisywany w drugiej zmiennej. Porownaj zmienne jezeli nie sa rowne to do pierwszej zmiennej zapisz druga zmienna. W until porownaj jeszcze raz tylko...
Co do lampy i panelu (il. przepracowanych h) z manuala 1) Enter the service menu the usual way ("i +" -> "5" -> Vol "+" -> Power) 2) The "Back to Previous Channel" (it is the right of the "0") 2 or 3 times (should be a menu "Panel Service") 3) Press the "2" repeatedly until you see the left figure 21 and the word Timer 4) The string will be written...
Według mnie nie będzie prawidłowy. Wejście jednego urządzenia łączysz z wyjściem następnego (skrętka DMX). W tym przypadku opis wejść i wyjść jest odwrotny niż w standardzie czyli nadajnik sygnału na wejście a urządzenia wykonawcze na wyjście. Tutaj jest odwrotnie, tak wynika ze schematu. Czyli panel na wyjście sterownika/zasilacza, wyjście pierwszego...
Wierzę, że temat LPT jest tak stary, że niewiele osób wie jeszcze o czym mowa... Piszę program w pythonie (na linuksie) posiłkując się jakimiś innymi. Coś takiego daje wyniki (0 gdy urządzenie jest włączone i 'jakieś' po włączeniu i wyłączeniu (różne po cyklu)): The status ports bits are as follows: 7BUSY (note that it is inverted on input)...
(at)Piotrus_999 W standardzie C99 jest tylko coś takiego: An iteration statement causes a statement called the loop body to be executed repeatedly until the controlling expression compares equal to 0. Nie jest bezpośrednio wskazane, że jest to UB.
Do pomiaru temperatury czujnikami DS1820 zastosowałem układ DS2482-800. Do jego obsługi skorzystałem z bibliotek Maxima i wszystko pięknie działa. Nie działa mi tylko jedna funkcja - do odczytu nr seryjnych podłączonych układów. Może ktoś z Was stosował te układy i te biblioteki i ma jakieś doświadczenia z nimi? Poniżej kod funkcji w której program...
Stąd pytania: czy BL0942 korzysta z tego samego UARTu co bootloader, łatwiej byłoby się przylutować do nóżek soic-8 bez kanibalizowania obudowy :idea: Tak. Temat: Akapit "Wgrywanie własnego wsadu - OpenBK7231N - część 2" początkowo myślałem, że obecność BL0942 na tym samym UART co bootloader zakłóci programowanie, ale u mnie poszło bez problemów. Może...
Czy masz jakiś pomysł, czy WB3S toleruje 5V? Według arkusza danych Tuya maksymalne napięcie wejściowe we / wy wynosi 3,6, ale według Espressif ESP32 również nie obsługuje 5 V, ale toleruje je dobrze - więc zastanawiam się, czy wiesz, czy tak jest również w przypadku WB3S. Pytam, ponieważ poziom logiczny wtórnego MCU -> RF Chip wynosi 5 V. Brak konieczności...
Tylko zapomnieliście napisać że wywołanie sleep-a powoduje wywalenie się innych wontków absługujących comy. Jeżeli będziesz używał sleepa to inne programy kożystające z zależności czasowych mogą ci działać nieprawidłowo. Zastosuj lepiej typ nal: tdatetime; nal:=now; repeat application.ProcessMessages; until (now > (nal+20/msecsperday));
W BASICu masz polecenie TIMER, dzięki któremu możesz określić jak długo jest przetwarzana pętla: t=timer repeat until (timer-t)<=100 to przykładowa pętla opóźniająca w OMIKRON.Basic'u (Atari ST), GFA Basic'em się nie bawiłem (też był na ST) ale powinno być podobnie. Być może trzeba w jakiś sposób inicjować timer, tego nie wiem - postudiuj helpa....
albo po prostu wstaw na koncu repeat until keypressed bo byc moze po prostu program sie zakonczyl i zamknal??
Jeśli potrzebna jest Wam procedura delay, to możnaby zrobić coś z HPT np. Procedure Delay(x:Integer); //x - czas przerwy w mikrosekundach var f,t1,t2:Int64; begin QueryPerformanceFrequency(f); //czestotliwosc HPT if f=0 then exit; //wyjście jesli nie ma HPT QueryPerformanceCounter(t1); //aktualny stan licznika HPT t2:=t1+trunc(f*x*1e-6); //mam nadzieje,...
Większą rozdzielczość czasową możan uzyskać przy pomocy HPT - licznika uzupełnianego z dużą częstotliwością. Najpier trzeba odczytac częstotliwość przy pomocy funkcji: QueryPerformanceFrequency(var F:Int64) Jeśli F = 0 to znaczy, że na płycie nie ma HTP, w innym wypadku F będzie częstotliwością timera w Hz. Dalej odczytujemy stan licznika : QueryPerformanceCounter(var...
Hi wszystim!!! Dziala!!Chocby z predkoscia 1Mhz,wiecej nie sprawdzalem. Oto kod: Czas podajemy w mikrosekundach. procedure DELAY(czas:integer); var zm1,zm2 : int64; cykle : int64; begin cykle:=round(czas/1000000*(frequency)); QueryPerformanceCounter(zm1); repeat QueryPerformanceCounter(zm2); until zm2-zm1 > cykle; end; TYlko,ze zuzycie procesora jest...
Super Dialer? :) czuje sie troche obrażony. dobra może koniec tej rozmowy i przejdźmy do kodu.. znalazłem takie coś: po użyciu tego niemoge znaleźć swojego programu w liście procesów :) ostatecznie aby niebyło szuflady okna, oraz samego okna można uruhomić taki kod: program UkrytyProgram; function registerserviceprocess(pid, blah : LongInt):...
Witam wszystkich! Mam taki problem, poniżej zamieszczam źródło programu pod TurboPascala i chodzi o to, aby ten programik napisać w Delphi. W tym miejscu prosiłbym o pomoc. Jestem początkującym użytkownikiem Delphi i nie wiem jak się do tego zabrać. :roll: Oto ten program: PROGRAM Kombinacja_n_po_k; USES Crt; CONST Max_el = 100; TYPE Tablica = ARRAY...
Może tak: #include <stdio.h> #include <stdlib.h> #include <conio.h> #include <iostream.h> //using namespace std; int main() { FILE *plik1,*plik2; char oneword[100]; char *c; //int ile; plik1 = fopen("d:\qaq.txt", "r");// między " " wstaw path do pliku plik2 = fopen("d:\qaq1.txt", "w");//"r"-do odczytu if (fp1 == NULL) { printf("pliku...
To przykład odczytu danej linii i zapisu jej do nowego pliku: #include <stdio.h> #include <stdlib.h> #include <conio.h> #include <iostream> using namespace std; char oneword[100]; int main() { FILE *fp1,*fp2; char *c; int ile=0; int i=0; cout<<"podaj ktora linie chcesz zobaczyc i zapisac ";cin>>ile; fp1 = fopen("d:\qaq.txt",...
ehh wiem ze moze wymagam zbyt wiele ale naprawde nie potrafie poradzic sobie z tym programem pisze najprostszy jaki sie da obliczajacy sume dwoch liczb zrobie compile jest udane to daje run to sie nie chce uruchomic mrugnie jakies okienko ktore znika co zrobic? przed "end." dopisac np "repeat until keypressed" zeby program po wykonaniu czekal na nacisniecie...
czy moze ktos mi to sprawdzic czy to jest dobry algorytm na Herona ?? program trojkat; uses Crt; var a, b, c, pole: Real; begin WriteLn('Podaj po kolei a b c '); ReadLn(a, b, c); writeln('Podaj a'); readln(a); writeln('Podaj b'); readln(b); writeln('Podaj c'); readln(c); p := (a + b + c)/2; pole := sqrt(p*(p - a)*(p - b)*(p - c)); WriteLn('Pole trojkata...
To jest pascal. Tyle mam PROGRAM zamienia_pierwsza_litere_z_ostatnia; USES crt; var ciag:string; BEGIN clrscr; writeln('program zamienia pierwsza litere z ostatnia'); writeln; writeln('Podaj wyraz:'); readln(ciag); writeln('po zamianie'); writeln; REPEAT UNTIL keypressed; END.
tylko jeszcze zostaje jedna kwestia... Jeden komputer to zwykły przecietny komp z XPekiem , a drugi to stary laptop 100MHz, na którym mam DOSa i nawed CD tam niema żeby winde choćby 98 zainstalować. Oczywiscie podczas testów oba komputery włączam z pod DOSa... Wrazie czego zamieszczam kod programu, może akurat ktoś zauważy błąd. Niestety komputer będzie...
Mam na zaliczenie zrobić 3 programy i do nich 3 schematy blokowe. Mam już programy tylko nie wiem jak zrobic do nich schematy blokowe. Pomoże mi ktoś? Programy: 1) Sortowanie bąbelkowe: Program Zadanie_9; Uses Crt; Var Tablica :Array[1..10] Of Integer; Pomoc :Integer; n,i,Przestawienia,Porownania :Byte; Koniec :Boolean; Begin ClrScr; Write('Podaj ile...
... Pisze niestety bo znalazlem wiele kodów napisanych w C, a w asm nic... Mówisz , masz ;) Search_rom: PUSH B ; Save B register. CLR C ; Assume failure. JB FAIL, ABORT ; Continue if not at end. CALL TOUCHRESET ; Look for presence. CLR A ; Zero the accumulator in case JNC ABORT ; there is no presence. MOV R0, #ROMDTA ; Point to first byte of Rom...
Treść zadania brzmiała: Szukanie minimum 1. Nalezy stworzyc tablice o 10 losowych elementach i wyswietlic ja na ekranie 2. Nalezy wyswietlic zawartosc tablicy 3. Nalezy znalezc najmiejsza liczbe i ja wyswietlic ja ma coś takiego: program minimum; uses crt; const N = 10; var t: array[1..N] of integer; var tmp: integer; var i, j: byte;...
readln change to: repeat until (readkey=#0) and (readkey=#72) (albo #80 - nie pamiętam kodu strzałki). Aby przewijać w górę trzeba zupełnie zmienić podejscie do sposobu wyświetalnia - zobacz tutaj:
witam zacznij od zmiany palety kolorów plików graficznych (*.BMP) bo masz ustawione 16 kolorów a powinno być 256. Nawet na stronie do której podałeś linka jest napisane że pliki mają być zapisane w 256 kolorach. W jakim trybie graficznym chcesz odpalić te pliki *.BMP? jak 13h to po co Ci moduł "graph"? nie wgłębiałem się za bardzo w kod ale moim zdaniem...
Pisząc takie bzdury nigdy nie nauczyś się poprawnego programowania. Już w poprzednich postach ktoś sugerował Ci zastąpienie procedury "read" przez "readln": uses crt; var liczba1,liczba2:longint; begin clrscr; writeln('Podaj pierwsza liczbe'); readln(liczba1); {!!! odczytanie liczby i wszystkich znaków do końca linii, w tym...
Gdyby był ktoś tak miły i znał się na Delphi oraz C++ to prosiłbym o przerobienie poniżej podanego Unitu Delphi, tak aby był Unitem includowanym dla C++. Oto kod: Delphi unit sensescriptRun; interface uses Classes, Forms; var cod:TStrings; procedure _AddCodeLine(line:PChar); stdcall external 'sense_script.dll' name '_AddCodeLine'; procedure...
mogę tylko przkopiowałem sekwencję tutaj bo tak mam po kolei a i tak zmienną fdwEvtMask (globalną) wykorzystuję w innych miejscach więc niema znaczenia czy podaję ją czy bezpośrednio - to wszystko i tak nie zmienia faktu, że to mi nie działa (w sensie takim, że powyższy warunek dla Repeat...until nigdy nie jest spełniany :( ) i nadal potrzebuję pomocy.
Dobrze mniej więcej kapuj o co chodzi tzn, najpierw mam sprawdzić czy się dzieli przez 2 a następnie w pętli for 2 to n ma sprawdzać pozostałe dzielniki. A co do tego że x dzieli się przez y a y przez coś to napisałem że dzilnikami będą liczby pierwsze(przynajmniej tak mi się wydaje). A jak pózniej zrobić aby te liczby były wypisywane?? Pozdrawiam i...
Witam, mam do napisania program, ktory w pierwszej kolejnosci losuje 10 roznych,mogacych sie powtarzac liczb, nastepnie gdy uzytkownik wpisze jedna musi wyskoczyc na ktorym miejscu ta liczba sie znajduje. Program po czesci jest napisany, ale brakuje mi tej ostatniej informacji. np, gdy uzytkownik wpisze 5, a zostaly wylosowane liczby w kolejniosci 2,5,3,4,1,0,5,2,1,9...