Opis magistrali 1Wire masz w helpie. Poniżej kod na obsługę dallasa DS18B20. Config 1wire = P1.0 'konfiguracja magistrali 1wire Config Lcd = 16 * 1a 'konfiguracja wyswietlacza Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32 , 32 , 32 'znak stopnia Dim T1 As Single Dim T2 As Single Dim B1 As Byte , B2 As Byte , R As Byte Dim Tmp As String * 6 Dim Znak As String...
Program do czujnika temp ds18b20 ktory mierzy z dokladnoscia dwoch miejsc po przecinku. Sprawdzony ale tak jak juz koledzy mowili wyniki po przecinku bardzo czesto skacza Deflcdchar 0 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32 Config Pind.7 = Output Config Pind.4 = Output Config Pind.5 = Output Config Pina.6 = Output Config Pina.7 = Output Set Portb.0 Set...
Nie znam wszystkich aspektów radii, ale pisałem już kilka programów dla innych na nie. Mam emulator radia do programu HAM i takie tam różne :D W Twoim przypadku odpowiedź wydaje się oczywista. Użyłbym odpowiednio dużej zmiennej która będzie trzymać wynik i na niej działał (dodawał albo odejmował) po czym wynik zamieniałbym na string i tak wysyłał. Zmienna...
pewnie da sie to zrobic wstawka asemblerowa, ale ja bym to zrobil tak: dim a as single dim x as byte a=12.132 dim tekst as string *10 Tekst = Fusing(a , #) x = Val(tekst) a=a-x a=a*100 tekst=fusing(a,#) x=val(tekst) 'i masz po przecinku Jesli cos nie pokrecilem to tak (niesprawdzalem tego), IDEA jest taka: zamieniasz liczbe single na byte od single...
Witammój problem polega na tym że podłączyłem do megi termometr i po wywołaniu tego kodu im T1 As Single Dim T2 As Single Dim B1 As Byte , B2 As Byte , R As Byte Dim Tmp As String * 6 Dim Znak As String * 1 Sub Temp 1wr 'podprogram 1wr 1wwrite &HCC 'komenda skip ROM 1wwrite &H33 'komenda convert T Waitms 250 Waitms 250 1wr 'podprogram 1wr 1wwrite &HCC...
Dostalem ten program w Bascomie od kumpla, mozesz uzyc do sprawdzenia czy DS18B20 dziala. U mnie dziala. $crystal = 1000000 Config 1wire = Portb.1 'konfiguracja 1wire Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32 , 32 , 32 'znak stopnia Dim T1 As Single Dim T2 As Single Dim B1 As Byte , B2 As Byte , R As Byte Dim Tmp As String * 6 Dim Znak As String * 1...
próbuje zrobic temomert z czujnikiem wilgotności. Odczyt temperatury jest dodkonywany z DS 18B20 $crystal = 16000000 $lib "mcsbyte.lbx" $regfile = "m16def.dat" $baud = 19200 Config 1wire = Porta.0 Deflcdchar 0 , 238 , 234 , 238 , 224 , 224 , 224 , 224 , 224 'definicja symbolu "stopień" Config Portd = Output Config Scl =...
Witam. Mam prosty program zegarka-termometru na lcd 2x16 atmega8 i kawrcu zegarkowym. Proszę o sprawdzenie programu. Pozdrawiam sjzwojtek [syntax=basic4gl]$regfile = "m8def.DAT" $crystal = 4000000 Config 1wire = Portd.7 'konfiguracja magistrali 1wire Config Pind.5 = Input Config Pind.0 = Input Config Pind.2 = Input Config Pind.6 = Input Set Portd.5...
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 Mam pytanie w sprawie odczytu. Program ogólnie mi działa odczyty są w miarę fajne tylko nie wiem z skąd są te wartości, by mi zależało na tym. V = V - 0.5 V = V / 0.01 Znalazłem na stronce z arduino, ale nic nie opisali za bardzo z kad wzieli te wartości. Czujnik daje 10mV na 1stopien, przy 0 stopni ma 500mV. owszem zamiast 0.0049 dałem 0.0046...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config 1wire = Portb.0 Config Pind.0 = Input : Portd.0 = 1 : Przycisk_plus Alias Pind.0 Config Pind.1 = Input : Portd.1 = 1 : Przycisk_minu Alias Pind.1 ` Config...
Jestem ponownie. Projeckt mam prawie ukonczony i mam jeszcze pytanka. To jest kod do termomertu na DS18B20 i zegarka. I teraz mam taki problem. Odczyt temp jest bardzo niestabilny. Cyfry po przecinku skacza tak o 2-3 jednostki. Raz jest 22.4 za sek 22.7 a za nastepna 22. 5 itp itp. Mam inny kod z forum ktory nie obsluguje temp ujemnych dla proby i tam...
Witam! Prosze szanownych znawcow tematu o vopinie odnosnie projektu termometru 2 liniowgo. Mam z nim duzy klopot, mianowicie kod zajmuje 3244 no i do 2 KB procka raczej do nie wbije. :( Prosze o pomoc i wszelkie wskazowki....Nadmieniam ze projekt jest zlepka kilku projektow termometru poniewaz nie mam doswiadczenia w 1wire Config 1wire = Portd.0 'konfiguracja...
Witam. Buduje ładowarkę a właściwie sterownik ładowarki. Cośjest nie tak ponieważ gdy wrzuce kod : $regfile = "m8def.dat" 'procesor mega 8 $crystal = 8000000 '8mhz '''Zmienne Dim Wart_ac As Word Dim V As Single Dim Wart_nap As String * 3 Dim Wart_prad As String * 3 Dim M As Byte Dim G As Byte Dim Mt As Word Dim Laduj As Bit Dim Reload As Word...
Witam. Tak jak w temacie. $regfile = "m8def.dat" ' $crystal = 8000000 Config Pinb.1 = Output Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2 'konfiguracja linii Config Timer0 = Timer , Prescale = 1024 Enable Interrupts : Enable Timer0 On Timer0 Co4ms Config...
Zamieszczam minimalną ilość kodu potrzebną do obsługi suwmiarki, czyli odczytania pomiaru i jego wyświetlenia. [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 16000000 Config Lcd = 16 * 2 ' konfiguracja lcd Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portc.5 , Db6 = Portc.4 , Db7 = Portc.3 , E = Portd.1 , Rs = Portd.2 'piny na lcd '***************************************...
Do kolegi "KUNIARZ" Właśnie wgrałem sobie Twój programik i u mnie DS18B20 śmiga (mam 6 szt. - 5 nowych i jeden z przed 2-3 lat) (chociaż nie wiem dlaczego w Twoim programiku na wyświetlaczu cały czas mi text się przesuwa) Ale nie do tego zmierzam. A mianowicie wgrałem poniższy programik (taki mały termostacik) No i mam problem z czujnikami !!! ponieważ...
Witam Buduję Robota lub jak kto woli platformę jeżdżącą Niestety napotkałem kilka problemów z którymi nie umiem sobie poradzić ale mam nadzieje że z waszą pomocą uda mi się Chodzi konkretnie o 1. Chcę sterować silnikiem DC(takim jak w motorkach dziecięcych) przez mostek L293D Wszystko niby pięknie ładnie ale... gdy wysteruje mostek tak aby koło kręciło...
Nie mam do tego g.... już siły. Wierzę Ci bo mi się na to też już źle patrzy :P Można nauczyć podstaw języka, ale logicznego kombinowania nie zawsze... Dlaczego nie zrobisz tak, że kiedy przyciśnięto przycisk to dajesz mu, na przykład 10s do odliczenia. Kiedy Odliczy to się wyłączy. Chyba ze ktoś przyciśnie wcześniej przycisk to też się szybciej wyłączy....
Jak sprawdzić czujniki ds18b20 czy prawidłowo wskazują temperaturę bo słyszałem że są niektóre fabryczne ,,felerne,, .Umnie wszystkie 5 zawyżają o 2stC , a może jest błąd w kodzie. dziękuje $regfile = "M16def.dat" $crystal = 8000000 '****** KONFIGURACJA PORTÓW ********* Config Porta = Output 'wysw ABCDEFG Config Portc = Output 'zasilanie W4,W3, W2,...
Witam ,jestem początkujący w tej dziedzinie, posiadam program termostatu, niestety program nie porównuje temperatury, nie wiem w czym problem już zmieniałem porównanie wartości Us z T1, obecnie zmieniłem na Tmp, ale niestety nadal nic się zmieniło nadal na wyjściu układu czyli P3.2 jest stan "0" oto program napisany w Bascomie51": 'cyfrowy termostat...
Witam. Mam problem z xmega 128A3-AU. Zbudowałem prosty woltomierz do 20V lecz przy zwarciu pinu ADC z masą nie ma 0V tylko napięcie waha się od 0 do 0.06V. Czy jest jakiś sposób na uśrednienie tego nie niszcząc płytki PCB? Program napisany w bascomie. [syntax=basic4gl]$regfile = "xm128a3def.dat" $crystal = 32000000 $hwstack = 128 $swstack = 128 $framesize...
bascom odejmowanie bascom string string bascom
h2testw karta przesuniecie obrazu katalog transformator indel
hulajnoga xiaomi zasilacz klimatyzacja prawa
Logowanie na Alcatel One Touch 7 - Rozwiązania Podłączenie kostki stacyjki Audi A3 do Skody Octavia III