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 :)
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:("...
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...
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 =...
Proponuję więc INPUT + $TIMEOUT. Gdzie znajdę więcej informacji o $TIMEOUT, bo w helpie szukalem i nie znalazlem...
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ę...
mój nowy kod 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
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(),...
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.
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...
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
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...
Eeeej panowie, nie trzeba wchodzić tylnymi drzwiami, nie trzeba stosować żadnych sztuczek i nie trzeba koniecznie tworzyć przerwanie, które jakoś tam "na siłę przerwie input". Wystarczy tylko inaczej - a w zasadzie to "normalnie" podejść do tematu a nie od tyłu. Niestety help bascoma nie pomaga w takim myśleniu od przodu ale nie ma co się dziwić - tam...
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...
(at)zerpo - program w uC to w skrócie INPUT a PRINT "OK" I jeśli wybieramy przez HyperTerm to dziala... Natomiast program w VB nie chce dzialac - wywala sie na TimeOucie. Próbowałem już różnych trików - jak dodawanie przez proca #13#10 {powrót karetki+ENTER} I nadal nic nie dziala...
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...
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ć,...
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...
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...
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...
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...
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...
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/...
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:...
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 '***************************************...
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 **********...
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...
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]...
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...
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...
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...
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ę...
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...
bascom timeout timeout bascom bascom input
oprogramowanie tomtom sekcja pompa wtryskowy video studio
mikrokomputer cobra1 sprzedam analizator widma
Zabezpieczenie przed kradzieżą Mazda CX-3: Odcięcie zapłonu Wzmacniacz UNITRA WS 432: Potencjometr z odczepem czy bez?
