To może taki kolorowy obrazek z LCD ;) Deklarujesz tablicę czterech bajtów Arr(4) As Byte Na tę tablicę poprzez Overlay nakładasz Single Ładujesz swoje cztery bajty po kolei do tablicy Arr(1) - Arr(4) a wyświetlasz Single. Proste jak świński ogon ;) https://obrazki.elektroda.pl/3578008500_...
Najprościej to użyć overlay w sram. Single to 4 bajty w pamięci. dim zmienna_single as single dim bajt1 as byte at zmienna_single overlay dim bajt2 as byte at zmienna_single+1 overlay dim bajt3 as byte at zmienna_single+2 overlay dim bajt4 as byte at zmienna_single+3 overlay Potem zapisujesz bajty do eeprom, odczytujesz kiedy chcesz i masz wynik w single.
Możesz, to zrobić tak: Dim zmienna as single Dim part1 as byte at zmienna overlay Dim part2 as byte at zmienna+1 overlay Dim part3 as byte at zmienna+2 overlay Dim part4 as byte at zmienna+3 overlay Odebrane dane uartem wrzucasz kolejno do zmiennych 'part' w efekcie zapełniając 4bajty zmiennej 'zmienna' typu single.
zapodam kodem ktory znalazlem na forum!!!!! (nastpenym razem pierw uzyj opcji szukaj), tylko minimalnie przerobilem. Config 1wire = Portd.6 Dim Odczyt(2) As Byte , T As Integer At Odczyt(1) Overlay , T1 As Single , Napis As String * 5, Sprawdz As String * 5 Do Sprawdz = Napis 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset...
Nie to sprawdzałem. Wygląda to jakby procedury odczytu DS-a działały bo ta temperatura wyświetlana -0.1 o tym świadczy. DS jest zasilany z 3,3V i wyczytałem że przy takim zasilaniu rezystor podciągający linie DQ ma mieć około 2k i taki mam. Ale z rezystorem 4,7k też nie działało. Gdzie to wyczytałeś? Datasheet nic na ten temat nie mówi, poza "Can be...
Czy można przez konwersję BCD wyciągnąć znak (temperatura dodatnia/ ujemna) . Spróbuj dopasować sobie ten code. [syntax=basic4gl][/syntax ... $regfile = "m8def.dat" $crystal = 4000000 $baud = 9600 $hwstack = 32 $swstack = 16 $framesize = 40 Dim Scratchpad(9) As Byte Dim Temp As Integer At Scratchpad Overlay Dim Ds18b20_temp...
A spróbuj wybrać jako monitor podstawowy - TV, mi pomogło. Jezeli nie to wybierz single display i TV, ale wówczas bedzie tylko TV, ale overlay powinien działać bez problemu i napisy bedą. Własnie na sterownikach 66.93 miałem takie problemy, a o tych najnowszych 70 to radze zapomniec.
Witam ! Buduję właśnie kolejne urządzenie i skończyły mi się właśnie wolne piny w moim mikrokontrolerku. zabrakło ich do sterowania kontrolkami na panelu. Postanowiłem dobudować zewnętrzny expander i teraz moje pytanie. Czy można w Bascom-ie jakoś zaadresować konkretne bity w bajcie tak by można ich było oddzielnie w programie używać ? Do ekspandera...
Witajcie Podłączyłem wszystko. Znalazłem pewny kod w sieci do wyświetlania danych kompasu [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 64 $swstack = 64 $framesize = 150 $baud = 9600 'перем ... и констk...
Walczę pół dnia i niestety bez efektów - testowałem kilka programików z netu i nic cały czas wyrzuca mi na rs dane jak x:-1, y:-1, z:-1, Angle: 45.0, ale wygląda na to ze ten układ w ogóle się nie komunikuje z prockiem odpięcie linii komunikacyjnch z prockiem nie wpływa na zmianę doczytu czy jego zatrzyma nie, Może ktoś zerknie w kod poniżej choć jak...
Witam Zaczynam zabawę z z atmegą 16 i czujnikiem DS18B20 i mam jak każdy na tym forum mały kłopot............ hm co jest nie tak ? . Prosił bym o podpowiedz Spróbuj ten, troche zmieniony code: [code][syntax=basic4gl] $regfile = "m16adef.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Portc.7 , E = Portc.6 , Db4 = Portc.5 , Db5...
... Wykadnik to 16=2^4=2^(131-127)=2^(10000011B-127). Wiec wg mnie wykładnik powinien byc 10000011B. I masz całkowitą rację ;) Zagapiłem się , bo moja SINGLE jest równa 401 , czyli Twoja * 16 Zumek korzystasz z jakiegoś programu, który to przelicza :??: "Trenowałem" na czymś takim w symulatorku ;) Dim D As Single , Dd As Long At D Overlay Dim C As...
Witam. Panowie próbuję sklecić program do odczytu czujnika prądu INA219 na podstawie jakieś programu znalezionego. Mógłby ktoś rzucić okiem na moje wypociny bo jakoś nie udaje mi się nic odczytać z czujnika. [syntax=vbnet] $regfile = "m328pdef.dat" $crystal = 8000000 $hwstack = 64 $swstack = 64 $framesize = 64 Config Clockdiv = 1 '--------------------------------...
nie bardzo...High i low rozbija jedna czterobajtowa zmienne na dwa kawałki po dwa bajty (słowa)... Kompletna bzdura i to na resorach :| Skąd Ty wytrzasnąłeś takie rewelacje :?: Twój przykład , nadaje się tylko do działu Na wesoło HydePark Nie dziwię się , że krążą po forum dowcipy o Bascomowcach :( :arrow: Madergames9 Zainteresuj się wskaźnikami na...
Przepraszam, że tak późno, ale nie zawsze jest czas na fora :D Z tym prostym hexval dla single pewnie się zagalopwałem, ale wartość da się bez problemu odzyskać tnąc string po cztery literki i tak otrzymane wartości Word nałożyć na Single. Poniżej na symulacji widać, że działa elegancko ;) Wysyłam wartść 0.68 by zerknąc jak zbudowany jest string. Potem...
Jest. Tworzysz sobie na całej pamięci RAM tablicę jako At &H0000 Overlay - dzięki temu masz dostęp do każdej komórki pamięci ram poprzez Tablica(adres). Tablica oczywiście jest tablicą bajtów. Potem masz tylko instrukcję warunkową, która rozróżnia typy danych (czyli byte, long, single, word, ...) i wie ile bajtów każdy z nich zajmuje i w tej instrukcji...
...Nadal mam problem z minusem, zastosowalem funkcje Abs i nie ma juz tego "automatycznego minusa" ale wszystko dziala dopuki stosuje Ttt = Abs(ttt) tylko do wskazan z jednego czujnika. gdy zrobie to samo dla drugiego mimo, ze stosuje dwie nazwy (Ttt1 i Ttt2) to ta funkcja przestaje dzialac i mimo ujemnych temp minus sie nie wyswietla. Co jest nie...
Druga kwestia, to zapis do pamięci 24c04 liczby zmiennoprzecinkowej, hmm. nie robiłem nigdy tego, nie bardzo wiedziałem jak to ugryźć. Sprawa jest generalnie prosta. Liczba typu single zajmuje cztery bajty, wystarczy więc ją rozbić na pojedyncze bajty i zapisać każdy z osobna. Przy odczycie robisz dokładnie odwrotnie. Powiesz pewnie "no dobra, ale...
Chodzi o te zaznaczone ustawienia z obrazka. Są wstawiane jako domyślne jeśli się ich nie wpisze do kodu. Chodzi o to, że kiedy Bascom skacze do jakiegoś Sub to odkłada na stos te wcześniej omawiane dwa Bajty. W takim Sub już może tego nie widać, ale tez skacze np. do procedury odczytu czujników 1Wire. To już np. cztery bajty a w tym momencie nadchodzi...
Zdravim muzu mit prosbu....jsem tak trochu amater a nejde mi zkompilovat jeden zdrojacek v BascomAVR a hlasi mi to chybu na "Enable Timer1" jako "Unknown interrupt source $regfile = "m8def.dat" $crystal = 16000000 '----------------------KONFIGURACJA-----... Const Falloff = 1 Const Lcd_offset = 1 Const Czulosc = 20 '----------------------STAŁE------------...
Proszę. Pisałeś kiedyś, że przy okazji chciałbyś się czegoś nauczyć, więc masz tu przykład który napisałem przy kawie. Trzy różne czujniki- DS18B20, LM35 i Termistor NTC 10k - podłączone jednocześnie do jednego mikrokontrolera. Dla czujników NTC wyznacza się ich "Betę" czego nie robiłem dlatego wskazywana przez niego temperatura różni się nieco od tych...
Udało mi się coś zrobić i nawet działa, ale: -jak uruchamiam układ powinno pisać w dolnej linii Ustaw godzine , a jest jak na fotce niżej, -ustawianie godziny - jak trzymam przycisk w pilocie cały czas wysyła sygnał, a układ odbiera kod raz na 3 sek - wcześniej było 250ms (tak jak jest zdefiniowane w programie). http://obrazki.elektroda.net/19_12181272...
To na razie wersja robocza więc sporo niedociąnięć, muszę jednak zacząć rezygnować z bascoma. Niby już wszystko było OK, ale gdy tylko w pętli głównej przed wyświetlaniem chciałem zamaskować wynik poleceniem fusing, znów jakieś głupoty zaczęły się dziać. Nie mam już nerwów. $crystal = 8000000 $regfile "m16def.dat" '*********************zmienne***********...
Ech prawdy ? a po co mam kłamać ? OK mam komplet nawet tu na elektrodzie jest są tam pliki hex bin i bas, bas nawet był z błędem ale poprawiony i jak wgrywam gotowe wsady do działa jak próbuje skompilować załaczony w plikach bas bez zmian to są cyrki czy juz jasne ? A program testowy mostka napisałem i to działa. Błędy sam zobaczysz podpowiem że brakuje(...
Kiedyś były zamieszczane kody źródłowe ale już nie ma ale znalazłem na naszym portalu kod .bas ale ma błędy czy ktoś mógłby pomoc ? na razie nie wiem co jest problemem. [syntax=vbnet] $regfile = "m8def.dat" $crystal = 8000000 '8MHz fuse bity CKSEL3...0!!! Config Portb = &B00110110 Config Portd = &B00001001 'Config Portc = &B00000000 Portd.6...
Wykonałem płytkę ze schematu http://obrazki.elektroda.pl/9844611100_1... Na razie nic sie nie skopciło. Zależało by mi na tym żeby wykorzystać do sterowania hipem ten projekt AVT5190 [url=http://serwis.avt.pl/manuals/AVT519... Kod jest poniżej: [syntax=text]$regfile = "m8def.dat" $crystal = 8000000 '8MHz fuse bity CKSEL3...0!!!...
Witam zbudowałem w sumie 2 regulatory i bardzo się grzeją już przy silniku 12v i poborze prądu 3A potrzebny jest spory radiator oraz wentylator by obniżyć temperaturę do 50*. Co jest nie tak ? Zamieszczam schemat oraz kod Bascom Nie jestem autorem regulatora . http://obrazki.elektroda.pl/6194843000_1...
Witam :) Mam problemy z programem analizatora widma z obsługą RC5. Na lcd wyświetla głupoty albo resetuje się Atmega32.Czy w programie wszystko OK jest? Oczywiście sam program analizatora widma akustycznego działa poprawnie. $regfile = "m32def.dat" $crystal = 16000000 Config Pinb.2 = Input Config Int2 = Falling Enable Interrupts 'obsługi RC5...
Witam, posiadam 2 czujnik ciśnienia HSCDANN150PASA5 firmy Honeywell. Czujnik z SPI, zakres od 0 do 150psi. Mierzę i przeliczam według noty z informacji z tej strony (pdf-po prawej stronie) http://www.honeywellscportal.com/trustab... Do wzoru stąd: http://www.honeywellscportal.com/spi%20c...
Witam. Zmodyfikowałem lekko pewien program ale nie działa jak powinien. [syntax=basic4gl] Declare Sub Gettime() Declare Sub Getds Declare Sub Wyswietlanie Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32 Deflcdchar 1 , 32 , 14 , 21 , 21 , 23 , 17 , 14 , 32 Dim Lsb As Byte Dim Msb As Byte Dim Tempa As Single Dim Tekst1 As String * 10 Dim Tm(5) As...
bottom overlay overlay single video overlay
wymiana samsung świetlówki instrukcja radia mondeo czujnik poziom oleju miska
pioneer a602r zablokowanie bębna suszarki
Zetor: Kod błędu 522221 - Diagnostyka i Rozwiązania Ekspres Krups: Komunikat "Press Start" - Przyczyny i Rozwiązania