Podzielić w sensie rozbić na np krótsze łańcuchy VBA: Jeśli tych łańcuchów ma być kilka i mają jeden wspólny znak (znaki), który je rozdziela, to można podzielić łańcuch przy użyciu Split. Poszczególne składowe lądują w tablicy skąd można je łatwo wyłuskać. Wielkość tablicy jest dostępna poprzez Ubound(tablica). Przykład: Funkcja działa szybko nawet...
Witam, Mam problem z konwersją zmiennych, a mianowicie Dim Vład As Word Dim Vład1 As Single Dim Vład2 As String * 6 Dim Mnożnik_vład As Single Dim Mnożnik_vład_1 As Single Dim Mnożnik_vład_2 As String * 6 Vład = Getadc(6) Vład1 = Vład * Mnożnik_vład Vład2 = Fusing(vład1 , "#.##") Potem w trakcie trwania programu chciałem aby zmienna Mnożnik_vład została...
Koledzy, poniżej kod. Zauważyłem poważny problem. Timer1 mi się sypie zanim dojdzie do 0. Tzn, nagle, zanim upłynie zadany czas, uC zwiesi się i przestanie wykonywać pętlę Do ... Loop until. Nie wejdzie w stan Powerdown i nadal będę mógł wywołać przerwanie Int0 - czyli zawiesza się w pętli Do...loop. Zdaje się, że nieszczęsne Wait 1 wewnątrz tej pętli...
Niestety, inaczej nie sformatujesz single. Zapis zmiennej z przecinkiem jest dość skomplikowany (mantysa, wykładnik) i znalezienie przecinka nie jest prostą sprawą. Jakie działania potrzebujesz wykonać na single? Może nie trzeba jej używać. Wykonałem próbę w symulatorze najpierw single na string za pomocą fusing(), potem z powrotem na single za pomocą...
Proszę. Gotowe bo jak widzę kilka If`ów do tej samej zmiennej zamiast Select Case i tym podobne kwiatki... [syntax=vbnet]$regfile = "m32def.dat" $crystal = 11059200 $hwstack = 64 $swstack = 16 $framesize = 64 Const Timeout_time = 8 'x500ms Config Submode = New ' config LCD 2X16 Config Lcdpin = Pin , Rs = Porta.2 , E = Porta.3 , Db4 = Porta.4 , Db5 =...
Witajcie waitus jest ok ale jak dam waitus 2000 to dziala a jak waitus pre2 (też 2000) to nie dlaczego?? Dim Sx As String * 10 Dim B As String * 2 Dim Pre As String * 4 Dim Pre1 As Integer Dim Pre2 As Integer Dim A2 As String * 5 Dim A3 As Integer Sx = "202052" Dim I As Integer Pre = Mid(sx , 2 , 3) Pre1 = Val(pre) Pre2 = Pre1 * 100 A2 = Mid(sx , 5...
Witam, Próbuję korzystać z biblioteki Peter Fleury do obsługi usart-u, której listing znajduje się poniżej: PLIK uart.c /***************************************... Title: Interrupt UART library with receive/transmit circular buffers Author: Peter Fleury <pfleury(at)gmx.ch> http://jump.to/fleury File:...
Pokaż źródła. $regfile = "m32def.dat" $crystal = 8000000 $hwstack = 340 $swstack = 128 $framesize = 128 $eeprom $include "Config_MMC.bas" $include "Config_AVR-DOS.BAS" Config Debounce = 30 '---------------------------------------... Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.4...
Witam. Napisałem taką prostą funkcję, ale nie działa tak jak bym tego chciał. Parametrem wprowadzanym do funkcji jest liczba (w moim przypadku typu byte) Funkcja ma zwracać wynik w formie zegara czasu tzn. zmienna byte = 75, funkcja zwraca string 01:15 Wszystko działa dobrze ale tylko do 9sekundy, później zaczyna mi to opóźniać, tzn. wynik jest wyświetlany...
No tak sorki podałem za mało danych! tak używam Bascom51, bo urządzenie do którego mam wstawić pomiar temperatury jest na procku 89s52 a temperatura będzie mierzona czujnikiem DS18B20. Dzięki Zumek za słowa otuchy ale z tą budową cepa to nie takie proste, bo gdyby było, to nie prosił bym o pomoc. Jeśli chodzi o Single i ten " kwiatek do kożucha ", to...
...Ps. Tak, już dla ścisłości to skoro do tej pory nie używałem tej pamięci to czas to zrobić. A przy okazji to czy zmienną typu STRING też tak samo łatwo tam zapiszę...? To działa ze zmienną dowolnego typu :D Ijeszcze jedno podejście do tematu.. Napisałem kod z uwzględnieniem Twoich uwag Piotrek tzn: Dim x As Eram Single Kod się skompilował i jest...
Udalo mi sie w ten sposob, nie wiem czy jest fachowy ale dziala: Dim T As String * 3 Dim Liczba1 As Single Dim Liczba2 As Byte Liczba1 = 183.9345345 T = Fusing(liczba1 , #) Liczba2 = Val(t) 'pod liczba2 podstawi zaokraglona wartosc Liczba1
buuu niestety nie ma takiego czegos, dodam ze uzywam Bascoma 8051 w wersji demo. Mimo wszystko dzieki za pomoc :) Dodano po 8 program wyglada tak: $regfile = "89s8252.dat" $crystal = 16000000 $large Config Lcdpin = Pin , Db4 = P0.4 , Db5 = P0.5 , Db6 = P0.6 , Db7 = P0.7 , E = P3.5 , Rs = P3.6 Config Lcd = 16 * 2 Cursor Off Cls Dim A As Single...
Witam. Mam problem z przybliżeniem zmiennej Single do dwóch miejsc po przecinku. Nie mogę zamienić jej na string gdyż mam mało wolnej pamięci. Czy jest jakaś inna możliwość przybliżenia tej zmiennej? Pozdrawiam
Faktycznie powinna być typu string teraz kumam. Wątpliwości rozwiane dzięki. To jeszcze pytanie. Chciałem w sumie uzyskać to co wyszło przpadkiem a więc pozbyć się ułamka. Miałem zamiar zamienić na tekst i sformatować usuwając ułamek. Czy ten sposób który tu zamieściłem jest poprawny na pozbycie się ułamka? Chodzi o zamianę single na integer
'Program przygotowany dla zestawu EvB 4.3 firmy And-Tech.pl '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...
Lampy takie mozna kupic na alledrogo:
Tak jak radzi atom - nie potrzebujesz arytmetyki zmiennopozycyjnej, stałopozycyjna ci wystarczy. Możesz też najpierw zapisywać cyfry jako string, a dopiero potem robić konwersje do float. Będzie ciut lepiej.
To zależy do czego chcesz stosować te cyfry, jak tylko porównanie to możesz trzymać w dwóch zmiennych. Oddzielnie część całkowitą i oddzielnie ułamkową, tylko ułamkową musisz uzupełniać zerami do stałej długości. Można też porównywać stringi bez konwersji na liczby, najłatwiej to zrobić uzupełniając string zerami z przodu i z tyłu do określonej długości...
Z kumplem coś takiego wypociliśmy i działa bardzo dobrze a bardziej zmniejszyć sie już nie dało Czyżby :?: $crystal = 4000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 Config 1wire = Portd.0 Dim I As Integer , Ss As String * 6 'Dim S As Single Deflcdchar 0 ,...
To zapisz do single pomnóż i przepisz do byte.
Zauważ, że wielokrotne wywołanie funkcji strcat(txframe,<cośtam>) Kontroluję długość doklejanych elementów. Wydaje mi się, że w tym przypadku nie mogę sobie pozwolić na użycie strlncat gdyż skopiuje ona nie to co potrzebuję, np UTC ma 18 znaków ale nie potrzebne mi ostatnie cyfry więc kopiuję tylko 14 znaków. Przerobiłem trochę tą funkcję (nie...
no temat nie wydaje sie problematyczny... ale pewnie zawsze sie trafi na jakies przeszkody :) no nie pomoge ci podajac gotowca, ale poszukalem chwile na necie i : PS/2 Mouse/Keyboard Protocol: jesli jestes dobry w c to na podstawie ponizszego linku pewnie rozjasni sie w glowie (to interfejs klawiatury) Ponadto gotowiec znaleziony na necie ale do odczytu...
Gotowiec: $regfile = "m32def.dat" ' Atmel 8535 AVR register file $include $crystal = 8000000 ' 8mhz AVR clock Ddrd = &B11111111 ' Set PortC DDR (PS2 lines toggle direction in code) Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.7 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0 Config Lcd = 16 * 2 Clockin Alias Pind.2...
Long = GetAdc(0) Single = Long * 0.01955 String = Fusing(Single, "##.##") LCD String; "V"
Dla excela jest to tekst (ciąg znaków). My widzimy, gdzie jest dwukropek i wiemy, że on rozdziela minuty od godzin, ale w przypadku takiego ciągu Excel tego nie wie. Jednym ze sposobów może być napisanie funkcji, która będzie taki ciąg znaków analizowała pod kątem występowania godzin od/do. Specjalistą od makr nie jestem, ale coś takiego dla mnie działa...
Witaj, Łatwo to zrobić za pomocą makro, na przykład takiego: =mnozenie(B3) W załączniku przykład. W kolumnie D działa moja funkcja. Makro jako symbol mnożenia akceptuje jedynie małą literę "x", jako separator dziesiętny można użyć kropki albo przecinka.
Wielkie dzięki wszystko działa jak należny. Problem pojawia się gdy cena jest z miejscem po przecinku, wtedy jej nie zamienia. Ewentualnie co w przypadku gdy nazwa produktu nie będzie w kolumnie A tylko gdzieś dalej w tym samym wierszu co cena. Jeszcze raz dziękuję za pomoc. Dodano po 18 Próbowałem pozmieniać zmienne ze string na single ale dalej nie...
->BlueV Już któryś raz próbuję to przeczytać i nie daję rady, piszesz o dziesięciu rzeczach na raz, pytasz o to co się dzieje na schemacie którego nie przedstawiłeś, a nawet tak prosty układ ma wiele wersji. Sprawność okiem oceniam na ok 85% ~~ Oko ma charakterystykę logarytmiczną, a do tego zmienną czułość twoje 85% to może być równie dobrze 40%. Sprawność...
" Warn if an array subscript has type "char". This is a common cause of error, as programmers often forget that this type is signed on specified, and that the conversions specified in the format string make sense. This includes standard functions, and others specified by format attributes, in the "printf", "scanf", "strftime" and "strfmon" (an X/Open...
Bo fusing robi stringa proszę szanownego kolegi:) To nie tędy droga...PS może nie zaokrąglanie a histereza?:) Wiem właśnie. I dla tego takie głupoty wychodziły. Ale gdy dam dodatkową zmienną string i tak "zfusuje" wartość temperatury a następnie ponownie przepiszę ją do zmiennej single procedurą Val to ponownie zamiast xx.xx mam xx.xxxxxxxxx. A = Fusing...
Oto cały program. Może długo zająć jego analizowanie. Na chwilę obecną zamiast dwóch niebieskich kondensatorów 100u jest jeden 1000u. Od spodu są przylutowane dodatkowe ceramiczne 100n. Dodam że rolę czujnika prędkości pełni kontaktron, który docelowo miał sterować transoptorem, ale że spaliłem w tym transoptorze diodę to musiałem podłączyć to bezpośrednio...
Witam Mimo, że większość proponowanych tutaj rozwiązań podłączenia RFM12 do Atmegi wykorzystuje SPI programowe, ja podłączyłem tradycyjnie, przez SPI sprzętowe - mimo, że nie miałem problemów z wgrywaniem kodu do Atmegi spiętej z RFM12, to uruchomienie ich razem jest problematyczne ( każde osobno działa bez problemu ) [syntax=basic4gl] $include "Config_AVR-DOS.BAS"...
Hej, Próbuję zrobić menu ustawień swojego sterownika i kompletnie mi to nie wychodzi :( Menu ma być sterowane pilotem NEC (pilot działa poprawnie) Jak ja to sobie wymyśliłem: 1. ekran główny (tu jest OK) - przycisk strzałka w lewo przełącza ekran na zegar "MAXI" - przycisk strzałka w prawo przełącza na ekran główny - przycisk strzałka w górę blokuje...
Jako początkujący miałem problem, aby poprawnie ustawić np. 5 środkowych bitów w rejestrze. Wrzucam trywialne macra - może komuś się przydadzą: [syntax=c] #define u32 unsigned #ifdef __GNUC__ #defineasm__asm__ #else #defineasmasm #endif [/syntax] podstawowe operacje: [syntax=c] #defineread32( addr ) *( ( u32* )( addr ) ) #definewrite32( addr, val )...
Witam, proszę o pomoc: buduje sterownik na zasadzie włącz/wyłącz, to akurat nie jest w tym momencie ważne :), ale przejdźmy do szczegółów - ma pobierać dane z 4 czujników DS18B20, sam odczyt działa poprawnie, problem zaczyna się w menu, do kroku "2.2" czasem "2.3" wszystko działa poprawnie, lecz z "2.2" i naciśnięciu 'dalej' (lub "2.3") przeskakuje...
Podpowiem Ci że fajnie jest sobie na kartce napisać szkielet i wszystko opatrzyć etykietami lub używać funkcji. Wtedy wszystko jest bardziej czytelne i nie ma żadnych zapomnianych linijek. Kod wykonuje się linijka po linijce od góry do dołu i jeżeli niczym go nie zawrócisz to się na końcu zatrzyma. W pętli głównej dajesz sprawdzanie wartości i ewentualne...
Ponizej cały kod żródłowy:) Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Pierwsza część programu Dodano po 8 no i druga się nie mieści, więc wrzuciłem do pliku tekstowego.
nie pamiętam bardzo testowałem to na konkretnej pompie dotąd aż za bardzo sie nie grzała a podawała prawidłowo paliwo podaje kod jakiś znalazłem z pierwszych prób może się ktoś pokusi o poprawki jeszcze kilku zapaleńców i można by wrócić do projektu chociaż czasu brak Dodano po 16 Jednak teraz bym pozmieniał elektronikę gdyż dużo zależny od tranzystorów...
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 potrzebuje pomocy , od razu zaznaczam ze nie znam się na programowaniu , to co dodałem(zaznaczone fragmenty ****) wynika tylko z mojej interpretacji działającego już kodu napisanego przez jego autora wiec tak jest to sterownik kolektorów słonecznych PORTB.1 i PORTB.2 to pompy od kolektorów T1 temp zbiornika T1b tem kolekora PINC.0 czujnik temp...
Witam, Piszę na Atmedze odczyt danych z BMP085 i dodatkowo zapis danych na kartę SD. Wszystko wydaje się działać poprawnie, a jednak coś jest nie tak. Do obsługi BMP085 wykorzystałem kod z tego tematu: Oto wykres z odebranych danych, czas pomiaru to około 10min Za każdym razem ćiśnienie spada, niemożliwe, żeby w ciągu 10 min spadło o 4hPa. W czasie...
Teraz mam inny problem. Chcę robić pomiar temperatury i zapisywać na kartę SD. Używam do tego modułu prototypowego tego autora: Ponieważ post dotyczy innego tematu niż oryginalny wątek, temat podzieliłem. Na przyszłość proszę w przypadku napotkania problemów niezwiązanych z oryginalnym tematem postu zakładać nowy wątek. W ten sposób inni będą mogli...
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...
Kod jest dosyć długawy. Wstawię tylko początek na razie: $regfile = "m16def.dat" $crystal = 4050000 Config Kbd = Portd Config Lcd = 16 * 1a Cursor Off Deflcdchar 1 , 32 , 32 , 32 , 32 , 32 , 10 , 10 , 4 ' v Cls Deflcdchar 2 , 32 , 32 , 32 , 4 , 12 , 4 , 4 , 5 '1 Cls Deflcdchar 3 , 32 , 32 , 32 , 6 , 9 , 2 , 4 , 15 '2 Cls Dim Key As Byte Dim...
witam chciałem troszkę odswierzyć temat, mianowicie korzystajac z częsci napisanej przez kolegę M. S. skleciłem takie coś: $regfile = "m8def.dat" $crystal = 8000000 $baud = 2400 Dim Gps As Byte Dim Gpstxt As String * 80 Dim Czastxth As String * 4, Dim Czastxtm As String * 4, Dim Szerokosctxtst As String *4 Dim Szerokosctxtmin As String * 4...
możesz od razu napisać : Lcd Fusing(napiecie0 , "#.#"); i nie trzeba deklarować stringów Więc mogę wpisać: Amp = Wart_aca * 0.0049 Locate 1 , 8 Lcd Fusing(amp , "#.##") ale w którym momencie muszę wtedy wstawić "I=" i "A" ? Znalazłem w szufladzie czujnik temperatury DS18B20 a na necie kawałki programu do obsługi...
Dzięki za pozdrowienia i za odpowiedź . A co do układu to jest automat do pokoju i ma sterować światłem rgb , halogenami , klawiatura umieszczona we włączniku+ dioda rgb ma sygnalizować jaka funkcja światła zostanie zmieniona , odczytać i zapisać i2c to zadanie dla attiny2313 . A atmega8 ma wyświetlać na wyświetlaczu co jest obecnie za funkcja , pobierać...
$regfile = "m128def.dat" $crystal = 8000000 $baud = 19200 $hwstack = 128 $swstack = 128 $framesize = 128 Config Portb.5 = Output Config Portg.0 = Input Portg.0 = 0 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down Enable Compare1a Enable Interrupts Compare1a = 255 '#######################################...
Witam Znalazłem taki projekt: 'Ansteuerung für das Siemens-Display S65 mit der Anfangsnummer LS020... ' by Dirk Milewski (c) 2006 - www.comwebnet.de 'Pinbelegung, Rückseite Display, Anschluss auf linker Seite 'Auflistung von oben nach unten 'RS C0 'Reset D7 'CS C2 'CLK C4 'Dat C6 'Vcc 3 Volt (max. 3.3 Volt, min. etwa 2.4 Volt) 'GND 'Vdigital...
Nawet jeśli jest tylko dołączone. Odpytywanie następuje co parę sekund a efekt bielenia ekranu mam za każdym razem kiedy nacisnę przycisk w celu załadowania nowego obrazka. A tu raport (wklejam na razie większość gdyż może Wam to coś ułatwi: Report : System_LCD_TOUCH PAD_rs485 Date : 04-17-2010 Time : 13:48:37 Compiler : BASCOM-AVR...
Witam Mam problem z prostym programem Poniższy program działa tak jak powinien $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 1 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portc.4 , Rs = Portc.5 Cls Config Pind.3 = Input Config Pind.2 = Input Config Pind.4 = Input Config Pinb.1 = Output...
Sporo tego ( obsługa SD, PCF8563 + menu do ustawiania daty, obsługa PCF8574 w przerwaniu INT1 )- ale nie ma problemu - zmieniła się tylko zawartość podprogramu Pomiar była taka, jak w pierwszym poście oraz wyłączyłem w wyświetlanie na LCD tych wartości wskazań z DS18B20, oczywiście dostosowałem pozycje wyświetlania do LCD 4*20 - załączniku spakowany...
Chyba coś w poniższych trzeba zmodyfikować, ale nie mam pojęcia jak. functions.php desk-mess-mirrored.php [syntax=php]<?php /** * Desk Mess Mirrored loops * * Displays the default loop content. * * (at)package Desk_Mess_Mirrored * (at)since 2.0 * * (at)link * (at)link * (at)link * * (at)author Edward Caissie <edward.caissie(at)gmail.com> *...
Przedstawię tu cztery praktyczne sytuacje w których ChatGPT rzeczywiście pomogło mi w programowaniu. Sytuacje będą obejmować różne języki i tematyki, będzie C i wyświetlacz 7-segmentowy, będzie Javascript, trochę HTML, a również Winsock i wysyłanie żądania HTTP. Nie zapomnę też o prostej aplikacji okienkowej WinForms i C#. Ocenię tu jak nowe AI radzi...
Dołączam listing programu(pliku nagłówkowego): (kompilator: CodeVisionAVR) #include <stdlib.h> // rand() #include <string.h> // strlen() #include <math.h> // cos(),sin() #define WRHI PORTA.0=1 #define WRLO PORTA.0=0 #define WR_DDR DDRA.0 #define RDHI PORTA.1=1 #define RDLO PORTA.1=0 #define RD_DDR DDRA.1...
Proszę o wyjaśnienie przyczyny przekłamań odczytu temperatury z czujnika DS18B20, program poniżej. Najczęściej układ "kłamie" że jest 55 lub 127,5 °C Dodam że wykorzystuję odbiornik RC5 i PWM do sterowania podświetleniem LCD. Czy przekłamania mogą się brać z tego że kilka komend korzysta z tych samych timerów lub przerwań timerów? jak to obejść z góry...
Witam wszystkich forumowiczow. Mam problem z termometrem dwu punktowym na DS1820. Problem polega na tym ze jesli temp jest dodatnia to wszystko jest ok ale problem mam z ujemnymi. Rozdzielczosc jest do 0.1 stopnia. Jezeli temperatura spadnie ponizej zera to jej wartosc wynosi 0.1 czyli -1 stopien. Wydzielilem z 0.1 jedynke i jest Ok ale jezeli temp...
Pewnie mój, tylko pisząc o błędzie miałem na myśli konwersję z "Fusing". Owszem, string zawiera o jeden znak więcej niż my widzimy, tyle w w wielu programach (m.in. w książce M. Wiazani jest zapis: zmienna As String*3, a następnie konwertowana za pomocą Fusing na x.xx (4 znaki). W helpie też na ten temat mało. Może o czymś nie wiem. Dodano po 9 Aktualny...
Witam, Mam taki problem. Chcę wysyłać do PC informację w formie takiego temp1;temp2;f1;temp3 i coś jeszcze. Jak wysyłam informację to chcę żeby ona była raz wyświetlana powiedzmy co ok 1-2s a nie tak jak na screenach pod kodem. (to jest losowe). Co może być nie tak. Timera2 używam jako odmierzacz czasu a timer0 do pomiaru częstotliwości (na 555) $regfile...
Chiałbym zaimportować poniższy plik do wordpressa używając specjalnego importera ale mam tylko komunikat Invalid CSV file: header length and/or row lengths do not match. W załączniku "csv_post_title","csv_post_post","csv_po... "Re I have discovered","Subject: I have discovered......<br>Date: Mon, 18 Jun...
Z tymi wait'ami to już probowałem przeróżnych kombinacji i gdzie bym ich nie dał to i tak nie działa jak należy... Poniżej wrzucam cały kod programu tak, jak prosiłeś. $regfile = "m16def.dat" $crystal = 16000000 $baud = 115200 Config Lcdbus = 4 Config Lcd = 16 * 4 Config Lcdpin = Pin , Rs = Pc.0 , E = Pc.1 , Db4 = Pc.2 , Db5 = Pc.3 , Db6 =...
Witam. Zmuszony jestem znów zapytać Kolegów gdzie robię błąd w obsłudze SHT11. [syntax=basic4gl] $regfile = "m16def.dat" '$crystal = 400000 '**************KONFIGURACJA LCD***************** Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portd.0 Cursor Off Cls Deflcdchar 0 ,...
Witam Mam problem za programowaniem przycisków w EVB 4.4 atm644p . Chciałbym uzyskać przy naciśnięciu przycisku: - s1 = temperatury -s2 = napięcia -s3 = Pomiar rezystancji -s4 = Pomiar prądu Prosze o pomoc z Tym Kodem: [syntax=basic4gl]$regfile = "m644pdef.dat" '$regfile = "m32def.dat" '$regfile = "m16def.dat" $include "ds18b20_commands.bas" $crystal...
Nie wiem na które pcb patrzysz , to ostatnie do pełnej wersji z pomiarem prądu i napięcia ,patrzę i widzę że jest OK . pin40 i pin39 są podpięte do dzielnika kondensator żeby nie pływał pomiar zbytnio. nie widzę tego o czym piszesz . Wieczorem sprawdzę jeszcze raz i podam zaktualizowane . Ok jest wieczór więc zamieściłem na 2 str. schemat i pcb w eagle...
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 Mam problem z przesyłaniem kilku zmiennych po RS485, tzn. wartość zmiennych przesyłana jest prawidłowo, ale w odbiorniku zmienne zamienione są miejscami. A mianowicie nadajnik wysyła np. zmienne a=504 b=129 c=292, a odbiornik odbiera je tak a=292 b=504 c=129. I nie mogę dojść dlaczego tak mi się dzieje. NADAJNIK [syntax=basic4gl]$regfile = "m32def.dat"...
Witam. Zakupiłem konwerter I2C do wyświetlacza LCD i mam mały problem z jego obsługą. Komunikacja z ekspanderem następuje prawidłowo, jedynie co udało mi się uzyskać to miganie podświetleniem, ale uparty wyświetlacz za choinkę nie chce nic wyświetlić. Schematu konwertera niestety nie posiadam, gdyż producent go nie udostępnia. Kod którego używam prezentuje...
Zacznijmy może od tego, że w tak przygotowanym pliku tekstowym w C++/CLI nie odczytasz, żadnych wartości. Trzeba było by się mocno natrudzić w jakimś języku skryptowym. Nalepiej niech ten plik ma taki kształt: [syntax=c] AB 12 54 GT 89 2 [/syntax] i się nazywa dajmy na to - "TextFile01.txt". Jeżeli korzystasz z operacji na plikach to wykorzystujesz...
Raczej problemem jest sama komunikacja po uart bo cały program bez niej działa jak należy. Mam jeszcze jedno podejrzenie co może być nie tak. Jak sprawdzę to napiszę. Dodano po 38 Myślałem że to budowa ramki danych jest problemem ale niestety nie. Wielkość ramki $framesize mam ustawione na 150. Dodano po 15 Dodaję uproszczony program jak Pisałeś. [syntax=vbnet]...
Witam mam przed sobą kod w Bascomie, komputera samochodowego, liczacego spalanie itd...Nie rozumiem jednego fragmentu: Poczatek: Timer1 = 0 Start Timer1 Do If Pind.5 = 0 Then Incr Impw ' PinD.5 = nóżka T1(11) Loop Until Timer1 = 15067 Stop Timer1 Impw - impulsy wtryskiwacza Jak sie domyslam kod ten ma liczyc czas trwania kiedy wlaczony jest...
Witam Mam problemy z fazami w domu. chciałbym mieć stały pomiar wyświetlany na LCD i w przypadku przekroczenia napięcia 240V zapalaną diodę led podpiętą do nóżek procka(docelowo będą to przekaźniki) i sygnał dźwiękowy na syrence. Wykonałem w bascomie miernik faz na atmega8, tryb zaokrąglania wyniku zaczerpnąłem z jednego kodu z forum. Płytka z układem...
Witam serdecznie. Mikrokontrolerami i w ogóle programowaniem bawię się od niedawna, dlatego też zamieszczony przeze mnie program na pewno nie wygląda zbyt estetycznie i na pewno też nie wykorzystuje pamięci w ekonomiczny sposób, ale nie chodzi o sam program, lecz o sposób naliczania sekund. Dlaczego w programie (poniżej) jest tak, że nie każda sekunda...
Dobra chyba wiem o co chodzi. Czy poniższy program który wydziergałem ma prawo działać? $regfile = "m8def.dat" $crystal = 4000000 Config Lcd = 20 * 2 Config Lcdpin = Pin , Db4 = Pb.2 , Db5 = Pb.3 , Db6 = Pb.4 , Db7 = Pb.5 , E = Pb.1 , Rs = Pb.0 Dim Szyba1 As Word Dim Szyba2 As Word Dim Szyba3 As Word Dim Szyba4 As Word Dim V1 As Single Dim...
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. Ręce opadają. Od wczoraj próbuje zaprogramować uC by badał temp na poszczególnych czujnikach ale w różnych podprogramach. To znaczy włączam uC pokazuje mi czas naciskam przycisk przechodzi do innego ekranu gdzie widnieje temp. i pomiar napięcia. Następnie znów naciskam przycisk i przechodzi do kolejnego ekranu z wynikami pomiaru z dwóch innych...
Witam Piszę do was bo mam mały problem. Zrobiłem woltomierz i amperomierz na atmedze8 i mam mały problem bo program który mam działa ale pokazuje błędnie. To znaczy problem polega na tym że im wyższe napięcie tym większy zakres błędu. Przy 24V zakres błędu to ok. 3V Program wygląda tak: [syntax=basic4gl]Config Adc = Single , Prescaler = Auto , Reference...
Witam ,zrobiłem sobie tester który ma być przydatny w pracy.Projekt oparty na Atmega8 a mianowicie jest to woltomierz i miliamperomierz. Pomiar prądu zrobiłem na wzmacniaczu LM358 ,mierzę spadek na rezystorze 0.1ohm. Wszystko działa ale muszę jeszcze dorobić warunek który będzie sprawdzał polaryzację i mam problem jak zamieścić go w moim programie.Port...
Witam. Jestem początkującym w dziedzinie programowania na elektronice znam się dobrze. Chciałbym zbudować komputer pokładowy do mojej hondy civic i znalazłem na elektrodzie projekt z pod tego linku. . Płytkę zaprojektowałem na nowo pod atmege128 reszta bez zmian. Wyświetlacz od Siemensa s65 ls020 podłączyłem według tej strony Wszystko działa, umiem...
Nowy project winForm + na formie 2 buttony (Button1, Button2) do tego kontrolka PrintPrewiewDialog1 i PrintDocument1 sprawdź czy o to ci chodziło... [syntax=vbnet]Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage Me.PrintPreviewDialog1.Document...
Witam Chciałm zrobić automatyczną regulację obrotów silnika. Pierwszy silnik napędza drugi silnik który pracuje jako prądnica i muszę wraz ze zmianą obciążenia prądnicy regulować obroty silnika tak aby uzyskać stałe napięcie na wyjściu prądnicy. Do sterowania zastosowałem Atmegę 8. Napisałem taki programik i niby działa, ale ... regulacja jest zbyt...
Witam, posiadam termostat AVT3025 Gońki i mam problem gdyż histereza i nastawa ma za duży krok. Chciałbym aby była ustawiona na 0.1 stopnia a w pisaniu programów jestem zielony :cry: . Prosił bym o edycje kodu, poniżej zamieszczam kod źródłowy. [syntax=basic4gl] 'Regulowany termostat cyfrowy 'Projekt wykonał Krzysztof Gońka $regfile = "m8def.dat" $crystal...
Poprawiłem program zgodnie z uwagami, dodatkowo pod portb.0 podłączyłem czujkę ruchu która znajduje się w najbardziej ruchliwym miejscu w domu tak aby cała ta procedura była realizowana tylko przez godzinę od detekcji ruchu. Zmniejszy to ilość załączeń pompki. Poniżej kod czekam na uwagi [syntax=basic4gl] $crystal = 16000000 $regfile = "M32def.dat"...
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...
Witam kolegów. Potrzebuję sterownika pompki do C.O. Znalazłem program napisany w BASCOM i przerobiłem go nieco do swoich potrzeb. Działa wszystko prócz HISTEREZY. Przy powolnym narastaniu temperatury, która skacze +/- pompka włącza się i wyłącza, czyli histereza nie działa. Histerezę zrobiłem wg. porad z forum. Czy może ktoś pomóc? Oto kod: [syntax=vbnet]$regfile...
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...
Witam, postanowiłem przenieść swój układ z atmegi na atXmegę. Do tej pory do komunikacji urządzeń po serialu używałem biblioteki SoftwareSerial (Arduino) bo układ miał tylko 1 fizyczny serial. Teraz w Xmedze mam ich 5 :) Wgrałem [url=ten] programik i wszystko śmiga, komunikacja przez putty z xmegą działa. Postanowiłem pójść krok dalej i na ekran puttiego...
Witam Kupiłem KIT AVT3025 i wykonałem termostat. Służy w akwarium i działa jak należy. Do pełni szczęścia potrzebna mi możliwość ustawienia histerezy z krokiem 0.2°C. Zakres histerezy wystarczy np. 2°C. W oryginale jest co 1°C a zakres wynosi 10°C. Niestety prędzej sklecę coś na lampach elektronowych aniżeli napiszę czy zmodyfikuję choćby najprostszy...
W twoim programie compilator, wykłada się w następującej lini kodu, przy deklaracji zmiennych : Dim Stx As String * 10 - zgłasza błąd 8. Nie chce mi się myśleć a wielkość pliku jest nieduża więc zamieszczam go w całości: Może ktoś z forumowiczów pomoże. ArteXL '################ ' --- Miernik pojemnosci 1pF - 500000uF ' NE Nr.5-2003r str.4. Zeataw 337-K...
Witam, Dostałem skan artykułu Miernik dużych pojemności z Nowego Elektronika 5/2003. Skan jest dość słaby i nie mogę dokładnie zweryfikowac programu z moim źrodłem. (dostałem juz przepisany w pliku txt) Miernik oparty jest na AT89C4051 i NE555. Mam kompilator BASCOM-8051 ver 2.0.11.0 (pełna wersje) i przy próbie kompilacji wyrzuca bład w linijce: Dim...
zle dobrana predkosc uarta moje moduły fabrycznie maja 4800,8,0,0 Dodano po 6 Witam, udało mi się napisać funkcje ktora wypisuje na wyswietlaczu LCD wspolrzedne w formacie NMEA. Natomiast chce to teraz zamienić w ten sposób, aby wyświetlane były dane w bardziej przystępnej formie np. 50 st. 22' 31''. Mój problem polega na tym, że nie umiem zamienić...
Witam. Chciałbym zbudować lokalizator samochodu za pomocą sygnału GPS. Odbiornik GPS i podłączona do niego komórka na stałe znajdowały by się schowane w samochodzie. Natomiast z mojej komórki kiedy tylko chcę wysyłam smsa z określonym zapytaniem i w odpowiedzi dostaje smsa zwrotnego z lokalizacją mojego samochodu(współrzędne geograficzne). Jaki telefon...
zacznij od tego kodu $regfile = "m8def.dat" $crystal = 8000000 Open "comd.3:4800,8,n,1" For Input As #2 Open "comd.2:4800,8,n,1" For Output As #1 Dim Poz As String * 32 Dim Poz1 As String * 20 Dim Poz2 As String * 20 Dim Poz3 As String * 32 Dim Pozv1 As String * 2 Dim Pozv2 As String * 7 Dim Pozv3 As String * 7...
$regfile = "m16def.dat" $crystal = 14745600 $baud = 9600 $timeout = 5000000 $hwstack = 300 $swstack = 128 $framesize = 128 $prog &HFF , &H9F , &HCD , &H00 $lib "lcd-pcf8833.lbx" '---------------------------------------... Config Graphlcd = Color , Controlport = Portb , Cs = 2 , Rs...
Mógł by ktoś udostępnić kod dla gps'u tego programowego bo nie chce mi hasac nie czyta mi GGA $regfile = "m8def.dat" $crystal = 7372800 $hwstack = 160 $swstack = 40 $framesize = 120 Baud = 115200 Config Serialin = Buffered , Size = 200 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.7 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 ,...
Zaczynam pisać program do Komputera motocyklowego opisywanego w wątku: '--------------------KONFIGURACJA-------... $regfile = "m16def.dat" 'informuje kompilator o pliku $crystal = 8000000 'informuje kompilator o częstotliwości oscylatora Config 1wire = Porta.3 'konfiguracja portu 1wire Config Porta.4 =...
[syntax=basic4gl] $regfile = "M32def.dat" $crystal = 16000000 '************************* WYSWIETLANIE-porty ********************************** Lcd_port_ddr0 Alias Ddrb Lcd_port1 Alias Portb Lcd_port_ddr1 Alias Ddrb Lcd_rs Alias Portb.lcd_rs_number Lcd_reset Alias Portb.lcd_reset_number Lcd_cs Alias Portb.lcd_cs_number Lcd_sck Alias Portb.lcd_sck_number...
drzasiek, ok poradziłem sobie i ATMega8 już działa :) Skopiowałem program na Bascoma do wyświetlacza LS020 od kolegi z forum. U niego, nie pojawiło się nic, prócz zmiany koloru wyświetlacza na niebieski. Więc chcąc sprawdzić czy u mnie cokolwiek zmieni kolor :P skopiowałem program i zmodyfikowałem tylko porty wg. mojego podłączenia: [syntax=basic4gl]...
Witam Uruchomiłem przykład z tej strony i wszystko działa tak jak powinno i mam możliwosc zdalnego sterowania z serwera na avr. Problem jest z tym że nie rozumiem w jaki sposób realizowane jest w podanym niżej kodzie załączanie i wyłączanie czterech portów atmegi. Pomimo opisów nie wiem co i jak się po kolei dzieje jeśli kliknę na odnośnik służący do...