Mogę zasugerować małe "ulepszenie" (to kwestia "stylu" vs "rozmiaru"): Jeśli zmienisz function f(alias, id, c, b, ch1, ch2) { let f = document.getElementById("x"); let d = document.createElement("div"); d.className = "hdiv"; d.innerText = alias; f.appendChild(d); let s = document.createElement("select")...
Hm bardzo ciekawa templatka. W pliku head.php można zmieniać tag "title" w ten sposób: [syntax=php]$this['system']->document->s... tekst');[/syntax] a tak można zrobić żeby pole "alias-title" było ustawione jako tag "title" [syntax=php] $view = JRequest::getCmd('view'); if($view == 'article'){ $id = JRequest::getCmd('id'); $db = JFactory::getDbo();...
To się chyba nazywa aliasy. Czasami bywa, że musisz zrobic joina do tej samej tabeli. Wtedy żeby się jakoś do nich odwołać tworzysz sobie aliasa. Składnia jest taka: select alias1.pole1, alias2.pole1 from tabela alias1 join tabela alias2 Ten przykład jest mało sensowny, ale dobrze obrazuje na czym to polega. Innym przykładem może byc ułatwianie sobie...
Jak mogę zrobić aliasy: komenda 10 to przycisk1 = 1, komenda 20 to przycisk2 = 1, komenda 255 to przycisk1 = 0, przycisk2 = 0? Nie możesz. :P Aliasy to tylko dodatkowa nazwa, a ty chcesz bajtem ustawiać odpowiedni bit. Mógłbyś tak zrobić gdyby był ustawiany konkretny bit w bajcie, np. Command.0 Alias przycisk1 Moja propozycja jest taka: W przerwaniu...
Przelutowałem układ do tej konfiguracji pinów dalej biało... [syntax=basic4gl]Rs Alias Portb.4 'S65 Data/command pin Res Alias Portb.3 'S65 Reset pin Cs Alias Portb.2 'S65 Chip Select pin Clk Alias Portb.1 'S65 Clock pin Dat Alias Portb.0 'S65 Data pin Config Rs = Output Config Dat = Output Config Cs = Output Config Clk = Output Config Res = Output...
Proszę, gotowy przyklad rozwiązania. Napisałem przy kawie i potestowałem w symulatorku czy się nie pomyliłem gdzieś ;) [syntax=basic4gl]$regfile = "m8def.dat" '$sim 'dla symulatora Config Portd.5 = Input : Set Portd.5 : Czuj_1 Alias Pind.5 Config Portd.6 = Input : Set Portd.6 : Czuj_2 Alias Pind.6 Config Portd.7 = Input : Set Portd.7 : Czuj_3 Alias...
Tego nie da się łatwo zrobić. Do tego będzie musiał być Select Case.
nadaj każdej tabeli alias (nazwa po nazwie tabeli), która będzie unikalna w obrębie całego zapytania. Następnie przed nazwami pól uzyj tego aliasu wraz z kropką. (W moim przykładzie takim aliasem jest t0 ). Pamiętaj, ze FROM (SELECT...) traktuje się też jako tabelę.
Tu masz program pod ATtiny2313, jeśli potrafisz programować, to też potrafisz przerobić program na ATMegę: [syntax=basic4gl]' Bardzo prosty zegar bez możliwości ustawiania Dim Sekjed As Byte , Sekdzies As Byte , Minjed As Byte , Mindzies As Byte Dim , Godzjed As Byte , Godzdzies As Byte , Mux As Byte , Migaj As Bit Config Portb = 255 : Portb = &B255...
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ę...
Nie wiem, czy dobrze rozumiem, pewnie coś namieszałem. Jeśli jednak tak, to wystarczy jeszcze dorobić lepsze zabezpieczenie przed zwiększaniem więcej niż o jeden. czyli w moim przypadku powinno być: [syntax=vbnet] Dim Command As Byte ' komenda z odebrana z pilota Dim Piloty as Byte Zeruj_piloty alias 0 Pilot_1 Alias 34 Pilot_2 Alias 194 Pilot_3 Alias...
Nie chce mi się zagłębiać dalej w pisanie. Tych trybów możesz sobie dopisać ile chcesz. I jak Przewijajac menu naciśniesz Set to zmień tryb na, na przykład, "Ustawiam_temp" i w tym trybie znów przyciski Plus i Minus bedą działać dla zmiennej ustawianej. Potem naciskasz ESC i wracasz do trybu jakiego chcesz.. to proste i pewne. [syntax=basic4gl]$regfile...
Podejrzewam że problem jest z odbiorem danych z pilota. BASCOM i GETRC5 nie za bardzo sobie z tym radzi. No i czy masz na pewno pilota RC5? Dodano po 1 Zobacz to: [syntax=basic4gl] $regfile "m8def.dat" 'konfiguracja mikroprocesora $crystal = 4000000 'konfiguracja kwarcu Config Portb = &B11111111 Portb = &B11111111 Config Portc = &B1111101...
Ależ przejdzie. Po takim formularzu w $_POST['loged'] będzie ID. Co do projektu, to jak pisałem; tabele: SWIATY - id, nazwa UZYTKOWNICY - id, nick POSTAC - id, id_swiaty, id_uzytkownicy (postać jest danego użytkownika w danym świecie) Do pobierania kolumn najwygodniej używać aliasów (choć można też całych tabel) [syntax=sql]SELECT p.id, s.nazwa AS swiat,...
Nie widziałem wcześniej, że już na to wpadłaś. Twój się kalibrował tylko w jedną stronę a ten powinien w obydwie (ale nie testowałem) ;) [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 2 $swstack = 0 $framesize = 22 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim Mem_adc As Word , New_adc As Word Dim Krok As Byte...
Witam. Ustaw kierunki portów. Jeśli odczytujesz stan wejścia (impuls,reset) to musi być jako wejściowy i taki też dajesz alias (pin). Następna sprawa to select case , ale co? musisz podać select case A, i coś tam jeszcze się znajdzie dalej do poprawki: Dziesiatki = Dziesiatki / 10 : Dziesiatki = Dziesiatki Mod 10 Setki = Setki / 100 : Setki = Setki...
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...
Łap gotowy Hex lub Bin (do wyboru). Machnąłem to w Bascom bo to dosłownie minuta i dłużej chyba uruchamia się AtmelStudio7. Kod jest prosty jak świński ogon więc możesz go sobie przetłumaczyć, ale szybciej zmienisz go wersją Demo Bascoma. Wszystko opisane. Osobiście pomyślałbym o tym, że po wykryciu zamkniętych drzwi można od razu przejść do pilnowania...ale...
Ponawiam swoje pytanie dotyczące systemu select V. Czy istnieje możliwość dokonania ustawień czasu, przez jaki wyświetlać będzie się alias na wyświetlaczu GM 360 :?: Np. wyświetli się nazwa "pojazd A" zawarta w contact liście, po tym jak prawidłowo zostanie zdekodowana sekwencja. Informacja taka wyświetla się aż do momentu, gdy nie zostanie naciśnięty...
Nie wiem czy chcesz się nauczyć czy potrzebujesz program. Na początek te uwagi: 1. Nie wiem co tam robi dyrektywa $eeprom. Jest niepotrzebna w tym kodzie 2. Zmienna Ds jest zwiększana w przerwaniu niezależnie od tego czy jesteś w Menu czy nie. Tak więc po powrocie z Menu już na pewno nie zdążysz załapać się na warunek If Ds = 2 i wyzerować jej wartość....
Tak się dzieje jak stosujesz instrukcje Gosub, program idzie do procedury a tam znowu stosujesz Gosub i w tej na koncu nieszczęsne Retrurn. Program idzie w "krzaki" bo przepełniasz stosy i nadpisujesz w pamięci Ram zmienne. Poczytaj o procedurach i funkcjach w pomocy Bascoma, użyj Declare Sub a potem Sub: i END SUB. Stosuj też deklaracje ramki i stosu...
Parę chwil temu przeglądałem jakieś przykładowe zapytania i widziałem właśnie, że używana jest forma "osoby.id_osoby" zamiast "o.id_osoby". To być może rozwiąże Twój problem. Forma "osoba o" to alias tabeli dla skrócenia nazwy - być może mysql tego po prostu nie obsługuje i trzeba pisać pełną nazwę. MySQL jednak ma aliasy tabel - trzeba użyć "AS": [syntax=sql]SELECT...
Może ten Twój jakiś dziki jest :P więc spróbuj jeszcze przenieść Sub pod pętlę główną jak ja poniżej. U mnie kompilują się wszystkie wersje wiec w załączniku masz skompilowane Hex i Bin do wyboru. Sprawdź też prywatną wiadomość ;) [syntax=vbnet]$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 40 $swstack = 16 $framesize = 32 '********* TUTAJ SOBIE...
Witam ponownie ! Kiedyś gdzieś czytałem że projekt z Bascoma 8051 można przenieść do Bascoma AVR i wjakiś sposób automatyczny przerobić listing pod AVR (ATtiny2313) Pozdrawiam. Stefan Ps. Jeśli będziesz miał problem a nie "pali się" to popróbuję ten listing przerobić na ATtiny2313. Już udało mi się przerobić na AVR (ATtiny2313) 'przerobiłem, kompiluje...
Tak, jak już pisałem, nie tędy droga. Trzeba zrozumieć, ze Menu czyli interfejs programu z człowiekiem powinno być tylko jego nakładką graficzną. Nie może być tak, że kiedy jesteś w Menu to program zaniedbuje cały system, na przykład nie pilnuje zadanych temperatur. Pomyśl co by było gdyby termostat sterował grzałką w akwarium a Ty sobie radośnie wszedłeś...
Zajrzałem do skompilowanego pliku i widzę że kompilator w ogóle nie używa tu R2 i R3 więc mi je zostawił ;) Od pewnego czasu w Bascom do rejestrów można się odwoływać prosto z kodu. Ciekawe którą wersję Bascom masz. Pewnie znowu schody... U mnie program się kompiluje na 96% [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack...
Spróbuj: $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 8 $framesize = 24 Config Portd = Output Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output ' ustawiam porty do saa1057 Dat Alias Portd.3 'SPRAWDŹ CZY DOBRZE ZDEFINIOWAŁEM Ena Alias Portd.2 Clk Alias Portd.1 'przyciski Ddrc =...
Dosyć odważnie sobie poczynasz na mikrokontrolerze mającym 2kB Flash i 128B SRAM :D ale do odważnych świat należy. Odchudziłem Ci trochę kodzik. Obsługa przerwania timera została stuningowana moim programem NoSave Tool. Teraz mikrokontroler nie odkłada na stos większości rejestrów a tylko te potrzebne - w tym przypadku tylko jeden :D Przekłada się to...
Jak zapisać poprawnie w SQL PHP grupowanie wielu wpisów po datach? Mam coś takiego: [syntax=sql] $zapytanie = "SELECT * FROM $tabela GROUP BY YEAR(data) ORDER BY czas"; [/syntax] Ale to wycina tylko jeden wpis z każdego roku (i to ten najwcześniejszy) a nie wszystkie wpisy. Próbowałem tak: [syntax=sql] SELECT * FROM ( SELECT * FROM newsy ORDER BY czas...
Przeorganizowałem twój kod z pierwszego postu bo w tym z dzieleniem i modulo to może działać ślamazarnie. Jeśli ci pasuje oczywiście. Licznik obsługuj w przerwaniu timera. A zmieniaj tylko wartość zmiennej za pomocą przycisków. To musisz sobie dopisać. Gdyby obliczenia w przerwaniu były za długie, przenieść je do głównej pętli, ale tutaj zawsze będzie...
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 =...
Znalazłem w swoim archiwum , taki oto program zegarka.Przerobiłem go troszkę , by pasował do Twojego schematu. $regfile = "89c2051.dat" Const Xtal = 11059200 'z takim kwarcem jest "dość" dokładny ;) $crystal = Xtal Const Sysclock = Xtal / 12 Const Timer0value = 65536 -(sysclock / 200) '200 przerwań od T0 na sekundę Seg...
Cześć. https://obrazki.elektroda.pl/1280991700_... Kuzyn poprosił mnie o zbudowanie tego ustrojstwa, bo posiada jedno wolne wejście we wzmacniaczu, a do podłączenia jeszcze trzy źródła dźwięku. Projekt powstał w dwa dni. Czterokanałowy selektor wejść do wzmacniacza. Nic szczególnego... Płytka - termotransfer. Program - BASCOM. https://obrazki.elektroda.pl/9048297700_...
No to może zacznij od podstawowej funkcjonalności, którą sobie dalej rozszerzysz. Poniżej wklejam program, który testowałem u siebie i działa bez zarzutu - jest to tylko sterowanie opóźnionym wyłączeniem świateł dziennych. Teraz w pętli głównej dołóż sobie kolejne warunki zgodnie z tym, czego oczekujesz. Drobne kroki zawsze doprowadzą do celu, tylko...
Dzieki za wyjasniający sprawę link (http://stackoverflow.com/questions/5551... Ponieważ czasem potrzebne jest sortowanie również w podzapytaniach, w takich sytuacjach trzeba sztucznie zapakować podzapytanie z sortowaniem XXX w osobny Select i dopiero złączać unią z następnymi. [syntax=sql]Select * FROM ( XXX...
Problem rozwiązany, dorzuciłem alias maxdata i po nim wyświetla: [syntax=sql]SELECT o.id,MAX(so.data) AS maxdata FROM mowcy AS o LEFT JOIN zeb AS so ON so.id=o.id AND so.mowca=o.mowca WHERE o.archiwum = 0 AND o.id<>1 AND o.mowca = 3 GROUP BY o.id ORDER BY ISNULL(o.id) desc, MAX(so.data) [/syntax]
Łap. Napisałem w przerwie między... Zajmuje połowę mniej niż Twój a działa :D [syntax=vbnet]$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 8 $swstack = 8 $framesize = 8 Config Portb = &B01110 : Portb = &B10001 Sw Alias Pinb.0 D1 Alias Portb.1 : Set D1 D2 Alias Portb.2 D3 Alias Portb.3 Config Timer0 = Timer , Prescale = 1024 , Clear...
No ale w tym pliku jest tak: ' Chip Select Pin => Pin 1 of MMC/SD Config Pinb.0 = Output Mmc_cs Alias Portb.0 Set Mmc_cs ' MOSI - Pin => Pin 2 of MMC/SD Config Pinb.2 = Output Set Pinb.2 Mmc_portmosi Alias Portb Bmmc_mosi Alias 2 ' MISO - Pin => Pin 7 of MMC/SD Config Pinb.3 = Input Mmc_portmiso Alias Pinb Bmmc_miso Alias 3 ' SCK - Pin =>...
oryginalnie wygląda to tak: [syntax=vbnet] $regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 16 $swstack = 8 $framesize = 16 Config Timer0 = Timer , Prescale = 1 Enable Timer0 On Timer0 Pwm Enable Interrupts Start Timer0 Declare Sub Miganie Config Pinb.3 = Input Set Pinb.3 Config Portb.4 = Output Przycisk Alias Pinb.3 Config Portb.0 = Output Config...
Oto przechwytywanie z zimnego rozruchu z PulseView (alias Sigrok) z 3 linii danych, DIN, CLK i STB. 6 Wejście danych DIN Szeregowe wejście danych na zboczu narastającym zegara, najpierw niski bit. 7 CLK Wejście zegara Wejście/wyjście danych szeregowych na narastającym zboczu zegara 8 STB Chip select Inicjalizuje interfejs szeregowy przy zboczu narastającym...
$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 '-- Wejscia przycisków Config Portd.2 = Input Config Portd.3 = Input ' -- podciągnięcie Set Portd.2 Set Portd.3 ' -- porty sterowania segmentami LED Config Portd = Output Config Portc.5 = Output Config Portc.4 = Output Config Portc.3 = Output Config Portc.2 = Output ' -- tranzystory Config...
witam ! '2 wyświetlacze LED 7segmentów 'fusebity ustawione fabrycznie $regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Output 'katody segmentów LED Config Portd = Output Anoda1 Alias Portd.0 Anoda2 Alias Portd.1 Dim Nr_wysw As Byte Dim Cyfra2 As Byte Dim Cyfra1 As Byte Dim Temp_liczba_1 As Word Dim Temp_liczba_2 As Word Config...
Dawno w Bascomie nie pisałem. Najprymitywniej to można zrobić na zmiennych globalnych używając podprogramu. A więc masz zmienną Xp w której masz numer pinu na którym chcesz operować. Zmienna Xk to będzie już wartość skorygowana. Robisz podprogram: [syntax=basic4gl] Konwersja_pinow: Select Case Xp Case 0 Xk=5 Case 1 Xk=3 .................... Case 7 Xk=1...
(at)ElektrodaBot powyżej 255 licznik źle zlicza dając ) co może być źle w tym kodzie: [syntax=text]$regfile = "attiny2313.dat" ' 2KB FLASH|128B SRAM|128B EEPROM $crystal = 8000000 $hwstack = 40 $swstack = 8 $framesize = 24 Config Timer0 = Timer , Prescale = 64 On Timer0 Wyswietlanie Config Pina.0 = Input Config Portb = Output : Segmenty Alias Portb...
Musisz przerobić tylko te linie i w zasadzie tylko te wytłuszczone elementy. Czerwone wylatują. $large ' ... kod deklaracji bez zmian '***************************************... 'stawienia Poczštkowe '***************************************... Enable Interrupts Config Timer0 =...
Wklepałem taki kod $regfile = "m8def.dat" 'proc $crystal = 16000000 'zegar Config Portb = Input Config Pinc.0 = Output Config Pinc.0 = 0 'led testowy Dim Stan As Byte Stan_portu Alias Portb Stan_portu = Portb Do If Stan_portu <> Portb Then Stan_portu = Portb Select Case Portb Case 0: Case 1: Set Pinc.0 Wait 5 Reset Pinc.0 Case...
A spróbuj tak: [syntax=basic4gl] ' Fuse bity ustawione fabrycznie $regfile = "m8def.dat" $crystal = 1000000 Config Portb = Output 'sterowanie segmentów LED Config Portd = Output 'sterowanie segmentów LED Config 1wire = Portc.5 Anoda1 Alias Portc.1 ' Lewy wyświetlacz Anoda2 Alias Portc.2 Anoda3 Alias Portc.3 Dim Nr_wysw As Byte Dim Liczba As Long Dim...
W konfiguracji portów do AVRDOSA masz błędy, raczej powinno być tak: [syntax=basic4gl]'******************** SPI Programowe Const Cmmc_soft = 1 Config Spi = Soft , Din = Pind.5 , Dout = Portd.7 , Ss = Portd.6 , Clock = Portd.4 ' Chip Select Pin => Pin 0 of MMC/SD Config Pind.6 = Output '6 Mmc_cs Alias Portd.6 '6 Set Mmc_cs ' SCK - Pin CLK => Pin 1 of...
Kolego może zacznij od czegoś prostszego bo nieskomplikowane zadanie a tu wydaje się być inaczej. Programowanie to nie tylko znajomość mikrokontorlerów, języków ale przede wszystkim umiejętność samodzielnego rozwiązywania problemów i wiążąca się z tym pomysłowość. Żeby przetestować ten kod wziąłem drugą Atmegę8 i kazałem jej nadawać impuls co 500ms...
ok, tylko najpierw uporam się z przyciskami i nastawami :P Dodano po 28 $regfile = "m8def.dat" $crystal = 8000000 Config Portd = Output 'podłaczony wyświetlacz 'Config Pinb.0 = Output ' anoda 1 źle! nazwa pin służy do odczytu wartości 'Config Pinb.1 = Output 'anoda 2 źle! aby ustawić należy się posłużyć nazwą Portb.x 'Config Pinb.2 = Input...
Ja mam taki program zrealizowany na Atmedze8. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 40 $framesize = 40 Config Portb.1 = Output 'wyjscie triak Triac Alias Portb.1 Config Rc5 = Pind.7 'rc5 pin timer0 Dim Level As Word 'poziom sciemniania 1 - 20 Dim Timer_val As Word 'wartosc timer1 dla sciemniania Dim Command...
Łap. Przypomniałem sobie że miałem dwie płytki z RS485 na pokładzie i komplet kabli z innego projektu(most RS poprzez ETHERNET). W każdym miejscu gdzie podłączam RS`a mam zawsze dwa gniazda więc mogę je łączyć albo podglądać terminalem. W kodach Slave ustawiasz adres stałą My_ID. Z racji tego, że na szybko, miałem tylko dwa to testowałem adresy 3 i...
Proszę. Przerobiłem to przy kubku kawy dosłownie w 15 minut tak tylko dla zabawy. Najdłużej robiłem te ikonki czasów T1,T2,T3 i T4 :D Wszystkie cztery czasy są liczone od momentu startu bo nie napisałeś czy ma mierzyć międzyczasy ;) Może taki prosty kodzik kogoś ucieszy :D https://filmy.elektroda.pl/3_1453327306.... [syntax=vbnet]'STOPER '--------definicja...
Ło matko. I to działa?!! ;) Zmień czym prędzej ten pin na jakikolwiek inny, byle nie PortB.4 I ustaw to tak: ' define Chip-Select Pin Config Pinx.x = Output ' define here Pin for CS of MMC/SD Card Mmc_cs Alias Portx.x Set Mmc_cs ' Define here SS Pin of HW-SPI of the CPU (f.e. Pinb.0 on M128) Config Pinb.4 = Output ' define here Pin of SPI SS Spi_ss...
Napisałem tak Gosub Dane Select Case X Case 1 A = 1 : B = 0 : C = 0 : D = 1 ' Print Portc Case 2: A = 1 : B = 0 : C = 0 : D = 0 ' Print Portc Case 3: A = 1 : B = 0 : C = 1 : D = 0 'Print Portb Case 4: A = 0 : B = 0 : C = 1 : D = 0 ' Print Portb Case 5: A = 0 : B = 1 : C = 1 : D = 0 'Print Portb Case 6: A = 0 : B = 1 : C = 0 : D = 0 ' Print Portb Case...
Proszę, napisz mi co to jest ten "bit fuse M103C" i jak go sprawdzić. Dodano po 1 Zrobiłem tak: http://obrazki.elektroda.pl/7670144900_1... I dalej nie czyta karty. Proszę o pomoc.
Witam wszystkich, Ja też zaczynam powoli walczyć z moim data loggerem, który chce zrobić w oparciu o ATMEGA8, AVR-DOS i karty SD. Tutaj moje SOFT-spi to ATmega8 ( pozmieniałem piny) , ale nie jestem tego pewien, ponieważ jest to moja pierwsza styczność z BASCOMem. ' --------- Start of Section for Soft-SPI -------------------------------------- ' Chip...
Łap. Cały tydzień programuję poważniejsze sprawy i taki programik to dla mnie dosłownie rozrywka :D Bierzesz Tiny85 i programujesz Hexem lub Binem do wyboru. Podłączasz do niego DS18B20 i linijkę na MAX7219 i gotowe... żonka zadowolona. Program ma nawet wyjście diagnostyczne i wypluwa temperaturę na UART 9600bps (to żeby sprawdzić poprawnośc Dallasa)....
Niech kolega sprawdzi, bo nie testowałem, ale powinno działać co 0,1°C. [syntax=basic4gl]'Regulowany termostat cyfrowy 'Projekt wykonał Krzysztof Gońka $regfile = "m8def.dat" $crystal = 1000000 Config Portb = &B11000001 Portb = &B11111111 Config Portd = &B11111111 Portd = &B11111111 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3...
Witam. .............. Program testowy ma działać tak, na początku na sekundę wyświetla 36 na wyświetlaczach (i to zawsze się dzieje), później ma liczyć od 00 do 99, i tak w kółko. Pozdrawiam Zmieniłem trochę twój code. -Nie testowany.... (tylko symulator)........ [code][syntax=basic4gl] ' Example for 2 digit LCD display (Common Anode) ' Anodes are...
Program miał działać następująco : Chce zrealizować obsługę 7 przycisków potwierdzanych zapaleniem diod na wyjściach . Naciśniecie jednego ma zgasić diodę na reszcie . Poza tym będą trzy przekaźniki działające na zasadzie matrycy kodowanej. W ten sposób za pomocą 3 przekaźników otrzymam 7 informacji. Przycisk 1 on on led1 przekaźnik1 on 2 off 3 off...
Witam Mam problem z odbiornikiem RC5 na attiny2313 otóż gdy wgram ten program: [syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 Config Pind.2 = Input Config Pind.6 = Output Config Rc5 = Pind.2 Dioda Alias Portd.6 Enable Interrupts Dim Komenda As Byte , Adres As Byte Reset Dioda Do Getrc5(adres , Komenda) Komenda = Komenda And &B01111111...
Witam. Widzę, że temat poruszony. I jakoś jest. Ja poruszyłem identyczny i został brutalnie wsadzony do kosza i zamknięty. Pomijam ten fakt, bo zależy mi na konstruktywnych i rzeczowych odpowiedziach. Sam próbuję złożyć z powodzeniem taki regulator do mojej konstrukcji quadkoptera (ewentualnie v-tol-a). Gdzieś na elektrodzie dorwałem kod w BASCOMie...
Mam napisane pod jeden przekaźnik ale nie działa. $crystal = 11059000 $regfile = "89C2051.DAT" Config Rc5 = P3.2 Reset Tcon.0 On Int0 Odbierz_rc5 Enable Int0 Enable Interrupts Dim Odebrano As Bit Dim Komenda As Byte , Adres As Byte Dioda Alias P1.0 Do If Odebrano = 1 Then Odebrano = 0 If Adres = 0 Then Disable Int0 Waitms 100 Reset Dioda Select Case...
Może by tak: $regfile = "m16def.dat" $crystal = 16000000 $baud = 4800 '---------------------------------------... Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 On Urxc Przerwanie_uart_rx '---------------------------------------...
Zrób zmienną i na podstawie wartości tej zmiennej odczytuj okreslony pin (select case zmienna: case 1: e1=pina.0 :case 2:e1=portc.2 itp ) lub poprostu w procedurze odczytuj z góry ustalony pind... lub podepnij wszystkie czujniki pod jeden port w tedy bedzie latwiej: e1=portc.zm gdzie zm to Twoja zmienna
Zobacz tak. Napisałem na kolanie bez sprawdzania, ale może zafuczy ;) Na marginesie funkcja Getrc5() używa Timer0 i powinieneś zostawić go w spokoju czyli do innych rzeczy, jeśli potrzebne, użyć Timer1 lub Timer2. [syntax=vbnet] $regfile = "m8def.dat" $crystal = 8000000 $hwstack=64 $swstack = 32 $framesize=128 $baud = 9600 Config Portb = &B11111111...
Ten program jest taki, że nie wiadomo od czego zacząć poprawiać. Najlepiej byłoby go napisać od nowa :D Niemniej poprawiłem to co ewidentnie musiało być poprawione. Tak na marginesie to nie wiem co za magik wymyślił te ponowne włączanie przerwań w obsłudze przerwania po to tylko by odebrać kod RC5 w przerwaniu. Ludzie to małpują i kłopoty gotowe. Sprawdź...
Dzięki Bogdan za trafne uwagi.. Zwłaszcza za zwrócenie uwagi na ten problem z TOSP, bo miałem się brać za robienie tego układu :). Co do zasilania, to nie zauważyłem z tego powodu żadnych problemów. Dołożyłem jeszcze kondensator na zasilanie uC. Może dlatego. Lecz pojawił się problem: napisałem program, który ma zajmować się prostą jazdą tego ustrojstwa,...
Faktycznie mój błąd, banalny o którym zapomniałem, każdemu się zdarza. Zaczęło działać aby uzyskać lepsze efekty przy szybszych zmiana położenia enkodera zmieniłem program. Teraz problem jak "wcisnąć" CLS. Gdy np. "dojadę" do 10, a następnie cofam ostatnia cyfra zostaje. Nie mam pomysłu jak Zrobić CLS aby wyświetlacz nie mrugał ani nie było oczekiwania...
Czy ten czas pracy masz zadeklarowany jako Word? Bo do Byte więcej niż 255 nie zmieścisz. Możesz dodać rozpędzanie silnika. Tak zwaną rampę. Wprowadzasz zmienną "Predkosc_zadana" i zawsze kiedy "Predkosc_silnika" jest mniejsza od zadanej to jest pomału zwiększana. W ten sposób pomału pokonujesz bezwładność silnika. Porty możesz wyłączyć wszystkie cztery...
Hej, pisanie w C nie wypaliło to przeszedłem do Bascoma. Prosiłbym o sprawdzenie kodu, wytknięcie błędów. Mam wątpliwości co do And w funkcji Select case (nie wiem czy to jest poprawnie) oraz co do logiki kodu... [syntax=basic4gl] $regfile = "m8def.dat" $crystal = "8000000" Config Pinc.0 = Input 'Przycisk Set Pinc.0 Switch Alias Pinc.0 Config Pinc.2...
Coś takiego? Nie wiem ale chyba nie o to chodzi $regfile = "m8def.dat" $crystal = 8000000 Config Rc5 = Pind.2 Config Timer2 = Timer , Prescale = 1024 On Timer2 Silnik_up Dim Adres As Byte Dim Komenda As Byte Dim Togglebit As Bit Dim A As Byte , B As Byte Dim C As Byte , D As Byte Dim K As Byte , P As Byte Dim X As Byte X = 00000001 Ddrc =...
Mając trochę wolnego czasu napisałem parę funkcji do obsługi układu PCF8583. Funkcja która ustawia godzinę i datę zapisuje też dane potrzebne do obliczenia pełnego roku, dzień tygodnia jest obliczany automatycznie na podstawie daty. Funkcje Pcf8583_write i Pcf8583_read można wykorzystać do zapisywania/odczytywania danych z wolnej pamięci ram. Dostępne...
Proszę bardzo. Napisany w 20 minut więc błąd mógł się wkraść. Timer co minutę daje znać i wtedy odliczane są minuty do włączenia bądź wyłączenia wentylatora. Przyciski są dwa. Kiedy naciśniesz jeden z nich to od razu powinien włączyć się wentylator (można w ten sposób zawsze wymusić start wentylatora). W programie u góry podaje się czasy wyrażone w...
Może sam spróbuj ;-) Tak w zarysie : w pętli głównej musisz dodać warunek: jeśli przycisk wciśnięty to zwiększ zmienną "czas" o 1 jeśli puszczony to zmienna "czas" =0 następnie: jeśli zmienna "czas" = 123 (dla przykładu, bo nie wiem jak szybko ta pętla przebiega) to : zmień tryb pracy (to masz strasznie napisane, więc trudno ogarnąć)... Dziękuję koledze...
Tak jak przedmówca napisał odłącz pin RW od mikrokontrolera. Reset powinien być podciągany do tych 5V przez rezystor 10k bo programator musi mieć możliwość zwarcia tego pinu do masy. Dodatkowo w opisie masz błąd bo przycisk opisujesz pod pinem zajętym przez wyprowadzenia LCD. Poniżej masz taki prosty kodzik do zabawy :P Na pinach PORTB.2 i PORTB.3 podłącz...
Ruszy bez problemu tylko napisz to porządnie. Kamyczkowi nawet się nie chciało zajrzeć do tego kodu a wydaje jakieś nonsensowne opinie tylko dlatego że mu nie wychodziło. Zobacz, nie możesz skoczyć do gadającego Sub`a na taką wieczność jaką jest gadanie i podwójne czekanie na zakończenie gadania. [syntax=vbnet]Sub Powiedz_czas: '**********************...
Witam po dość długiej przerwie Postaram się odpowiedzieć na wszystkie pytania 1. katakrowa - Dlaczego nazywa się to "Zegar milenijny" ? - Akurat taka nazwa przyszła mi do głowy. 2. GG_Gonsior - Proponuje użycie "na sucho(bez płytki arduino - brak stabilizatorów - Baterie zostały podłączone za stabilizatorami. - wsad wgrany przez programator - dużo mniejsze...
Można wyświetlać temperaturę w podmenu "wybór_Ds" ale trzeba zmienić cały program. Chyba nie jest tak trudno zapisać sobie cztery ID czujników i wiedzieć później który gdzie przypisać. Najlepiej osobno podłączać każdy czujnik i na naklejce na kablu przy czujniki zapisać jego ID. Wiedząc gdzie jakie jest ID czujnika można już mu w podmenu przypisać odpowiednią...
Proszę. Przycisk Menu włącza je i wyłącza więc przycisk wyjścia z Menu praktycznie jest niepotrzebny, ale go zostawiłem. Subów którym nie przekazuje się żadnych zmiennych nie trzeba deklarować. Miałeś odświeżanie wyświetlacza w pętli głównej z prędkością procesora. Zmieniłem to tak że wyświetlaczem zajmuje się tylko wtedy jeśli coś się zmieniło i wymaga...
Witam kolegów proszę was o pomoc bo mi już ręce opadają. Zbudowałem sobie prościutki układzik do załączania za pomocą pilota dwóch triaków. Układ został złożony na płytce testowej i program napisany w bascomie. I wszystko działało jak należy. Od razu zabrałem się do roboty i zaprojektowałem płytkę tylko zamieniłem uP z atmegi16 bo taki mam w płytce...
Wiem, że temat kart sd do atmegi był już poruszany ale nie znalazłem odpowiedzi i dalej tkwię w problemie. Otóż napisałem program odczytujący pomiar i teraz chcę wysłać ten odczyt na kartę sd, skonfigurowałem ją wg opisu znalezionego ' Chip Select Pin => Pin 1 of MMC/SD Config Pinb.3 = Output Mmc_cs Alias Portb.3 Set Mmc_cs ' MOSI - Pin => Pin...
obsluga padow od PSX w bascom .... '#######################################... '# File Name: PSX_PADInterface.bas # '# Written By: Matt Smith # '# Function: Allows you to hook a Sony PSX handcontroller to a AVR using # '# the Hardware Spi functions in Bascom. It is an awesome tool # '# for lots of different...
Witam Mam taki problemu z procem mega8515. W momencie wciskania klawisza S1 procek zachowuje się tak jakby wszystkie przyciski były wciśnięte. Na przycisk S2 nie reaguje. Sprawdzałęm na innym procku mega8515 i to samo. Natomiast na mega8 dziala ok. Gdzie tkwi przyczyna że mega8515 źle działa? Poniżej kod programu: $regfile = "m8515.dat" $crystal...
Witam W jednym z wydań Nowego Elektronika był zamieszczony kod do sterownika zgrzewarki. Po przepisaniu kodu cały czas wyskakuje mi błąd Invalid datatype [[0011]] 0[P3]. Poniżej kod programu: [syntax=basic4gl] $crystal = 12000000 $regfile = "m8def.dat" Seg_a Alias P1.0 Seg_b Alias P3.7 Seg_c Alias P1.6 Seg_d Alias P1.4 Seg_e Alias P1.3 Seg_f Alias P1.1...
Nie, nie tworzysz żadnych kolumn, to są kolumny tymczasowe, aliasy są nadane, żeby się dało skonstruować zapytanie nadrzędne. masy_dzien to nazwa tej tabeli a masa_max to nazwa jedynej kolumny w tej tabeli... jeśli wolisz to zamiast zapytnia złożonego można stowrzyć widok i używać zapytania prostego: CREATE VIEW masy_dzien AS SELECT MAX(Masa)...
kod vb do obslugi mscomm: Private Sub Command1_Click() MSComm1.PortOpen = True End Sub Private Sub Command2_Click() MSComm1.PortOpen = False End Sub Private Sub Command3_Click() MsgBox (MSComm1.CommEvent) End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive txtTemp.Text = Val(MSComm1.Input) End Select End Sub Jezeli chodzi...
Aż se na płytce złożyłem ten układ i program sprawdziłem. No i faktycznie świeciło na stałe. Do poprawienia były bzdety. Wklejam jeszcze raz, przetestowany i na 100% wszystko działa jak chciałeś [syntax=basic4gl] $crystal = 8000000 'Deklaracja częstotliwości kwarcu $regfile = "attiny2313.dat" Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A...
Witam Testuję moduł GSM SIM800L. Chciałem, aby po otrzymaniu komendy przez SMS odsyłał zwrotny SMS lub wysyłał email z danymi. Najpierw "na sucho" klepiąc ręcznie linia po linii przez terminal uzyskałem pozytywne wyniki testów ( tzn. otrzymywałem SMS i email ). Nieco gorzej jest w przypadku podłączenia do Atmega328. Podsłuchując terminalem odbieram:...
Raczej nie zaczęło. Prawidłowo działa odliczanie czasu w oparciu o zegar PCF8583 - co minutę miga dioda podprogramu Pomiar. I na tym się kończy sprawa jeśli chodzi o SD, nie dopisuje do pliku, nie tworzy nowego, reszta działa poprawnie - wyświetlanie czasu i temperatury na LCD. Plik Config_MMC.bas jest od Kolegi Duch '---------------------------------------...
$regfile = "m8def.dat" $crystal = 800000 Config Timer0 = Timer , Prescale = 64 Dim Licz8ms As Byte Enable Interrupts Dim A As Byte 'Enable Timer0 'On Timer0 Procedura Load Timer0 = 250 Reset Portc.5 Reset Portc.4 Reset Portc.3 Set Portc.0 Set Portd.4 Config Watchdog = 2048 Config Portc.5 = Output Config Portc.4 = Output Config Portc.3 = Output Config...
Jakiś czas temu popełniłem kolejną wersję, ale nie miałem czasu jej wstawić. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 $sim Config Portc = Output Config Portd = Output Config Pinb.0 = Input Config Pinb.1 = Input Portc = 0 Portd = 0 Rst Alias Pinb.0 Plus Alias Pinb.1 Dim X As Byte Dim Y As Byte Dim Z As Byte If Plus = 1 Then X = X +...
Chyba wykrakałeś tę liczbę szatańską- przy 40V zasilania z płytki zaczął się wydobywać dym. Uporządkowany trochę kod- jeszcze w bascomie- ale łatwiej będzie wystawiać stan portu w C. 'Program do sterowania małych silników krokowych za pomocą ATMega168 it.p. i układu L6219 lub LB1845 'sterowanie ćwierćrokowe, zasilanie 40V $regfile "m168def.dat"...
Witam Mam problem z menu wielopoziomowym. Przeczytałem już chyba wszystkie tematy odnoście menu które znalazłem na elektrodzie i tak naprawdę żaden problem odnośnie menu nie był do końca rozwiązany:( Problem jest taki że żadne z przycisków mi nie działa i nie przechodzi program między menu główne, ani nie wchodzi do podmenu. Przyciski są podłączone...
Czy w bascomie mozna napisac program obslubi LCD w trybie 8bit? W opcjach konfiguracyjnych jest tam tylko: dane 4bit i sygnal E, RS, a co z RW? Czy kttos moze mi powiedziec czy takei cos bedzie dzialac z wyswietlaczem 2*16 podalczonym poprzez dane 8 bitow i 3 sygnaly sterujace: Config Lcd = 16 * 2 Rw Alias P3.1 = 0 Db3 Alias P1.3 = 0 Db2 Alias P1.2...
waitms zdaje się korzysta właśnie z tego timera więc dlatego może masz ten problem. Spróbuj sobie wrzucić obsługę wyświetlacza w timer1 i wtedy waitms będzie może działał dobrze pozdrówka Robię to na Attiny 26L, wg pdfa on ma dwa timery. Być może ten drugi jest jakiś specjalny, póki co w programie po prostu pozmieniałem "timer0" na "timer1" i niestety...
Wiec tak. Zrobilem podobnie tak jak mowisz. Tylko nie na przerwaniu i mam problem takie ze gdy kreci sie w jedna strone robie np. zmiane kierunku to zaczyna jechac od poczatku drugich danych. Nie wiem jak zrobic zeby nawracal od tego samego miejsca. $regfile = "m8def.dat" $crystal = 8000000 Declare Sub Lewo_k Declare Sub Prawo_k Declare Sub...
W Bascom'ie jest biblioteka mmc.lib i nigdzie nie jest opisana jej konfiguracja jak i jej sposób użycia. Czy wiecie jak wysyłać i odbierać bajty przy użyciu tej biblioteki? Dodano po 3 Dokopałem się do czegoś takiego i co dalej....... $regfile = "m128def.dat" $crystal = 14745600 $baud = 115200 $hwstack = 150 'wartosc stosu $swstack = 150 'wartosc...
Witam! Na podstawie informacji zawartych w książce "Programowanie mikrokontrolerów w języku Bascom" napisałem program: Problem: Problem polega na tym, że program nie działa poprawnie. Po pierwsze procesor zamiast 1 sekundy odmierza ok. 8s. Jest to dla mnie nie zrozumiałe, ponieważ kodu zawierającego instrukcje tyczące się timer0 nie zmieniałem. To samo...
alias poczta darmowy alias pwm1a alias
reset pojemnika połączyć laptop wzmacniacz halogenowy transformator
babcia komputer sterownik movera
Subwoofer DIY vs oryginał – Dayton, Hypex, Purifi, lepszy bas, projekt, porównanie 2024 Altus 200 – podłączenie głośników do zwrotnicy, polaryzacja plus i minus, GDN, GDM, GDWT