Beiträge von Killerawft

$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600




Config Portd.5 = Output


'Für RS232 Empfang
Enable Urxc						'Interrupt, der auslößt, sobald etwas empfangen wird
On Urxc Onrxd 						'Wird der Interrupt Urxc ausgelößt springt er zum Label Onrxd						


Dim Empfangen As byte
dim s as string *255


Do




Print "hallo"


   


	Print "gehts noch???"




 	Select Case Empfangen


     	Case "0"
        	Portd.5 = 0
        	Print "Led aus"


     	Case "1"
        	Portd.5 = 1
        	Print "led ein"


 	End Select


	Wait 2


Loop






'Label vom Interrupt
Onrxd:


 S = S + Chr(udr)
    If Len(s) = 3 Then                                      'Die länge (Hier 3) immer einen höher als die anzahl der zeichen die man empfangen möchte, wegen dem CR-LF hinten dran


      S = Left(s , 2 )                                      'Erstes Zeichen abschneiden. Hier die tatsächliche Länge vom Empfangenen
      Empfangen = Val(s)                                  'Inhalt von dem String S in die Byte Variable Empfangen schreiben
      S = ""						'String für die nächsten Zeichen leeren.
    End If


Return






End

$regfile = "m32DEF.dat"                                     'es handelt sich um einen ATmega32
$crystal = 16000000                                         'der eingebauter RC-Oszillator läuft mit 1 Mhz
$hwstack = 32                                               'im Speicher werden für den Hardware-Stack 32 Byte reserviert
$swstack = 32                                               'im Speicher werden für den Software-Stack 32 Byte reserviert
$framesize = 40                                             'im Speicher werden für den Frame 40 Byte reserviert
$lib "i2c_twi.lbx"                                          'Lib umd Hardware I2C zu benutzen




'LCD Konfigurieren
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.0 , Db7 = Portb.1 , E = Portb.4 , Rs = Portd.7       'Ports bestimmen
Config Lcd = 16 * 4                                         'LCD Maße
Initlcd                                                     'LCD Initialisieren
Cls                                                         'Bildschirm löschen
Cursor Off                                                  'Cursor nicht anzeigen


'I2C Konfigurieren
Config Twi = 400000                                         ' TWI Takt
Const Rtcw = &HA0                                           'Slaveadresse zum schreiben
Const Rtcr = &HA1                                           'Slaveadresse zum lesen


'Eingänge Konfigurieren
Config Pind.6 = Input                                       'Blau
Config Pind.5 = Input                                       'Grün
Config Pind.4 = Input                                       'Rot


Config Pind.3 = Input
Config Pind.2 = Input


'Eingänge Benennen
Blau Alias Pind.6
Gruen Alias Pind.5
Rot Alias Pind.4






'Variablen


'Um sie auf dem LCD anzuzeigen in HEX
Dim Sekundelcd As Byte
Dim Minutelcd As Byte
Dim Stundelcd As Byte
Dim Taglcd As Byte
Dim Monatlcd As Byte
Dim Jahrlcd As Byte
Dim Wochentaglcd As Byte


'Werte kommen vom RTC werden aber nicht in HEX umgewandelt und nicht auf dem LCD angezeigt. Sind zur weiteren Verarbeitung gedacht.
Dim Sekundeakt As Byte
Dim Minuteakt As Byte
Dim Stundeakt As Byte
Dim Tagakt As Byte
Dim Monatakt As Byte
Dim Jahrakt As Byte
Dim Wochentagakt As Byte


'Variable, die an den RTC gesendet wird, um die Zeit zu stellen.
Dim Sendtime As Byte


Dim Tm(7) As Byte
Dim I As Byte
Dim Temp As Byte                                            'Temporäre Variable zum kurzen Zwischenspeichern


'Sub Funktionen
Declare Sub Gettime()
Declare Sub Settime(byval Register As Byte , Byval Wert As Byte)


'*********************** Hauptprogramm *********************
Do


If Rot = 1 Then
Sendtime = Minuteakt
Incr Sendtime
 If Sendtime > 59 Then Sendtime = 0
Call Settime(3 , Sendtime )                                 'Geänderte Zeit senden
End If


If Blau = 1 Then
Sendtime = Stundeakt
Incr Sendtime
 If Sendtime > 23 Then Sendtime = 0
Call Settime(4 , Sendtime )                                 'Geänderte Zeit senden
End If


If Gruen = 1 Then
Sendtime = Tagakt
Incr Sendtime
Call Settime(6 , Sendtime )                                 'Geänderte Zeit senden
End If


Call Gettime()                                              'Zeit empfangen


Locate 1 , 1
Lcd "Zeit: " ; Hex(stundelcd) ; ":" ; Hex(minutelcd) ; ":" ; Hex(sekundelcd)


Locate 2 , 1
Lcd "Datum: " ; Hex(taglcd) ; "." ; Hex(monatlcd) ; "." ; Hex(jahrlcd)


Locate 3 , 1
Lcd "Wochentag: " ; Hex(wochentaglcd)


Waitms 100


Loop


'******************** SUB's ************************
Sub Gettime()


'Daten vom RTC Empfangen für HEX Variablen
    I2cstart                                                'generate start
    I2cwbyte &HA0                                           'write addres
    I2cwbyte 2                                              'select second register
    I2cstart                                                'generate repeated start
    I2cwbyte &HA1                                           'write address for reading
    I2crbyte Sekundelcd , Ack                               'read seconds
    I2crbyte Minutelcd , Ack                                'read minuts
    I2crbyte Stundelcd , Ack                                'read hours
    I2crbyte Jahrlcd , Ack                                  'read year
    I2crbyte Taglcd , Ack                                   'read day
    I2crbyte Wochentaglcd , Ack                             'read weekday
    I2crbyte Monatlcd , Nack                                'read month
    I2cstop                                                 'generate stop


'Daten vom RTC Empfangen für weiterzuverarbeitende Variablen
    I2cstart                                                'generate start
    I2cwbyte &HA0                                           'write addres
    I2cwbyte 2                                              'select second register
    I2cstart                                                'generate repeated start
    I2cwbyte &HA1                                           'write address for reading
    I2crbyte Sekundeakt , Ack                                  'read seconds
    I2crbyte Minuteakt , Ack                                   'read minuts
    I2crbyte Stundeakt , Ack                                   'read hours
    I2crbyte Jahrakt , Ack                                     'read year
    I2crbyte Tagakt , Ack                                      'read day
    I2crbyte Wochentagakt , Ack                                'read weekday
    I2crbyte Monatakt , Nack                                   'read month
    I2cstop




End Sub


Sub Settime(byval Register As Byte , Byval Wert As Byte)


Temp = Makebcd(wert)
I2cstart
I2cwbyte &HA0                                               ' PCF 8583 Adresse schreiben
I2cwbyte Register                                           ' Register ausgewählt
I2cwbyte Temp                                               'Hier kommt der Wert hin der in das Register geschrieben werden soll
I2cstop


Waitms 100
End Sub