To zamiast: [syntax=basic4gl]Print &H7E; [/syntax] wyślij: [syntax=basic4gl]Print "{126}"; [/syntax]
Robisz prosty błąd w składni. Poczytaj w helpie o Load. Nie tak: [syntax=basic4gl]Load Timer1 = jakas_wartosc[/syntax] tylko tak: [syntax=basic4gl]Load Timer1 , jakas_wartosc[/syntax] Z tego co pamiętam można również tak. przykładowo: [syntax=basic4gl]Timer0 = 249[/syntax] co jest równoważne: [syntax=basic4gl]Load Timer0 , 6[/syntax] Ale to sobie musisz...
Tutaj masz źle [syntax=basic4gl]'odczyt 1wreset 1wwrite &H55 1wwrite &HBE Lsb = 1wread(): Msb = 1wread():[/syntax] Zamiast [syntax=basic4gl]1wwrite &H55 [/syntax] - match ROM powinno być [syntax=basic4gl]1wwrite &HCC [/syntax]- skip ROM oczywiście pod warunkiem że masz tylko jeden układ na magistrali Czas na konwersję - wystarczy 200ms, DS1820 ma tylko...
Z tego co porównuję z listingiem źródłowym z książki to masz kilka błędów: sprawdź: [syntax=basic4gl]Config Lcd = 16 * 2[/syntax] oraz umiejscowienie [syntax=basic4gl]Cls[/syntax] w pętli a u ciebie jest poza pętlą oraz wyrzuć konfigurację [syntax=basic4gl]Config Timer2 = Timer , Async = On , Prescale = 128[/syntax] sprawdź także ustawienia Fuse CKSEL3..0...
Daj zamiast [syntax=basic4gl]Config Int0 = Low Level [/syntax] tak [syntax=basic4gl]Config Int0 = Falling [/syntax] i pozmieniaj parametr Wait 2000 na inny.
Spróbuj: [syntax=basic4gl]Home upper Lcd Impulsy Lowerline Lcd K [/syntax] A najlpeiej używaj poleceń [syntax=basic4gl]LOCATE y , x [/syntax]
Ehh.. Nie znam bascoma ale jak po prostu trzeba zamienić miejsca to Zamiast [syntax=basic4gl]A=Wart And &B00001111 Shift Wart , Right , 4 B = Wart[/syntax] Zrób [syntax=basic4gl]B=Wart And &B00001111 Shift Wart , Right , 4 A = Wart[/syntax]
Eh, a napisz coś takiego: [syntax=basic4gl] dim pwm_var as byte [/syntax] Tam gdzie deklarujesz resztę zmiennych, następnie przy wyświetlaniu: [syntax=basic4gl] pwm_var=cool1 lcd "Obroty"; str(pwm_var)[/syntax]
atom1477, przecież o ile jakieś przerwanie w międzyczasie nie zmienia Portd.5 to kod Nie chodzi o to żeby ustawił w końcu, tylko w momencie kiedy piszesz Pind.5 = 1: No ale Portd.5 zamiast Pind.5 byłoby przejrzyściej. W ogóle przejrzyściej było by stosować ten zapis jeszcze zamiast Set Portd.5. Tysiące razy było. Do rejestru port zapisujemy a z rejestru...
Witam! Ja zwykle robię od razu tak: [syntax=basic4gl]Config portd = &b00001111 Portd = &b11110000[/syntax] W ten sposób łączę konfig i ustawienie pullup . W języku BASIC nie zaleca się oddzielania instrukcji dwukropkiem, zamiast: [syntax=basic4gl]If Pg = 0 Then Kier = 0 : Gosub Ruch_key End If[/syntax] Lepiej zapisać tak: [syntax=basic4gl]If Pg = 0...
... bo dobrze znam ten wyświetlacz. Ale z Bascomem już gorzej :D Co to jest za twór :?: [syntax=basic4gl] Data "Poniedzia" ; &h9D ; "ek" ; [/syntax] Do umieszczenia w zmiennej tekstowej dowolnego kodu ASCII, służą nawiasy klamrowe :idea: [syntax=basic4gl]Data "Poniedzia{157}ek" [/syntax]
Uruchom przerwanie od Countera (najlepiej od porównania wartości zliczonej z ustawioną) i zmień stan portu w podprogramie obsługi przerwania lub prościej, ale mało elegancko zmień [syntax=basic4gl]If Counter1 = 100 Then ...[/syntax] na [syntax=basic4gl]If Counter1 >= 100 Then ...[/syntax] Nie tak jest to, że w chwili zliczenia setki nasz if może się...
ale z tego co się już dowiedziałem nie będzie działać na mojej płytce Nie prawda, będzie działał po zmianie kilku linijek kodu. [syntax=basic4gl]$regfile = "8515def.dat" $crystal = 10000000 [/syntax] To zmień na swojego procka i częstotliwość oscylatora, jaki Masz. Na przykład [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 8000000 [/syntax] Tą...
Można trochę bajtów zaoszczędzić :) Dodaj bibliotekę obsługującą hardwarowe TWI: [syntax=basic4gl]$lib "I2C_TWI.LBX" ...... I2cinit Config Twi = 100000[/syntax] Odczyt danych z EEPROMU, zamiast: [syntax=basic4gl] Dim Mz1 As Byte Dim Gz1 As Byte Dim Mz2 As Byte Dim Gz2 As Byte Dim Mz3 As Byte Dim Gz3 As Byte Dim Mw1 As Byte Dim Gw1 As Byte Dim Mw2 As...
Czyli ustawiam stan niski zaraz po konfiguracji. Błąd, nie ustawiasz :). zamień: [syntax=basic4gl]Reset Pind.4 'oc1b niebieskie Reset Pind.5 'oc1a biale Reset Pind.7 'oc2 czerwone[/syntax] na: [syntax=basic4gl]Reset Port.4 'oc1b niebieskie Reset Port.5 'oc1a biale Reset Port.7 'oc2 czerwone [/syntax]
Masz trzy procedury Praca, Zakonczenie i Ustawienie, na początku programu musisz je zdeklarować: [syntax=basic4gl]Declare Sub Ustawienie Declare Sub Praca Declare Sub Zakonczenie [/syntax] Drugi błąd zmienne niemnogą mieć takiej samej nazwy jak procedury, zmień nazwy zmiennych: [syntax=basic4gl]Dim Ustawienie As Word Dim Praca As Word[/syntax]
O konstruktywne ciężko bo to jest bez sensu :D Mieszasz różne instrukcje blokowe. Boki muszą być jeden w drugim. Nie mogą się przeplatać. Np. [syntax=basic4gl]IF ..Tu inny blok END IF[/syntax] A Ty masz tak: [syntax=basic4gl]IF DO END IF LOOP[/syntax] Tak nie może być. Albo: [syntax=basic4gl]IF DO LOOP END IF[/syntax] albo [syntax=basic4gl]DO IF END...
[syntax=basic4gl] Dim Wynik as byte , L1 as byte , l2 as byte Wynik = 47 Wart = Makebcd(wart) L1 = Wart And &B00001111 Shift Wart , Right , 4 L2 = Wart [/syntax] Druga możliwość: [syntax=basic4gl] Dim Temp As Long Dim A1 As Long Dim L1 As Byte , L2 As Byte A1 = 47 Temp = A1 \ 10000 L1 = Temp Temp = A1 Mod 10000 Temp = Temp \ 1000 L2 = Temp [/syntax]
A poprawiłeś tą linijkę z błędem o której mówiłem: [syntax=basic4gl]Karta = Buffer_in(1)(2)[/syntax] ? Po jej poprawieniu działa. I jeszcze trzeba zainicjalizować zmienną In_pos na 1. Bez tego też będzie działało ale zgubi pierwsza ramkę. [syntax=basic4gl]... Adres = 01 In_pos = 1 Enable URXC Enable Interrupts Do Loop ...[/syntax] A i trzeba się upewnić...
[syntax=basic4gl] Config Timer1 = Timer , Prescale = 8 'Parametr Prescale może być równy:1, 8, 64, 256 lub 1024 [/syntax] Potem w programie możesz sobie odczytywać zawartość tego licznika w następujący sposób (np.): [syntax=basic4gl] Stan = Timer1 'Zmienna Stan typu Word [/syntax] robiw
:D [syntax=basic4gl] Tabela: ' 0 1 2 3 4 5 6 7 8 9 Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144, 192 ' <-spróbuj dopisać [/syntax] , ale pomyśl też o takim warunku :P [syntax=basic4gl]Decr Sekjed If Sekjed = 255 Then Sekj = 9 Decr .. End If[/syntax]
Tak jeszcze przed END IF: [syntax=basic4gl]Rc5send Togbit , Address , Command[/syntax]
Dla taktowania 8MHz, ale możliwe że trzeba zmodyfikować nazwy Pwm i Compare [syntax=basic4gl]Config Pinb.0 = Output Pwm0a = 70 Config Timer0 = Timer , Prescale = 1 , Compare0A = Toggle , Clear Timer = 1 Do Loop End[/syntax] a na rejestrach timera [syntax=basic4gl]DDRB = 0B00000001 'DDRB.0 = 1 (wyjście) OCR0A = 70 TCCR0A = 0B01000010 'COM0A1 COM0A0 =...
brakuje Ci jeszcze jednej malutkiej instrukcji [syntax=basic4gl]Set Portc.5[/syntax] u mnie zawsze to działa
Przerwanie miałbyś z częstotliwością 32000Hz(8000000/250), gdybyś tylko przeładowywał Timer w przerwaniu. [syntax=basic4gl] Prztimer1: Load Timer1, 250 '<----- w tym miejscu na przyklad Incr Licznik If Licznik > 100 Then Licznik = 0 End If[/syntax]
Set Portd.5 - będzie stan wysoki albo: Pind.5= 1 Toggle zmienia stan Pinu, u ciebie nie był ustawiony żaden stan.
Myślę że tak :): [syntax=basic4gl] S = "gdziestam{010}" J = Tcpwritestr(ix , S , 0)[/syntax]
Powinno być: [syntax=basic4gl]Print #2 , Godziny ; ":" ; Minuty ; " PIEC-" ; Ts ; " BOJLER-" ; Tb[/syntax]
Dla obydwu mikrokontrolerów powinno być: [syntax=basic4gl][_Init_LCD] .EQU LCDDDR=$01 .EQU LCDPORT=$02 [/syntax]
Podciągnij wejście do plusa wewnętrznym rezystorem. Wejście T1 to PD5. [syntax=basic4gl]PORTD.5 = 1[/syntax]
To przekazuj zmienną w taki sposób: [syntax=basic4gl]Dim Y As Integer ' ' Servo(1) = Low(y)[/syntax]
Powinno być: [syntax=basic4gl]Printbin Send(1) ; 3 ' wyślij 3 elementy tablicy Send(), zaczynając od pierwszego elementu tablicy.[/syntax]
I popraw program : [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 8000000 Config Portd.3 = Output 'buzzer Portd.3 = 0 Do Wait 1 Portd.3 = 1 Wait 1 Portd.3 = 0 Wait1 Portd.3 = 1 Wait 1 Portd.3 = 0 Loop End [/syntax] albo lepiej tak: [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 8000000 Config Portd.3 = Output 'buzzer Do Wait 1 Toggle Portd.3...
Witam ! Dodaj te trzy linijki do programu, jako trzecią, czwartą i piątą linię. [syntax=basic4gl] $hwstack = 8 $swstack = 8 $framesize = 8 [/syntax]
Powinno być tak: [syntax=basic4gl] Print "AT+CMGS=+48123456789" Waitms 100 'Oczekiwanie na znak ">" Print "Test" ; Chr(26); [/syntax]
Przede wszystkiem to używamy [syntax=basic4gl]Config PORTX.x[/syntax] do konfiguracji wyjść i tak samo używamy [syntax=basic4gl]PORTX.x = Y[/syntax] do zmieniania stanu wyjścia. [syntax=basic4gl]PinX.x[/syntax] używamy do obsługi wejść.
Pierwsze co bym zrobił, to dopisał na początku programu np.: [syntax=basic4gl]$hwstack = 128 $swstack = 128 $framesize = 128[/syntax]
Wskazówki : [syntax=basic4gl] Config Serialin = Buffered , Size = 254 , Bytematch = All Enable Serial Enable Interrupts Serial0bytereceived: Return [/syntax]
Witam ! Usuń nawiasy kwadratowe z: [syntax=basic4gl] Deflcdchar [2] , 224 , 231 , 229 , 231 , 224 , 224 , 224 , 224 Deflcdchar [0] , 32 , 7 , 5 , 7 , 32 , 32 , 32 , 32 Deflcdchar [1] , 32 , 4 , 4 , 14 , 14 , 14 , 32 , 32 [/syntax] Tak: [syntax=basic4gl] Deflcdchar 2 , 224 , 231 , 229 , 231 , 224 , 224 , 224 , 224 Deflcdchar 0 , 32 , 7 , 5 , 7 , 32 ,...
Moze zmien algorytm tych obliczen. Wydaje mi ze ze jak po "Do" zrobisz od razu: [syntax=basic4gl]For Cykl = 1 To Y Z = ( Cykl * X ) \ Y Prc = ( 100* Cykl ) \ Y Call Oblicz Next Cykl[/syntax] to bedziesz mial co potrzebujesz i to bez uzywania single Nie znam dobrze Bascom, wiec jak nie mozna robic tylu operacji w jednej linii to dodaj zmienna pomocnicza...
Masz dwie możliwości, możesz pobrać nowszą wersje BASCOM'a lub dopisać taką linie: [syntax=basic4gl]$lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014[/syntax]
[syntax=basic4gl] Out1 Alias Portc.0 Out2 Alias Portc.1 Out3 Alias Portc.2 Out4 Alias Portc.3 [/syntax]
Na początek do rysowania schematów są odpowiednie programy a nie Paint , kody programu umieszcza się korzystając z polecenia Syntax a nie wkleja zrzut . Schemat : brak jakichkolwiek kondensatorów do filtracji zasilania , brak GND dla uC , brak oporników ograniczających prąd diod jeden wspólny to żadna oszczędność max prąd portu to 20mA , czerwone LED...
Witam zamiast : [syntax=basic4gl] Config Int0 = Change [/syntax] ustaw : [syntax=basic4gl] Config Int0 = Low Level [/syntax]
Czy ktoś może mnie oświecić czemu string nie może mieć pustego znaku... Ponieważ pusty znak (zero) oznacza koniec łańcucha, np: ...czemu printbin wszystko wiesza? A próbowałeś w taki sposób wykorzystać Printbin ?: [syntax=basic4gl]Printbin Adres(1) ; 4 ; Dane(1) ; 37[/syntax]
Spróbuj do każdej wartości dodać znak % na końcu: [syntax=basic4gl]Data 7848% , 7748% , 7652% , 7559% , 7468% , 7380% , 7294% , 7211% , 7129% , 7048% [/syntax]
Musisz dodać warunki, np. tak: [syntax=basic4gl] If Zmienna < 6 Then Zmienna = Zmienna + 1 Print Zmienna....... If Zmienna > 0 Then Zmienna = Zmienna - 1 Print Zmienna...... [/syntax]
Cóż, podpowiem jeszcze raz: 1. Sprawdź w necie jak odczytać stan przycisku ---- EDIT: w necie też piszą różnorakie bzdury o tym zatem może napiszę jak być powinno: Zwykle przyciski podłączamy tak, aby zwierały pin do masy. Aby odczytać stan danego pinu musimy: 1. skonfigurować go jako wejście instrukcją (np. - istnieje wiele odmian konfiguracji, ale...
Jeśli masz sam rok musisz dodać miesiąc i dzień w formacie daty, żeby funkcja zrozumiała format daty, np.: [syntax=basic4gl] CDate(CStr([Rok]) & "-01-01") [/syntax]
gdzie jest błąd Nie znam BASCOM'a więc mogę się mylić... ale wydaje wydaje mi się, że tu:[syntax=basic4gl]If = S1 = 0 Then[/syntax] ;]
syntax basic4gl syntax syntax basic4gl bascom dioda syntax zobacz
awaria ekspresu philips cewki mercury podłączyć komputer samochód
bateria macallister ukryta kamera szpiegowska
Aktywacja klucza HASP dla oprogramowania TEXA Niski poziom wody w studni kręgowej - przyczyny i rozwiązania
