Mirley - Elektronika i Programowanie

Projekt ciekawy, powiedz tylko czy przy średnio nasłonecznionym pomieszczeniu da się zrobić pomiar ew. na dworze? Czy taka dioda wystarcza? Rozumiem że kalibracja polega na wprowadzeniu tych stałych?Bo nie napisałeś wyraźnie jak należy go skalibrować.Jak byś dał radę pokaż jakiś film z przykładowym pomiarem.
Ciekawi mnie to i bym sobie z chęcią wykonał.
pozdrawiam.

Da się zrobić pomiar, w dzień.... testowałem na swoim biurku w dzień. Filmiku nie pokażę bo już nie mam układu przy sobie. Pomiar polega na ustawieniu nieruchomego obrazu znaku szczególnego na obracającej się osi silnika, lub innym wirującym elemencie. Na wyświetlaczu będzie wtedy można odczytać wartość prędkości obrotowej.

kalibracja została wykonana przeze mnie i wydaje mi się że powinna być dobra dla innym mikrokontrolerów Mega8, wkońcu to układ cyfrowy i powinien się zachowywać tak samo. Przedstawiłem metodę kalibracji żeby było jasne jak to jest wyznaczone. Jedyne co można sprawdzić to czy częstotliwość dla kilku wybranych prędkości zgadza się z teorią (wskazaniem na wyświetlaczu, wskazanie/60 daje częstotliwość). Trzeba mieć do tego dobry miernik bo przebieg wyjściowy ma wypełnienie 1/32

czy da rade przerobić program aby liczył obroty w motocyklu??

jak liczył obroty w motocyklu? jadącego motoru?

ja myślałem żeby podpiąć się pod przerywacz zapłonu i liczyć impulsy

To całkiem inna metoda pomiaru. To jest układ w którym kierujesz światło z diody na ruchomą wirującą część sprawdzasz kiedy wizualnie obiekt przestanie wirować następnie odczytujesz wynik z wyświetlacza co masz napisane w opisie.Nie nadaje się do pomiaru obrotów w motocyklu.

A ja bym poprosił jeszcze króciutko o przyciskach jeżeli można.

Impulsatorem ustawiasz obroty +/-1 obrót, jak trzymiesz do tego przycisk 0,1x to kręcisz co 0.1 obrotu. Jak trzymasz przycisk x100 to imulsator zwiększa stan obrotów co właśnie tyle. Przyciski x2 i /2 mnożą i dziela wskazane obroty przez 2

czy impulsator musi być z przyciskiem? tam gdzie zawsze wszystko zamawiam w TME jest tylko bez przycisku.

ED16112O Enkoder do PCB, pionowy, plastikowa ośka
Typ czujnika enkodery mechaniczne
Właściwości wyjście z 2 bitowym kodem Graya, ośka 6 mm
Temperatura pracy -20...70°C
Rozdzielczość 24 imp/obrót
Prąd pracy maks. 500 ?A
Napięcie pracy maks. 50 V AC
Wymiary zewnętrzne 6,5 x 17,6 x 16 mm

Impulsator nie musi być z przyciskiem, gdyż nie jest on wykorzystywany w projekcie

Swietny obrotomierz działa bez problemu po niedzieli potestują go w pracy na u silnikowców i pokażę
jak działa w praktyce.

Witam

Jestem kompletnym amatorem jeśli chodzi o takie rzeczy, dlatego pytam czy da się tym urządzeniem zmierzyć obroty wiatraczka kompuerowego?

Jest to wkońcu obracająca się część :D

Jeśli się da to jak? zaznaczyć np. na biało jedną z krawędzi łopatki wiatraczka ? Co oznacza że przed wykonaniem pomiaru trzeba zatrzymać dany obiekt ?

mam nadzieję że wyraziłem się w miarę jasno

W przypadku wiatraczka nawet nie będziesz musiał nic znaczyć, bo prawdopodobnie zobaczysz stojące łopaty wirnika jak dostroisz częstotliwość. Ogólnie jest to do pomiaru silników w różnego typu maszynach ale wentylator też zmierzysz

W tym układzie rolą "czujnika" jest oko ludzkie jeśli dobrze rozumiem?

Jak bardzo jest taki pomiar precyzyjny ? Nie dałoby się tego przerobić i dołożyć jakiś fotodetektor ? Który by wspomógł człowieka?

Czujnikiem można powiedzieć że jest ludzkie oko... niczym tego dokładniej nie zmierzysz wykorzystując ta metodę. Nie bardzo mam pomysł jak chciałbyś wykryć czy obraz się porusza czy nie za pomocą fotodetektora, ta właściwość wynika z bezwładności ludzkiego oka.

Mam problem z wsadem otóż jak go skopiuje do Bascom'a i jak dam kompilację to wyskakują mi dwa błędy.Czym to może być spowodowane??Za informacje wielkie dzięki Pozdrawiam

a jakie te błędy Ci wyskakują?

Witam Już mam po problemie bo zablokował mi się uC i muszę kupić nowy hehe przez moją nie uwagę i przypadek dałem zły oscylator w Fuse Bita-ch muszę teraz kupić nowy ,bo ten nie nawiązuje komunikacji.A błędy miałem gdy skopiowałem wsad i zrobiłem kompilację.;pozdrawiam

jeśli chodzi o błędy to trzeba było trochę dokładniej, a jeśli chodzi o złe fusy to nie musisz kupować nowego procka. na jakimś innym napisz program:

config portb = output
 
set portb
 
do
toggle portb
loop
end

tylko nim zaprogramujesz inny procek powiedz jaki będziesz programował, to Ci podpowiemy jakie ustawić fusy. ja korzystam z bascoma więc tylko na tej platwormie mogę Ci pomóc.

Chodzi mo to że jak skompiluje wsad do bascoma to wyrzuca 2 błędy że plik jest za duży że wynosi 4096bytes i nie wiem co z tym zrobić.A procka jutro spróbuje wskrzesić jak się nie uda to bee musiał kupić.Do wskrzeszenia myślę użyć uC 89C51.Dzięki za pomoc tylko co z tym wsadem zrobić.pozdrawiam

spróbuj w bascomie zaznaczyć opcję OPTIMIZE CODE.

Witam panowie i mam tylko jedno pytanie odnośnie kompilacji a mianowicie czemu mu za każdym razem wyskakuje 2błędy że plik jest za duży.Opiszę jak robię kompilacje a więc otwieram Bascom'a i w nim otwieram plik z wsadem i kompiluje i lipa.Mam prośbę jak ktoś by mi mógł pomóc z tym to był bym bardzo wdzięczny,albo jak ktoś by mi mógł przesłać plik bin tego wsadu.Dzięki za wszelką pomoc
Pozdrawiam

co kolega opowiada? ja przed chwilą skompilowałem i jest gites. 0 błędów. a pamięci jeszcze masa została bo wykorzystane tylko 53%. zaznacz OPTIMIZE CODE.

Ale naprawdę ja tak mam i nie wiem co zrobić Jka byś mógł mi wysłać format bin był bym bardzo wdzięczny a i gdzie się wyłącza Jtag w Duse Bita-ch.Dzięki za pomoc
pozdrawiam

Miernik strobo.BIN - zip

Dzięki wielkie Ale nie wiem czemu u mnie się tak dzieje ściągam jeszcze raz Bascom'a demo do Avr jutro muszę po walczyć z tymi Fuse Bit'ami.Mam jeszcze do Ciebie czy może masz gdzieś screen jak mają być ustawione w Bascom-ie??Lub jak możesz mi wytłumaczyć jakie mają mieć wartości i gdzie się wyłącza tego JTAG-a.Naprawdę jeszcze raz dzięki Pozdrawiam

http://img709.imageshack.us/i/bdbascom.png/ tutaj jest to o mi się pokazuje po kompilacji nie wiem czemu.

ustaw taktowanie na 16MHz na zewnętrzny kwarc. co do JTAG'a to nie mam pojęcia. nigdy tego nie ustawiałem.

I dalej to samo nie mam pojęcia czym to może być spowodowane.Jak by ktoś miał jakiś pomysł to proszę o poradę.Dziękuje za pomoc
Pozdrawiam

W bascomie AVR DEMO nie skompilujesz tego programu bo bascom demo ma ograniczenie do 4kB kodu a skompilowany program ma więcej niż 4kB. Potrzebna jest pełna wersja bascoma.

Taktowanie ma być ustawione na zewnętrzny kwarc (External crystal [CKSEL=1111]) a SUT ma być na 11. Interfejs JTAG ma być bezwzględnie wyłączony (disable) bo wyswietlacz LCD nie będzie działał. JTAG wykorzystuje piny na których aktualnie tutaj jest LCD

witaj oglądałem twoje projekty całkiem niezłe :]
pytanko do ciebie jakim programatorem wgrywasz programy do scalakow

Używam USBASPA, tego opisanego na swojej stronie

Czy ktoś testował to urządzene, ja zauważyłem że przy odczycie obrotów np jest 2000 i wygląda że obraz jest nieruchomy podobny efekt jest przy 4000 tyś i 1000.Tak jakby pomnożyć i podzielić rzeczywiste obroty i conajmniej dwa wyniki są łudząco podobne i nie znając rzeczywistych obrotów trudno jest zdecydować się który zatrzymany obraz jest prawdziwy dla prawidłowych obrotów.
I badzo trudno było mi przekonać kolegów ,że odczyt jest prawidłowy.

Witam. Mam pytanie .Rozmyślam nad budową symulatora czujnika położenia wału korbowego w samochodzie. Czujnik tak podczas kręcenia się wału wytwarza przebieg sinusoidy ( może byś prostokątny) z tym że :powiedzmy na 60 impulsów ,2 impulsy koło siebie są "puste"- czyli powiedzmy 58 impulsów prostokątnych i przerwa 2 impulsów po czym kolejne powtórzenie . chodzi mi o sposób realizacji tego "przerwania". Twój projekt wytwarza regulowana częstotliwość wyjścia na diodę LED . Myślałem nad podłączeniem do tego wyjścia bramki 4011 -czyli jedna noga na to wyjście a druga na wyjście które co 58 impulsów będzie blokować bramkę na czas 2 impulsów.Czy mógłbyś przedstawić modyfikacje kodu dla takiego :przerwania". Wiem że pytanie może nie w tym temacie ale nie ukrywam że szukałem informacji na temat jakiegoś kodu generatora i trafiłem na Twoją stronę.

Pozdrawiam

Nie trzeba tu żadnych bramek logicznych ja bym poprostu w programie zbramkował sygnał idący na diodę. Zmień procedurę obsługi timera aby wyglądała tak:

Prztimer1:
  Timer1 = D                                                'max 65535
  Incr Div
  If Div >= Div_licz Then 
    Div = 0
    incr impuls
    if impuls >= 60 then impuls = 0
    if impuls < 58 then Led_en = 1 else Led_en = 0
  end if
  If Div < Div_pulse Then Led = Led_en Else Led = 0
Return
'********

W zmiennych zadeklaruj jeszcze zmienna impuls jako byte, oraz Led_en jako bit

Oki program działa tak jak powinien ale impulsy są nie proporcjonalne (szpilki). Co zrobić by sygnał generowany miał przebieg prostokąta 50%/50%.??

Miały być szpilki bo to stroboskop wkońcu...... Zmień parametry w procedurze przelicz:

...
 Przelicz:
   If Obr >= 4800 Then
     Div_licz = 32        
     Div_pulse = 16             'zmienic z 1 na 16
     'wynika z parametryzacji po dokonaniu pomiarów
     T = 0.000000258 * Obr                                  ' hi
     T = T * Obr
     T2 = 0.995658 * Obr
     T = T + T2
     T = T + 85.3782
     T = 300000000 / T
   Else
     Div_licz = 256
     Div_pulse = 128           'zmienić z 8 na 128
....

Chodzi o zmianę w dwóch linijkach gdzie jest Div_pulse, zamiast 1 i 8 powinno być 16 i 128

Witam !
Napisałem sobie menu na wyświetlacz i zastosowałem dekoder obrotu z przyciskiem tyle że mi to nie chce działać. Wzorowałem się na Twoim programie. Co powinienem zrobić / dopisać by mi to chodziło sensownie?

$regfile = "m32def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Dim A As Byte
Config Portc = &B00000000 : Portc = &B11111111
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Temp As Word
Dim Celsius As String * 5
Dim C As Single
Dim K As Single , H1 As Single , H2 As Single
Dim F As Byte
Dim Rezul As Bit
Dim Nr_menu As Byte , Klucz As Bit
Dim Nr_menu1 As Byte , Klucz1 As Bit
Dim Pk As Byte
Dim Wynik As Integer
Dim Temperatura_badana As Single
Dim Dystans As Word
 Dim In1 As Bit , In2 As Bit
 Dim Tryb As Byte
 Dim Rezultat As Integer
I1 Alias Pinc.1                                             'dekoder w gore
I2 Alias Pinc.2                                             'dekoder w dol
 
Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
 
Declare Sub Przyciskc5
Declare Sub Gora_dol
Cls
Start Adc
K = 20
H1 = 10
H2 = 10
Nr_menu = 0
 
 
 Do                                                         'glowna petla
Cls
   Lcd Lookupstr(nr_menu , D_menu)
   On Nr_menu Gosub Menu1 , Menu1_h , Menu2_h , Menu3
 
   Set Klucz
   While Klucz = 1
 
 
 
      Debounce Pinc.0 , 0 , Zmiana , Sub
 
   Wend
Loop
Zmiana:
   Incr Nr_menu
   If Nr_menu = 4 Then Nr_menu = 0
   Reset Klucz
Return
 
 
 
 
Menu1:
Do
Gosub Gora_dol                                              ' ustawiamy temperature
Select Case Rezul
Case 0 : Incr K
Case 1 : Decr K
End Select
Locate 2 , 2
Lcd K
Loop Until Pinc.0 = 0
Return
 
 
Menu3:                                                      ' mierzymy temperature
Pk = 0
Do
Temp = Getadc(0)
C = Temp / 4.166
Celsius = Fusing(c , "###.#")
Lowerline
Locate 2 , 4
Lcd Celsius
Locate 2 , 10
Lcd Chr(0)
Locate 2 , 11
Lcd "C"
Debounce Pinc.0 , 0 , Przyciskc5 , Sub
 
Loop Until Pk = 1
Return
 
 
Menu1_h:                                                    'ustawiamy gorna temperature
Do
Gosub Gora_dol
Select Case Rezul
Case 0 : Incr H1
Case 1 : Decr H1
End Select
Locate 2 , 2
Lcd H1
Loop Until Pinc.0 = 0
Return
 
 
 Menu2_h:                                                   'ustawiamy dolna temperature
Do
Gosub Gora_dol
Select Case Rezul
Case 0 : Incr H2
Case 1 : Decr H2
End Select
Locate 2 , 2
Lcd H2
Loop Until Pinc.0 = 0
Return
 
Przyciskc5:                                                 'aby wyjsc z pomiaru do menu
Pk = 1
Return
 
Sub Gora_dol:                                               'obsluga dekodera obrotu
 
In1 = I1
In2 = I2
 Rezultat = 0
 Select Case Tryb
  Case 0:
   If In1 = 1 And In2 = 1 Then Incr Tryb                    'jezeli dwa rozwarte
  Case 1:
   If In1 = 1 And In2 = 0 Then Tryb = 2
   If In1 = 0 And In2 = 1 Then Tryb = 3
  Case 2:
   If In1 = 0 And In2 = 1 Then
     Rezultat = 1
     Tryb = 0
   End If
  Case 3:
   If In1 = 1 And In2 = 0 Then
     Rezultat = -1
     Tryb = 0
   End If
 End Select
 
If Rezultat <> 0 Then
   Rezul = 0
 
   If Rezultat = 1 Then
      Rezul = 1
   End If
   End If
 
   End Sub Gora_dol
 
D_menu:
Data " Temperatura  T " , " Granica Gorna " , " Granica Dolna" , "  Pomiar Temp."

Dzięki za odpowiedź.

Tak to nie będzie działać.... w programie masz pełno poleceń, które wstrzymują działanie programu a tak nie może być. W do loop musi cały czas być odświerzana procedura impulsatora jak chcesz aby on działał. Reszta programu musi być taktowana timerem i wykonywana w do loop wtedy kiedy flaga się ustawi.

Zadeklaruj timer tak samo jak ja mam w programie, wrzuć do do loop obsługę impulsatora i co 1s w do loop wyświetlaj na LCD wartość zmiennej rezultat

No ale jakby zastosować w pętli Do-Loop dla H1 H2 i K by odczytywał poprzez Timer to by chyba się udało ? Bez Timer-a to jedynie na mikrostykach jak w temacie na elektrodzie . To menu mi wyszło jak chciałem. Nie za bardzo mi się uśmiecha myśleć nad nowym Menu. Może by się i dało ale i tak masę czasu spędzam przy lutownicy i kompie. Pozdrawiam.

Skoro musi być stale odczytywany w pętli do-loop to jedynie wstawienie tej części Twojego programu odpowiadającej za odczyt w KAŻDE podmenu (Menu1_h , Menu2_h i Menu1) może być sensowne. Bo te pętle się "obracają" dopóki nie nacisnę klawisza PinC.0 . Dobrze rozumuję? Zapewne i Start Timer też musi być (jak i Stop Timer) w takiej pętli. Dobrą drogą idę?

Według mnie idziesz złą drogą..... po co ci te pętle do loop until.... wstrzymuje to cały program. Napisałem już dużo programów ale takich konstrukcji nie potrzebowałem. Timer ma działac cały czas jeśli zajmuje się taktowaniem programu. Powinna być jedna pętla Do loop główna i tyle. Bezpośrednio w niej sprawdzany jest enkoder a co jakiś czas wykonywane są inne rzeczy np co 4ms obsługa pozostałych klawiszy,a co 100ms np wyświetlanie itd. Zanim zaczniesz pisac to od nowa to poczytaj moje programy do różnych układów. Spróbuj zrozumieć o co chodzi

Witam, na wstępie zdradzę ze jest to mój pierwszy uklad ktory udalo mi sie zlozyc i dzialal super. Musiałem się widocznie nieumiejętnie z nim obchodzić, bo teraaz mam taki objaw.

Chciałbym zapytać ,co może byc powodem iż pomimo widocznej reakcji na ruch potencjometra oraz przełączników /2 lub x2 (dioda miga i zwiększa / zminiejsza częstotliwosc świecenia) to na całej długości wyświetlacza widnieją "kwadraty" (tak jakby kontrolnie zaświeciły się wszystkie pola wyświetlacza).

Czy to może oznaczać ,że konieczne jest ponowne zaprogramowanie mikroporcesora ?
Jak to zrobić ?

Za odpowiedź oraz wszzelkie wskazówki z góry dziękuję.
Pozdrawiam

Jeśli litery/napisy są też na tle kwadratów wyreguluj kontrast.

Nie, niestety ani litery ani cyfry nie są wyświetlane.

Popatrz dokłądnie na płytkę, i poszukaj zwarć bądź przerw w liniach sterowanie wyswietlaczem. Czy napewno RW wyświetlacza jest podłączony do masy?

Witaj. Bardzo fajny projekt.
Czy jest jakiś sposób na wyłączanie urządzenia, czy tylko odłączenie baterii?
Po co jest to wycięcie w pcb?
Pozdrawiam

Po małej przeróbce kodu mógłbyś przełaczać go do trybu POWERDOWN. Potrzebujesz jednak wolne wejście zewnętrznego przerwania INT0 albo INT1 bo tylko to może go wybudzić albo WatchDog.
Napisałem taki gotowiec TUTAJ Włącza coś, albo wyłącza jednym przyciskiem.

Wycięcie umożliwia skręcenie obudowy :)