Proszę. Gotowe bo jak widzę kilka If`ów do tej samej zmiennej zamiast Select Case i tym podobne kwiatki... [syntax=vbnet]$regfile = "m32def.dat" $crystal = 11059200 $hwstack = 64 $swstack = 16 $framesize = 64 Const Timeout_time = 8 'x500ms Config Submode = New ' config LCD 2X16 Config Lcdpin = Pin , Rs = Porta.2 , E = Porta.3 , Db4 = Porta.4 , Db5 =...
Można i na pewno lepiej byłoby to zrobić Timerem zwłaszcza jeśli to cześć większego programu bo to przecież zrobiłby nawet Tiny13 :D Jeśli jednak te impulsy są jakieś "wolne" to pewnie wystarczy taki Waitms a nawet możesz użyć innych jednostek Waitus itd.. Na tym Bitwait program mógłby zawisnąć gdyby stan ustalił się na stanie wysokim. Dlatego trochę...
Dzięki za podpowiedzi, wykorzystałem polecenie inkey() i to wystarczyło w zupełności. Kodu nie podaję, gdyż wystarczy wpisać w helpie inkey i wszystko jasne jak na dłoni :)
Witam. Znalazłem coś innego i po modyfikacji działa jak powinno . Przypisany jeden klawisz pod PB.2 wysyłający LewyALT + Q. Jest też zmiana u gnieździe usb D- PD.3 na PD.4. [syntax=vbnet] 'Author : Rick Richard 'www : http://www.sloservers.com/swusb 'Created : Jul 29, 2009 'Version : 1.00 '***************************************...
Bascom - przykładowy działający kod do testowania RFM12 na 868MHz Odbiornik generuje przerwanie po odebraniu z nadajnika Byte 2D D4 i dopiero odbiera dane użytkowe, czyli Data_in(1)...Data_in(7) Odbiornik: 'Odbiornik $regfile = "m8def.dat" ' specify the used micro $crystal = 8000000 ' used crystal frequency $baud = 19200 ' use baud rate $hwstack...
Jeżeli piszesz w bascome to proponuje funkcje: INPUT $baud = 1200 $crystal = 12000000 Dim V As Byte start: input V p0=V goto start Zasada jest taka program czeka na w lini "input V" na odebranie czegos przez port RS jesli mikrokontroler odbierze to przechodzi do nastepnej lini i ustawia port p0 w wartosc odczytana z rsa nastepnie powraca spowortem...
Because in Bascom it`s only 15min here you have. After programming whole Eeprom is erased to &HFF (255) so programm store initial value (you can change this of course). Buttons on PIND.6 and PIND.7 are scanned every 5ms. If pressed shortly value will be incrased/decrased by one. If pressed long then autorepeat will incrase/decrase value every 275ms....
Potem, po kilku próbach podłączania z kwarcem i bez niego jakoś znowu zadziałało, znalazłem też błąd na płytce. Ale jak próbuję wykonać to polecenie do zmiany fusebitów to dalej są problemy: # avrdude -c bascom -v -p m8 -U hfuse:w:0xd9:m -U lfuse:w:0xe1:m avrdude: Version 6.3 Copyright (c) 2000-2005 Brian Dean, http://www.bdmicro.com/...
Dzień dobry, Nie mogę dojść dlaczego emulator DS2050 działa na wewnętrznym oscylatorze 8Mhz a na kwarcu 8MHz zawiesza się i resetuje gdy tylko chcę odczytać z niego wartości. Kondensatory przy kwarcu 22pF. Fusebity: gdy clock 111101:Ext (czyli kwarc) to nie działa poprawnie. Próbowałem wszystkich ustawień kwarcu. Dlaczego tak się dzieje ? [syntax=Bascom]...
Do $timeout = 1000000 Input "Czekam 100000 Cykli jesli bedzie ich własnie tyle no chyba że wcześniej będzie chr(13):" , zmienna Print "To bede tu :) " ; zmienna $timeout = 0 Input "Tu będę czekał wieczność jeśli nie bedzie chr(13): " , zmienna Print "I tego napisu już nie zobaczysz:("...
Proszę. Nie opisywałem go i tutaj może wyglądać dziwnie, ale u mnie rysuje linie łączące bloki. Wygląda to jak na załączonym obrazku i nie mam potrzeby dla takiego kodziku tego opisywać. http://obrazki.elektroda.pl/9672124500_1... Błąd mógł się wkraść bo to tylko tak z doskoku dla relaksu napisałem w pół godzinki. Życzę owocnego testowania...
xury -> to fakt, że ostatnio już w Bascomie praktycznie nie programuję ;) ale proszę oto fragment helpa Bascomicznego z dokładnym opisem tego polecenia oraz jak i kiedy można z niego korzystać. Więc nie wiem albo może czegoś nie zrozumiałem z tego co napisałeś - że ponoć tego nie możesz znaleźć czy że nie ma $TIMEOUT Top Previous Next Action Enable...
Nie wiem czy będziesz mógł ustawić Timeout bo jest od wersji 2076. Najwyżej zakomentuj. Reszta powinna działać. Poczytaj o "Config Serialin" i "Ischarwaiting" Tak dokładniej to Input czeka na Enter albo na to co ustawimy żeby czekał (Config Input) Jak Enter nie nadchodzi z powodu jakiegoś błędu to przydaje się Timeout. Najczesciej odbieram dane po jednym...
Proponuję więc INPUT + $TIMEOUT. Gdzie znajdę więcej informacji o $TIMEOUT, bo w helpie szukalem i nie znalazlem...
No coś w ten deseń :P Ten reaguje kiedy na końcu pojawi się znak 13 [syntax=vbnet]$regfile = "m644pdef.dat" $crystal = 16000000 $hwstack = 64 $swstack = 100 $framesize = 200 $baud = 38400 $baud1 = 38400 Config Submode = New Open "COM1:" For Binary As #1 Open "COM2:" For Binary As #2 Config Serialin0 = Buffered , Size = 100 , Bytematch = 13 ' from ESP8266...
Idziecie nie w tym kierunku co trzeba. Trzeba zająć się odpowiednią obsługą komunikacji a nie watchdog'a. 1. Jeśli odbiór ma wykorzystywać Input to jest coś takiego jak: $Timeout = value 2. Komunikację radziłbym wykonać w oparciu o przerwanie od Urxc.
Twój kod jest bardzo prymitywny, nie mam tu na celu naśmiewanie się tylko brak jakichkolwiek zabezpieczeń. O to mi chodzi że jest prosty i można by go trochę uodpornić przynajmniej. Input zawsze blokuje cały program dopóki nie zobaczy "Enter". (Bascom domyślnie wysyła Enter w komendzie Print chyba że użyjesz średnika) Lepiej jest go używać z Ischarwaiting(),...
Znaczenie pinów 9 i 12 opisane są w datasheet'cie 9 TimeOut Input, Low, GND when I2C Clock < 1Khz 12 Repeat Input, Low, If 1,FFFF is returned if RC5 already read Proponuje obie podpiąć do VCC
Wydaje mi się że kolega chce przy pomocy jednokanałowego pilota w zależności od ilości kliknięć podjąć po czasie decyzję co by tu otworzyć :P Zrobiłbym to tak że po każdym naciśnięciu ustawiam lub przedłużam Timeout. Napisałem ten kod przy piwku wieczorową porą i błąd mógł się wkraść, ale mam nadzieję że się przyda. Jestem na urlopie ale takie kody...
Odbiornik RC5 działa. 1 na pilocie wyłącza diodę, 2 włącza $regfile = "attiny2313.dat" $crystal = 1000000 Config Rc5 = Pind.2 Config Pind.2 = Input Config Portb = Output Dim Address As Byte , Command As Byte Enable Interrupts Do Getrc5(address , Command) If Address = 0 Then Command = Command And &B01111111 Select Case Command Case...
Źle zrozumiałeś ten zapis. Część odpowiedzialna za taktowanie co 10us wygląda tak: ... _pulse_in5: (at)genus(9) ; THIS FOR 10 US UNITS but approx. depends on XTAL ; you can remove the above call and tailor this routine ; when remarked 10 cycles/loop are needed and for 1 Mhz this is 10 uS ; for 4 MHz you need additional 30 cycles and the...
W jaki sposób można odebrać dane o czasie (przez uk) w formacie: c\SS:MM gdzie: c - "wywołanie" ss - ilość sekund mm - ilość minut można to zrobić za pomocą input a,b ale po każdej zmiennej trzeba dać enter. Niestety zmienne muszą być rozdzielone ":" Muszę się dostosować do "nadajnika" i dlatego mam z tym taki problem. Drugie pytanie to, jak to zrobić,...
Przeczytaj: http://avrhelp.mcselec.com/index.html Wykorzystaj opisaną tam zmienną (modyfikacja jej zawartości w przerwaniu) lub ustaw niski czas na starcie, a potem kontroluj czy Input zostało przerwane. Prawdopodobnie przy przerwaniu INPUT ustawiana jest dodatkowo zmienna ERR. Trzeba by zajrzeć w kod "tylnymi drzwiami". Dodano po 27 EDIT: Nie ma tak...
Dobra ale jeszcze powedz jaki procesor. Tutaj masz kod prostego nadajnika bez algorytmu kodujacego na procesor 89c51. dane sa wysylane z portu P1. Nadajnik: $large Dim X As Byte Dim Y As String * 3 Dim Z As String * 3 Dim V As Integer Dim N As Integer Dim L As Integer $baud = 4800 $crystal = 12000000 Start: If P1 <> 255 Then Dim A As Byte...
Witam Zmontowałem (prawie) sterownik do C.O. i wystąpił problem. Otóż urządzenie nadaje do komputera poprzez RS232 swoje aktualne parametry w postaci: Print c(1),c(2),c(5) ..................... I tu wszystko jest OK. Ale problem jest w drugą stronę. Przy instrukcji: input Rsin odczytuje tylko dwa pierwsze znaki (czasem 3 lub...
Witam Dim A As Byte , E As Byte $baud = 9600 $crystal = 11059200 $timeout 5 ' 110592 A = 1 P1 = 255 Do Input E Timeout = 500 P1 = E P1.0 = 1 P1.1 = 1 P1.2 = 1 P1.3 = 1 Loop Tam powinno być samo $TIMEOUT ta 5 nie jest konieczna (sprawdź HELP Bascoma). Portami P1.4 - P1.7 będzie sterować gdy podasz liczbę z zaskresu 16-255. Podajesz taką liczbę? Oczywiście...
Cytat z powyższego datasheeta: Na stronie czwartej masz opisane, jak rozpoznać, który wariant tego czujnika ma SPI, a który I2C (i jaki ma wtedy adres). Pisałem jaki mam czujnik ( jaki jest dostępny w Polsce) wiec nie wiem co to ma do tego "NPA-600 5.0V * 4.75 V to 5.25 V NPA Compensated, digital serial" Na TME jest jeszcze to: Gdzie w Tme kolega widzi...
Witam. Po pierwsze nie zauważyłem wcześniej, że już skonfigurowałeś Serialin0. Błędem natomiast jest jest używanie Serialout0 a potem zamiast to wrzucić do bufora to wycinasz po jednej literce ze stringa i nadajesz pojedynczo... Po prostu napisz Print String i zapomnij. Bascom sobie to sam wyśle. Tobie radzę na razie nie korzystać z Serialout0 w ogóle....
Znalazłem link, o który chodziło, jest to dokładniej link do kodu w bascomie. Kod ten NIE PROGRAMUJE układu DS2501 a po prostu go SYMULUJE :D Kod przerobiłem na moc zasilacza 150W i na mikrokontroler Attiny13 (niżej w poście). http://www.mikrocontroller.net/attachmen... Po mojej przeróbce (na 150W) kod wyglądał tak:...
<wstyd> Ja tu prawdziwe szopki odstawiam a tu w kilku linijkach można skonfigurować i odbierać dowolne dane z dowolnych uartów przy użyciu serialin i w szczególności Bytematch! I w dodatku każdy z uartów ma swoje wlasne przerwanie :] Dzięki za trop, ale jak to się mówi jak się nie sparzysz to się nie nauczysz .Tylko idąc moim poprzednim tropem...
Witam Walczę z wysyłaniem danych do Domoticz. Domoticz zainstalowany na Orange Pi Zero działa poprawnie. Wykorzystałem sposób wysyłania do ESP8266 Kolegi Niveasoft. Co prawda wysłał on dane do Thingspeak'a, ale nieco go przerobiłem. [syntax=vbnet] If Flaga_wyslij = 1 Then Domoticz_idx = "12" Domoticz_data = "16.8" Flaga_wyslij = 0 Flaga_esp_send = 1...
Witam. Stworzyłem Sterownik obrotu ramieniem w poziomie i pionie na sterownikach napisanych w Bascom i złożonych na elementach firmy AVT. Niestety możliwości są ograniczone jeśli chodzi o regulację prędkości i obsługę protokołu LANC. LANC - Służy do sterowania kamerą Sony lub Canon (różnymi ukrytymi opcjami) za pomocą wejścia REMOTE. Dlatego zacząłem...
witam, a mi ten program nie działa. pinguje układ ale nie wyswietla mi strony oto kod: [syntax=basic4gl]$regfile "m32def.dat" $lib "i2c_twi.lbx" $crystal = 11059200 Config 1wire = Portc.2 $baud = 19200 ' use baud rate $hwstack = 64 ' default use 32 for the hardware stack $swstack = 64 ' default use 10 for the SW stack $framesize = 200 Dim T1 As Byte...
Potrzebuje emulator DS18B20 na atmega8 - mam na PC program do odczytu temp i chciałem w tym programie dodac inne parametry ( np wilgotnosc ) ale nie zmieniajac programu - w scrachpadzie bede wisyłał inne dane nie temperature. ( w bajtach temperatury lub bajtach uzytkownika wolnych 2szt) Aktualnie używam "lampomitari" , ale napisalem przeróbke programu...
Przerobiłem tak, żeby wysyłał testowo tylko jedną wartość ( losową ) co 8 sekund Dodano po 18 Dołożyłem Clear Serialin0 Com1_str = "" czyli [syntax=vbnet] $regfile = "m328pdef.dat" $crystal = 8000000 $hwstack = 100 ' rozmiar stosu sprzętowego $swstack = 100 ' rozmiar stosu programowego $framesize = 128 $baud = 19200 '************ Uart 0 Config Serialin0...
Program ma znajdować się w at89c2051 i ten procek komunikuje się z innym sterownikiem poprzez rsa. A teraz gdzie się znajduje :?: Komp nie ma z tym nic wspólnego. Dziś zauważyłem w czym jest problem. Procek wysyła komende "AT" a sterownik w odpowiedzi wysyła "OK" i ... A warunek " If Buf = "AT " Or Buf = "ok " Then" w Twoim programie , spodziewa się...
Hmm kombinuje ale coś mi nie wychodzi, możesz na podanych listingach wyżej dopisać w którym miejscu co trzeba sprawdzać? Już chyba za długo przy tym siedzę i nie mam świeżego umysłu ;) Coś już działa: Udało mi się wysyłać i odbierać dane w obu uP, ale teraz mam problrm z wysłaniem i odebraniem sumy CRC8. Ponieważ także 1-wszy raz w życiu wykonuje generowanie...
W sumie z buforem to chciałem oszczędnie, jeśli chodzi o pamięć. Dane można wysyłać przez Printbin, a odebrać przez Inputbin. Nadając zmienną integer funkcją Printbin wysyłasz 2 bajty. Nagłówkiem może być jakiś bajt, nic nie przeszkadza żeby stworzyć sobie jakiś format przesyłania danych ;). nagłówek bajt X zmienna 1 long zmienna 2 word zmienna 3 byte...
Trochę posiedziałem i napisałem w Bascomie coś co jest odporne na niskiej jakości encodery. Może gubić impulsy, ale za to nie myli kierunków. '************************** Program reading mechanical rotary Gray code encoder ********** '******* Reads roating directions, counts full gray code cycles ********** '******* By Marcin B. AIMEIZ 2011/02/07 **********...
Witam Mam program, który, po dokonaniu pomiarów, wysyła dane przez RFM12 i zapisuje na karcie SD. Chcę dołożyć wysyłanie danych do Domoticz po każdym pomiarze. Problem w tym, że po dopisaniu obsługi ESP8266 i Domoticz ( zmienne miałem już wcześniej zadeklarowane ) to pojawiają się błędy w zapisie na karcie SD. No i wysyłanie do Domoticz przestaje działać,...
Witam, męczę się z tym drugi dzień i dalej nic - może któryś z bardziej doświadczonych Kolegów będzie w stanie pomóc. Program ma mierzyć czas przelotu pocisku między 2 bramkami (z fototranzystorami), a następnie wyliczyć z tego prędkość (znana odległość 10 cm między nimi). Korzystam z przerwań INT0 (start) i INT1 (stop) oraz licznika Timer1. Uc jak...
mam prosty prgram $crystal = 11059200 $baud = 300 $timeout Dim Znak As Integer Do Inputbin Znak Timeout = 100 If P1.7 = 1 Then Reset P1.7 Else Set P1.7 End If Waitms 200 loop end na p1.7 jest dioda ktora sygnalizuje czy timeout dziala czy nie no i wlasnie problem jest taki ze nie dziala!!! i nie wiem dlaczego? Tak samo jest w symulatorze z Bascoma,...
Witam, znalazłem kiedyś program napisany w asemblerze do kodowania POCSAGu z portu com komputera. Program działa ok ale gdy podłączę mikrokontroler Atmega8 i wysyłam przez Uart komendy do kodera POCSAG to muszę robić przerwy 12 sekundowe pomiędzy wysyłaniem komend. Nie znam asemblera i mam pytanie co zrobić by nie czekać tych kilkunastu sekund pomiędzy...
timeout bascom bascom timeout bascom input
przekładniki prądu ustawic jezyk multi monitor
webasto instrukcja webasto instrukcja
Keyboard z podświetlanymi klawiszami – Yamaha EZ-310, Casio LK-S450, Logitech MX Keys, HyperX Alloy Origins, Razer Huntsman V2 Kod błędu P0105-001 w Mercedes W203 2.2 CDI - czujnik MAP