Witam ponownie :) mam ostatnie pytanie :) jak zmodyfikować ustawienie fusing żeby zaokrąglić pomiar temperatury do liczb całkowitych ? Zrobiłem tak : Napis = Fusing(t1, #) ale w tym przypadku kompilator wyrzuca brak kropki.
Panowie, problemy z tymi maszynami w sprawie zaciec to przewaznie wiecej niz jedna rzecz na raz. Od poczatku: - na dzien dobry wydrukuj raport serwisowy logging data z 5-990-4 zeby mniej wiecej okreslic w jakich obszarach zacina najczesciej - upewnij sie, ze blacha w kasecie jest raczej wygieta tak, zeby korkowa podkladka na jej spodzie byla bardziej...
W weekend odbyła się mała walka, z której połowicznie wyszedłem zwycięsko. O ile temperaturka już jest mierzona to gorzej z napięciem prostokątnym z sondy. Zamiast stosować dzielnik, przerobiłem sondę tak, że otrzymuję od niej napięcie zmienne z zakresu 0-5V. Sygnał prostokątny, częstotliwość 10kHz. Niestety nie udaje mi się tego pomierzyć AVRowym ADCkiem....
Program napisany w BASCOM AVR i wyskakujące 3 błędy , mogę wiedzieć dlaczego one wyskakują podczas kompilacji , poniżej zamieszczam kodzik. 'podwójny woltomierz i amperomierz (dwa kanały pomiaru napięcia i dwa kanały pomiaru prądu 'UWAGA _ PONOWNE WGRANIE PROGRAMU SKASUJE WARTOŚCI WSP KOREKCJI Z PAMIECI EPROM '---------------------------------------...
Witam Włącz fusing idling - tak na sprawdzenie czy temperatura się nie ustabilizuje. Sprawdź też czy nie masz ustawionej za wysokiej temperatury. No i dobrz by było podpiąć maszyne do jakiegoś stabilizatora napięcia zasilającego. Pozdrawiam
No ale przecież 133/16 to nie jest 41998000! Bo to po pierwsze nie jest dzielenie w systemie 16stkowym tylko dziesiętnym w programie. Poza tym brakuje koledze funkcji fusing(), a jak podzielimy 133 w hexie czyli 307 w dziesiętnym systemie przez 16 to otrzymamy 19stopni i mniemam że taka temperatura jest ustawiona. A druga linijka jest zła ze względu...
Dzięki za pomoc. Ustawiłem czas na 180 dni. Mam jeszcze problem z wygrzewaniem ale to chyba wina tego że nierównomiernie nakłada olej na rolki. Po czyszczeniu fusingu jest trochę lepiej ale obawiam się że będę musiał wymienić "Fusing Unit - Fusing Belt Assembly" (tak to się chyba nazywa?)
Nikt nie jest w stanie mi pomóc? nie wie wiem dla czego kontroler nie porównuje wartości Rozumiem że jesteś początkujący , ale nawet Ty powinieneś wiedzieć , że nie porównuje się zmiennej binarnej(Us) ze stringiem (Tmp) :( To tak , jak byś porównywał kilogram z czerwonym :D Poza tym , ten program jest niezwykle pamięciożerny(Fusing,Single). Jeśli ten...
w negatywie nie (też to kiedyś przerabiałem ;-) ) zostaje tylko lcd designer , zapisywanie temperatury do epromu , nie wiem ile to pamięci zabiera sprawdz czy np przy pomocy debounce i dwuch przycisków ( + , - ) mógłbyś ustawić sobie (niestety za każdym razem jak wyłączysz zasilanie) temperaturę alarmu , może zaoszczędzisz trochę pamięci trochę poprawiłem...
Witam! Jakiś czas temu wykonałem termostat cyfrowy na Atmega 8. Problem polega na tym, że kiedy chcę ustawić temperaturę, to mogę ją ustawić, ale tylko do temperatury 100°C i wszystko wraca do ekranu głównego. Podobnie jest z ustawianiem histerezy, tylko tam już nic nie mogę zmienić. W związku z tym mam prośbę dla forumowiczów którzy orientują się w...
Bedę wdzięczny za info: kozystam z Atmega 8535, chcę mieżyć czas (PCF8583) ale zawsze czas = 0 i nie zmienia się, jaka może być przyczyna? Nie mam podpietych rezystorów do SLC i SDA, kożystam z zewnetrznego kwarcu zegarkowego, szeregowo kondensatory do minusa Oto listing programu: Dim Godzina As Byte , Sekunda As Byte , Dzien As Byte , Miesiac As Byte...
Witam Fusing idling powinien pomóc. Zobacz jeszcze czy nie masz przestawionych wartości temperatury. Nie przsadź też z czasem idlingu bo klient dostanie nerwicy. Pozdrawiam Dodano po 5 Witam Maszyna jak ma włączony idling kręci jeszcze piecem dodatkowy czas - ustawiony przes serwis - i dopiero wtedy pokazyje gotowość. Chodzi o to że piecyk ma dodatkowy...
Soft nie jest napisany optymalnie, ale wiem że to ten co krąży po necie :) Oczywiście należało by go odchudzić o Single czy Fusing i te niepotrzebne podprogramy.... Po pierwsze jak masz ustawione fusebit odnośnie taktowania wewnętrznego RC ??? W programie nie zdefiniowałeś jaki dajesz crystal i idzie domyslnie na wpisie z zakładki conf Complier>chip......
elegancko liczy :D dodałem termometr i działa ale...... jak dodaje odczyt zegara to nie odczytuje go :( Przerwanie_pcf: I2cstart I2cwbyte 160 I2cwbyte 2 I2cstart I2cwbyte 161 I2crbyte Sekundy , Ack I2crbyte Minuty , Ack I2crbyte Godziny , Nack I2cstop Sekundy = Makedec(sekundy) Minuty = Makedec(minuty) Godziny = Makedec(godziny)...
zapodam kodem ktory znalazlem na forum!!!!! (nastpenym razem pierw uzyj opcji szukaj), tylko minimalnie przerobilem. Config 1wire = Portd.6 Dim Odczyt(2) As Byte , T As Integer At Odczyt(1) Overlay , T1 As Single , Napis As String * 5, Sprawdz As String * 5 Do Sprawdz = Napis 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset...
Houston mamy problem.. Czyli płynące napiecie Vref ( wewnętrze 2.54 ) I nie jest to mało bo prawie kilkanaście mV. Nie byłby to problem gdy mierzymy stałe napięcie... ale ja mam OFFset i ustawione sztuczne "zero" Najlepiej by było gdyby podać V ref 10V/1024 ( co jest niemożliwe bo odparuje Atmege ) I po włączeniu mam 0.020V które opada wraz z nagrzewaniem...
Kolego o czym ty piszesz ADC jest 10bit , zwraca liczbę od 0 do 1023 , można go taktować częstotliwością od 50 do 200khz Następny problem to : czas przetwarzania nie jest stały (od 125 do 520 ms) i zależy od przetwarzanej wielkości analogowej. Następny problem to prąd po wyprostowaniu są moment gdy przechodzi przez zero i to jest na dodatek zmienna...
$crystal = 4000000 'deklaracja częstotliwości pracy kwarcu $regfile "attiny2313.dat" 'model procesora dla którego jest ten program Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaki stopnia Config 1wire = Portd.5 ' konfiguracja portu PD.5 jako wejścia magistrali 1-wire Dim Odczyt(2) As Byte , A As Byte , Licznik...
Problem z zliczaniem impulsów rozwiązany ale mam nowy problem z wyświetlaniem wyniku zdjęcia w załączniku. Pierwsza rzecz co rzuca sie w oczy to brak konfiguracji LCD; Niby to pracuje mając config ustawiony w 'Options/Compiler/LCD, ale przeniesiesz listing na inny computer i tu już nie musi być to samo. Dalej, Timer1 odliczający 1 sec. może pracować...
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. Na znanym serwisie aukcyjnym zaopatrzyłem się w wyświetlacze LCD 2x16 znaków które miałybyć kompatybilne z HD44780 jednak nie są. Wyświetlacze to PC1602V-P8 firmy Powertip. Na stronie $regfile = "m8def.dat" 'procesor mega 8 $crystal = 8000000 '8mhz Wait 1 Config Adc = Single , Prescaler = Auto , Reference = Avcc ' ustawienie adc Dim...
Działa elegancko. Żeby było wiarygodnie to nawet wygrzebałem Ardu Leonardo z m32u4 na pokładzie. Na jedną rzecz bym jeszcze uważał. Twój kod nie jest w żaden sposób synchronizowany. Może się kiedyś zdarzyć, że jedna z wiadomości nie dojdzie. Z nie będzie miało wartości 3 i przy nastepnej wiadomości procesor zacznie przypisywać wartości innych zmiennych...
Tu masz prosty programik, który kiedyś pisałem. Przedstawia obsługę zarówno wersji B jak i S. [syntax=basic4gl] $regfile = "m8def.dat" 'deklaracja procesora $crystal = 8000000 'deklaracja czestotliwosci taktowania Config Lcd = 16 * 2 'typ wyswietlacza i konfiguracja pinow Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5...
[syntax=basic4gl] $regfile = "m8def.dat" 'deklaracja procesora $crystal = 8000000 'deklaracja czestotliwosci taktowania Config Lcd = 16 * 2 'typ wyswietlacza i konfiguracja pinow Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Deflcdchar 0 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32 'definicja...
Hej, Potrzebuję pomocy w opanowaniu pomiaru: napięcia (3x) i prądu (rezystor 0.1om) Ciągle wychodzą mi głupoty i nie wiem gdzie popełniam błąd. Chciałbym mierzyć napięcie 0-5.5V i prąd 0-2.5A Na początek schemat (ze schematu wykroiłem co zbędne) i kod (tu tylko to co potrzeba do pomiarów) aby było wiadomo o czym gadam ;) https://obrazki.elektroda.pl/4328627700_...
Witajcie ! Wiem, że temat był wielokrotnie sygnalizowany na forum, przejrzałem wszystkie tematy z tym problemem związane i niestety nie uzyskałem satysfakcjonującego rezultatu. Cała idea jest w tym, żeby całą obsługę odczytu temperatur z 4rech DSów, połączonych na oddzielnych liniach, wcisnąć w obsługę przerwań. Krótko mówiąc, chodzi o to, aby odczyt...
a ja się nagłowiłem jeszcze nad sprawa liczenia: -co 5 sek na timerku napięcia ogniwa czyli wartości napięcia przez ilość ogniw co 5 sek napięcie jakie jest /12 wynik wychodził taki że sam sie dziwiłem - co minutę prąd jaki jest dzielony na 60 i dodawany by osiągnąć ampero godziny czyli co 60 sek prąd/ 60 i dodawany do siebie który daje Ah. wynik wychodził...
moze sie wtrace ;) bo pewniej rzeczy nie rozumiem a mianowicie jesli program wyglata tak ... Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Dim Wartosc_ac As Word Dim V As Single Dim Wartosc_nap As String * 4 ... Wartosc_ac = Getadc(1) V = Wartosc_ac * 0.0049 Wartosc_nap = Fusing(V, "#.&&&" i napiecie mierzone...
Witam. Mam problem. Napisalem problem do adc, który pracuje jako woltomierz. Na LCD poprostu pokazuje jakie jest napięcie na wejści adc w przedzile od 0-5V. Teraz chciałem zrobić aby PWM był proporcjonalny do napięcia na adc. Np. dla 1V 20%pwm, dla 2,5V 50% pwm, dla 5V 100%pwm. pod spodem program jaki napisałem. Czy ktos wie jak to zrobić?? $regfile...
Witam kolegów serdecznie tuż przed świętami. Piszę program realizujący pomiar temperatury i zapisujący uzyskane dane do pliku zlokalizowanego na karcie SD. Powoli wtrącam timery zamiast wait(). Mam w sumie trzy problemy. 1) Formatuje uzyskane dane przez zapisem do pliku. Niestety nie wiem jak w stringu zamienić kropkę na przecinek i dopiero taki format...
To w ogóle jest zły przykład by w przerwaniu bawić się na zmiennoprzecinkowych i jeszcze do tego obsługiwać wyświetlacz LCD. To się oczywiście da zrobić, ale z głową i kiedy się zna konsekwencje takich działań. Jako przykład jest beznadziejny :D Już w pierwszej minucie przerobiłbym to tak: [syntax=vbnet]$regfile = "m8Adef.dat" $crystal = 1000000 $hwstack...
Część po przecinku to sobie normalnie matematycznie wyodrębniasz. Nie wiem dokladnie o co chodzi:( mozesz troszke jasniej? moze na jakims przykladzie? Kolega snow ma rację , ale nie koniecznie musi to być "matematycznie" :) Załóżmy , że po pomiarze i obliczeniu napięcia w zmiennej SINGLE , użyjesz instrukcji FUSING , do konwersji SINGLE na STRING.Po...
Witam. W moim układzie muszę mierzyć napięcie na kondensatorze. Gdy ładuję kondensator, przetwornik mierzy mi napięcie i wyświetla wynik. Napięcie na przetwornik dzielę przez 3 rezystorami 10k (choć planuję zwiększyć do 810k). Doświadczalnie ustawiłem tak kwant próbki że pomiar jest bardzo dokładny. Wszystko działa gdy kondensator ładuję, bo gdy mierzę...
Dim Temp As Integer Dim C3 As Integer Dim Zmienna_temp(8) As Byte Config 1wire = P2.3 1wreset 1wwrite &HCC 1wwrite &H44 wait 1 1wreset 1wwrite &HCC 1wwrite &HBE Zmienna_temp(1) = 1wread(8) C3 = Zmienna_temp(1) And 1 If C3 = 1 Then Decr Zmienna_temp(1) Temp = Makeint(zmienna_temp(1) , Zmienna_temp(2))...
Witam Zamieszczam kod na którym działam w tej chwili. Trzeba mieć na uwadze że jest to bardzo amatorski projekt. Świadomy jestem pewnych braków ale niestety brak czasu. Schematu płytki nie udostępnię bo... wstyd :) Każdy kto ma więcej czasu niż 3 godziny zrobi napewno lepszą. (at)Daro_Elektronik nie mam zielonego pojęcia i nie wiem czy mi ta wiedza...
Witam Zabrałem się wczoraj za napisanie jednego z pierwszych programów (chyba 3). Ogólnie działanie programu zadowala mnie lecz chciał bym poprosić osoby bardziej doświadczone o wskazówki merytoryczne względem kodu tutaj podanego (bo coś na pewno można poprawić na lepsze). Podany kod ma sterować trawiarką ( wiem ze troszkę gotowych wsadów jest, mimo...
kod: Dodano po 5 Czekam na info, bo problem jednak nadal występuje. znalazłem na elektrodzie jeszcze coś takiego: " można pominąć wpis Reference, wtedy domyślnie Vref będzie ustawione na zewnętrzne źródło" ale to nie działa. Ten kod działa tylko dla Vref=AVcc przy: Reference=Off, Reference=Aref i oczywiście dla Reference=Avcc przy reference = Internal...
Witam Dość długo podchodziłem do tego zagadnienia. Początkowo chciałem zrealizować to na mikrofonie i wzmacniaczu. Ostatecznie po poszukiwaniach i analizie postanowiłem to zrobić na odczycie temperatury przy nosie. Wdech omiata termometr powietrzem otoczenia i go ochładza, a wydech podnosi temperaturę powietrzem z płuc. W zasadzie to działa, ale sam...
Napisałem programik do wagi, obsługuje przetwornik ac w AtMega8 : $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5 Dim I As Byte Config Adc = Single , Prescaler = Auto , Reference = Avcc 'ustawianie przetwornika AC...
Witam Piszę program, w którym zliczam impulsy z Timera0 (ATmega8). Ilość tych impulsów jest następnie dzielona przed określoną liczbę. Jak mozna się domyślić czasem wartość wynikowa będzie ułamkiem czyli pojawi się przecinek. Problem w tym, że nie mogę ustawić zmiennej wynikowej jako liczby z przecinkiem. Dim N As Byte N = Tcnt0 / 36 N = N * 60 W takim...
Witam. Dostałem 4 sztuki ds18b20 w samplach i konstruuję termometr do szkoły. Napisałem program,udało mi się połączyć z czunikami i wyświetlić temperaturę na LCD,wszystko było ok. Oba czujniki miałem zamontowane na płytce prototypowej(mam na niej zmontowany cały układ). Po pierwszych testach przylutowałem do jednego czujnika skrętkę o długości ok 30...
Witam... Kolego <PiotrzePitucha> troszeczke nie rozumiem zapisu... nie spotkałem się jeszcze z takim zapisem.... mógłbyś mi to wytłumaczyć..?. Chciałbym jeszcze dodać kawałek kodu o który właściwie toczy się moja batalja.. Otóż chciałbym móc ustawiać zmienną SINGLE i zapisywać tą wartość do pamięci eeprom. Kod programu: Sub U_termostaty Cls Lcd...
Zrezygnowałem z przerwania i teraz wszystko działa jak należy. [syntax=basic4gl] $crystal = 16000000 $regfile = "M32def.dat" $baud = 19200 Dim Dsid1(8) As Byte 'Dallas ID 64 bits incl CRC Dim Dsid2(8) As Byte Dim Sc(9) As Byte Dim W As Byte Dim Tp As Integer 'do odczytu danych z temp Dim Tt1 As Single 'pierwsza temperatura Dim Tt2 As Single 'druga temperatura...
Bardzo dziękuje za pomoc koledze atom1477. Fragment programu na którym tak mi zależało udało się stworzyć i działa poprawnie. http://obrazki.elektroda.pl/2279042300_1... Tak na marginesie to jestem ciekawy jak można skonfigurować Timer1 w trybie CTC. Jeśli ktoś ma to proszę o przykład.
http://obrazki.elektroda.pl/9447369300_1... Ogólnie chodzi o to Ten kod pokazany wyreparowałem do testów bo nie chciało mi się ciągle wgrywać prawie 16k http://obrazki.elektroda.pl/9447369300_1... Może w tym problem ale jak ustawię pwm=8 to za nic nie wychodzi mi przeliczenie do wyświetlania ciągle na fula mam 102% ale testowałem...
Witam ponownie, nowy czujnik zamontowany. Efekt trochę lepszy bo widzi adresy ale temperatura dalej ponad 1037,5. Napisałem od nowa program. Sprawdziłem ciągłość połączeń, kwarc oraz adres czy widzi jakiś( widzi 0,1,180 i 181) jakieś pomysły ???? może w ustawieniach coś mam źle ustawione ?? przesyłam zdjęcia płytki w załączniku i ustawienie bascoma....
Faktycznie ustawienia stosu były do baniaka , nie zwróciłem wcześniej na to uwagi. Było: $hwstack = 12 dałem 40 $swstack = 8 40 $framesize =16 24 Wartości ustawiłem w srodowisku Bascom w option/compiler/chip w działaniu programu nic sie nie zmieniło:-(. sub oblicz() For X = 0 To 99 Wart1_adc = Getadc(0) Ua_bufor = Ua_bufor + Wart1_adc...
Zaraz wrzucę to do programu, ale czy to normalne że ds18b20 zaniża mi temeraturę o 2-2,5 stopnia? Kupiłem nowy za 10zł i to samo. Wrzucę cały program do wglądu. Wiem, że może być coś nie tak napisane, ale działa tak jak chciałem ;) Dodano po 3 Edit: Jest jeszcze jeden problem. Co jakiś czas temperatura podskakuje o 10 stopni a czasami nawet do 200 podskoczyło...
Witajcie Podłączyłem wszystko. Znalazłem pewny kod w sieci do wyświetlania danych kompasu [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 64 $swstack = 64 $framesize = 150 $baud = 9600 'перем ... и констk...
Oto cały program. Może długo zająć jego analizowanie. http://obrazki.elektroda.pl/1161729300_1... http://obrazki.elektroda.pl/8550181000_1... http://obrazki.elektroda.pl/2942301200_1... http://obrazki.elektroda.pl/5544542600_1... http://obrazki.elektroda.pl/7129908700_1...
fusing minolta reset fusing bascom fusing
przebicie elektryczne document print wskaźnik płynu chłodniczego
pamięć ferrytowa koralik pamięć ferrytowa
Brak działania wszystkich gniazd HDMI, USB, antena w telewizorze LG, Samsung – diagnoza i naprawa Alan, Midland Alan 42/48/78, SEAT Alana – wprowadzanie kodu cyfrowego i literowo-cyfrowego
