C-Control Pro

Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Zurück zum Artikel (Blaue Felder sind Pflichtfelder)

Es gelten folgende Anleitung und Regeln: Regeln CC2Net.de-Forum

Name:	UserID:
E-Mail:
Kategorie
Betreff
Homepage:
Link-Titel:
Link-URL:

Cookie für Name, E-Mail, Homepage-URL setzen
(Erspart die Neueingabe bei Beiträgen und Antworten)
(Zum Löschen des Cookies hier klicken)

Ich nutze:

C-Control Pro Mega32
C-Control Pro Mega128
C-Control Pro AVR32

CC-Pro 32 Application Board
CC-Pro 128 Application Board
Pro-Bot128
eigenes Board

Kommentar:
Einfügen von HTML im Kommentar:
Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a>
Bild einfügen: <img src="BILDURL">
Text formatieren: fetter Text kursiver Text unterstrichener Text
Kombinationen sind auch möglich z.B.: fetter & kursiver Text
C Quellcode formatieren: <code>Quellcode</code>
BASIC Quellcode formatieren: <basic>Quellcode</basic>
(Innerhalb eines Quellcodeabschnitts ist kein html möglich.)
Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I
> Hallo ihr Lieben, > > da ich für mein Programm allerlei "Schipsel" aus diesem Forum geklaut habe, möchte > ich natürlich auch meinen Code zum Räubern hier vorstellen; evtl. kann ja jemand was > davon brauchen :-) > Der Vorverstärker hat auf der Front einen Ein-Taster, 4 Taster zum Auswählen der > Quelle, einen Empfänger für die Ferbedienung, ein Motorpoti für die Lautstärke sowie > ein Display. > > Gruß Siggi > > > > > Dim LCD_Text(16) As Char > Dim rc5_data As Word > Dim a As Integer ' Merker Taste > Dim b As Integer ' Merker Mute > Dim Merker_Ein As Integer ' Merker Ein/Aus Zustand > Dim minute, hour As Byte > Dim sec, last_sec As Byte > > Dim DCF_Buffer(59) As Byte 'Buffer für einzelne DCF Bits > Dim DCF_Mode As Byte 'Merker für jeweiligen DCF_Mode > Dim CheckCounter As Byte 'Zähler für DCF Erkennung > Dim BitCounter As Integer 'Zähler für DCF Datenarraybuffer > Dim Firstflag As Byte 'Entscheidungsbit ob eine DCF 1 anliegt > Dim dcf_durchlaufen As Byte 'Merker für Display Reset > Dim DCF_minute As Byte 'DCF Data > Dim DCF_hour As Byte 'DCF Data > Dim freeCount As Integer 'Zähler DCF Parität > > Dim counter As Integer 'Zähler für Cursor-Position > > #define DCF_Port 40 > #define Hell 27 > > > Sub LCD_Reset() > LCD_Init() > LCD_ClearLCD() > LCD_CursorOff() > End Sub > > > > Sub Event_Ein_Aus() > Port_WriteBit (Hell,1) > Port_ToggleBit(20) > If Merker_Ein= 0 Then Merker_Ein= 1 > Else Merker_Ein= 0 > End If > LCD_ClearLCD() > If Merker_Ein= 0 Then > LCD_Text= "Aus..." > Port_Write(PortC,255) > AbsDelay(100) > Port_WriteBit (Hell,0) > Else > LCD_Text= "Ein..." > End If > LCD_Locate(1,1) > LCD_WriteText(LCD_Text) > AbsDelay(1000) > LCD_ClearLCD() > If (a= 19) And Merker_Ein= 1 Then Event_Taste1() > End If > If (a= 17) And Merker_Ein= 1 Then Event_Taste2() > End If > If (a= 16) And Merker_Ein= 1 Then Event_Taste3() > End If > If (a= 18) And Merker_Ein= 1 Then Event_Taste4() > End If > End Sub > > > > Sub Taster_Beginn() > Port_WriteBit (Hell,1) > Port_Write(PortC,239) ' Kein Eingangsrelais, Mute EIN > AbsDelay(400) > LCD_ClearLCD() > End Sub > > > Sub Taster_End() > LCD_Locate(1,1) > LCD_WriteText(LCD_Text) > AbsDelay(400) > Port_ToggleBit(a) ' Auswhl Eingangsrelais > AbsDelay(400) > Port_ToggleBit(23) ' Mute AUS > LCD_ClearLCD() > Port_WriteBit (Hell,0) > End Sub > > > > > Sub Event_Taste1() > Taster_Beginn() > a= 19 > LCD_Text= "DVD <-" > Taster_End() > End Sub > > > Sub Event_Taste2() > Taster_Beginn() > a= 17 > LCD_Text= "Fernseher <-" > Taster_End() > End Sub > > > Sub Event_Taste3() > Taster_Beginn() > a= 16 > LCD_Text= "Aux <-" > Taster_End() > End Sub > > > Sub Event_Taste4() > Taster_Beginn() > a= 18 > LCD_Text= "Quelle_4 <-" > Taster_End() > End Sub > > > Sub Event_Lauter() > Port_WriteBit (Hell,1) > LCD_ClearLCD() > LCD_Text= "Lauter" > LCD_Locate(1,1) > LCD_WriteText(LCD_Text) > Do While (rc5_data= 13328 Or rc5_data= 15376) > Port_ToggleBit(21) > AbsDelay(200) > Port_ToggleBit(21) > AbsDelay(200) > rc5_data = RC5_Read() > End While > AbsDelay(400) > LCD_ClearLCD() > Port_WriteBit (Hell,0) > End Sub > > > Sub Event_Leiser() > Port_WriteBit (Hell,1) > LCD_ClearLCD() > LCD_Text= "Leiser" > LCD_Locate(1,1) > LCD_WriteText(LCD_Text) > Do While (rc5_data= 13728 Or rc5_data= 15776) > Port_ToggleBit(22) > AbsDelay(200) > Port_ToggleBit(22) > AbsDelay(200) > rc5_data = RC5_Read() > End While > AbsDelay(400) > LCD_ClearLCD() > Port_WriteBit (Hell,0) > End Sub > > > Sub Event_Mute() > Port_WriteBit (Hell,1) > Port_ToggleBit(23) > LCD_ClearLCD() > LCD_Text= "Mute..." > LCD_Locate(1,1) > LCD_WriteText(LCD_Text) > AbsDelay(1000) > Do While Port_ReadBit(0)= 1 And b= 1 > rc5_data = RC5_Read() > If rc5_data <> 0 Then > If (rc5_data= 13325 Or rc5_data= 15373) Then b= 0 > End If > If (rc5_data= 13328 Or rc5_data= 15376) Then b= 0 > End If > If (rc5_data= 13728 Or rc5_data= 15776) Then b= 0 > End If > If (rc5_data= 13324 Or rc5_data= 15372) Then b= 0 > End If > End If > AbsDelay(50) > End While > LCD_ClearLCD() > AbsDelay(500) > Port_ToggleBit(23) > b= 1 > Port_WriteBit (Hell,0) > End Sub > > > > > Sub RCF_Routine() 'INT Routine, welche alle 10ms angesprungen wird > Dim irqcnt As Integer > DCF_Start() 'einzelne DCF Routinen aufrufen, welche aber nur > DCF_Puls() 'abhängig vom DCF-Mode ausgeführt werden > DCF_Datastart() > DCF_Collect() > DCF_Calc() > irqcnt = Irq_GetCount(INT_TIM2COMP) 'INT Abarbeitung bestätigen > End Sub > > > Sub DCF_Start() > If DCF_Mode = 0 Then 'wenn DCF inaktiv check auf Uhrzeit > If Clock_GetVal(2) = 4 And Clock_GetVal(1)= 58 Then > DCF_Mode = 1 'Uhrzeit wird um 04:58 gestellt, dann wird DCF_Mode 1 > CheckCounter = 0 > End If > End If > End Sub > > Sub DCF_Puls() 'hier wird auf Vorhandensein eines DCF Signals geprüft > If DCF_Mode = 1 Then > If Port_ReadBit(DCF_Port)= 1 Then > CheckCounter++ 'wenn Signal High Counter erhöhen > Else > CheckCounter = 0 'wenn nicht, Counter zurück setzen > End If > If CheckCounter = 3 Then 'wenn 3 mal (30ms) HIGH Signal > DCF_Mode = 2 'dann wird auf DCF_Mode 2 geschaltet > CheckCounter = 0 'Counter zurücksetzen für andere Routinen > End If > End If > End Sub > > Sub DCF_Datastart() 'hier wird auf die lange Pause im DCF_Signal getriggert > If DCF_Mode = 2 Then ' MODE2 bedeutet: Warten auf 59te Sekunde > If Port_ReadBit(DCF_Port)= 0 Then > CheckCounter++ 'wenn kein Signal (0) dann Counter erhöhen > Else > CheckCounter = 0 'sonst Counter zurück setzen > End If > If CheckCounter > 120 Then > DCF_Mode = 3 'wenn Signal mindestens 1200ms auf Low > CheckCounter = 0 'dann DCF_Mode 3 einschalten und Counter auf 0 > End If > End If > End Sub > > Sub DCF_Collect() > If DCF_Mode = 3 Then > Port_WriteBit(52,Port_ReadBit(DCF_Port ) ) 'DCF Signal auf LED darstellen > If Port_ReadBit(DCF_Port)= 1 Then 'Wenn wieder eine 1 kommt > CheckCounter++ 'dann incr Counter und setze > Firstflag = 1 'setze das Flag für ersten Impuls > Else 'sonst wird der letzte Impuls nach Länge ausgewertet > If Firstflag = 1 Then 'wenn tatsächlich ein Impuls vorhanden WAR > If CheckCounter < 15 Then 'schauen ob kürzer als 15x10ms > DCF_Buffer(BitCounter) = 0 'und in diesem Fall den Buffer mit 0 beschreiben > CheckCounter = 0 > Firstflag = 0 'Flag für vorhandenes DCF Signal löschen > BitCounter++ 'Counter für Buffer Array incrementieren > Else > DCF_Buffer(BitCounter) = 1 'sonst BufferArray mit 1 beschreiben > CheckCounter = 0 > Firstflag = 0 'Flag für vorhandense DCF Signal löschen > BitCounter++ 'Counter für Buffer Array incrementieren > End If > End If > End If > If BitCounter = 59 Then 'wenn 59 Bits gesammelt wurden > DCF_Mode = 4 'DCF_Mode schalten auf Auswertung > BitCounter = 0 'DCF Arraybufferzähler löschen > End If > End If > End Sub > > Sub DCF_Calc() > Dim a As Integer > Dim ParMin As Integer > Dim ParHour As Integer > ParMin = 0 > ParHour = 0 > If DCF_Mode = 4 Then 'wenn DCF_Mode auf Auswertung > 'in diesem Block werden aud den jeweiligen BufferBits die tatsächlichen > 'Werte errechnet und in die DCF Uhrzeit Variablen geschoben > DCF_minute = DCF_Buffer(21)*1 + DCF_Buffer(22)*2 + DCF_Buffer(23)*4 + DCF_Buffer(24)*8 > +DCF_Buffer(25)*10 +DCF_Buffer(26)*20 +DCF_Buffer(27)*40 > > DCF_hour = DCF_Buffer(29)*1 + DCF_Buffer(30)*2 + DCF_Buffer(31)*4 + DCF_Buffer(32)*8 > +DCF_Buffer(33)*10 +DCF_Buffer(34)*20 > > For freeCount = 21 To 27 'Parität für Minuten berechnen > ParMin = ParMin Xor DCF_Buffer(freeCount) > Next > For freeCount = 29 To 34 'Parität für Stunden berechnen > ParHour = ParHour Xor DCF_Buffer(freeCount) > Next > > > If ParMin = DCF_Buffer(28) And ParHour = DCF_Buffer(35) Then > Do While 1 > If Port_ReadBit(DCF_Port ) = 1 Then 'wenn Prüfung positiv war, dann wird die > 'interne Uhr genau dann gestellt, wenn > 'das DCF Signal auf 1 wechselt > 'und dann die While Schleife verendet;-) > Clock_SetTime(DCF_hour,DCF_minute,0,0 ) > Exit > End If > End While > DCF_Mode = 0 'DCF-Mode wird auf 0 gestellt > Else > DCF_Mode = 1 'sonst wird auf Mode 1 geschaltet (Check DCF Signal) > End If > End If > End Sub > > > Sub DCF_Abfrage() > sec= Clock_GetVal(CLOCK_SEC) > If sec <> last_sec Then > LCD_ClearLCD() ' Clear display > LCD_Locate(1,counter) ' Set LCD Cursor position > LCD_Text= "*" > LCD_WriteText(LCD_Text) ' Print string Line1 > counter= counter + 1 > LCD_Locate(2,1) > LCD_Text= "DCF..." ' Set LCD Cursor position > LCD_WriteText(LCD_Text) ' Print string Line1 > If counter > 16 Then counter= 1 > End If > End If > last_sec=sec > dcf_durchlaufen= 1 > If Clock_GetVal(1)= 01 Then ' Nach 3 Minuten DCF-Suche abbrechen > DCF_Mode= 0 > End If > End Sub > > > > Sub Zeit_Anzeige() > If dcf_durchlaufen= 1 Then > LCD_ClearLCD() > dcf_durchlaufen= 0 > DCF_Mode = 0 > End If > sec= Clock_GetVal(CLOCK_SEC) > If sec <> last_sec Then > hour=Clock_GetVal(CLOCK_HOUR) > minute=Clock_GetVal(CLOCK_MIN) > If sec Mod 2 = 0 And Merker_Ein= 1 Then > Str_Printf(LCD_Text, "%2d %02d", hour, minute) > Else > Str_Printf(LCD_Text, "%2d:%02d", hour, minute) > End If > LCD_Locate(1,6) > LCD_WriteText(LCD_Text) > last_sec= sec > End If > End Sub > > > /*------------------------------------------------------------------------------ > description: Hauptprogram > ------------------------------------------------------------------------------*/ > Sub main() > Port_DataDir(PortC,255) ' Port C als Ausgänge > Port_Write(PortC,255) ' Alle ausgeschaltet > > Port_DataDir(PortA,0) ' Port A als Eingänge > Port_Write(PortA,255) ' PullUp für Eingang > > Port_DataDirBit (Hell,1) ' Port PD3, Ausgang für LCD-Beleuchtung > Port_WriteBit (Hell,0) ' helle Beleuchtung auf Aus > > RC5_Init(7) ' Port PA7 für IR-Fernbedienung > > Merker_Ein= 0 ' Am Anfang: Gerät "Aus" > b= 1 ' Merker "Mute" > a= 19 ' Merker Eingangsrelais > > Clock_SetTime(14,57,30,00) > last_sec=Clock_GetVal(CLOCK_SEC) > LCD_Reset() > > Port_DataDirBit(DCF_Port,0 ) ' DCF Port als Eingang > Port_WriteBit(DCF_Port,1 ) ' PullUp für Eingang > DCF_Mode = 0 ' DCF Modus auf 0 (Grundeinstellung) > BitCounter = 0 ' und weitere Grundwerte setzen > Firstflag = 0 > counter= 1 > dcf_durchlaufen= 0 > Irq_SetVect(INT_TIM2COMP,RCF_Routine) ' Int Routine definieren > > > Do While True ' Schleife Hauptprogramm > If DCF_Mode <> 0 Then DCF_Abfrage() > Else > Zeit_Anzeige() > rc5_data = RC5_Read() > If rc5_data <> 0 Then > Msg_WriteWord(rc5_data) > Msg_WriteChar(13) > End If > If (rc5_data= 13324 Or rc5_data= 15372 Or Port_ReadBit(4)= 0) Then Event_Ein_Aus() > End If > If (rc5_data= 13695 Or rc5_data= 15743 Or Port_ReadBit(3)= 0) And a<>19 And Merker_Ein= 1 Then Event_Taste1() > End If > If (rc5_data= 13359 Or rc5_data= 15407 Or Port_ReadBit(1)= 0) And a<>17 And Merker_Ein= 1 Then Event_Taste2() > End If > If (rc5_data= 13341 Or rc5_data= 15389 Or Port_ReadBit(0)= 0) And a<>16 And Merker_Ein= 1 Then Event_Taste3() > End If > If (rc5_data= 13368 Or rc5_data= 15416 Or Port_ReadBit(2)= 0) And a<>18 And Merker_Ein= 1 Then Event_Taste4() > End If > If (rc5_data= 13328 Or rc5_data= 15376) And Merker_Ein= 1 Then Event_Lauter() > End If > If (rc5_data= 13728 Or rc5_data= 15776) And Merker_Ein= 1 Then Event_Leiser() > End If > If (rc5_data= 13325 Or rc5_data= 15373) And Merker_Ein= 1 Then Event_Mute() > End If > End If > End While > End Sub > > > ' EOF > >

Dateianhang: (.gif, .png., .jpg, .zip, .rar)

max. 256kB

max. 256kB