Witam. Znamy sie juz z mojego wczesniejszego tematu :) gdzie pytalem o cos podobnego ale dla jezyka C. Z racji braku supportu dla polaczenia 1wire-8051-jezykC postanowilem wykonac zadanie w BASCOMIE dla 8051. Usiadlem przerobilem troche kodu z C i oto efekty: $crystal = 12000000 Wysw Alias P2 'a-h W1 Alias P0.1 ' 3 anody dla 3 wyswietlaczy W2 Alias...
Witam. Zrobiłem sterownik do swojego obrotowego kolektora słonecznego. Bascom, Atmega8, lcd 4X20 znaków-tryb 4 bit. Problem jest następujący: sterownik za pomocą przekaźników steruje siłownikiem z silnikiem DC lewo - prawo. Miałem problem z zakłóceniami, reset procesora, krzaki na LCD. Działo się to przy rozłączaniu przekaźników. Okazało się że trafko...
Dziękuję. Dokończyłem kod. Mógłby ktoś sprawdzić poprawność? (PS Proszę, nie bijcie, pewnie niektóre rzeczy są ta wykonane bardzo...niepoprawnie, ale to moje początki z Bascomem) [syntax=basic4gl]$large $regfile = "89c420.dat" $crystal = 11059200 'czestotliwosc kwarcu w Hz Declare Sub Alarm , Sub Dsread , Sub Ustaw_czas , Sub Ustaw_date , Sub Ustaw_budzik...
Witam! Dooedukowałem się troche i przy pomocy trochę i internetu i helpa do bascoma napisałem program pod termometr program pokasuje temperaturę czyści wyświetlacz i pokazuje czy spadek cze wzrost do poprzedniego pomiaru skopiowałem i jest OK ale czy ma to prawo chodzić Dim Lsb As Byte : Dim Msb As Byte : Dim Tempa As Single Dim T1 As Byte :...
Problem rozwiązany w następujący sposób: temp=wyswietl+7 if I >=temp then wyswietl=wyswietl+10 else temp=temp-14 if I<=temp then wyswietl=wyswietl-10 end if end if lcd wyswietl
Dobra zgodnie z zapowiedzią mały porządek w poście. Jak widać na załączonym obrazku procedura wreszcie mi działa tak jak trzeba. Problemy wynikały z mojej sklerozy :yes: , procedury tego typu pisałem jakieś 2 lata temu i się zapomniało to i owo o BASCOM. A oto kod samej procedury: 'zmienne const null = 255 Dim Poz_wys As Byte Dim Licz As Word Dim Temp...
Mam problem, bo muszę ten program wykonać w Bacomie i potem Proteusie aproksymując prostą na wykresie gdzie oś x to czas a y to wartość rezystancji. To kod z Bascoma: Do Cls Czas = Getrc(p0.0) Upperline Lcd "Czas=" ; Czas ; " " Temp = 0,98 * Czas Temp = Temp - 3200 Rez = Temp Lowerline Lcd "R=" ; Rez Wait 1 Loop Jak wiadomo jest to zadanie nie do wykonania...
Witam, cel pozostał ten sam, lecz zmienił się kod, tym razem bez Lcd, więc jako zadanie dostałem opisanie krok po kroku otrzymanego kodu oraz przeniesienie kodu z języka Bascom na kod Asemblera i C. Jako, że programowanie nie jest moją mocną stroną, prosiłbym o pomoc (rady, sugestie najlepiej w sposób tzw. łopatologiczny jak można osiągnąć postawiony...
Witam Znalazłem na elektrodzie poniższy kod: $regfile = "m8def.DAT" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5 Config Portd.0 = Input Config Portd.1 = Input Config Portd.2 = Input Config Portd.3 = Input Config Portd.5 = Input Config Portb.4 = Output Cursor...
Widzę że kolega And! nigdy nie programował w Bascomie, otóż ten język nie przyjmuje aż tak skomplikowanych działań. Trzeba prościej. Zważając na to że integer to także liczby ujemne sugeruję taki oto kodzik: Dim A As Integer , C1 As Byte , C2 As Byte , C3 As Byte , C4 As Byte , C5 As Byte Dim Temp As Integer , Znak As Bit A = -31945 If A < 0 Then...
Witam robie stacje lutowniczą z atmegą8 napisałem taki kod w bascomie, czy bardziej doświadczeni koledzy mogli by na nieo zerknąć i wytknąć mi poważne błędy jakie popełniłem. Temperatura z termopary jest brana za pomoca mac6675 i spi, uśpienie powinno się włączyć po minucie leżenia kolby nieruszanej i zmniejszyć ustawiona temp do 160 stopni, po podniesieniu...
Witam. Poszukałem trochę w sieci, poczytałem polskiego helpa do Bascoma i zlepiłem taki program: [syntax=basic4gl]$regfile = "m8adef.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1 Cursor Off Cls Deflcdchar 0 , 14 , 17 , 17 , 14 , 32 , 32 , 32...
Zobacz tutaj '####################################### 'inculde file for RF12-device 'info about RF12 Transceiver: www.hoprf.com or www.integration.com 'info about using RF12 with Bascom: www.comwebnet.de ' 'Version History '--------------- 'Initial Version: v0.10 'Date: 200711 'Author: Kurzschluss '--------------- 'Version: v0.11...
Witam! Na początku przepraszam bardzo, jeśli popełnię jakieś błędy, ale siedzę nad problemem już od rana non-stop i pewnie nie widzę czegoś prostego, a stopień mojej frustracji osiąga już granice bezpieczeństwa. Ale do rzeczy: Mam następujący kod odbierania RFM12B napisany w Bascom (gotowiec z forum): C: --- Z góry bardzo dziękuję za wszelką pomoc,...
Witam Wczoraj zakupiłem sobie czujnik ds18b20 miał być ds1820 o czym dowiedziałem się dopiero w domu po nieudanej probie odczytu temperatury. Kod który użyłem pochodził z książki M. Wiązani. (niżej go zamieszczam). i tak po połączeniu wszystkiego wg. schematu dostałem odczyt temperatury -52 st. C co jest absurdem bo powinno być ok. 20 - 21 st. C i tak...
Witam! Tworzę projekt termometru, który mierzy temperaturę i odpowiednio wysterowuje diodę RGB wg schematu: x <20 *C - świeci na niebiesko 20< x <45 - płynnie przechodzi w purpurę 45< x <70 - płynnie przechodzi w czerwień dodatkowo termometr wyświetla zmierzoną temperaturę na wyświetlaczu LCD. Dioda jest sterowana programowym pwm obslugiwanym...
Witam. Jestem nowy więc pragnę się z Wszystkimi ładnie przywitać. :) Nie będę owijał w bawełnę, po prostu potrzebuję, aby ktoś przerobił mi program, który znalazłem w internecie wraz z schematem. Wiem, wiem powiecie, że Bascom jest prosty, że sam mogę to zrobić itd, ale nie będę się uczył tego języka do zrobienia jednej rzeczy. Potrzebuję zrobić termometr...
Witam! Sterownik lcd t6963. Bascom Jak zrobić czyszczenie ekranu? Próbuje cls, cls text, cls graph, ale nie działa... Mam podprogramy, i chce wyczyścic ekran po przejsciu do następnego podprogramu. Niestety nie działa czyszczenie ekranu.. Kod wygląda na razie tak: ........................................... [syntax=basic4gl]$regfile...
Witam. Postanowiłem postawić swoje pierwsze kroki w budowie termostatu, Zbudowany na Atmega8. Program postanowiłem napisać z informacji znalezionych w sieci. Udało mi się zrobić pomiar temperatury, Nie mogę sobie jednak poradzić z menu nastawu temperatury oraz histerezy. Zamieszczam kod. Jeżeli ktoś pomoże będę bardzo wdzięczny [syntax=basic4gl] 'Konfiguracja...
Witam, proszę mnie upewnić co robię nie tak. Mam program który (działa :), ale nie do końca) jest termostatem z dodatkowym termometrem (jeden czujnik sprawdza temp na piecu i steruje przekaźnikiem, drugi tylko mierzy temp. zewnętrzną): [syntax=basic4gl]$regfile = "m8def.dat" 'Atmega8 $crystal = 1000000 'taktowanie 1MHz Config Lcd = 20 * 4 'rodzaj wyświetlacza...
Witam, z racji że mam kilka wyświetlaczy OLED SSD1306 z komunikacją po SPI które leżą już kilka lat, postanowiłem zapoznać się z nimi bliżej. Wszystko działa fajnie tylko mam problem z wyświetlaniem fontów. Chciał bym przykładową grafikę wyświetlić ale za nic nie udaje mi się to. Może ktoś ma jakiś pomysł, albo przykład żeby podpatrzeć jak to jest zrobione...
Ja to ogarnąłem czymś wygrzebanym z neta. '***************************************... ' Demo for SSD1306 128x32 Pixel ' ' Hardware: http://www.adafruit.com/category/63_... ' ' use 512 Byte Frame Buffer ' Spi Mode ' ' ' ' Date:22.05.2014 ' Email: Hkipnik(at)aol.com ' Copyright (c) 2013 Hkipnik....
Jednak problem był w sofcie... temp, temp2, suma1 zadeklarowane jako single ta sekwensja była przyczyną błędów: ... temp=suma1/255 temp=temp-241.09 ... Zmianiłem ją następująco ... temp=suma1/255 temp2=temp-241.09 temp=temp2 ... i pomogło ... ale czemu?
Zbudowałem miernik częstotliwości w oparciu o projekt Z.Raabe . Niestety nie działa on poprawie, powyżej częstotliwości 255Hz pokazuje częstotliwość 0Hz. Podejrzewam błąd w programie, niestety nie mogę go zlokalizować :/ Proszę o pomoc. Config Timer0 = Counter , Gate = External , Mode = 1 Config Timer1 = Timer , Gate = Internal , Mode = 1 Config Lcd...
moze to pomoze fakt ze tutaj jest rejestr przesuwny 74164 ale idea jesta taka sama $regfile = "2313DEF.DAT" Dim Jednostki As Integer , Dziesiatki As Integer , Setki As Integer , Ktorywysw As Byte , Mux As Byte , B As Byte Config Timer0 = Timer , Prescale = 64 Enable Interrupts : Enable Timer0 On Timer0 Co4ms Config Pind.3 = Input : Config Pind.2 = Input...
zamieszczam listing ktory przeklepalem zgazety Nowy elektronik: $regfile = "m8def.dat" $crystal = 800000 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.3 , Db6 = Portd.2 , Db7 = Portd.1 , E = Portd.5 , Rs = Portd.7 Config Lcd = 16 * 2 Config Adc = Single , Prescaler = Auto , Reference = Off Ddrb = &B00000000 Ddrc = &B00000000 Ddrd = &B10111110...
No to jak się zastanawiałeś nad tym, to powinieneś zaskoczyć o co chodzi... Po prostu należy najpierw wyłączyć maskowanie roku i dnia tygodnia (więc zamiast 8 do rejestru 0 wpisać wartość 0), potem odczytać cały bajt, zamaskować niepotrzebne bity w danym bajcie: najpierw rok i odczytać dzień miesiąca, potem zamaskować dzień miesiąca i odczytać rok -...
Dzieki wielkie, a jeszcze jedno pytanie, bo sklecilem teraz program, ktory bedzie mi zliczal w przyblizeniu ile auto "pożarło" juz paliwa, wiadomo ze dokladnosc tego bedzie niewielka, ale chodzi mi o przyblizenie, czy ten kod bedzie poprawny, najbardziej interesuje mnie to czy dobrze zrobilem obsluge przerwania timer1. Jezeli timer1 dojdzie do 65536,...
Witam Z tym gotowcem... fakt - ale tak jak zauważył JmLl(TM) - ja należę do ludzi, którzy uczą sie na przykładach - jestem bardzo wdzięczny - bo nie mam książki a przykład PWM bardzo mi sie przyda Raz jeszcze dziękuję M Dodano A to kod nad którym pracowałem i do którego potrzebowałem PWM Sterownik do wytrawiarki: Termometr na DS18b20 a pompka - to pompka...
Atom, dziękuje ci bardzo za pomoc. Dzięki tej asemblerowej wstawce bez problemu mogę obsługiwać teraz INT0 i INT1. Nie mam pomysłu jeszcze jak zrobić obsługę 4 przycisków, ale i z dwoma przyciskami już coś można powalczyć. Na ATMEGA8 zostały mi wolne linie: PORTB.0 PORTB.1 PORTC.0 Aktualnie poniższy kod: Pokazuje na przemian temperaturę i czas. Wybór...
Próbowałem tak $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Input Config Pinb.2 = Input Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Config Lcdpin = Pin , Db5 = Portc.1 , Db6 = Portc.0 , Config Lcdpin = Pin , Db7 = Portc.5 , E = Portc.3 , Config Lcdpin = Pin , Rs = Portc.4 Config 1wire = Portb.0 Declare Sub Odcz_temp...
Tak to da się zrobić. Godziny 5 bitów, minuty 6 bitów, miesiąc 4 bity, dzień 5 bitów, rodzaj x bitów. Razem 20 bitów + x. Kodowanie: Dim temp as long '.... temp = godziny shift temp, left, 5 temp = temp OR minuty shift temp, left, 6 temp = temp OR miesiac Działa jak widać dodajemy przesuwamy o odpowiednią ilość bitów i następną zmienną dodajemy w puste...
$regfile = "attiny2313.dat" $crystal = 4000000 Config Portb = Input Portb.0 = 1 Config Portd = Output Portd = &B11111111 Dim Temp As Byte Temp = 1 Do Temp = Temp * 2 If Temp > 80 Then Temp = 1 Portd = Temp Toggle Portd If Pinb.0 = 0 Then Bitwait Pinb.0 , Set End If Waitms 500 Loop End Dodałem znaczniki
Nie jawie nic: Mam program który miga led $regfile = "attiny2313.dat" $crystal = 4000000 Config Portb = Input Portb.0 = 1 Config Portd = Output Portd = &B11111111 Dim Temp As Byte Temp = 1 Do Temp = Temp * 2 If Temp > 80 Then Temp = 1 Portd = Temp Toggle Portd If Pinb.0 = 0 Then Bitwait Pinb.0 , Set End If Waitms 500 Loop End I tak: Impuls zmieniający...
Oto kod Kod: '4x4 Line Follower 'Chibots line following Contest 2003 'Wright Hobbies, LLC Copyright 2003 'eddy(at)wrighthobbies.com 'Variables 'Line Detectors Dim Lineflag As Byte Dim I As Byte , X As Byte Dim Adcvalue As Word , Channel As Byte , Progspeed As Byte Dim Progsteer As Byte Dim Lastadc(5) As Word Dim Calhi(5) As Word , Callow(5)...
Witam, Mam mały problem z komunikacją między uC. Ale od początku. Schemat układu pochodzi z EP Samą komunikację udało mi się zestawić i działa bardzo dobrze (załączony kod poniżej). Master non stop odpytuje slave i jest git. I teraz mój problem, chcę dodać w masterze odpytywanie powiedzmy co 0,5 s i tu zonk. Kiedy dodam Waitms 500 po każdej pętli komunikacja...
'Definicja procesora dla: ' Mega16 wpisać m16def.dat ' Mega32 wpisać m32def.dat ' Mega644p wpisać m644pdef.dat $regfile = "m32def.dat" 'Częstotliwość kwarcu domyślnie 16MHz $crystal = 16000000 $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 'default use 10 for the SW stack $framesize = 40 'default use 40 for the frame...
Witam buduje taką mini stacje pogodową i zatrzymałem się z obsługą ds-a co w tym może być nie tak ? W książce którą posiadam jest tylko obsluga 1820. Docelowo mają być 2 czujniki na 2 liniach. Zrobie to dublując kod . Jednak przy jednym nic nie działa wyświetlacz zostaje cały czarny bez czujnika , i z nim też . Oto kod: '###STACJA POGODOWA BY GEGE97##################################...
Witam. Proszę o przejrzenie kodu i uwagi. Zasada działania urządzenia jest prosta. Pomiar temperatury z pieca z centralnego, porównanie , ja ze zmienna alarmową, jeśli się zgadza to sygnał buzera co 250 ms. 4 przyciski: 1 - pozwala zwiększyć zmienna alarmową 2 - pozwala zmniejszyć zmienna alarmową 3- wyłącza buzer 4- po naciśnięciu jeśli załączy się...
Proszę kogoś doświadczonego czy mógł by sprawdzić czy ten program będzie działać z tym schematem.
Czyli z kantońskiego na nasze :): [syntax=basic4gl]Mojazmienna = Pina Licz_jedynki = 0 For Index = 0 To 7 Rotate Mojazmienna , Right Temp = Mojazmienna : Temp = Temp And 1 : Licz_jedynki = Licz_jedynki + Temp Next Index[/syntax]
Tak wygląda obecnie cały kod: [syntax=basic4gl]Do If F4ms = 1 Then Reset F4ms If Ust = 0 Then Wysw = T Else Wysw = Tu Gosub Wyswietl_zmierz End If If F100ms = 1 Then Reset F100ms If Up = 0 Then Incr Tu If Tu > 350 Then Tu = 200 End If Autoret = 20 End If If Down = 0 Then Decr Tu If Tu < 200 Then Tu = 350 End If Autoret = 20 End If If Autoret >...
Witam Prosił bym o zweryfikowanie kodu. Wydaje mi się ok ale nie chcę od razu uśmiercać DS'a. DS daje mi odczyt 4095.94 (nawet po odłączeniu nóżki od masy, po odłączeniu zasilania lub nogi danych pokazuje 0). $regfile = "m8def.dat" $crystal = 16000000 Config Portb = 255 Portb = 255 Config Portc = 255 Portc = 255 Config Portd = 255 Portd =...
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...
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...
Zaraz dokonam kilku kosmetycznych zmian i ponownie dodam enable timer2. Dam znać o efektach Dodano po 13 Do dyspozycji mamy nastepujący kod, który generalnie już działa (z małymi wadami) Dodano po 4 Czy obecnośc obliczeń w obsłudze przerwania może dawac taki efekt? Dodano po 14 Kolejna wersja kodu z obliczeniami w pętli głównej. Nie zmieniło to działania...
A jednak są literówki :D I w sumie dzięki temu chyba znalazłem błąd, który rozwiąże całość. Sprawdzałeś 16 bit Send_volume a wcześniej przesuwasz Volume o 16 bitów (co oznacza, że bity jakie sprawdzasz są "0"). Warunek do sprawdzania czy DQ ma być 1/0 musi być [syntax=c]if(Send_volume & 0x80000000)[/syntax] Ja na twoim miejscu zrobiłbym w ogóle...
Witam, Chciałbym przerobić nie swój kod programu pod żyroskop l3g4200d. Kod znalazłem w internecie jest napisany właśnie na atmegę 1284p, a ja potrzebuję go przerobić na atmegę8. Kod wygląda następująco: [syntax=basic4gl]'======================... ' Project: L3G4200D 3tripple axes gyro Test #1 '...
Witam! Staram się uporać z problemem przesłania temperatury bezprzewodowo, i nie wiem jak przesłać jej wartość za pomocą RC5. Wiem że muszę zmienić integer na byte ale teraz pytanie, bo RC5 składa się z [syntax=basic4gl] ... Rc5send Togbit , Address , Command ... [/syntax] czy mogę po prostu w miejsca Togbit , Address , Command wstawić wartości temperatury...
Witam. Jako początkujący, a już trochę wiekowy (46)proszę o wyrozumiałość. Napisałem w Bascomie takie coś , zrobiłem układ i nic. Nie działa. W którym miejscu jest błąd ? Na schemacie nie ma tranzystorów PNP w anodach, rezystorów w segmentach - celowo , bo to oczywiste.
Witam Kompilator nie rozpoznaje mi polecenia: Enable OC2 On OC2 T2_isr Nie wie co to OC2 a dokładniej: Unknow interupt source Dodano po 1 Witam Poniżej rozwiązanie... [syntax=basic4gl] Config Timer0 = Counter , Edge = Rising Config Timer2 = Timer , Async = Off , Prescale = 64 '11059200 / 64 = 172800/256(przepełnienie timera) = 675 Dim Frequency As Long...
Witam. Mam taki program pod wyświetlacz SSD1306 z forum MCS Electronics: [syntax=vbnet] 'oled 0.96 i2C $regfile = "m328pdef.dat" $crystal = 16000000 $hwstack = 64 $swstack = 64 $framesize = 64 Dim Resetflag As Bit dim send as byte Const Kontrast = &HFF '00-FF Kontrast Config Scl = Portc.5 Config Sda = Portc.4 Config Twi = 400000 Declare Sub Rstoled...
Dziękuje :). Taki był cel bo żeby było prosto bo miałem na to tylko 2 kB pamięci . I ładnie. Chciałem zobaczyć bo wiem, że nie jest łatwo w języku wysokiego poziomu wetknąć w attiny2313 obsługę wyświetlacza, komunikaty i coś co jeszcze coś robi. Swoją droga musiałem wyprostować twój kod żeby ogarnąć ... Ech te wcięcia ... [syntax=vbnet] '***************************************...
Po kilku godzinach (!!!!!!).... W pętli programu zrobiłem tak: Po jakimś czasie.... Zmieniłem na próbę na taktowanie wewnętrzne 8MHz i działa! serwerek chodzi jak padlina ale działa. Co teraz ? Dodano po 6 ehhh.... tak to jest jak się nie czyta DTRek Gotowe modłuy ENC28j60 które kupuje się na portalach aukcyjnych mają wstawiony kwarc 25MHz. Pin 3 CLK...
Po kilku dniach pracy urządzania stwierdziłem że jednak przydało by się żeby serwerek dodatkowo wysyłał dane do "" chociaż z termometru domowego. Próbowałem na rożne sposoby ale nie mam pojęcia jak to zrobić. Może ktoś z Was jest w stanie zmodyfikować kod ? Może kolega (at)bart-projects czyta ten temat? ;) (to ten sam kod co w załączniku) [syntax=vbnet]...
Witam. Napisałem program w bascomie, zwykły termostat z wyjściem na przekaźnik. Mikroprocesor to Atmega8 + lcd + DS18b20 + 2 przyciski. Przerwania działają, lcd tak samo, jednak program nie chce odczytywać danych z czujnika. Sądzę że jest dobry gdyż tą cześć kodu która ma służyć do obsługi czujnika zaczerpnąłem z tego forum. Kod zamieszczam poniżej...
Witam. Szukałem i googlowałem, ale nic nie znalazłem - chyba że źle szukałem. Ale do rzeczy. W jaki sposób rejestrować 4 wartości temperatury (maksymalna i minimalna) z 2 czujników? Gdzie te wartości przechowywać , tak aby były dostępne po zaniku zasilania w Atmedze8. Prosiłbym o jakieś przykłady kodów (chociażby fragmenty). Pozdrawiam Duch__
Witam W mojej stacji lutowniczej skorzystałem z fragmentu kodu Kamila Szkutnika, na przeliczanie ADC na temperaturę Wart_ac = Getadc(0) Waitms 100 V = Wart_ac * 0.0049 Temp = V * 260 Temp = Temp + 25 Tylko z moją kolbą to się strasznie rozjeżdża, mógł by mi ktoś wytłumaczyć co w kodzie oznacza 0.0049 i 260? Lub jak inaczej ustawić by poprawnie czytało...
Na tej stronie z linku na dole znalazłem taki kod: '**************************** 'Konfiguracja '**************************** $regfile = "attiny2313.dat" $crystal = 12000000 Config Portb = &B11111111 : Portb = &B11111111 Config Portd = &B11111111 : Portd = &B11111111 Config 1wire = Pind.5 Config Timer0 = Timer , Prescale...
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...
Witam serdecznie! Mam wielki problem z bascomem i magistralą i²c. Otóż kiedyś, gdy miałem bascoma 1.11.7.7 magistrala i²c działała bez problemów, teraz mam Bascoma 1.11.9.5 i nie mogę się skomunikować z żadnym układem i²c. Zegar i pamięć eeprom w ogóle nie odpowiadają, testowałem na 2 płytkach (jednej własnej konstrukcji, druga BASCOM...
Cześć Zumek ! Faktycznie pogrzebałem troszeczkę w BASCOMIE i softowy UART zadziałał bez problemu. Jednak.........mam pewne spostrzeżenia: 1) Pomiędzy instrukcjami otwierającymi porty a pierwszą instrukcją wysyłającą dane musiałem zrobić wstrzymanie programu. OPEN "coma.7:19200,8,n,1" for output as #1 OPEN "comd.2:19200,8,n,1" for input as #1 WAIT 1...
Witam. W dziedzinie mikrokontrolerów jestem początkujący więc proszę o wyrozumiałość. Mam problem zaprogramowaniem Atmega8. Programator zrobilem sobie według schematu z tego posta 'Termometr 4 punktowy DS18b20 $regfile = "m8def.DAT" $crystal = 1000000 'Deklaracja portów od wys'wietlacza LCD Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1...
Witam. Jako że znalazłem w swoich zbiorach stary wyświetlacz po siemensie c60 motywowany jednym z tematów na tym forum postanowiłem połączyć owy wyświetlacz z atmega8. Układ na szybko połączyłem według tego schematu: Jako że nie miałem styczności z tego typu wyświetlaczami więc wsad do procka zaczerpnąłem z innego postu. Trochę go skróciłem i pozmieniałem...
Witam. Mam kłopot ze skompilowaniem tego kodu w bascomie 2.0.8.1 W wersji bascoma 2.0.7.3, której do tej pory używałem kompilacja przechodzi pomyślnie ERROR: 380 Line: 43 Array<> Non Array mismatch Error sugeruje błąd z tablicą w funkcji Czy ktoś miał podobny problem?
Witam Jestem w trakcie robienia zagara nixie ze strony Mikrokontrolerem jest Atmega8 a wkład zrobiony na Bascomie. Potrzebuję dodać opcję chwilowego wyłączenia lamp, w celu zabezpieczenia lamp przed zatruciem. Bardzo proszę o pomoc. To kod: '************* Konfiguracja uC ***************** '***************************************... $regfile = "m8def.dat"...
Ja ostatnio pisałem programik, który miał między innymi coś nadawać alfabetem Morse'a i do wytwarzania dźwięku użyłem sprzętowego portu szeregowego UART z mikrokontrolera AT90S2313. Ustawiłem odpowiednią prędkość nadawania (sposób liczenia znajdziesz w data sheet) i wysyłałem same znaki b'01010101 (55 hex). Nadawanie realizowane jest od najmniej znaczącego...
Nie masz wyjścia, jak zacząć bawić się AVRStudio ... :D Bascom potrzebuje SRAM-u, którego ten procek nie posiada... A kodzik, proszę bardzo, ale za jego kompatybilność z Bas-monster nie odpowiadam ;) : #include "m8515def.inc" ; Prohibits use of non-implemented instructions (ATmega8515) .cseg ;—————R...
ok tak wyglada obsluga przerwania do testow (w wersji finalnej chodzi o transmisje w dwie strony) to jest procedura dekodowania RC5 zaczerpnieta z noty katalogowej Atmela. uproscilem to troche zeby sprawdzic czy w ogole bedzie dzialac jako wstawka w bascomie no i niestety. Powiem tak program glowny czyli wszystko poza obsluga tego przerwania dziala...
nie dobrze :/ dobra, to jeśli bym podłączył wyświetlacz normalnie do pinów atmegi8 (tak już to robiłem i wiem jak go zaprogramować) to co mógłbym podłączyć do tego PCFa żeby było łatwiej? Może ds1820 ? i żeby pokazywał temp na LCD..może to będzie łatwiej zaprogramować w BASCOMIE. ( bo już dla mnie za późno na zmianę języka) bo nie chce mieć tylko samych...
Witam wszystkich posiadam napisany kod w C obsługujący wyświetlacz lecz mój projekt wymaga obsłużenia go w bascomie. Mam kilka wątpliwości jak zamienić pewne elementy kodu. while(GLCD_ReadStatus()&... GLCD_WriteCommand(SPLC501C_COLUMN_AD... | (x >> 4)); GLCD_WriteCommand(SPLC501C_COLUMN_AD...
Witam wszystkich forumowiczów... Jestem dosyć początkującym programistą mikro kontrolerów, więc proszę o wyrozumiałość. Posiadam płytę ewaluacyjną AVT5311 na której znajduje się czujnik temperatury lm50 oraz układ mcp3021. Korzystając z wcześniejszych porad dotyczących odczytu temperatury z czujnika DS18B20 napisałem kod w bascomie. Oczywiście mam świadomość,...
W linii nad napisem (komentarzem HISTEREZA ) masz niepotrzebnie zostawiony znak przecinka. W podprogramie Sub Tempna masz dwie instrukcje w jednej linii (Cls Lcd ). Zamień to na przykład tak: Cls Lcd "coś napisz" I znów w tym podprogramie brak ci END IF. Nie wiem gdzie chcesz to wstawić ale trzeba tam wstawić.Na przykład tak.[syntax=basic4gl] $regfile...
Witam serdecznie Bazuję na dostępnym w sieci kodzie Pana Piotra Rzeszuta, służącym do obsługi modułu ENC28J60 w Bascomie. Wszystko działa jak należy, jednak chciałbym zmodyfikować kod tak, aby po włączeniu diody wyświetlał się aktualny stan jej działania ("stanled1")... Czyli po kliknięciu w przeglądarce przycisku ON przy diodzie, obok wyświetli się...
Mam dziwny problem z ATmega8515 i obsługą szyny 1wire w Bascomie AVR 11.7.4. Prosty program zbudowany w oparciu o nieznacznie zmodyfikowany przyklad z helpa do odczytu temp. z ds18b20 działa na AT90S2313, a nie działa na ATmega 8515. Sposób podłaczenia jest ten sam, próboałem też konfigurować szynę 1wire na różne porty. Problem jest zawsze ten sam -...
Witam Wszystkich!! Mam nietypowy problem.Oto listing: Dim W As Integer Dim Channel As Byte Config Adc = Single , Prescaler = Auto , Reference = Internal Declare Sub Volt Do Channel = 2 Start Adc W = Getadc(channel) Waitms 1 Stop Adc Cls Lcd "Temp=" ; W ; " C" Wait 1 Loop Gdy za wartosc channel wstawiam cyfre(2 np.kanal 2) to wszystko dziala ok. A jak...
No i wszystko niby działa (znaczy mogę dowolnie programować itd) ale apetyt rośnie w miare jedzenia. Dokleiłem sobie procedurkę bootloadera bo chciałbym mieć możliwość programowania Atmegi w układzie. No i tu się schody zaczynaja. Bo po pierwsze to nic przez uarta nie mogę się skomunikować, po drugie nie działa bootloader.(co pewnie wynika z problemu...
A jakby oprogramowanie napisał w linux'ie to już zupełnie samo by chodziło... Zwalanie krzaczenia lcd'ka na język to próba wykazania wyższości świąt Bożego Narodzenia nad świętami Wielkiej Nocy - bzdura. jacynka84: Nie wiem czy próbujesz wykorzystywać jakieś biblioteki do KS'a, jeśli tak to daruj sobie taką pomoc. Ten lcd nie przyjmuje danych jako textowe...
Witam. Ze względu na warującą ostatnio na dworze temperaturę chciałem zrobić prosty termometr oparty na 89s52 i czujniku 18b20. Napisałem program i o ile pomiar temperatury działa należycie z dokładnością 0.5*C to mam spory kłopot z porównaniem i zapamiętaniem tej minimalnej- aby rano wiedzieć do jakiej spadła temp w nocy. Układ sprawuje się dobrze...
'Program sterujący LCD Siemens S65 ze sterownikiem LPH88 'Lcd obrócony o 90st. (dłuższy bok LCD w poziomie) 'Współrzędne pozycjonowania tekstu - w pionie y = 0 do 116, w poziomie x = 0 do 160 'Współrzędne dla Window_locate w oryginalnym układzie jak dla pozycji pionowej. 'Czcionka 16x16 cyfry i duże litery. 'Kodowanie kolorów 16 bitów &Bbbbbbggggggrrrrr...
Witam. Robię sobie wyświetlacz widmowy do roweru. Wszystko jest na 89c2051. Zrobiłem już tak że mam synchronizację obrotu koła i napis zaczyna się zaraz po zrobieniu pełnego obrotu (zastosowałem hallotron w połączeniu z int0). Wszystko spoko tylko im szybciej się jedzie to napis bardziej się rozjeżdża. Wpadłem na pomysł żeby zależnie od czasu obrotu...
procesor maga8 nie wyswietla bledow w bascomie-avr dziala niby poprawnie... wiec problem jest taki: temperatura ok. gdy na port Pc.1 podam stan wysoki 12v przez stabilizator 5v nic sie nie dzieje tak samo jak z reszta ktora jest pod linia ------------- zaczynam dopiero zabawe wiec nie mam pojecia co z tym nie tak na dodatek nie wyswietla bledow:) ale...
Niestety znow mam problem z kompilatorem. Pluje sie o prosta skladnie: If Dcf_array(1).index = 1 Then Display_values(1) = &B00000110 Else Display_values(1) = &B00111111 oraz troche bardziej skomplikowana: If((dcf_in = 0) And(dcf_failure = 0) And(synchronized = 1)) Then 'wykryto poczatek...
Potrzebuję pomocy przy zamianie kodu "RFID Reader", tzn. żeby zamiast wyświetlania kodu karty na LCD uzyskiwać odpowiedni poziom na wyjściu 1z10 i czy jest to możliwe do zrealizowania na atmega8? Chciałbym użyć 8 ostatnich cyfr kodu karty. Posłużyłem się gotowcem, który był już na elektrodzie (dopiero uczę się bascoma i nie wiem jak się do tego zabrać):...
Witam. Mam program do obsługi wyświetlacza tft z dotykiem. Program nie mój, działa prawidłowo ale jest problem z szybkością wyświetlacza i chciałbym przejść na Xmega128A3. Problem w tym że Xmegi nigdy nie miałem "w rękach" i mam problemy z przeróbką programu. Chciałbym też wiedzieć na pewno że ten program będzie działał na Xmega zanim wpakuję się w...
Jeszcze raz. Ja mam wersje 2.0.8 i u mnie oba liczniki licza tak samo w symulacji. Jak ktos ma wersje 2.0.10 to niech sobie wrzuci pierwszy post i niech sprawdzi czy w symulacji oba liczniki zliczja w tym samym tempie - bedzie to widac najlepiej na rejestrach TH0 i TH1. Koledzy(kolezanki) z innymi wersjami Bascom8051 tez bardzo zapraszamy - bo moze...
Sprawdzilem jeszcze raz wszystkie instrukcje i wygląda ze są dobrze zakończone. Program faktycznie może być nie kompletny, zajmuje 802 linie. kod początek: '------------------------------ $regfile = "M8DEF.DAT" $crystal = 8000000 Config Adc = Single , Prescaler = 16 , Reference = Avcc '------------------------------- Config Pinb.3 = Output Config Pinc.6...
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...
Witam. Godzine temu ściągnołem Bascom-avr i zaczołem czytać plik pomocy dołączony do programu. Postanowiłem napisać program korzystając z mojej dotychczasowej wiedzy i już natrafiłem na problem. Oto kod programu Config Portd = Output; Config Portb = Input; Dim I As Byte Dim W As Byte Dim Z As Bit Dim Temp As Byte If(pinb.2 = &B0) Then W = 0;...
Witam Mam taki problem, napisałem program w bascomie, w którym również korzystam z przerwania na INT0 (atmega8-16pu). Ale: Po włączeniu zasilania program przechodzi do obsługi przerwania i zostaje tam na amen - w czym jest błąd. Proszę o jakieś wskazówki. Płytka jest wykonana prawidłowo, na int0 jest stale 5V (podciągnięte do VCC zew, z wyjątkiem kiedy...
Witam! Jak wspomniałem, mam drobny problem z odbiorem sygnału lasera. Mianowicie mam w sumie wgrany taki oto kod: '---------------------------------------... REJESTRY I CZESTOTLIWOSC ZEGARA $regfile = "m8def.dat" $crystal = 8000000 '---------------------------------------... KONFIGURACJA LCD Config Lcd = 16 * 2 Config Lcdpin = Pin...
Witam Staram się przyswoić powoli wstęp do języka Bascom. Jednak żeby bezproduktywnie nie patrzeć na migające diody postanowiłem napisać sobie banalny program do wytrawiarki. Przeczytałem naprawdę sporo tematów. Po wielu próbach i zlepkach kodów z elki powstało to "coś". To "coś" nawet żyje :-) Program jest banalnie prosty, ma na stałe wpisaną temperaturę...
OK ta odpowiedź rozwiąże mój następny problem: - chcę na wyświetlaczu wyświetlać zegar i temperature ale w funkcji odczytu temperatury mam "waitms 750" przez co zegarek się trochę gubi :( jak mam dokładnie wykożystać to wyjście INT ?? jestem jeszcze troche zielony bo to moje początki z mikrokontrolerami i bascomem :( Dodano po 5 zrobiłem tak: $regfile...
Możesz go wykorzystać jako termostat w wytrawiarce. Program pisałem w bascomie.
Witam. Po wgraniu kodu do obsługi czujnika DS18S20 (Bascom), temperatura wyświetla się kilka jako jedności i kilka miejsc po przecinku (dziele przez 16). Jak zmniejszyć wyświetlaną temp do 1 miejsca po przecinku?
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...
Witam panowie, usiłuje napisać program do wytrawiarki, lecz jak już program jest prawie gotowy strasznie wolno chodzi i nie wykonuje czasami wszystkich poleceń. Program ma działać tak: po włączeniu, grzałka ma cały czas grzać do uzyskania temperatury zadanej, a pompka włączać się co jakiś czas w celu wymieszania. A po osiągnięciu temperatury zadanej,...
Zapraszam do zapoznania się z "AVR305: Half Duplex Compact Software UART" Poniżej przykład dla AT90S1200 [syntax=asm] ;**** A P P L I C A T I O N N O T E A V R 3 0 5 ************************ ;* ;* Title : Half Duplex Interrupt Driven Software UART ;* Version : rev. 1.2 (24-04-2002), reset vector added ;* : rev. 1.1 (27.08.1997) ;* Last updated : 24-04-2002...
Witam. Na temat sterowania CO z Atmegi i programów w bascomie jest w sieci dużo. Opisów i problemów różnych też. Ja mam może trochę bardziej nietypowy problem. Otóż po pierwsze chcę opracować skuteczny algorytm sterowania według (może przesadzonych0 ale według mnie ważnych parametrów. Prosty odręczny schemat w Pdf-ie. oto założenia: 1. Dwa tryby pracy...
Schematu nie będę poprawiał, bo nie ma co poprawiać. To jest program nadajnika CW: Uwagi ! Odbierany sygnał musi być silny, czysty i nadawany w odpowiednim tempie. Wszystkich sygnałów nie da się rozkodować. Pozdrawiam. Stefan
Witam forumowiczów. Mam mały problem z przerobieniem programu do mierzenia temperatury wzmacniacza 2x200W, problem polega na tym że mam program pod kostkę AT89C2051 a obecnie dysponuje tylko atmegą 16. Oryginalny program jest użytkownika "lechoo". Byłbym bardzo wdzięczny gdybyście pomogli mi przy tym programie. [syntax=basic4gl]'----------------------...
nie używać w kodzie 'wait', bo pewnie korzystasz z bascoma. uzyj przerwań, np co sekundę. wtedy co każde przerwanie najpierw odczytaj poprzedni pomiar, potem poproś kostkę o kolejny.
Po ciężkich zmaganiach z metodą losową dla kolorów postanowiłem porzucić ten pomysł i zastosować przewidywalny sposób który będzie się powtarzał co jakiś czas. Może i nie jest to rozwiązanie pierwsza klasa, ale działa. Nie stosowałem jednak korekcji gamma, bo przy rozdzielczości PWM 8 bitów i zastosowaniu płynnego rozjaśniania było widać przeskoki (mruganie)...
Witam Przedstawiam stację meteo nad którą pracuję już kawałek czasu. Początek prac to też mój początek zabawy z Arduino. Zaczęło się od gotowego projektu malutkiej stacji z wyświetlaczem OLED. Wtedy już samo wgranie programu do ESP8266 było wyczynem dla mnie. Później zaczęło się kombinowanie, poprawianie tego i owego, próbowanie innych softów. Na bazie...
Przedstawiam mój kolejny metronom ze "stukaniowym" nabijaniem tempa. Dawno temu opisywałem na elektrodzie pierwszą wersję z programem pisanym jeszcze w Bascomie. Różnica jest taka, że ten jest dużo mniejszy i poręczniejszy (waży 28g), ale z kolei nie wydaje żadnego dźwięku. Można by powiedzieć, że to bezsens robić takie urządzenia, gdy u Chińczyka...
Dzień dobry, Tym razem chciałbym się pochwalić moją dwudniowym projektem jakim jest mały dwu-kanałowy pilocik RC5. Mój tak naprawdę jest tylko w drobnej części, bo sam program napisał "bart-projects" (
Ok, teraz rozumiem o co Ci chodzi :D Dim Daneint As Integer , Danelong As Long , Temp As Byte Restore Daneint For Temp = 1 To 3 Read Daneint Print Daneint Next Restore Danelong For Temp = 1 To 3 Read Danelong Print Danelong Next End Daneint: Data 12345% , 1234% , 32100% Danelong: Data 1234567& , 321212& , 151213&
Potrzebuje napisac program na procka 4051 ktory odczytuje dane z rsa. Poniewaz sa spore zaklucenia musze przesiac informacje otrzymane przez uC przez jakas procedure sprawdzajaco-korygujaca. Mysle ze crc8 wystarczy mi. Na forum znalazlem skrypt do ukladu ds1820 wykorzystujacy crc8. Z tego co przeczytalem wynika ze ds1820 to uklad do pomiarow temperatury....
Aby tę funkcję zaimplementować w Bascomie , trzeba znać ciało tej funkcji , a postodawca jej nie "dostarczył" :( Piotrek analizowalem caly kod programu i ta funkcja wystepuje tylko w tym jednym miejscu i spelnia funkcje zwiazana tylko z wyswietlaniem danych a mnie interesuje to w jaki sposob obliczane jest srednie spalanie ... nie oczekuje od was gotowego...
Witam ! DS18B20 jest fabrycznie ustawiony na rozdzielczość 0,0625 stopnia co wymaga czasu pomiaru min 750 ms, Zaś w programie jest 500 ms. Próbowałem u siebie DS18b20 na atmega 16, kwarc 16MHz. Korzystałem z przykładu z książki pana M.W. Niestety pokazywał błędną temp gdyż to jest przykład na DS1820. Więc napisałem sobie wszystko w asemblerze i działa...
Witam, mam otóż taki problem. Na ten przykład taki oto kawałek programu: Pion = Lookup(temp , tabela) Do zmiennej pion chcę wrzucić z tabeli pewną daną o indeksie temp . Z jakiej tabeli? No własnie, przed tą procedurą potrzebuje jeszcze wybrać tabelę w zależności od innej danej pobranej z eeprom. Generalnie program będzie sterował multipleksowanym...
Witam, Napisałem prosty program w bascomie jako komputerek pokładowy do motoru $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdbus = 4 Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.6 , E = Portd.1 , Rs = Portd.0 Config Pind.5 = Input Cursor Off Cls Lcd "Szerokiej Drogi!"...
to może żeby nie gmatwać wątku mam odczytane ID czujnika przy pomocy kodu Dsid1(1) = 1wsearchfirst() For B = 1 To 8 Lcd Hex(dsid1(b)) Next ID to np 283CDA65010000D7 jak zmodyfikować odczyt temperatury 1wreset 1wwrite &HCC 1wwrite &H44 waitms 600 1wreset 1wwrite &H55 1wverify Dsid1(1) 1wwrite &HBE temp = 1wread(2)...
Witam.Mam taki problem.Posiadam program Termometru (Atmega8+DS18B20)pokazujący temp.dodatnie i ujemne.I nie mam pojęcia jak go przerobić pod (2X DS18B20).Temp.z dwóch układów na jednej 1Wire.Proszę o pomoc:) $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7...
W schemacie pominąłem zasilanie i podłączenie LCD. Kod: (został wzięty z książki M. Wiązania - "Programowanie mikrokontrolerow AVR w jezyku Bascom", usunąłem kod od obsługi LCD bo mam go ustawionego w bascomie) $regfile = "m8def.dat" $crystal = 8000000 Config 1wire = Portc.5 'konfiguracja linii magistrali '1-Wire Declare Sub Odcz_temp 'procedura...
witam Próbuje napisać program który po wgraniu do atmegi będzie pokazywał napięcie i prąd. 10 bitowa rozdzielczość przetwornika A/D jest dla mnie nie wystarczająca, Postanowiłem sięgnąć po technikę zwaną nad próbkowaniem (oversampling) Atmege programuje w bascomie znalazłem artykuł w nowym elektroniku z 2007 roku opisujący to zagadnienie.Przepisałem...
takie pytanie: o co w tym chodzi? Tempa = Msb * 256 Tempa = Tempa + Lsb Tempa = Tempa / 16 Dlaczego akurat to tak sie robi? Czytałem o LSB i MSb ale zrozumieć nie mogę o co w tym chodzi....
....- choć przewagą C i Arduino zatem jest to, iż później, biorąc pod uwagę pewne różnice, zaprogramujemy prawie każdą rodzinę mikrokontrolerów. Tak tylko, że mnóstwo osób nie bierze pod uwagę tego, że nie każdy ma zamiar przesiadać się wciąż na inne coraz to nowsze i większe procesory czy platformy. Jak się nauczy np Bascoma i wystarcza mu to w zupełności...
Serdecznie Witam. Problem dotyczy Atmega8, program w języku BASCOM. Układ który chciałem zrobić ma załączać po kolei 6 diod- jedna się świeci w danej chwili, 2 przyciski zmieniające częstotliwość mrugania. Po złożeniu układu, niestety program zaczyna (od razu, bądź po chwili) przestawać reagować na przełączniki oraz zmienia sam częstotliwość mrugania...
Witam posiadam napisany program w języku Bascom. Mój problem wiąże się z tym że mam problem z jego kompilacją a dokładniej z jedną linijką programu. Czy może mi ktoś pomóc wyeliminować ten błąd. Bascom wskazuje że błędem jest Dim Wart_nap As String * [syntax=basic4gl] 'dopisałem funkcja wathdog czyli autoreset gdy procesor nir odpowiada dłużej niż 2...
Przerwanie od RFM12 [syntax=basic4gl] '*************************************** Przerwanie INT2 - od RFM12 Int2_rfm: Disable Int2 Disable Interrupts Flaga_rfm = 1 Sd_card = 1 ' zablokowany zapis do karty SD Gosub Rf12_receive D1 = Received_data ' ciag inicjujacy - $TEMP / $DATA Gosub Rf12_receive D2 = Received_data ' ciag inicjujacy - $TEMP / $DATA Gosub...
Panowie, Panie potrzebuję pomocy bo siedzę i siedzę i nie mogę sobie dać rady z kodem BASCOM. Jestem początkujący, a raczej raczkujący w AVR, programowaniu itd. :( Próbuję zbudować sterownik do pokoju który ma wykonywać: -sterowanie światłem (8x) -sterowanie piecem/kotłem gazowym (temperatura noc i dzień-dwie różne temperatury) -każdy przycisk ma dwie...
Witam, Próbuję odpalić taki wyświetlacz po SPI: 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) test * ' * O-Family 2019. 9.26 * ' ***********************************...
Kiedyś programiści piszący w C byli prześladowani przez starych fachowców znających asemblera. Język C to był język amatorów, był zbyt mało ambitny, zbyt wolny i pamięciożerny. Myśle że teraz jest podobnie. Bascom ma niesamowitą prostotę i logikę , co powoduje że pisanie programów jest banalne. Bascom poza tym stale w bardzo szybkim tempie się rozwija...
hehe no racja nie widziałem tego ;) aktualna wersja : Config 1wire = P1.0 Reset P1 Set P1.7 Set P1.6 Set P3 Ledzolta Alias P3.0 Ledmieszanie Alias P3.1 Ledgrzanie Alias P3.2 Ledgrzalki Alias P3.4 Ledalarm Alias P3.5 Mieszanie Alias P1.6 Grzanie Alias P1.7 Wyj1 Alias P1.4 Wyj2 Alias P1.3 Wyj3 Alias P1.2 Reset Wyj1 Reset Wyj2 Reset Wyj3 Dim A1 As Bit...
Witam mógłby mi ktoś pomóc problem jest taki ze w Bascomie się nie skompiluje proszę niech mi ktoś pomoże upożądkować program. $regfile = "m8def.DAT" $crystal = 8000000 $lib "I2C.LBX" $lib "Ds1307clock.lib" Config Lcdpin = Pind , Db4 = Portd.1 , Db5 = Portd.2 , Db6 = Portd.3 , Db7 = Portd.4 , E = Portd.0 , Rs = Portd.5 Config Lcd = 16 * 2 Config Sda...
Kod jest dość spory więc wkleję najważniejsze fragmenty odpowiedzialne za RC5 ,SD i 1Wire. RC5 '***************************************... '****************************PROCEDURA ODCZYTU RC5**************************** '***************************************... Readir: Disable...
Sprawdź z wyższym zegarem np. 4MHz, przy 1MHz wykonanie każdej instrukcji trwa 1us, opóźnienia przy odczycie mogą być za duże - sprawdź na symulatorze w AVR Studio. Sprawdzałem na 8MHz nic nie pomogło. albo od razu tak: Kod: presence = (PIN_OW & (1<<OW)); Nic nie dało, po prostu teraz czytuje -0,1 To moze zrób to w Bascomie- chociaż żeby...
Witam, Uczę się bascoma, i stworzyłem sobie programik z zegarkiem i termometrem, lecz na LCD temperatura miga mi na przemian z godziną oto kod: [syntax=basic4gl] 'definicja użytego procesora $regfile "m32def.dat" 'prędkość taktowania 16MHz $crystal = 16000000 $eeprom 'piny podłączenia LCD i definicja jaki LCD | 16x2 Config Lcdpin = Pin , Rs = Portb.0...
Witam Mam moduł sieciowy na układzie ENC28J60 podłączony do mikroprocesora ATMEGA644 20PU taktowany kwarcem 16Mhz.Program piszę w Bascomie bo innego języka nie zmam. Przykładowy program znalazłem w internecie z sterowaniem diody led przez stronę internetową. Dopisałem kawałek programu żeby na tej stronie internetowej był pokazywany stan tej diody led....
Zlecę wykonanie projektu w Bascomie . Mikrokontroler typu: Treść projektu: Zaprojektuj Metronom - Projekt korzysta z dużej płytki ZL15 z brzęczykiem - Na wyświetlaczu pokazywane jest aktualne tempo w zakresie 40bpm – 320bpm (bpm– uderzeń na minutę) - Tempo można zmienić w górę i w dół dwoma przyciskami - Takty metronomu są odmierzane...
Witam Zrobilem sobie projekt zegarka na wyswietlaczach 7led. Uproszczony schemat zamieszczam w zalaczniku. Programuje troche w BASCOMIE, ale do tej pory robilem glownie z zastosowaniem wyswietlaczy LCD. Walcze juz kilka dni z probami multiplexowania tych czterech wyswietlaczy i nic nie moge wymyslic. Czy moze mi ktos poradzic jak mam sie do tego zabrac....
Witam. Zaprojektowałem układzik na powyższych procesorach i połączyłem je przez Max 485. (Niestety muszę mieć taką konfigurację ze względu na odległość pomiaru). Od strony sprzętowej jest wszystko w porządku - sprawdzone , działa. Natomiast mam problem z napisaniem procedury komunikacji pomiędzy tymi procesorami. Chodzi o wysłanie na rządanie z jednego...
Mam taki problemik, ponieważ wyświetla mi się godzina jako np 12:1 zamiast 12:01 Do temperatury użyłem polecenie Format(str(temp) , "00.0") i działa OK ale jak zrobię tak z godziną to kompiluje się normalnie ale potem program nie działa tylko resetuje się co chwila :( sprzęt Atmega16, programowana w Bascomie AVR
Witam, właśnie zabrałem się za budowę termostatu- ma być oparty na układzie DS18B20 i napisałem prosty program w Bascomie Config 1wire = Portd.5 ' + jumper J2 B-C Dim Odczyt(2) As Byte , A As Byte , Licznik As Byte , T As Integer , T1 As Single Do 1wreset 'reset 1wwrite &HCC 'jedna kostka, więc wykorzystujemy rozkaz SKIP ROM 1wwrite &H44 'dokonaj...
A tutaj masz pełny Multithreating na AVR. W BASCOMie! Thread_0_label, Thread_1_label i Thread_2_label to 3 kody główne. Na razie jest tam miganie trzema diodami. Oczywiście każda dioda miga w innym tempie. Reszta to obsługa wątków i tego nie nalezy zmieniać jak się nie wie o co tam chodzi. Niestety wszelkie operacje na portach czy zmiennych większych...
choćby na tiny2313 to zrobisz (choć niektóre, szczególnie bascomowe biblioteki 1w sporo flasha zajmują) albo attiny461 z wbudowanym 10-bit termometrem + ds18b20 i masz 2 punktowy pomiar, a ten procesor ma 2 razy więcej flash niż tiny2313 to układy, które ja bym polecał, ale teoretycznie każdy z około 2/4 k flash bez problemu da rade z takim zadaniem....
Witam Chce zrobić sterownik grzałek went temp i wilgotności. Brakuje mi usprawnienia zmiany zakresu trybu pracy przez pokrętło np na LATO (20c) i ZIME(25c) Jak zapisać w bascomie oraz jakie pokrętło wybrać ? Pozdrawiam
Dziękuję wszystkim za pomoc, rozwiązaniem było zmiana fuse bitów - zmieniłem wewnętrzny oscylator na 8MHz i wszystko pięknie pokazuje. Kod gotowego programu dla kogoś kto miałby problem: [syntax=basic4gl]$regfile = "m8adef.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.0 , Db5...
Bardzo fajny i pomysłowy projekt. Mam propozycję ulepszenia nadajnika: DS zasilany 3 przewodowo, zasilanie DS'a i nadajnika wspólne i oddzielone od głównego zasilania kluczem mosfet (włączanie tylko na czas pomiaru). Rezystor jak już tam musi być to też go tam przerzuć i nie 10k a co najmniej 100 lub 150k. Z kwarcu zrezygnuj i daj wewnętrzny 1MHz (lub...
Witam dostałem do rozgryzienia urządzonko z czujnikiem temperatury z komunikacją po 1 przewodzie podobne coś jak 1wire ale to nie to zdechł czujnik bo pokazuje 0.1 stC podpinałem ds18d20 i nie został wykryty, uruchomiłem sobie skaner 1 wire (ATmega8+LCD) i jakiegokolwiek ds podepnę działa a jak podepnę ten uszkodzony czujnik to "odczytany" zostanie...
C:\Program Files\MCS Electronics\BASCOM-AVR\SAMPLES\
Schematu nie ma co rysowac, normalne podlaczenie avr'a max'a 232 i wtyczki com. Wszystko to juz sprawdzilem, na odpowiednich pinach jest przesyl. A to ze predkosc musi byc taka sama to jest juz chyba oczywiste dla kazdego... A program: $crystal = 4000000 $baud = 9600 Config Serialin = Buffered , Size = 8 Declare Sub Co(byref Name As String , Byref Wynik_co...
Celem jest zapisanie w pamięci AT24C04 jakiś danych. Program w Bascomie: $regfile = "m16def.dat" $crystal = 4000000 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2 Config Lcd = 20 * 4 Dim Temp As Byte Cls Cursor On Blink I2cstart I2cwbyte 162 I2cwbyte 1 I2cwbyte 100 I2cstop Waitms...
Witam, Zamieszczam kod obsługi RTC (odczyt oraz zapis) i proponuję wspólną jego optymalizację. Kod ma małe wady, na które może ktoś znajdzie rozwiązanie :) Program działający i można go sprawdzić u siebie. Będę wdzięczny za wszelkie sugestie i poprawki $regfile = "m32def.dat" $crystal = 10000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4...
witam, mam problem z obsluga czujnika temp. ds1820, polaczony jest przez 1Wire na plytce testowej AVT2500. Przykladowy program do obslugi pobralem ze srtrony Kompilacja programu przebiega bez zadnych problemow. W momecie uruchomienia uProca uzyskuje staly odczyt "- 0.5 C". z gory dzieki za pomoc. <--TERMO.BAS--> ' 1 Wire: ' P 1.0 ' LCD:...
procedurka odczytu temp. i nap. z ds 2438 Sub Ds2438 Bd(1) = 255 1wreset 1wwrite &H55 1wwrite Rom(i) , 8 1wwrite &H4E 1wwrite &H00 1wwrite Bd(1) , 8 'wpis ustawien 1wreset 1wwrite &H55 1wwrite Rom(i) , 8 1wwrite &HB4 'konwersja V 1wreset 1wwrite &H55 1wwrite Rom(i) , 8 1wwrite &HB8 'zapis do eeproma 1wwrite &H00...
Hi ! Możesz to zrobić np tak: Const Znaki = 2 Dim Disp As String * Znaki Dim Liczba As Byte Dim Temp As Byte Dim Petla As Byte Liczba = 19 Disp = Str(liczba) Temp = Znaki - Len(disp) For Petla = 1 To Temp Disp = "0" + Disp Next Petla Lcd Disp End Stała Znaki zawiera liczbę cyfr w wyświetlanej wartości. Możesz ją zmieniać pamiętając...
Widzę że tutaj jest podobny wątek co mój - to samo robimy:) Marcin - ja zadeklarowałem stan_licznika jako Long Sekundy, Minuty i Godziny jako Integer (nie Byte bo będzie gubił sekundy) i jeszcze do tego pomocnicza Temp także jako Long. I wszystko działa zupełnie poprawnie. Pozostaje mi jeszcze tylko zrobić ustawianie (zerowanie) jakimś przyciskiem a...
Witam serdecznie Mam problem z poniższym programem .Zbudowałm układ regulacji głośności na PGA2310 i at89c2051 .Do układu PGA nalzey wysła wartość od 0 do 255 -ja ograniczylem to na 110 do 200 . Program działa elegancko ale niestety co pewnien czas (nieokreślony ) głośnoś zwiększa się lub zmniejsza samoczynnie niewiadomo z jakiej przyczyny . Prawdopodobnie...