Nie wgłebiajac sie w kod moze zamiast LSR daj LSL i po sprawie. Nie ma '8' bitu chyba.
1) Do Debounce dodaj dopiski SUB 2) Program prawdopodobnie wywala ci się na pierwszym Lookup od setek, szukasz po CYFRA zamiast TEMP (wywalenie to być nie musi ale może być problem) 3) Zrób najprostszy test: wywal te swoje lookupy, przyciski i resztę kombinacji. Na sztywno przypisz cyfry, zrób ich lookup i wyślij na wyświetlacz. Zobacz czy chociaż to...
Nie odkrywajmy koła od nowa ;) Kod dla takiego wyświetlacza jak na obrazku. https://obrazki.elektroda.pl/2987586400_... Wyciąłem go z kodu który w minute można znaleźć w DuckDuckGo :P Jeśli ktoś ma inaczej podłączone segmenty to musi tylko edytować tablicę Data. [syntax=vbnet]$regfile = "m328pdef.dat" $Crystal=16000000 $hwstack=32 $swstack=8...
Cześć. Nie miałem czasu wcześniej tego zamieścić. Nawet teraz go nie mam :D Zerknij. W tych trzech przykładach pokazuję jak można ustawiać zmienną która ma cztery bajty. W Bascom bez problemu możesz nadać Aliasy każdemu bitowi. Wprawdzie zmienna ma cztery bajty, ale to chyba nie problem. Poprzez Shiftout możesz wysunąć tylko 24bity, albo wszystkie,...
coś takiego: Przerwanie_timer1: 'przerwanie co 0,0015625 sekundy (640Hz) Ie = &B00000000 'wylacz przerwania Th1 = &HFC : Tl1 = &H00 P3.7 = 1 : P1.0 = 1 : P1.1 = 1 : P1.6 = 1 : P1.7 = 1 Incr Wyswietlacz_licznik If Wyswietlacz_licznik = 5 Then Wyswietlacz_licznik = 0 Wyswietlacz_dane = Poczatek_wyswietlacz_cyfra_kopia...
Nie musisz się w to bawić "ręcznie" Możesz wziąć zmienną i ustawić w niej 1 jako wartośc a potem zrobic Shiftout gdzie można ustawiać ilość bitów do wypchniecia czyli taktów. Nominalnie Bascom robi dwa NOP`y pomiedzy zmiana stanów zegara. Czyli potem możesz brać jakiś Bajt z wartością 0 i wypychać tylko jeden Bit ;) Potem sobie mozesz napisac makro...
https://obrazki.elektroda.pl/4706372500_... W poprzednich częściach pokazałem zasadę działania oraz uruchamianie pozyskanych wyświetlaczy (modułów) VFD. Teraz przyszła pora na zbudowanie własnego sterownika wraz z potrzebnym zasilaczem. • Zasilacz Ze względu na dość złożony sposób zasilania samego wyświetlacza postanowiłem zacząć...
Witam, jak za pomoca BASCOMA i polecen shiftin, shiftout sterowac ukladem DS1267? Bardzo prosze o odpowiedz
Witam.Wiem jak obsługiwać jeden rejestr przesuwny(przynajmniej ze strony teoretycznej :D). Schody zaczynają się gdy chciałbym obsłużyć dwa układy, żeby zrobić np to: http://www.elektroda.pl/rtvforum/topic16... tylko że w Bascomie. Wiem że do wysyłania służy instrukcja SHIFTOUT. Można prosić o przykład kodu , który jedną zmienną wysyłałby do jednego...
Znalazłem w Bascom Help instrukcje SHIFTIN i SHIFTOUT ale nigdy tego nie testowałem. Może ktoś miał już doświatczenia z tymi instrukcjami. Pozdrawiam
'SPI odpada bo wysyla za kazdym razem LOAD. Tylko Shiftout. 'To przyklad na dwa maxy polaczone w szereg. Wlasnie te _noop to cala filozofia !! 'Reszte wiecie jak zrobic. [syntax=basic4gl]Sub Max7219(byval P As Word) Local _noop As Word _noop = 0 Load_1 = 0 Select Case Max7219_x 'Ktory MAX 0 albo 1 Case 0: 'NAJBLIZEJ MAX7219 Shiftout Din , Clk , P ,...
Ten mój pierwszy program na pewno działa, ale napisałem nowy na liniach sprzętowego SPI żeby obalić te tezy że na sprzętowym się nie da. Kiedy nie używa się pinu SS a kluczuje się samemu to nie ma problemu i po podłączeniu jak w poniższym schemacie poniższy kod działa w opcjach Software , albo Hardware SPI ;) Przykładu z Shiftout już mi się nie chciało...
no tak ale poco odczytywac ? wysle wiecej <24 bity> a nie potrzebne zapelnie 00 :) tylko nadal nie wiem jak urzyc tego rotate czy shiftout help
Dzień dobry ! Sprawdź ten kod: [syntax=vbnet] $regfile = "attiny2313.dat" $crystal = 1000000 $hwstack = 8 $swstack = 16 $framesize = 32 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Porta.0 , Db6 = Portd.1 , Db7 = Porta.1 , E = Portb.3 , Rs = Portb.4 Config Lcd = 16 * 1 Cursor Off Cls Const Wartosc_timera = 131 Config Timer0 = Timer , Prescale = 8 On...
Witam ! Uruchomiłem przesyłanie danych pomiędzy dwoma procesorami AVR z wykorzystanie poleceń shiftout i shift in. Problem w tym, że procesor odbierający zatrzymuje się na instrukcji Shiftin i czeka aż dostanie dane. Jak to rozwiązać, aby program mógł iśc dalej jak nic nie nadejdzie ? Innymi słowy jak ustalić że jest coś nadawane i trzeba to odebrać...
Tu jest zarys, jak wysłać dane, niestety z prescalerem zewnętrznym ' ****************************************... ' ** Program name: Testboard - Version : 1.3 21.03.2004 ** ' ** Compiler : BASCOM AVR, ( V1.11.7.4) ** ' ** ATMEGA16 LCD-Board 2x16 ** ' ** PMB2306 & 2312 Prescaler ** ' ** Referenz HF = 12.8...
W BASCOMie są instrukcje przydatne w transmisji szeregowej sprawdz: SHIFTIN i SHIFTOUT generują przy okazji CLK pozdr KN
W Bascom AVR można skorzystać z gotowego polecenia SHIFTOUT => patrz plik pomocy. A na przyszłość jeśli pytasz, to podaj chociaż w czym programujesz jeśli nie chcesz dostawać odpowiedzi jak powyżej. Jakie pytanie - taka odpowiedź :wink: edit: jacobsek - ubiegłeś mnie o sekundy...:D
Coś w tym stylu chyba jest prawidłowo? Port C.4 ustawiłem na sztywno jako logiczne zero bo to pin CS FX506 [syntax=vbnet]Config Portc.4 = Output 'CS Fx506 Reset Portc.4 'CS Fx506=0 Config Porta.7 = Output 'Clk Fx506 Config Porta.6 = Output 'Data FX506 Dim Var1 As Byte Dim Var2 As Byte Dim Var3 As Byte Dim Var4 As Byte Dim Var5 As Byte Dim Var6 As Byte...
Kod już w porządku [syntax=vbnet] Declare Sub Powiedz_czas Declare Sub Powiedz_plik 'gdy program będzie coś robił może bya zbędne Reset Data_ Set Clk Wait 1 Godziny = 11 Minuty = 28 Do '********************** godzina Clk = 0 Waitms 2 Godziny_plik = Lookup(godziny , Godziny_mow) Adres_pliku = &H00 + Godziny_plik Print Adres_pliku Shiftout Data_ , Clk...
Dziękuję za odpowiedź. To dopiero chyba moje drugie podejście do 74HC595, starałem się korzystać z MAX7219, który wszystko załatwia, Wyświetlacze zasilam z z 7 V, rezystory na katodach 150R. Właśnie jest tak jak piszesz, zbyt duża wartość zmiennej jasnosc powoduje, zaczynają migotać, a jasnosc = 1 , też nie powala, tzn. wyświetlacz jest dwukolorowy...
Witam ponownie Jeśli chodzi o uproszczenie wysyłania do MAX7219 to Kod Kolegi: [syntax=vbnet] '************ wyswieltanie czasu Wyswietl_max7219: For N = 1 To 8 Max_bytes(1) = N Max_bytes(2) = Wartosc_wys(n) Load_max = 0 Shiftout Dat_max7219 , Clk_max7219 , Max_word , 0 , 16 Load_max = 1 Next Return [/syntax] nie za bardzo działa, Ale działa coś takiego...
Zrob tak: shiftout (pin danych wy),(pin clk),(zmienna do wyslania),opcje shiftin (pindanych we),(pin clk),(zmienna do wyslania),opcje to jest opisane w helpie bascoma = wpish shiftin to ci znajdzie Przyklad: shiftout p1.2, p1.1, liczba_do_wyslania, 1 shiftin p1.3, p1.1, liczba_do_odebrania, 1 opcja "1" na koncu mowi w tym przypadku mze bajt jest wysylany...
Witam, Próbuję odpalić taki wyświetlacz po SPI: https://obrazki.elektroda.pl/7122846800_... Posiada on sterownik ILI9341, znalazłem bibliotekę glcd-ILI9341_2R8_240x320.lib i taki przykład: [syntax=vbnet] ' ' *********************************** ' * 2.8inch 65K full color LCD * ' * 240 x 320 dot [ILI9341] SPI * ' * Touch screen (XPT2046)...
Witam potrzebuje podprogram do mojego układu i wybór padł na przetwornik AD7714 który ma wpudowany PGA oraz programowalny filtr jestem dopiero początkujący dlatego wzoruje sie na innych projektach i znalazłem podprogram do obłsługi tego przetwornika: Dim Ch2 As Word Dim Ch3 As Word Dim Podatki_out As Byte Dout Alias Portc.5 'podatki AD7714 OUT Din Alias...
Witam Zawsze można to zrobić tak: Config Portb.2 = Output Reset Portb.2 ' zeruje pin Shiftout Portb.1 , Portb.0 , Adres , 0 ' wysyłam zmienną Shiftout Portb.1 , Portb.0 , Nap1 , 0 ' i jeszcze jedną Set Portb.2' ustawiam pin ' jak wyślę co trzeba, to przydało by się coś odebrać ' odbieram dane Config Pinb.2 = Input Set Portb.2 If Pinb.2 = 0 Then Shiftin...
M.S. dzięki za linka trochę poczytałem i coś takiego skleciłem: $regfile = "m8def.dat" $crystal = 8000000 Dim A As Byte ' -------- Konfiguracja SPI Config Portd = Output Config Spi = Soft , Din = Portd.4 , Dout = Portb.4 , Ss = None , Clock = Portb.3 Spiinit ' -------- Konfiguracja Portu C do komunikacji z LCD Lcd_sclk Alias Portc.3 Lcd_sdin...
A może jednak trzy przewody, SPI i komunikacja dwukierunkowa? Ustalenia wymaga tylko który procesor będzie Master a który Slave. Odpowiednie instrukcje to SPIINIT, SPIIN, SPIOUT, SPIMOVE. Komunikcja przez SPI ma także ta zaletę, że można spiąć więcej niż 2 procki - niestety wykorzystując nieco więcej przewodów, do wyboru układu. Choć to da się także...
Ja też miałem ten problem, że ATMEGA32 była już tak "załadowana", że multipleksowanie 2 wyśw. 7-segmentowych w TIMERze na chwilę potrafiło się zaklockować. Problem rozwiązałem stosując drugi mały uP dedykowany tylko do wyświetlacza, ATTiny2313 za 5 zł ;-) Procesory komunikują się komendami Bascomowymi SHIFTOUT SHIFTIN ramka danych 32-bity. Jeśli jesteś...
Witam. Próbuję uruchomić potencjometr cyfrowy - DS1267. Na elektrodzie znalazłem temat użytkownika bartods [url=http://www.elektroda.pl/rtvforum/to... Udało mu się sterować potencjometrem w języku bascom. Ja w swoim projekcie używam języka C dlatego staram się przetłumaczyć obsługę na ten właśnie język. Poniżej wklejam kod który już...
Witam. Podłaczyłem 74LS164 do Atmega8. Wejscia AiB 74164 do PD.0, wejscie CLK do PD.1 do wyjść 74164 Podłaczyłem diody led. wprowadziłem do procesora kod 'test 74ls164 $regfile = "m8def.dat" $crystal = 8000000 Config Pind.0 = Output Config Pind.1 = Output Dim Z As Byte Do Z = 1 Shiftout Portd.0 , Portd.1 , Z , 0 Wait 1 Z = 2 Shiftout Portd.0...
Witam Poniżej wstawiłem kawałek "kodu", który ma służyć ustawieniu parametrów alarmów, oczywiście nie jest skończony ( brakuje obsługi przycisków zmieniających wartości). Chodzi mi raczej o obsługę wyświetlania na MAX7219 - jako, że część się powtarza szukam sposobu, jak zrobić, żeby powtarzająca się cześć była wspólna. [syntax=vbnet] If Ustaw_alarm...
Wiem, że to odgrzewanie , ale u mnie też to nie działa prawidłowo. Tzn zapisuję do RAMu i odczytuję z niego te dane, ale.... ZApala mi tylko segmenty z COM1 i COM2 lub COM3 i COM0. Po prostu tylko 2 z czterech - jeden dzień dwa inne, inny dzień dwa inne. Nie znalazłem zależności. Cokolwiek bym nie wpisał do tych komórek to nie reaguje. Dodano po 2 Dodam...
Witam Duch_ to piękna konstrukcja, chyba jeszcze nikt nie zaglądał na link, bo jeszcze nikt Cię nie zjadł za Bascom :) Zwykle ludzie piszą, że w Bascomie się nie da i do tego kabelki nie są równo ułożone. Wiele razy czytałem jaki to Bascom jest beee i fuj i wogóle... Nie przejmuje się tym. Co do programu to: Wyświetlacz wstawiony w linii emisji głośnika...
Wracając do WTV020 Okazało się, że działa na takim kodzie: [syntax=vbnet] $regfile = "m168def.dat" ' the used chip $crystal = 8000000 ' frequency used $hwstack = 80 $swstack = 60 $framesize = 80 Config Portb.0 = Output 'CLK Config Portb.1 = Output 'Data Out Config Portb.2 = Output 'Reset Config Portc.1 = Input 'busy status Clk Alias Portb.0 ' Clk -...
Proszę bardzo, oto program. Jeśli chodzi o obsługę multipleksu to jest ona zrealizowana, że najpierw jest zatrzaskiwana wartość w rejestrach przesuwnych, potem zaświecany dany poziom wraz z odpowiednią wartością dla niego i w tym samym czasie do rejestrów przesuwnych ładowane są już kolejne dane dla kolejnego poziomu i tak w kółko. [syntax=basic4gl]$regfile...
Witam, dla Bascoma (przynajmniej w tej wersji jaką podałeś) niewykonalne jest zamienienie tych połówek bajta miejscami za pomocą SWAP (SWAP potrzebuje 2 zmiennych, a dostaje jedną). Sprawdzę w najbliższym czasie, czy nowszy Bascom sobie poradzi. Choć faktycznie, ten stary Bascom Basic AVR kompiluje kod, nie zgłasza błędów, lecz SWAP nic tu nie robi....
Hmm. Jakie ma znaczenie funkcja wait na końcu programu, bo ja nie używałem opóźnienia w swoim programie po procedurze spiout. Jeżeli chodzi o pomysł z odwróceniem diod to odpada bo to sa diody 2 w 1 czerwona i zielona razem ze wspólnym wyjsciem. :( W układzie zastosowałem funkcję shiftout a oto jej opis: SHIFTOUT Przeznaczenie: Wysuwa ciąg bitów pochodzący...
Hej Panie Adam... podsyłam ci na maila kawałki działających kodów BASCOM (bo pytasz) .... to mógłbyś je wrzucić na elke... coby ludziom służyło do zabawy:D to poniżej to akurat definicja pod nogi dla atmega8 ----------- początek fragmentów bascoma Dim Ddsword As Long 'DDS_FTW- Frequency Tuning Word Dim Dds_mod e As Byte ' 1x=0 6x=1 tryp pracy generatora...
Hmmm według pobieżnego przeglądu not aplikacyjnych wyglada, że to to samo. Przyznaję, że angielskiego nie znam, więc nie mam możliwości wgryzienia się w tekst. Ale z przebiegów i tabel wygląda to samo, czyli jakoby zamiennik. Patrząc na przebiegi to widać, że przy wejściu w cykl to Busy ustawia się w stan niski a po wyjściu ustawia się w stan wysoki....
Więc tak prubuję: $regfile = "m128def.dat" $crystal = 16000000 $baud = 115200 Dim Oc As Word At &H600 '0-1 zmienna word Dim Oa As Byte At &H600 Overlay '0 zmienna Dim Ob As Byte At &H601 Overlay Config Portb.4 = Output Config Portb.5 = Input Config Portb.6 = Output Declare Sub 1302_czytam Declare Sub 1302_zapisuj Print Print " "...
Witam, Po wielu trudach zkonczylem moj selektor z PGA2310A na przekaznikach z ULN 2803A. Wersja narazie na pająku ale bedzie i płytka. Powodem dla które piszę jest moja walka z samym PGA. Ztoczylem z nim walke i nigdzie nie moglem znalez rozwiazania. Przeszukiwalem audiostereo, elektrode i nic. Byly tematy, ktore zachcaczaly o moj prblem ale nietstey...
Witam..Dziękuję za podpowiedzi. Przyznam się ,że nie bardzo jeszcze rozumuję przesyłanie bitów, odczytywanie wykresów zegarowych, więc bez waszej pomocy nie pomogę sobie z napisaniem poprawnego kodu w bascomie do obsługi D/A Oto rysunek jak chciałbym podłączyć atmege do D/A: Nie dorysowałem rezystora, ale wyjście CS mcp 4822 podciągnięte do zasilania...
Witam Przeglądałem tematy na forum ale nie znalazłem jednoznacznej odpowiedzi... Na wyświetlaczy mam tylko śnieg czyli pali się tylko podświetlenie gdy odłączę napięcie 1V8(1,75V) to pokazują się kolorowe pasy. Nie pomaga połączenie 1V8 i 2V9(2,95V) Korzystałem już z tylu kodów z forum ze nie wiem jaki wrzucić... Atmega to tak jak w temacie Mega16 taktowana...
Wiem, łączenia okropnie wyglądają, to w skutek ciągłych zmian, ale to tylko płyta testowa, jak uda mi się odpalić LS020 to docelowy układ dla tego wyświetlacza będzie zupełnie inny :) Tutaj zdjęcia: http://obrazki.elektroda.pl/8597184600_1... http://obrazki.elektroda.pl/1063512000_1... http://obrazki.elektroda.pl/3929357200_1...
na każdym który napiszę jest tak samo, w nowym temacie powyżej podałem ustawienia fuse bitów, zaraz wkleję kawałek na którym teraz się bawię Dodano po 4 to kod na którym teraz się bawie '***************************************... '-------------------- konfiguracje ----------------------------------------... $regfile...
no temat nie wydaje sie problematyczny... ale pewnie zawsze sie trafi na jakies przeszkody :) no nie pomoge ci podajac gotowca, ale poszukalem chwile na necie i : PS/2 Mouse/Keyboard Protocol: http://www.burtonsys.com/ps2_chapweske.h... jesli jestes dobry w c to na podstawie ponizszego linku pewnie rozjasni sie w glowie (to interfejs klawiatury) http://www.atmel.com/dyn/resources/prod_...
Znalazłem kod tablicy świetlnej, 8x8 sterowanej przez rejestr 74164, niestetypo załadowaniu programu na tablicy świecą się tylko trzy kolumny diód :(. Czy ktoś mi pomorze to rozgryść? 'Program tablicy świetlnej 'Sterowania multipleksowe wyświetlaczem matrycowym 7x5 LED 'Częstotliwość sterowania kolumn wyświetlacza wynosi ok. 333 Hz 'czyli częstotliwość...
$regfile = "m128def.dat" $crystal = 8000000 $baud = 19200 $hwstack = 128 $swstack = 128 $framesize = 128 Config Portb.5 = Output Config Portg.0 = Input Portg.0 = 0 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down Enable Compare1a Enable Interrupts Compare1a = 255 '#######################################...
No właśnie taki kod przychodzi do głowy jako pierwszy ale to nie działa, nic mi sie nie wyświetla. Może na początek jakiś prosty zegarek spróbuje zrobić więc pisze taki kod: [syntax=basic4gl] $hwstack = 100 $swstack = 100 $framesize = 100 $regfile = "m128def.Dat" $crystal = 8000000 $baud = 19200 '=== Config the hardware === Rs Alias Portb.7 'S65 Data/command...
bascom shiftout działa bascom shiftin shiftout bascom bascom enkodera
sygnał centrala podłaczyć stycznik wymiana wtrysków
Ustawianie czasu w wagach Rhewa, Android, Windows, PLC Siemens – procedury i wskazówki Kia Picanto – przełącznik kierunkowskazów śmierdzi topionym plastikiem, przegrzewanie, wymiana