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(),...
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...
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
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...
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ć,...
Ź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...
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:...
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...
<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ę...
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
awaria ekspresu philips suszarka suszyć transmisja bezprzewodowy
interfejs multidiag kabel brake radio
Schematy sterownika mikroprocesorowego do przewodowego odkurzacza mopującego 230V – STM32, triak, SMPS Vileda JetClean – układ scalony sterownika: Sonix SN8F5702ASG, STM8S103F3, identyfikacja
