Intertechno Funksteckdosen

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Intertechno Funksteckdosen

      BASCOM-Quellcode: Intertechno

      1. 'Programm zum Ansteuern von Funksteckdosen Intertechno IT 1500 ohne Timer
      2. 'Bit 0: 275µs high + 275µs low + 275µs high + 1225µs low
      3. 'Bit 1: 275µs high + 1225µs low + 275µs high + 275µs low
      4. 'Bit sync: 275µs high + 2675µs low
      5. 'By Mathias Tenge
      6. 'Protokoll: Die ersten 26 Bits sind die ID bzw Adresse
      7. 'dann folgt das Bit für die auswahl aller Steckdosen
      8. 'dann folgt das Bit für den Zustand der Steckdosen
      9. 'dann folgen 4 Bits zur Bestimmung, welche angesprochen werden soll
      10. 'alles aus 00110101001010001010011010100000
      11. 'alles an 00110101001010001010011010110000
      12. 'taster1 aus 00110101001010001010011010000000
      13. 'taster1 an 00110101001010001010011010010000
      14. 'taster2 aus 00110101001010001010011010000001
      15. 'taster2 an 00110101001010001010011010010001
      16. 'taster3 aus 00110101001010001010011010000010
      17. 'taster3 an 00110101001010001010011010010010
      18. $regfile = "m328Pdef.dat" 'Controller
      19. $crystal = 16000000 'Quarztaktung
      20. $hwstack = 32
      21. $swstack = 10
      22. $framesize = 40
      23. Baud 9600
      24. Ddrc = &B11111111 'port c 1 Ausgänge / 0 Eingänge
      25. Ddrd = &B00000000
      26. Portc = &B00000000
      27. Portd = &B11111111
      28. Dim Adressbyte(33) As String * 2 'Byte
      29. Dim Id As String * 32
      30. Dim Code As String * 6
      31. Dim I As Byte
      32. Dim W As Byte
      33. Dim W1 As Byte
      34. Dim Z As Byte
      35. Dim Taster As Byte
      36. Dim Taster_alt As Byte
      37. Ausgang Alias Portc.0
      38. Declare Sub Schalten1()
      39. Declare Sub Schalten2()
      40. Declare Sub Taster1()
      41. Declare Sub Taster2()
      42. Declare Sub Taster3()
      43. Declare Sub Taster_aus()
      44. Ausgang = 0
      45. For I = 1 To 26
      46. Id = "00110101001010001010011010" '"00110101001010001010011010110000"
      47. Adressbyte(i) = Mid(id , I , 1) '1 Stelle
      48. Next
      49. Do
      50. Debounce Pind.0 , 1 , Taster1 , Sub
      51. Debounce Pind.1 , 1 , Taster2 , Sub
      52. Debounce Pind.2 , 1 , Taster3 , Sub
      53. Debounce Pind.3 , 1 , Taster_aus , Sub
      54. For W = 1 To 4 '4 taster
      55. If Taster.w <> Taster_alt.w Then 'hat sich was geändert
      56. Taster_alt.w= Taster.w
      57. If Taster_alt.w = 0 Then 'aus
      58. Select Case W
      59. Case 1 : Code = "000000"
      60. Case 2 : Code = "000001"
      61. Case 3 : Code = "000010"
      62. Case 4 : Code = "100000"
      63. End Select
      64. Else 'ein
      65. Select Case W
      66. Case 1 : Code = "010000"
      67. Case 2 : Code = "010001"
      68. Case 3 : Code = "010010"
      69. Case 4 : Code = "110000"
      70. End Select
      71. End If
      72. For I = 1 To 6
      73. Z = 26 + I
      74. Adressbyte(z) = Mid(code , I , 1)
      75. Next
      76. For W1 = 0 To 30 'den Befehl 30x mal wiederholen
      77. Toggle Ausgang 'SyncBit
      78. Waitus 275
      79. Toggle Ausgang
      80. Waitus 2675
      81. For I = 1 To 32
      82. If Adressbyte(i) = "0" Then 'Senden fuer "0"
      83. Call Schalten1()
      84. Call Schalten2()
      85. End If
      86. If Adressbyte(i) = "1" Then 'Senden fuer "1"
      87. Call Schalten2()
      88. Call Schalten1()
      89. End If
      90. Next I
      91. Next W1
      92. End If
      93. Next W
      94. For I = 1 To 32
      95. Print Adressbyte(i);
      96. Next I
      97. Print
      98. Loop
      99. End
      100. Sub Schalten1() 'senden des Protokolls an Portc.0 > 433Mhz-Mudul (AM)
      101. Toggle Ausgang
      102. Waitus 257
      103. Toggle Ausgang
      104. Waitus 257
      105. End Sub
      106. Sub Schalten2() 'senden des Protokolls an Portc.0 > 433Mhz-Mudul (AM)
      107. Toggle Ausgang
      108. Waitus 257
      109. Toggle Ausgang
      110. Waitus 1225
      111. End Sub
      112. Sub Taster1
      113. Toggle Taster.1
      114. End Sub
      115. Sub Taster2
      116. Toggle Taster.2
      117. End Sub
      118. Sub Taster3
      119. Toggle Taster.3
      120. End Sub
      121. Sub Taster_aus
      122. Toggle Taster.4
      123. End Sub
      Alles anzeigen