Czy liczba jest zawsze siedmiocyfrowa? Nie mówie że to jedyny sposób ale podam jeden z możliwych. Deklarujesz zmienną tekstową siedmioznakową. Taka zmienna ma w rzeczywistości osiem bajtów. Nie chcesz wysyłać ósmego NULL. No i OK :D Na te zmienną nakładasz bufor siedmiu bajtów. Kiedy zmienna Dword każesz zamienić Bascomowi na string to on zapisze komórki...
Jeśli zdecydujesz się na Basic, co zapewne dużo ułatwi pisanie aplikacji, prosze przykład komunikacji MODBUS RTU dla Zamel EXTA FREE, do sterowania ROP. [syntax=vbnet]$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 $hwstack = 32 $swstack = 10 $framesize = 40 Config Com1 = Dummy , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol...
http://obrazki.elektroda.pl/3089511800_1... Witam, dziś prezentuje swój bezprzewodowy termometr pracujący na częstotliwości 433 MHz. Urządzenie składa się z nadajnika i odbiornika. Nadajnik odczytuje temperaturę pieca C.O. i wysyła ją do odbiornika. W odbiorniku mamy możliwość ustalenia górnego i dolnego progu załączenia alarmu, który...
Możesz dodać te czasy jeśli "z ręki" działa... [syntax=vbnet]Dim Helpb As Byte , N As Byte Dim Mystring As String * 5 Dim Mybuff(5) As Byte At Mystring Overlay Mystring = "{013}xon{013}" For N = 1 To 5 Helpb = Mybuff(n) Printbin Helpb Waitms 500 Next [/syntax]
kamyczek Czy możesz mi pomóc? Testuję teraz programik (sorki za bałagan, ale próbuję to zrozumieć) https://obrazki.elektroda.pl/6271535900_...
Witam. Mam małe pytanie, chciałbym sterować kartami przekaźnikowymi przez PHP (www) Karty które mam to są klony KITu [url=http://sklep.avt.pl/p/pl/487832/uni... pracuja na RS485 spięte są za pomocą KITu [url=http://sklep.avt.pl/p/pl/481894/klo...
$crystal = 8000000 $baud = 9600 Config Lcd = 40 * 2 Config Serialin = Buffered , Size = 20 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Enable Interrupts Dim Command As String * 1 Dim Temp1 As Integer Dim Temp2 As Integer Dim Status As Byte Dim Numer As Byte Temp1 = 12.1 Temp1 = 30.1...
A oto działający kod dla bufora 128 bajtów (można zrobic mniejszy, 64 dziala ale tylko przy Clockrate = 4 , Spsr.0 = 1 i samplu do 16kHz) zależny od prędkości z jaką odczytujemy dane po Spi z karty, im wolniej tym bufor musi byc wiekszy, zależy też od częstotliwości próbkowania pliku dźwiękowego, im szybsze tym bufor większy. Wzorowałem sie na przykładzie...
Można to tak zrobić: [syntax=basic4gl]Dim Command As String * 4 , Bajty_command(5) As Byte At Command Overlay Printbin Bajty_command(1) ; Bajty_command(2) ; Bajty_command(3) ; Bajty_command(4) ; Bajty_command(5)[/syntax]
A zamiana Cls na Locate 1 , 1 ? Sprawdzałeś ? Spróbuj jeszcze wymiany (nadawanie i odbiór jako Word a nie String) za pomocą: [syntax=basic4gl]Nadajnik: Dim Wart1 As Word Printbin Wart1 Odbiornik: Dim I As Word Inputbin I Locate 1 , 1 Lcd I [/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]
...Gdy z terminala wysyłam 2 to procek zwraca mi 50 gdy 1 to 49 gdy 3 to 51 itd Pewnie gdyby a była single to by było O.K. "Kłaniają się" typy zmiennych. Kiedy do terminala wpiszesz 2 , to po łączu szeregowym do uC , jest wysyłany kod ASCII cyfry 2 , czyli dziesiętnie 50.Instrukcja print , "przetwarza" owe 50 na ciąg znaków ASCII reprezentujących liczbę...
Proszę skompilować program w tej wersji : [syntax=basic4gl]'**********************... '************************************* '** Karta wyjœæ z interfejsem RS485 ** '** Firmware v1.2 (06.08.2009) ** '** Projekt: Mariusz Ciszewski ** '** Publikacja: EP ** '** mariusz.ciszewski(at)elportal.pl ** '** poprawki Arnoldziq(at)eletroda.pl...
Witam ponownie. Problem został rozwiązany. Użyta w procedurze jn. zmienna Ods nie może być lokalna. Print nie chce takiej zmiennej zaakceptować. [syntax=basic4gl] Sub Unitoutputdata_outputdata Local Odb As Byte Local Ods As String * 4 '----- Odb = Len(tmpout) 'Tmpout zawiera dane do wysylki Ods = Hex(crc16(tmpout , Odb)) Tmpout = "{" + Ods + Tmpout...
Sprawdź jak masz ustawiony terminal (bity stopu, parzystość) bo jeśli nie określasz tego w kodzie programu to ustawienia brane są z tych jakie masz ustawione w IDE. Jeśli prędkość procesora na pewno odpowiada tej zadeklarowanej to możesz spróbować tak. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $baud = 19200 Echo Off Dim Str_1 As String...
ja robię to tak [syntax=vbnet]$regfile = "m128def.dat" $crystal = 8000000 '$baud = 9600 Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Open "com1:" For Binary As #1 Open "com2:" For Binary As #2 Dim A As Word...
Poczytałem sobie o tym "Pack" Jest to funkcja która zamienia poszczególne bajty na string. Dodatkową ważną informacją jest, że jak to w stringu bywa, każdy taki string będzie zakończony NULL`em czyli wartoscią 0. Taki string terminator. Bascom oczywiście też kończy stringi zerem. Kiedy więc wysyłasz : Print "test wyswietlacza" ; To na końcu wyświetlacz...
Teraz napisałem trochę prostszy program do bezpośredniego wysyłania string'ów. At128- [syntax=basic4gl]'---PROCESOR-----------... $regfile = "m128def.dat" $crystal = 16000000 $hwstack = 128 $swstack = 64 $framesize = 64 $baud = 9600 '---WYŚWIETLACZ-------------------------...
Z tego co stwierdziłem, to czy odbieram: Inputbin Rx_data(1) Inputbin Rx_data(2) Czy Inputbin Rx_data(1),2 To zawsze odbiera mi tylko wysłany pierwszy bajt. Dodano po 31 Kolejna dziwna sprawa: Jak wysyłam : Send_data = 6 Printbin Send_data ; 8;<----------wysyłam daną send_data i jakąś liczbę to w odbiorniku obie są poprawnie odbierane i sprawdzane....
wait 2 i wait 4 to nie problem... czytnik odczytuje przesłane do bufora dane po prostu dwa razy częściej jak nadaje je nadajnik Szanowni Koledzy - ja nie mam problemu z transmisją, czy błędami. Przeczytajcie uważnie to o czym piszę. Dane dochodzą, ale nie wiem jak je pozapisywać z powrotem w zmiennych Dane1, Dane2 i Dane3. Jeśli wyświetlę na LCD odbiornika...
Program napisany jest w Bascom. Delay nie ma w ogóle. Program napisany chaotycznie, ale działał ok dopóki nie dopisałem obsługi DCF77. Gdy przyjdzie odpowiednia godzina, dioda IR ma wysłać kod do odbiornika. Wtedy właśnie procesor zwalnia. Sekundy wtedy "idą" co 3 no i dźwięk ma zwolnione tempo. [syntax=vbnet] $regfile = "m32def.dat" $crystal = 8000000...
Nie dziaduj :D Jeśli masz chociaż jeden wolny pin w układzie to otwórz na nim softwarowy uart. To tak proste że nie wiem do czego porównać :D Printbin #5 , Tempword albo Print #5 , Tempword cokolwiek będziesz chciał... Możesz w pętli cały bufor..no Sky is the limit EDIT. Co do Twojego poprzedniego pytania. Przerwanie jest obsługiwane za każdym razem...
Witam. Nie dawno wybudowałem altanę na działce. http://obrazki.elektroda.pl/1427697700_1... http://obrazki.elektroda.pl/9627191600_1... Chciałbym w niej sterować gniazdkami, przyciskami do oświetlenia i oświetleniem. Każde gniazdko będzie miało podświetloną obwódkę wykonaną z pleksi, podświetlenie na diodach RGB sterowanych...
Mam problem z zapisem ustawień do GPS. Wysyłam z ATmega644 dane o zmianie prędkości po RS 232 oraz chcę przyspieszyć pojawiające się dane (standardowe ustawienia 1Hz) i nic się nie zmienia. Przeczytałem notę katalogową GPS: http://download.maritex.com.pl/pdfs/PMTK... Odbiór danych działa mi bardzo dobrze ( ale wolno )....
bascom printbin bascom string string bascom
iveco daily ciśnienie oleju wymiana grzałki zakresy watomierza
multi instrukcja multi instrukcja
Siemens KK31E00/01 instrukcja obsługi po polsku PDF, gdzie znaleźć Fiat Doblo I 1.6B BSI – usuwanie zimnych lutów samodzielnie, sprzęt i procedura