f
Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/sessions.php on line 548

Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/sessions.php on line 549

Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/page_header.php on line 343
And-Tech :: Szukaj

Strona korzysta z plików cookie w celu realizacji usług zgodnie z Politykš prywatnoœci.

Możesz okreœlić warunki przechowywania lub dostępu do cookie w Twojej przeglšdarce lub konfiguracji usługi.

And-Tech Strona Główna And-Tech
Forum firmy And-Tech

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  AlbumAlbum  DownloadDownload
Znalezionych wyników: 71
And-Tech Strona Główna
Autor Wiadomość
  Temat: AND-Graph132
morock

Odpowiedzi: 23
Wyświetleń: 27811

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Sro Lut 23, 2011 9:18 am   Temat: AND-Graph132
dzięki za tak szybką odpowiedz, tutaj jest to ładnie opisane :)

próbowałem już różnych konfiguracji, wiem jak odwrócić obraz aby złącze było na dole lub u góry, jednak gdy chce aby było na boku, wtedy dzieją się cuda :P Na filmie ładnie tekst i grafika jest ułożona bokiem do wyświetlacza, zastanawiam się czy to po prostu nie są wgrane obrazki...

Glcdcmd &H36 'Rejestr ustawień
Glcddata &B01001000 <- złącze na górze
Glcddata &B10001000 <- złącze na dole

przeglądając fora utwierdzam się że jest to możliwe jedynie software-owo :(
  Temat: AND-Graph132
morock

Odpowiedzi: 23
Wyświetleń: 27811

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Wto Lut 22, 2011 3:08 pm   Temat: AND-Graph132
Czy jest możliwość programowego odwrócenia ekranu?? Interesuje mnie pozycja gdy złącze mam z prawej strony...
  Temat: EvB4.3 + 2 LCD 4x20 Bascom
morock

Odpowiedzi: 4
Wyświetleń: 7633

PostForum: Nauka programowania   Wysłany: Wto Lip 27, 2010 3:50 pm   Temat: EvB4.3 + 2 LCD 4x20 Bascom
wyświetlacze mają linię en - wydaje mi się że to jest enable czyli wystarczy przed instrukcją lcd dać tą linie w wyświetlaczu którym chcemy coś napisać stan bodajże niski i będzie git ;)
  Temat: Nowy serwis dla zestawu EvB 4.X
morock

Odpowiedzi: 4
Wyświetleń: 10282

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Pią Lip 16, 2010 4:36 pm   Temat: Nowy serwis dla zestawu EvB 4.X
niestety ja już dość dawno kupiłem EVB 4,3 i nie mam kodu naklejonego na odwrocie :/
  Temat: Diody let w zestawie evb4.3
morock

Odpowiedzi: 8
Wyświetleń: 10951

PostForum: Nauka programowania   Wysłany: Wto Maj 11, 2010 7:29 am   Temat: Diody let w zestawie evb4.3
Aha a masz ustawione "Config Portc = Output"

Jeśli to nie pomoże to sprawdz czy masz podłączone obie nóżki atmegi do masy. Nie wiem, już gdybam bo nigdy z czymś takim problemu nie miałem...
  Temat: Diody let w zestawie evb4.3
morock

Odpowiedzi: 8
Wyświetleń: 10951

PostForum: Nauka programowania   Wysłany: Pon Maj 10, 2010 3:08 pm   Temat: Diody let w zestawie evb4.3
a spróbuj zamiast tej komendy użyć komendy pinC.7 =1 lub set portc.7
dla masy są to komendy pinC.7 =0 lub reset portc.7
  Temat: Diody let w zestawie evb4.3
morock

Odpowiedzi: 8
Wyświetleń: 10951

PostForum: Nauka programowania   Wysłany: Sro Maj 05, 2010 8:28 am   Temat: Diody let w zestawie evb4.3
jeśli ustawisz stan niski, czyli podasz mase na diodę to się zaświeci, w programie komenda np.
reset portB.0 lub zgasić set portB.0
lub inaczej
portB.0=0 i portB.0=1

komendy dla BASCOMA
  Temat: Przychodzi mi spam na skrzynkę z prywatnymi wiadomościami
morock

Odpowiedzi: 2
Wyświetleń: 5737

PostForum: Propozycje   Wysłany: Czw Kwi 22, 2010 6:52 pm   Temat: Przychodzi mi spam na skrzynkę z prywatnymi wiadomościami
ja nie dostaje w ogóle takich wiadomości ale faktycznie przydałby się jakiś dodatkowy moduł, jakieś pytanie lub coś w tym stylu.

prawie codziennie jest coś dodane przez boty :/ walka z wiatrakami....
  Temat: Odczyt potencjometru i zaświecenie diody.
morock

Odpowiedzi: 7
Wyświetleń: 10387

PostForum: Nauka programowania   Wysłany: Pon Kwi 12, 2010 9:53 am   Temat: Odczyt potencjometru i zaświecenie diody.
Co do pamięci procesora to niestety przy każdym zaniku zasilania lub resecie stracisz tą wartość, bardziej sensownym rozwiązaniem jest zapis w eeprom-ie 24C02, jak dobrze pójdzie to jutro się z tym pobawię :) zainstaluj sobie bascom-a i spróbuj troszkę ogarnąć ten język.
  Temat: Odczyt potencjometru i zaświecenie diody.
morock

Odpowiedzi: 7
Wyświetleń: 10387

PostForum: Nauka programowania   Wysłany: Nie Kwi 11, 2010 9:30 pm   Temat: Odczyt potencjometru i zaświecenie diody.
podpinasz potencjometr do któregoś pinu portu A i mierzysz jakie jest na nim napięcie. :wink: W jakim programie chcesz zacząć programowanie??
  Temat: PCF8583 obsługa daty [BASCOM]
morock

Odpowiedzi: 8
Wyświetleń: 18352

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Nie Kwi 11, 2010 8:13 am   Temat: PCF8583 obsługa daty [BASCOM]
hmm myślę że raz na rok i tak będziesz musiał skorygować czas zegarka więc raczej nie jest to problemem. Co do bateryjki to już zrobiłem 4 takie czasówki i nie ma z nimi żadnego problemu. rok się ładnie zapisuje i odczytuje, jutro sprawdzę czy układ zna się na roku przestępnym :)
  Temat: PCF8583 obsługa daty [BASCOM]
morock

Odpowiedzi: 8
Wyświetleń: 18352

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Wto Kwi 06, 2010 7:34 am   Temat: PCF8583 obsługa daty [BASCOM]
Tu jest listing całego programu obsługi zegarka i termometrów,
Ciebie powinny interesować procedury Wysw_czas i wczytaj

Kod:
' Zegar, termometr 2 x 18B20 i woltomierz    11:50:45  27.03 1,2V
' 13:54 data 23.11 OK                        40.2oC 10.7oC 27.5oC    T1 36.4 13:12 23.07
' 12345678901234567890                       12345678901234567890    12345678901234567890
$regfile = "m16def.dat"
$crystal = 16000000

Config Lcdpin = Pin , Rs = Portc.2 , E = Portc.3 , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7       'standard
Config Lcd = 20 * 2

Config Portb.0 = Input : Set Portb.0              ' set
Config Portb.1 = Input : Set Portb.1              ' +
Config Portb.2 = Input : Set Portb.2              ' -
Config Portb.3 = Input : Set Portb.3              ' c
Set Porta.0

Config Sda = Portc.1
Config Scl = Portc.0
I2cinit

Config 1wire = Portd.7
Config Adc = Single , Prescaler = Auto , Reference = Avcc       ' przetwornik A/C

Dim Wart_ac As Word
Dim V As Single
Dim Wart_nap As String * 3


Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim Dsid3(8) As Byte
Dim T(3) As Integer
Dim Ss(3) As String * 6
Dim I As Byte , Temp As Byte
Dim Maxt(3) As Integer
Dim Mint(3) As Integer
Dim Maxd(3) As String * 12
Dim Mind(3) As String * 12
Dim Go As String * 6
Dim Tmp As String * 6

Dim M As Byte                                     'deklaracja zmiennej określającej minuty
Dim S As Byte                                     'deklaracja zmiennej określającej sekundy
Dim H As Byte                                     'deklaracja zmiennej określającej godziny
Dim Day As Byte                                   'deklaracja zmiennej określającej dzień miesiąca
Dim Month As Byte
Dim Rok As Byte
Dim Godz As String * 9
Dim Dzien As String * 6

Deflcdchar 0 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32  ' st
Deflcdchar 2 , 32 , 32 , 14 , 21 , 23 , 17 , 14 , 32       ' clock
Deflcdchar 3 , 4 , 10 , 17 , 27 , 10 , 10 , 14 , 32       ' arrow up
Deflcdchar 4 , 14 , 10 , 10 , 27 , 17 , 10 , 4 , 32       ' arrow down

Dsid1(1) = 1wsearchfirst()                        'musi być wywołana w celu zainicjowania
Dsid2(1) = 1wsearchnext()                         'procedury przeszukiwania magistrali.
Dsid3(1) = 1wsearchnext()                         'Potem, aby odczytać następne numery
                                                  'ID należy użyć funkcji 1WSEARCHNEXT()


Display On
Cursor Off
Cls
For I = 1 To 2
Gosub Kasuj
Next
Petla:
Do
   Gosub Volt
   Gosub Temp
   If Pinb.0 = 0 Then Gosub Wczytaj
   Gosub Wysw_czas
   Gosub Sprawdz
   If Pinb.1 = 0 Then
     I = 1
     Gosub Wyswtemp
     End If
   If Pinb.2 = 0 Then
     I = 3
     Gosub Wyswtemp
     End If
Loop
Return
End

Wysw_czas:
   I2cstart                                       'inicjalizacja magistrali I2C
   I2cwbyte 162                                   'podanie adresu PCF8583 dla zapisu
   I2cwbyte 2                                     'wybranie drugiego rejestru (sekund)
   I2cstart                                       'powtórna inicjalizacja magistrali I2C
   I2cwbyte 163                                   'podanie adresu PCF8583 dla odczytu danych
   I2crbyte S , Ack                               'odczyt sekund z potwierdzeniem transmisji
   I2crbyte M , Ack                               'odczyt minut z potwierdzeniem transmisji
   I2crbyte H , Ack                               'odczyt godzin bez potwierdzania transmisji
   I2crbyte Day , Ack                             'odczyt dni
   I2crbyte Month , Ack                           'odczyt miesięcy
   I2crbyte Rok , Nack                            'odczyt roku
   I2cstop                                        'koniec transmisji I2C'wyślij na ekran terminala:
   Waitms 500
   H = Makedec(h) : M = Makedec(m) : S = Makedec(s) : Day = Makedec(day) : Month = Makedec(month) : Rok = Makedec(rok)
   Locate 1 , 1
   Godz = ""
   If H < 10 Then Godz = " "
   Godz = Godz + Str(h) + ":"
   If M < 10 Then Godz = Godz + "0"
   Godz = Godz + Str(m)
   Go = Godz
   Godz = Godz + ":"
   If S < 10 Then Godz = Godz + "0"
   Godz = Godz + Str(s)
   Lcd Godz
   Dzien = ""
   If Day < 10 Then Dzien = " "
   Dzien = Dzien + Str(day) + "."
   If Month < 10 Then Dzien = Dzien + "0"
   Dzien = Dzien + Str(month)
   Locate 1 , 11
   Lcd Dzien
Return



Temp:
   1wreset
   1wwrite &H55
   1wverify Dsid1(1)
   1wwrite &HBE
   T(1) = 1wread(2)
   1wreset
   1wwrite &H55
   1wverify Dsid2(1)
   1wwrite &HBE
   T(2) = 1wread(2)
   1wreset
   1wwrite &H55
   1wverify Dsid3(1)
   1wwrite &HBE
   T(3) = 1wread(2)
   1wreset
   1wwrite &HCC
   1wwrite &H44
For I = 1 To 2
   T(i) = T(i) * 10
   T(i) = T(i) / 16
   Ss(i) = Str(t(i))
   Ss(i) = Format(ss(i) , "0.0")
   Temp = I * 7
   Temp = Temp - 6
   Locate 2 , Temp
   If T(i) < 100 And T(i) > 0 Then Lcd " "
   Lcd Ss(i) ; Chr(0) ; "C"
Next
Return



Volt:
   Start Adc
   Wart_ac = Getadc(0)
   V = Wart_ac * 0.00495
   Wart_nap = Fusing(v , "##.&" )
   Locate 2 , 14
   Lcd ; Wart_nap ; "V "
Return



Wczytaj:
   Cls
   Locate 1 , 1
   If H < 10 Then Lcd " "
   Lcd H ; ":"
   If M < 10 Then Lcd "0"
   Lcd M
   Lcd " data "
   If Day < 10 Then Lcd " "
   Lcd Day ; "."
   If Month < 10 Then Lcd "0"
   Lcd Month ; "."
   If Rok < 10 Then Lcd "0"
   Lcd Rok
   Locate 2 , 1
   Lcd Chr(3)
   Lcd Chr(3)
   Lcd ":mm      dd.mm.rr"
   Waitms 150
   Do
    If Pinb.1 = 0 Then Incr H
    If H > 23 Then H = 0
    If Pinb.2 = 0 Then
       If H = 0 Then H = 23 Else Decr H
       End If
    If Pinb.3 = 0 Then
    Waitms 150
    Cls
    Gosub Petla
    End If
    Locate 1 , 1
    If H < 10 Then Lcd " "
    Lcd H
    Waitms 150
    Loop Until Pinb.0 = 0

   Locate 2 , 1
   Lcd "gg:mm      dd.mm.rr"

   Do
    Locate 2 , 4
    Lcd Chr(3)
    Lcd Chr(3)
    If Pinb.1 = 0 Then Incr M
    If M > 59 Then M = 0
    If Pinb.2 = 0 Then
        If M = 0 Then M = 59 Else Decr M
        End If
    If Pinb.3 = 0 Then Gosub Wczytaj
    Locate 1 , 4
    If M < 10 Then Lcd "0"
    Lcd M
    Waitms 150
   Loop Until Pinb.0 = 0

   Locate 2 , 1
   Lcd "gg:mm      dd.mm.rr"

   Do
    Locate 2 , 12
    Lcd Chr(3)
    Lcd Chr(3)
    If Pinb.1 = 0 Then Incr Day
    If Day > 31 Then Day = 1
        If Pinb.2 = 0 Then
        If Day = 1 Then Day = 31 Else Decr Day
        End If

    If Pinb.3 = 0 Then Gosub Wczytaj
    Locate 1 , 12
    If Day < 10 Then Lcd " "
    Lcd Day
    Waitms 150
   Loop Until Pinb.0 = 0

   Locate 2 , 1
   Lcd "gg:mm      dd.mm.rr"

   Do
    Locate 2 , 15
    Lcd Chr(3)
    Lcd Chr(3)
    If Pinb.1 = 0 Then Incr Month
    If Month > 12 Then Month = 1
        If Pinb.2 = 0 Then
        If Month = 1 Then Month = 12 Else Decr Month
        End If

    If Pinb.3 = 0 Then Gosub Wczytaj
    Locate 1 , 15
    If Month < 10 Then Lcd "0"
    Lcd Month
    Waitms 150
   Loop Until Pinb.0 = 0

      Locate 2 , 1
   Lcd "gg:mm      dd.mm.rr"

   Do
    Locate 2 , 18
    Lcd Chr(3)
    Lcd Chr(3)
    If Pinb.1 = 0 Then Incr Rok
    If Rok > 99 Then Rok = 0
        If Pinb.2 = 0 Then
        If Rok < 1 Then Rok = 99 Else Decr Rok
        End If
    If Pinb.3 = 0 Then Gosub Wczytaj
    Locate 1 , 18
    If Rok < 10 Then Lcd " "
    Lcd Rok
    Waitms 150
   Loop Until Pinb.0 = 0

   Locate 2 , 1
   Lcd "   OK  zapisuje... "
   Wait 1

   H = Makebcd(h)                                 'konwersja godziny do formatu BCD
   M = Makebcd(m)                                 'konwersja minut do formatu BCD
   S = 0                                          'wyzerowanie sekund
   S = Makebcd(s)                                 'konwersja godziny do formatu BCD
   Day = Makebcd(day)                             'konwersja godziny do formatu BCD
   Month = Makebcd(month)
   Rok = Makebcd(rok)
   I2cstart                                       'inicjalizacja magistrali I2C
   I2cwbyte 162                                   'podanie adresu PCF8583 do zapisu
   I2cwbyte 0                                     'wybranie pierwszego (kontrolnego) rejestru
   I2cwbyte 8                                     'ustawienie zapisu rejestru daty
   I2cstop                                        'koniec transmisji
   I2cstart                                       'inicjalizacja magistrali I2C
   I2cwbyte 162                                   'ustawianie trybu zapisu
   I2cwbyte 2                                     'wybranie drugiego rejestru (sekund)
   I2cwbyte S                                     'zapis sekund
   I2cwbyte M                                     'zapis minut
   I2cwbyte H                                     'zapis godzin
   I2cwbyte Day                                   'zapis dnia
   I2cwbyte Month                                 'zapis miesiąca
   I2cwbyte Rok                                   'zapis roku
   I2cstop
   Cls
   Gosub Petla
Return

Sprawdz:
For I = 1 To 2
 If T(i) > Maxt(i) Then
   Maxt(i) = T(i)
   Maxd(i) = " " + Go + " " + Dzien
 Else
   If T(i) < Mint(i) Then
     Mint(i) = T(i)
     Mind(i) = " " + Go + " " + Dzien
   End If
 End If
Next
Return

Wyswtemp:
   Cls
Do
   Waitms 150
   Locate 1 , 1
   Tmp = Str(maxt(i))
   Tmp = Format(tmp , "0.0")
   Lcd "T" ; I ; " " ; Tmp ; Maxd(i) ; "  "
   Locate 2 , 1
   Tmp = Str(mint(i))
   Tmp = Format(tmp , "0.0")
   Lcd "T" ; I ; " " ; Tmp ; Mind(i) ; "  "
   If Pinb.1 = 0 Then
     If I > 2 Then I = 1 Else Incr I
   End If
   If Pinb.2 = 0 Then
     If I < 2 Then I = 3 Else Decr I
   End If
   If Pinb.3 = 0 Then Gosub Kasuj
Loop Until Pinb.0 = 0
Waitms 150
Cls
Return

Kasuj:
   Maxt(i) = -1000
   Maxd(i) = ""
   Mint(i) = 2000
   Mind(i) = ""
Return
  Temat: Diody let w zestawie evb4.3
morock

Odpowiedzi: 8
Wyświetleń: 10951

PostForum: Nauka programowania   Wysłany: Czw Kwi 01, 2010 9:33 pm   Temat: Diody let w zestawie evb4.3
może być pod każdy, zależy jaki skonfigurujesz :)
  Temat: Problem z programatorem
morock

Odpowiedzi: 9
Wyświetleń: 10702

PostForum: Płytki startowe EvB 4.X EvB 5.X   Wysłany: Pon Mar 29, 2010 5:20 pm   Temat: Problem z programatorem
oj cuda niedziwy :shock: jedynie co zauważyłem z linkow to że masz -P ft0 -B 9600 a mi programuje się jak mam -P ft0 -B 19200

nie wiem co jeszcze mógłbyś sprawdzić...
  Temat: EVB 4.3 problem z uruchomieniem zegarka na timerze [BASCOM]
morock

Odpowiedzi: 3
Wyświetleń: 6418

PostForum: Nauka programowania   Wysłany: Pon Mar 29, 2010 5:16 pm   Temat: EVB 4.3 problem z uruchomieniem zegarka na timerze [BASCOM]
a masz może jakiegoś linka z tutorialu dla Bascoma??
 
Strona 1 z 5
Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group