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! 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, 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...
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...
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. 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 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...
Ma ktoś z Was może jeszcze archaicznego Bascoma 8051 i mógłby potwierdzić problem występowaniem takiego błędu: Dodatkowo w pliku bascom32.log znajduję: 05.02.2024 00:44:52 Access violation at address 0051AD31 in module 'Bascom.exe'. Read of address 30202C4E 05.02.2024 00:44:56 Access violation at address 0051DFB4 in module 'Bascom.exe'....
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...