musi być drugi wait po zmianie bitu [syntax=basic4gl]Do Portd.0 = 1 'zapal diode Waitms 200 Portd.0 = 0 'zapal diode Waitms 200 Loop [/syntax]
Na początek do rysowania schematów są odpowiednie programy a nie Paint , kody programu umieszcza się korzystając z polecenia Syntax a nie wkleja zrzut . Schemat : brak jakichkolwiek kondensatorów do filtracji zasilania , brak GND dla uC , brak oporników ograniczających prąd diod jeden wspólny to żadna oszczędność max prąd portu to 20mA , czerwone LED...
A Twój program nie chce działać? Jaki jest problem. To co w programie masz nieprawidłowo to odczyt stanu przycisku. Procedura odczytu przycisku powinna przewidywać takie sytuacje jak drgania styków lub przypadkowe zakłócenia na linii przycisku. Jedną z możliwość odczytu przycisku jest: [syntax=basic4gl]If Wejscie = 0 Then Waitms 100 If Wejscie = 0 Then...
Diodę gaś tak jak ją zapalasz. [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 1000000 Config Portb.0 = Input Config Portb.1 = Input Config Portd.5 = Output Przycisk1 Alias Pinb.0 Dioda Alias Portd.5 Przycisk2 Alias Pinb.1 PORTB.0 = 1' to jest podciąganie do Vdd - działaj w tym celu na rejestrze 'PORTX lub PORTX.Y PORTB.1 = 1 Reset Dioda Do If Przycisk1...
Wyłapałem że wcześniej deklarowałeś $regfile = "m16def.dat" zamiast $regfile = "m16adef.dat" (mimo że procesory różnią się jedynie poborem prądu i rezystancją podciągania pinu RESET to warto było sprawdzić ten trop), jeśli dioda LED podłączona jest poprawnie do PORTA.0 to niestety nic więcej (poza samym komputerem) nie przychodzi mi do głowy... Ostatni...
Niestety te rezystory mają dużą wartość więc w środowisku o dużych zakłóceniach warto dodać rezystory zewnętrzne. W tym przypadku wystarczy włączyć wewnętrzne, ponieważ projekt autora nie zwiera źródeł dużych zakłóceń. Poszukaj jak włączyć rezystory pull up za pomocą BASCOM Może tak: [syntax=basic4gl]Portb.0=1[/syntax] lub tak [syntax=basic4gl]Portb=&B00000001[/synta...
Trzeba uważać i czytać cały kod jeśli się go wpisuje, zwłaszcza do swojego mikrokontrolera :D Nie zauważyłeś, że ten Bootloader jest przykładowy i był użyty na takiej płycie testowej. W kodzie skonfigurowano dwie diody LED do mrugania :) I tak jak normalnie nigdy nie konfiguruję wejśc bo normalnym stanem pinu po resecie w mikrokontrolerze jest "wejscie"...
1.Konfiguruje się PORT 2.Podciąganie do plusa włącza się w PORT 3.Przyciski czyta się z PIN Sterować można PORT`em a sprawdza się PIN [syntax=basic4gl] Config PORT.x = Input 'nie podłaczamy driverow - port bedzie wejsciem PORT.x = 1 'sterujemy portem, podłączamy wewnętrzny rezystor Przycisk Alias PIN.x ' PIN PIN PIN PIN! [/syntax]
Napisane na szybko nie sprawdzałem ale chyba powinno działać. [syntax=basic4gl] $regfile = "m8def.DAT" 'deklaracja procesora, w tym wypadku Atmega8 $crystal = 1000000 'deklaracja cześtotlwiości pracy (wew oscylator 1MHz w zupełności wystarcza) '*************************************WA... 'Pamiętać o podłączeniu...
Do tego najlepiej użyć PWMa. Na medze ósmej musisz uruchomić timer1. [syntax=basic4gl] config timer1 = PWM , pwm = 10 , compare a pwm = clear up , compare b pwm = disconnect , prescale = 1 Dim opu as word do for opu = 0 to 1023 pwm1a = opu waitms 3 next opu for opu = 1023 to 0 step -1 pwm1a = opu waitms 3 next opu loop end [/syntax] To tak na szybko....
Troszkę zmieniłem, sprawdź czy działa. Troszkę nie rozumiesz co piszesz dlatego oporni Ci to idzie najpierw zwiększa liczbę a potem sam ją zerujesz, więc siłą rzeczy zawsze będzie równa zero. Druga rzecz to zwiększasz "liczbę" tylko od jakiej wartości zaczynasz? Najlepiej zaczynać od zera. itd [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 4000000...
Czy kolorami RGB chcesz sterować włącz/wyłącz czy płynnie, zmieniając ich jasność na PWM ? W przypadku włącz wyłącz najprościej zrobić tak: [syntax=basic4gl] DIM tmp as byte Do if bass=1 then tmp=rnd(2) '50% szans trafienia if tmp=1 then set Red else reset Red endif tmp=rnd(3) '33% szans trafienia .... 'i tak dalej dla poszczególnych kolorów 'dodatkowo...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.5 = Input Config Pinb.4 = Input Config Pinb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 64 Dim I As Byte Centr1 Alias Pinb.5 Centr Alias Pinb.4 Set Portb.4 Set Portb.5 Pwm1a = 0 Do If pwm1a = 0 then 'dodatkowy warunek...
To Ci będzie sterować kolejno czterema diodami na pinach od B0 do B3. Zalecam wnikliwą analizę, zanim zalejesz mnie pytaniami :) Timery zawsze rób na odliczanie w dół do 0, w przeciwnym wypadku po wpisaniu nowej wartości w trakcie odliczania możesz mieć niezły kwas - pomyśl dlaczego :) Pozdrawiam [syntax=basic4gl]$regfile "m8def.dat" $crystal = 8000000...
[syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.2 = Output Do Set Portb.2 Wait 1 Reset Portb.2 Wait 1 Loop End[/syntax] a po zmianie [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Pinb.2 = Output Do Set Portb.2 Waitms 500 Reset Portb.2 Waitms 500 Loop End [/syntax]
Nie wiem czy to jest powód, ale masz błędy w programie: Składnia: [syntax=basic4gl]Portb = &B00000010 Portb = &B00010000 [/syntax] Jest bez sensu, bo momentalnie nadpisujesz port nową wartością. Albo wywal pierwsze polecenie, albo daj: [syntax=basic4gl]Portb = &B00010010[/syntax] I tak samo w pozostałych miejscach, gdzie nie są rozdzielone instrukcją...
Witam ;) nie mam jeszcze programatora i procka (spodziewam sie go w tym tyg) jednak zacząłem czytać poradniki programowania w BASCOM`ie i napisałem swój pierwszy w zyciu program i chciałbym prosić o jego sprawdzenie czy to wgl ma jakiś sens xD [syntax=basic4gl] $regfile = "m8def.dat" 'typ procesora (ATmega8) $crystal = 1000000 'taktowanie procesora...
1. Zgodnie z "dobrymi manierami" pisania programów w C, skoro funkcja main ma zwracać wartość o typie int, zawsze dodaje się "dla porządku" return 0; 2. while(1) to pętla, która ma się wykonywać w nieskończoność - nic w tym dziwnego. Przekładając to na świat Bascoma wyglądałoby to: [syntax=basic4gl] Do Gosub Czas Gosub Dioda Loop End 'end program [/syntax]...
Wstaw sobie o tak o: [syntax=basic4gl] Config Portb.0 = Output ' ustawienie portu sterującego przekaźnikiem przez tranzystor Config Portd.7 = Output ' ustawienie portu sygnalizacji zbyt wysokiej temeratury Config Portd.6 = Output Przekaznik Alias Portb.0 Buzzer Alias Portd.7 Led_pompa_stop Alias Portd.6 Reset Przekaznik Reset Buzzer Reset Led_pompa_stop...
Diody migają po dwa razy, kolejne dwa razy zawsze po naciśnięciu przycisku, tak w kółko. Jak nie naciskam to nic się nie dzieje. Zdaje się że taki zamiar był tego programu... Niemniej jednak spróbuj ten code: [syntax=basic4gl][/syntax ... $regfile = "attiny13.dat" $crystal = 9600000 Config Portb = &B011000 Portb = &B000010 $hwstack...
No ale ja ustawiam programowo na stan niski poleceniem: [syntax=basic4gl]Config Portb = &B11111111 'wszystkie końcówki jako wyjścia Portb = &B00000000 'wszędzie wpisz stan spoczynkowy 0[/syntax] Co bym musiał jeszcze zrobić, żeby było dobrze?
zmień no Pan: (umieszczaj kod w znacznikach)
Ściągnij sobie z tej strony program kalkulator avr http://www.elportal.pl/index.php?module=... [syntax=basic4gl] $crystal = 1000000 $hwstack = 80 Config Timer1 = Timer , Prescale = 64 Dim Sek As Byte 's Enable Timer1 Enable Ovf1 On Ovf1 Czas Stop Timer1 Enable Interrupts Sek = 0 Do If pinc.0 = 0 then Load Timer1 , 49911...
I jeszcze jedno pytanie: Zegar w Fusebitach prawidłowo ustawiony? Co do Bascom zerknij na przykład tutaj: http://www.elektroda.pl/rtvforum/topic22... może brak tego: [syntax=basic4gl]Reference = Avcc[/syntax] EDIT: kolega mnie ubiegł.
http://obrazki.elektroda.pl/3973217100_1... Witam! Pewnie wielu z was zetknęło się z problemem braku wystarczającej ilości wyjść w mikrokontrolerze. Mnie także to spotkało. Przy okazji innego projektu zaszła konieczność dołożenia wyświetlacza do już istniejącej płytki sterownika, ale jak to bywa - prawie wszystkie piny miałem zajęte....
Nowy mikrokontroler dopóki tego nie zmienisz pracuje z prędkością 1000000 Hz (1MHz) Wpisz na samej górze w kodzie [syntax=basic4gl]$crystal = 1000000 '1MHz crystal[/syntax] To poinformuje kompilator o prędkości i będzie już liczył poprawnie.
Dalsza zabawa polegała na odebraniu ramki . Istnieje możliwość wysyłania i odbierania ramki przez ten sam węzeł. W rejestrze CANCTRL bit7-5 REQOP ustawiamy 010 = tryb sprzężenia zwrotnego. Tryb sprzężenia zwrotnego jest bardzo cenny ponieważ umożliwia to zabawę z MCP mając tylko jeden węzeł . Do programu musiałem dopisać. deklarujemy:[syntax=basic4gl]...
W Bascom nie ma ustawień fabrycznych dla FuseBit`ów. Fabrycznie nowy, ten procesor pracuje na 8MHz, podzielonej przez 8, czyli 1MHz . W środku włączony jest po prostu taki podzielnik. Nazywa się CKDIV8. Jesli jest zaprogramowany w procesorze to kod tego nie zmieni. W kodzie informujesz kompilator jaką prędkośc ma aktualnie procesor. Jest to kompilatorowi...
If Zmienna.0 = 0 Then 1 Else 0 End If Dziękuję za podpowiedz :-) ale to "mruga" mi z częstotliwością pracy głównej pętli dla przykładu jak zrobię tak flip-flop
Jeżeli jesteś pewien, że układ jest elektrycznie poprawny (w co ja osobiście wątpię i nie wierzę, że w tej konfiguracji będzie działał) to jeśli chodzi o uwagi do programu (pomijając jego nieczytelność ze względu na zastosowanie instrukcji skoków bezwarunkowych oraz etykiet, pierwszą która się nasuwa to brak instrukcji załączającej system przerwań [syntax=basic4gl]Enable...
[syntax=basic4gl]$regfile = "attiny2313.dat" $crystal = 8000000 Config Pinb.3 = Output Dim Togbit As Byte , Komenda As Byte , Adres As Byte Komenda = 12 Togbit = 0 Adres = 5 Do Rc5send Togbit , Adres , Komenda Waitms 100 Loop[/syntax] Przy takim programie. Dioda podczerwona(i czerwona bezpośrednio do portu uC) miga raz na niecałą sekundę(przy 3V i 5V)....
Co zrobi pulsein/pulseout jeśli czas mierzony wyniesie np 10sekund? Pozdrawiam Po czterech poprawkach warunkowo dopuszczam formę powyższego cytatu. Następnym razem proszę cytować poprawnie wraz z nickiem autora. PULSEOUT nic nie liczy, to polecenie generuje przebieg, przykład migawka diody połączonej do portD.1 [syntax=basic4gl]Do PULSEOUT portD, 1,...
Witam. Napisałem sobie taki program w bascom ,który po wciśnięciu przycisku w nadajniku ma zapalić lub zgasić diodę w odbiorniku, lecz w ogóle nie chce to działać.Proszę kolegów o pomoc. NADAJNIK [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Config Portc = Input Portc = &B11111111 Dim I As Byte I = 225 Do If Pinc.6 = 0 Then...
[syntax=basic4gl] If Chr(a) = "p" Then Call led1 End If[/syntax] dioda mruga np 6[s] w tym czasie terminal nie przyjmuje kolejnych poleceń z procka nadawczego.Tym samym pozostałe porty nie można załączyć. Wszystko jest na zasadzie wł/wył. W programie nie ma nic skomplikowanego. Na dobrą sprawę wait też nie przeszkadza, ale fajnie by było gdyby jednak...
Witam. Zaczynam dopiero swoją przygodę z programowaniem i już napotkałem problem, na pewno bardzo prosty, ale niestety nie potrafię sobie z tym poradzić ! Chciałem napisać prosty program ktory za pomocą przycisków (switch) będzie załączał i wyłączał, czyli S1 = załącz/wyłącz -led S2 = załącz/wyłącz -led S3 = załącz/wyłącz -led itd... aż do 7 próbowałem...
Witam, Napisałem sobie taki programik w Bascomie pod PCF8583 i Atmege32 Wszystko funkcjonuje idealnie - czas, menu, nastawy itd, ale mam mały problem Otóż chciałbym wywoływać alarm o zadanej godzinie - nastawa w menu "Ustaw Alarm" Jeśli wpiszę tam odpowiednią godzinę i minutę to niestety alarm się nie uaktywnia? Dlaczego? Poniżej wklejam listing: Czy...
Kuniarz Deklaracje procesora i taktowania daję :) Opuściłem ją specjalnie, a program kompiluje się i nie wywala błędów. Mimo wszystko i tak nie działa. Edit: Poradziłem sobie :) Zrobiłem to tak i działa tak jak chciałem. [syntax=basic4gl]If Pinb.1 = 0 Then If Pk2 = 1 Then Waitms 100 Toggle Portb.5 Pk2 = 0 End If Toggle Porta.0 Waitms 100 Toggle Porta.0...
Witam Posiadam kilka silników krokowych bipolarnych. Pomyślałem sobie, że napiszę program w Bascomie, który wysteruje taki silnik. Znalazłem też ciekawą stronę na temat silników unipolarnych: http://diycenter.acid19.linuxpl.com/prin... Napisałem program, który wysteruje silnik unipolarny: [syntax=basic4gl][/syntax] $regfile = "m32def.dat"...
Ja używam takiej konfiguracji dla odbiorników z układem U4221B: [syntax=basic4gl]Config Dcf77 = Pinb.5 , Timer = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 0 , Timer1sec = 0 , Debug = 1 , Gosub = Sectic[/syntax] U siebie najpierw spróbuj sprawdzić (diodą LED i dodatkowym tranzystorem, który będzie załączał tą diodą), czy w ogóle otrzymujesz...
Schemat mam z helpa. Nadal dioda swieci 3 sekundy i mrugnie i znowu swieci ;-( Chyba nas "czarujesz" ! Wgrałem Twój kod: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 4000000 Dim Togbit As Byte , Command As Byte , Address As Byte Command = 15 Togbit = 0 Address = 0 Rc5send Togbit , Address , Command End [/syntax] Fuse bity ustawiłem na fabryczne,...
Witam. uczę sie programowania na ATmega8, lecz z kilkoma rzeczami nie mogę sobie poradzić. chciałem rozjaśniać, bądź przyciemniać diodę na początku automatycznie, później przyciskiem [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 1000000 Config Portb.1 = Output Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect...
r"]Potrzebuje zmierzyć samo wypełnienie impulsów nie wiem jak za to się zabrać. Potrzebuje badać sygnał idący na serwo modelarskie. By wiedzieć na 3 diodach jakie jest jego położenie. Proszę o jaką kolwiek pomoc. Oczywiście nie chodzi mi tu o zrób za mnie... ale nie wiem od czego zacząć. Rozumowanie moje jest takie przychodzi impuls odpala się timer....
Witam, mam problem z napisanymi przeze mnie programami nadajnika i odbiornika wykorzystujących do transmisji USART. Działać ma to tak: po przyciśnięciu przycisku 1 (portb.0) świeci się dioda (portd.7), po przyciśnięciu przycisku 2 (portb.1) dioda (portd.7) gaśnie. Całość prawidłowo podłączyłem (sprawdzałem kilka razy, jest wspólna masa, Tx do Rx) lecz...
Dopisałem sobie do tego kodu dla testu coś takiego: [syntax=basic4gl] Do Pwm0a = 255 Waitms 100 Pwm0a = 235 Waitms 100 Pwm0a = 215 Waitms 100 Pwm0a = 195 Waitms 100 Pwm0a = 175 Waitms 100 Pwm0a = 155 Waitms 100 Pwm0a = 135 Waitms 100 Pwm0a = 115 Waitms 110 Loop [/syntax] i moim zdaniem dioda powinna przygasać, a ona się rozjaśnia, o co tu chodzi ??...
No i wszystko się wyjaśniło :) Dziękuje koledze "morswin89" jak również "emarcus" i "Fredy" za pomoc w rozwiązaniu problemu. Ostateczny kod który pozwolił mi uruchomić komparator zamieściłem poniżej. Dioda mruga przez 50ms za każdym razem kiedy komparator zmienia swój stan na przeciwny. https://filmy.elektroda.pl/61_1389531545...
Witam Chciałem skorzystać z kodu, który udostępnił Kolega Mundi Error 46: Assignment error gdy tego nie ma to się kompiluje bez błędów, ale nie rusza.
Mnie się wydaje że to powinno być tak: [syntax=basic4gl]$regfile = "m32def.dat" $crystal = 16000000 Config Portb.2 = Output Config Pinb.7 = Input portb.2 = 0 pinb.7 = 1 Do If Pinb.7 = 0 Then Toggle Portb.2 End If loop End[/syntax]
Pozwolę sobie umieścić post pod postem żeby wiadomość dotarła do zainteresowanego. Jeszcze lepszym wyjściem dla takiego zegara będzie zastosowanie dedykowanego rezonatorka 32768Hz (32,768KHz) Wartość 32768 to w zapisie binarnym dokładnie piętnaście bitów. Jeśli więc Timer będzie zliczał generowane impulsy to po 32768 uzna że mineła sekunda :D Bascom...
Dopóki nie nauczysz się poruszać pomiędzy rejestrami PORT i PIN to ustawiaj jako OUTPUT tylko piny które Cie interesują czyli na przykład pin od diody. Taki zapis: cały port jest wyjściem. Ustawienie teraz na nim stanu wysokiego, niby po to by włączyć rezystory podciągające powoduje że włączasz wyjścia które można obciążać maksymalnie do 20mA. Przyciśnięcie...
Witam serdecznie! Chciałbym poprosić kolegów o rozwiązanie pewnej kwestii. Ischarwaiting() zwraca wartość 1 gdy w buforze coś jest a 0 jak nie ma. Dana wejściowa (Znak) z RS232 na postać 5 znaków + enter czyli 6 znaków. Config Serialin=Buffered, Size=6. Zmienna Znak jest wartości String*6. Dane z RS-a odbierane są w pętli: Dodano po 3 powstał mały byk...
..a ja Ci kolego powiem co jest z Twoim kodem ale nie zmieszczę się w jednym zdaniu. Coś już widać wiesz jak działa mikrokontroler tylko na spokojnie musisz połączyć wiedzę. Mikrokontroler ma do jednego portu przynajmniej trzy rejestry. Jeden służy do tego żeby wybrać czy port służy jako wejście czy jako wyjście. Nazywa się DDRx gdzie x to litera portu....
Zmieniłem FuseBity i faktycznie odmierza tak jak powinien. Napisany przeze mnie program niestety nie działa. Co ciekawe napisałem inny w celu sprawdzenia działania instrukcji warunkowych i pętli: [syntax=basic4gl] $regfile = "m8adef.dat" $crystal = 8000000 Config Pind.0 = Output Config Pind.1 = Output Przekaznik1 Alias Portd.0 Przekaznik2 Alias Portd.1...
Kiedyś zrobiłem coś podobnego Napisałem program w c do uC (chociaż równie dobrze może być bascom) Ogólny zarys jest taki: Jak już to napiszesz, to to potem sprawdzasz czy działa. Odpalasz bascomowy terminal i wysyłasz 1 powinna ci się zaświecić dioda w porcie d1. Jak klikniesz 2 to dioda w porcie d2 itd. Teraz ja napisałem kod w Delphi. Na forum znalazłem...
Tak wygląda schemat funkcjonalny obecnego układu testowego. Na pająka wlutowana jest dioda D2 i D1. Kwarc jest daleko od nóżek więc dodane będą kondensatory. Kilka spostrzeżeń: 1.Condensator C6 ; włączony w odwrotnej polaryzacji. (!?) 2.Rezystor(Reset) ; 100k zamiast 10k 3.Także rezystory podciągające do GND R13 i R14 = 100k zamiast powiedzmy...10k...
Witam mam taki program w języku MS BASIC: http://obrazki.elektroda.pl/6735757800_1... Spis elementów: D1-dioda S1-przycisk U1-ATTiny 2313 20-PU I mam pytanko czy ten układ będzie działał z tym programem?
Dioda powinna świecić tylko kiedy naciśniesz przycisk. Podłączyłem tak jak na schemacie - dioda świeci tylko kiedy naciskam przycisk tj. wszystko działa. Jak wgram taki program to efekt taki sam jak opisywałem w poście wyżej.[syntax=basic4gl] $regfile = "m8def.dat" $crystal = 1000000 $hwstack = 40 $swstack = 16 $framesize = 32 config portb=input 'port...
Witam! Na podstawie informacji zawartych w książce "Programowanie mikrokontrolerów w języku Bascom" jak i wiedzy, którą udało mi się przyswoić piszę proste programy. Ostatnio zacząłem się interesować PWM'em jako sterownikiem wentylatora lub regulatorem oświetlenia. Oto program: [syntax=basic4gl]$regfile = "m8adef.dat" $crystal = 8000000 Config Pinb.1...
Witam problem myślę, że na poziomie piaskownicy chciałbym wstawić sobie inna nazwę zamiast komendy waitms w bascomie mniej więcej: W Alias waitms 850 niestety tak nie działa :( głównie chodzi o to, że diody maja być włączane co ten sam czas po kolei lecz nie wiem czy czas jest odpowiedni jak programuję chciałbym go dowolnie zmienić w jednym miejscu...
Witam Próbuje napisać program, który będzie losowo zapalał diody. Napisałem program losujący: [syntax=basic4gl]For Z = 0 To 8 Step 1 A = Rnd(1) C = Rnd(1) Portd.z = A Portb.z = C Next Z[/syntax] lecz nie reaguje. Zmieniałem wartości Rnd na inne (10,50, itp) i wtedy zapalał mi poszczególne diody ale na stałe ... Nic nie losuje
Witam. Przedstawiam bardzo prosty programik mający na celu regulację jasności świecenia pojedynczej diody podłaczonej anodą do OC1A. Dodano po 6 Zmieniłem program na takowy: [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 16000000 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1024 Dim A As Word...
Witam ponownie Kod programu: http://obrazki.elektroda.pl/6207334900_1...
bingo napisałem już program który pokazuje odebrane sygnały z ibus szyny błędnie myślałem ze trzeba odwrócić sygnał, zastosowałem interfejs od gościa który zrobił takie coś na microchipie czyli tylko dioda i opornik (u mnie 1n4148 i 10k) [syntax=basic4gl]Serial_flag = Ischarwaiting() 'jesli znak czeka to ustaw flage If Serial_flag = 1 Then ' jelsi flaga...
Tak mi to wyszło to mój pierwszy program (nie licząc włącz-wyłącz diode) wiec proszę o wyrozumiałość. Częstotliwości jeszcze nie obliczyłem bo mam z tym trudności. Nie wiem tylko czy dobrze zrozumiałem ze timer1 w trybie Pwm jako jedno przerwanie zlicza jeden cykl [syntax=basic4gl]$regfile = "2313def.dat" $Crystal=8000000 Config Pinb.3 = Output Config...
Czy da się to zrobić jakoś po bożemu ? :D Może coś w tym guście :?: [syntax=basic4gl]For I = 0 To 19 Tt = Prog(i + 1) + 5 If V > Tt And V <= Prog(i + 2) Then Exit For Next On I Gosub Aku_0 , Aku_1 , Aku_2 , Aku_3 , Aku_4 , Aku_5 , Aku_6 , Aku_7 , Aku_8 , Aku_9 , Ladowanie_0 , Ladowanie_1 , Ladowanie_2 , Ladowanie_3 , Ladowanie_4 , Ladowanie_5...
Witam, mam problem z nie do końca działającym programem, oto on: [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 1000000 $hwstack = 16 $swstack = 16 $framesize = 16 Config Pinb.1 = Input Config Portb.2 = Output Dim L As Byte Do If Pinb.1 = 0 Then Waitms 20 L = L + 1 If L = 3 Then Set Portb.2 If L = 6 Then Reset Portb.2 L = 0 End If End If End...
Ale jedynym program, który mogę wyłączyć jest Oblicz . I nic to nie daje. Zadeklarowałem nawet wszystkie podprogramy, dołożyłem blokowanie i odblokowanie przerwań przy inicjalizacji RFM12 ( gdzieś taki "dodatek" wypatrzyłem ). Nadajnik ładnie nadaje i w nocy aktualizuje z DCF77. Ech, już nie mam pomysłów. nSel i nIRQ mam podciągnięte przez rezystor...
Witam Mam taki problem przy wgraniu poniższego programu do attiny45 dioda zamiast świecić z odpowiednią jasnością miga z dużą częstotliwością. Dodam że ten sam program na attiny26 działa tak jak powinien czyli dioda świeci z odpowiednią jasnością bez widocznego dla oka mrugania. Oby dwóch przypadkach fusy przestawione na taktowanie wewnętrzne 8MHz....
Witam, Próbuję moich sił w programowaniu w bascom'ie. Chciałbym zaprogramować atmega8 tak aby podczas przyciskania przycisku zapaliła się dioda i na wyświetlaczu pojawił się napis. Jeżeli przycisk nie będzie naciskany to dioda się nie powinna świecić a napis powinien się zmienić. Co jest nie tak w moim programie? Proszę o zapoznanie się, z TYM tematem....
Witam Tak jak w temacie mam napisałem program w bascomie który ma za zadanie zapalać cztery diody led po odebraniu po RS232 cyfr od 1-4 i chodzi to bez problemu ,ale teraz gdy uczę się języka C postanowiłem ten sam program przenieść na C i już nie jest tak dobrze.Objaw jest taki gdy wyśle 1-Zapalają się i gasną diody "STROBO I KULA" gdy 2-Tak sama 3-Też...
Przykładowy program. Nie robi nic ciekawego tylko wybudza procesor z power-down przez int0 i miga diodami. $regfile = "attiny13.dat" $crystal = 9600000 Config Portb = &B011000 Portb = &B000010 $hwstack = 24 $swstack = 8 $framesize = 24 Dim X As Bit Dim Y As Byte Config Int0 = Low Level Enable Interrupts On Int0 Go Nosave Set X Do If X = 1...
Witam ponownie z WS2803 nie miałem problemów, postanowiłem zająć się taśmą led z WS2812 z tego względu że ma tylko jedną linie danych nie ma linii zegara dane trzeba wysyłać o ściśle określonych czasach: logiczne 1 stan wysoki 0,7us stan niski 0,6us logiczne 0 stan wysoki 0,35us stan niski 0,8us. Jako że próbowałem w bascomie to pisać i mi się nie udawało...
Witam, Mam taki kod programu do obsługi ds18b20: [syntax=basic4gl] $regfile = "m8def.dat" $crystal = 8000000 Config Pinb.1 = Input Config Lcd = 16 * 2 'LCD Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2 'konfiguracja linii Config 1wire = Portd.1 Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32...
A jak to zrobić w bascom? To zazwyczaj robi się w ustawieniach fusebitów: -bit (6) szósty w Fuse Byte High ma byc (1) czyli nie zaprogramowany. A jeżeli chcesz to robic w "Run-time", to w Bascom wygląda to tak: [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 8000000 ' tu twoje ustawienie taktowania $initmicro 'tu twoja konfiguracja '................
Witam jestem początkujący ale nie wiem jak napisac program który ma działać następująco: Naciskam przycisk i trzymam go wciśniętego, w tym czasie zapala się dioda. Program czeka aż puszcze przycisk i gdy go puszczę zaczyna odliczać 15 minut, po tym czasie gaśnie dioda. Gdy jednak w czasie odliczania znowu zostanie wciśnięty przycisk i będzie trzymany...
Witam. Panowie walczę jakiś czas i nie mogę poradzić sobie z dość prostą sprawą. Nie działa mi instrukcja Load na timer1 Wyczytałem że wartość jaką podaję czyli 250 zostanie odliczona do 0 i ma nastąpić przerwanie i tak w koło. Czyli licząc Q=8Mhz 250 impulsów daje - 0,000032s czyli 31250 Hz 31250 / 100 =~310Hz Natomiast dioda Toggle Ledd1 zmienia się...
Witam. Napisałem wczoraj program do odbioru kodu rc5 przez attiny2313 . Chce żeby profesjonaliści sprawdzili kod , czy on "zadziała" . Kod: [syntax=basic4gl] $regfile = "attiny2313.dat" $crystal = 16000000 Config Rc5 = Pind.0 Reset Porta.2 On Int0 Odbierz_rc5 Enable Int0 Enable Interrupts Dim Odebrano As Bit Dim Komenda As Byte , Adres As Byte Dioda...
Witam Męczę się nad uruchomieniem obsługi RC5 w Atmega128 na pinie E.4 (INT4). Konfiguracja wygląda tak: [syntax=basic4gl] Config Rc5 = Pine.4 On Int4 Readir Config Int4 = Low Level Enable Int4 [/syntax] Procedura odbioru tak: [syntax=basic4gl] Readir: Disable Int4 sei Getrc5(adres , Rozkaz) Rozkaz = Rozkaz And &B01111111 Return [/syntax] Generalnie...
na tak nie wziolem pod uwage ze dopuki bedzie nacisniety przycisk program bedzie lecial caly czas w tej chwili widze dwa rozwiazania , dopisac kolejne polecenie while które czeka na puszczenie przycisku [syntax=basic4gl]while porta.1=1 reset portb.1 ; zgaszenie diody 1 set portb.2 ; zapalenie diody2 while porta.1=0[/syntax] itd lub zrobic to mimo wszystko...
pewnie jakieś herezje tu przedstawiam. Oczywiście deklaracja Sw1 Alias Pind.5 i Dim Zmienna As Byte wcześniej. Właściwie to działa tak jakby tylko na jedną diodę. [syntax=basic4gl] If Sw1 = 0 And Zmienna = 0 Then Zmienna = 1 Waitms 30 Speed = 75 'ok 0,5s bo 32poziomy x 15ms = 480ms (1j.=0,0002s) For X = 0 To 7 Nr_led = X : Set Go Do : Loop Until Go...
Witam, Wykonałem płytkę jak w załączniku. Po zaprogramowaniu prostym programem, procesor nie uruchamia się. Po kilkukrotnym resetowaniu procesor wstaje. Czy wykorzystywanie pinów SCK, MISO, MOSI jako wejścia może powodować taką reakcję? Czy konieczne jest wprowadzenie dodatkowych zmian w programie/ fusebits? [syntax=basic4gl] $regfile = "attiny2313.dat"...
Jak podłączam zaasilanie to raz komunikacja działa a raz nie, tzn. włączam układ działa, wyłączam i znowu włączam i już jest problem, może to że piny nie wykożystane nie są zaprogramowane powoduje błąd i zawieszanie się programu dodałem migającą diodę i miga cały czas więc program się nie zawiesza. Już mi ręce opadają :( jak wpisze do uC to : [syntax=basic4gl]...
Witam ! Zbudowałem 2 układy --> gotowce (nadajnik/odbiornik podczerwieni w standardzie Rc5) z książki Marcina Wiązania "Programowanie mikrokontrolerów w języku Bascom" Zaprogramowałem je tez wg gotowych programów. W układzie odbiornika jest zamontowany wyświetlacz LCD który ukazuje nr komendy i adresu. Niestety mi ukazuje stale adres 255 i komendę 127....
Zrobiłem se coś takiego, ale nie działa tak jak powinno Jeżeli Pind.0 i Pind.1 są wejściami to konfiguracja portu 'D' winna wyglądac mniej więcej tak: [code][syntax=basic4gl] ................. Config Portd = 124 'Pd.0 i Pd.1 jako wejścia Portd = 127 'podciągnięte ................ [/syntax] Przewidywana żywotnośc EEPROM jest ok. 10 000 wpisów. W twoim...
Wklejam kod. [syntax=basic4gl]'ATtiny2313 mruga dioda ustawienie portów. $regfile = "ATtiny2313.dat" $crystal = 10000000 Config Lcd = 16 * 1a Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , Rs = Portd.4 , E = Portd.5 Config Portd.6 = Output 'podłączenie diody pin nr 11 Config Timer0 = Timer , Prescale = 1024 Dim...
Witam serdecznie. Ostatni kod przepisałem żywcem z książki "Programowanie mikrokontrolerów w języku BASCOM" autorstwa Marcina Wiązania. Dioda miga ciut za wolno. Tu mi ręce opadają, dlatego zwracam się do Was o pomoc. Kod: Nie wierzę w to co napisałeś!!! Autor ksiązki nie zrobiłby takiego błędu... Podajesz błędne instrukcje, i oczekujesz poprawnej...
Witam , Zaczynam przygodę z programowaniem. Powiem tak samo wgranie programu robię tak samo i działa na 100, wgrywałem avrdude plus nakładka AVR O burn mat. Problem leży chyba w kodzie poniżej podaję kod ściągnięty żywcem z kursu basom z strony http://www.forbot.pl/forum/topics20/kurs... objaw jest taki...
Praktycznie to ujmując to tylko fragment kodu [syntax=basic4gl] If Pwm1b = 0 Then Portd.1 = 0 If Pwm1b = 50 Then Portd.1 = 1 If Pwm1b = 50 Then Portd.2 = 0 If Pwm1b = 100 Then Portd.2 = 1 If Pwm1b = 100 Then Portd.3 = 0 If Pwm1b = 150 Then Portd.3 = 1 If Pwm1b = 150 Then Portd.4 = 0 If Pwm1b = 200 Then Portd.4 = 1 If Pwm1b = 200 Then Portd.5 = 0 If...
Szanowni koledzy Pozwolicie że odświeżę trochę ten temat. Uparcie próbuję skompilować program do obsługi karty SD. Ale nie mogę przejść nawet tego etapu. Zaznaczam, że używam wersji kompilatora 1.11.8.1 (podejrzewam że tu tkwi problem, ale po kolei) 1. Sciągnąłem biblioteki AVR-DOS.LBX, MMC.LIB, oraz MMC.LBX ze strony http://members.aon.at/voegel/ (a...
Witam mam podobny problem i nijak nie mogę sobie poradzić LED z WS2812B pierwsza dioda w taśmie się zapala (wszystkie kolory, i PWM jest oki) a następne nie chcą niestety może mi ktoś pomoże :( - dzięki [syntax=basic4gl][/syntax] $regfile = "m328pdef.DAT" $crystal = 16000000 Config Portd.1 = Output Pind.1 = 0 Dim A As Word Dim Green As Byte , Red As...
Witam Mam problem ze sterowaniem 2 transformatorów przez transoptory MOC3041 schemat załączam w pliku pdf. Do transoptorów podłączone są bramki triaków BTA41-600 a one załączają napięcie na pierwotne uzwojenia traf. Podczas projektowania podłączałem trafa ale na zmianę teraz gdy mam gotowy układ załączenie pierwszego powoduje załączenie drugiego. W...
Taki napisałem program, przetestowany. Jak dla mnie to działa dobrze. Może jakieś poprawki, sugestie? [syntax=basic4gl] $regfile = "attiny13.dat" $crystal = 1000000 Config Portb.2 = Input Portb.2 = 1 Config Portb.1 = Output Portb.1 = 0 Do If Pinb.2 = 0 Then Waitms 100 Toggle Portb.1 Waitms 500 End If Loop End[/code] [/syntax] Chciałbym zrobić płytkę...
Witam serdecznie, dopiero zaczynam na poważnie przygodę z mikro kontrolerami.Piszę na Atmegę 32 w BASCOM AVR.Chciałem napisać prosty programik będący timerem opartym o diody led.Zasada programu miała się opierać na następnym działaniu:zapal wszystkie diody,poczekaj pewien czas,gaś kolejno diody.W efekcie migają mi wszystkie diody i chodzi na kolejną...
Witam Wszystkich Pisze kod do zegarka binarnego (zaczynam) jestem na etapie sekund. Licznik działa ale nie włącza poszczególnych diod led. Sterowanie diod jest za pomocą multipleksowania. Skupiłem się na razie tylko na wyświetlaniu sekund jak to ruszy to reszta pójdzie łatwo. Procesor attiny 2313 kwarc 20MHz Bascom. [syntax=basic4gl] $regfile = "attiny2313.dat"...
Gdy zamieniałem A = Getadc(0) na A = Getadc(1) lub A = Getadc(2) i odpowiednio miałem podłączone potencjometry układ działał z wybranym potencjometrem. Gdy wyrzuciłem z programu właśnie ten zapis A = Getadc(0) nie było żadnej reakcji. Jak w takim razie, gdy nie ma powyższego zapisu wybierałoby się odpowiedni kanał z ADC? Dodano po 1 Dzięki "emarcus",...
proszę o sprawdzenie kodu bo ja już mam dość program ma zapalać i gasić diodę jak w 1 procesorze będzie odpowiednia zmienna wysłana Nadajnik podłączony pod TXD Atmegi odbiornik pod RXD Atmegi Do podbijania tematu służy opcja podbij - posty scalam. Proszę o pomoc potrzebuję tylko przykładu który sam będę mógł sobie przerobić pobawić się :) Może to być...
A może wyłumaczyć mi ktoś tak jaśniej niż whelpie bascoma ;) co to jest ten prescaler i co on dzieli. Może tak po kolei jak twój program widnieje: 1. Jeżeli PORTB jest przeznaczony do obsługi LCD to nie konfiguruj go w ogóle w stylu jaki podałeś w pierwszym poście. Config Portb = &B11111111 : Portb = &B11111111 ===> źle!!! Może to powodowac zakłócenia...
Witam. Mam tu taki program na Attiny 13 [syntax=basic4gl]$regfile = "attiny13.dat" $crystal = 8000000 $hwstack = 8 $swstack = 8 $framesize = 8 config pinb.4 = input portb.4 = 1 ' Podwieszenie portu sterujacego klawisz alias pinb.4 ' Nazwa portu sterujacego 'Config Pinb.0 = Output Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale =...
Witam U mnie "odkomentowanie" tych trzech linii powoduje tylko to, że dioda SD-active miga cyklicznie co 1 sekundę - tzn przerywa świecenie co 1 sekundę, więc właściwie cały czas jest aktywna. Natomiast włożenie karty SD powoduje, że SD-active miga bardzo szybko. dołączam schemat http://obrazki.elektroda.pl/3766458800_1... natomiast...
[syntax=basic4gl] $regfile = "m8adef.dat" $crystal = 1000000 Config Portb = Output : Set Portb Config Pinb.0 = Input : Set Portb.0 Config Portd = Output : Set Portd Config Pind.0 = Input : Set Portd.0 Config Pind.2 = Input : Set Portd.2 Do If Pind.2 = 0 Then 'jesli przycisk sciagnie Pind.2 do GND to Waitms 20 'poczekaj 20ms (eliminacja drgan stykow)...
Bardzo dziękuje za podpowiedź, choć nie rozwiązała ona problemu. Póki co porzuciłem ten projekt na rzecz trudnierjszego rozwiązania, bo dążę do opanowania obsługi przerwań w Bascom. A teraz w kilku słowach o tym, co chcę osiągnąć. 4 switche podłączone do portu mają powodować wyświetlanie stanów logicznych na 4 cyfrowym LED tzn. naciskam klawisz1 - zmieniam...
syntax basic4gl syntax basic4gl syntax syntax basic4gl syntax syntax zobacz
ekspres bosch wyczyść zaparzacz budowa kolumna mildton peugeot akumulatora
dobry serwis streeming dobry serwis streeming
Sencor SSS 3200 Kids – ile baterii LED ma głośnik, pojemność akumulatora, zasilanie Toyota RAV4 III 2008 3.5L - Typ skrzyni automatycznej U660E
