und [VB 2010] Tutorial - Wie baue ich einen Zimmer-Alarmanlage!

    • VB.NET

    Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von chrissinator.

      und [VB 2010] Tutorial - Wie baue ich einen Zimmer-Alarmanlage!

      Hallo,

      hier erkäre ich ein wenig wie man einen Zimmer-Alarmanlage baut. Als erstes die bennötigten Materialien:

      - Lichtschranke mit Lichtwiderstand kostet 15 € bei Conrad (oder Türschalter) (Best-Nr.: 196037 - 62)
      - LaserPointer der auf den Widerstand strahlt.
      - Piepser kostet 5 - 10 € bei Conrad Online-Shop
      - LPT-Schnittstelle an PC oder Notebook
      - Genug Kabel kostet ca. 2 € bei Mobau Klein

      Hier erst einmal der Code den ihr braucht! :

      Vorher müsst ihr in die Form folgende Controls einfügen :

      - 3 Buttons (Bereinigen; Alarm; Datum)
      - Textbox (MultiLine aktivieren)
      - Eine Form
      - 2 Timer (Check, Timer1)

      So als erstes die Subs für die LPT-Schnittstelle

      VB.NET-Quellcode

      1. ' API Funktionen der InpOut32.dll
      2. Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" ( _
      3. ByVal PortAdress As Integer) As Integer
      5. Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" ( _
      6. ByVal PortAdress As Integer, _
      7. ByVal Value As Integer)
      8. Public Enum LPT
      9. LPT1 = &H378
      10. LPT2 = &H278
      11. End Enum
      12. Public Enum LPT_Daten_Pin
      13. ' Als PinNummer
      14. Pin2 = 0
      15. Pin3 = 1
      16. Pin4 = 2
      17. Pin5 = 3
      18. Pin6 = 4
      19. Pin7 = 5
      20. Pin8 = 6
      21. Pin9 = 7
      22. ' Als SignalName
      23. Data0 = 0
      24. Data1 = 1
      25. Data2 = 2
      26. Data3 = 3
      27. Data4 = 4
      28. Data5 = 5
      29. Data6 = 6
      30. Data7 = 7
      31. End Enum
      32. Public Enum LPT_Kontroll_Pin
      33. ' Als PinNummer
      34. Pin1 = 0
      35. Pin14 = 1
      36. Pin16 = 2
      37. Pin17 = 3
      38. ' Als SignalName
      39. Strobe = 0
      40. AutoFdx = 1
      41. InitPrnt = 2
      42. SlctInp = 3
      43. End Enum
      45. Public Enum LPT_Input_Pin
      46. ' Als PinNummer
      47. Pin15 = 3
      48. Pin13 = 4
      49. Pin12 = 5
      50. Pin10 = 6
      51. Pin11 = 7
      52. ' Als SignalName
      53. Err = 3
      54. Slct = 4
      55. PE = 5
      56. Ack = 6
      57. Busy = 7
      58. End Enum
      60. ' Zur Zwischenspeicherung der Ausgangszustände und des Ports
      61. Private oldDaten As Byte
      62. Private oldKontroll As Byte
      63. Private Basisadresse As Integer
      64. Public Sub Init_LPT(ByVal DruckerPort As LPT, _
      65. Optional ByVal DatenByte As Byte = 0, _
      66. Optional ByVal KontrollByte As Byte = 0)
      68. ' Diese Funktion muß als erstes aufgerufen werden
      69. ' hiermit werden alle Ausgänge des LPT Ports auf GND (0) gelegt
      70. ' Optional können andere Ausgangswerte angegeben werden
      72. Basisadresse = DruckerPort
      73. Schreibe_DatenByte(DatenByte)
      74. Schreibe_KontrollByte(KontrollByte)
      75. End Sub
      77. Public Sub Schreibe_DatenByte(ByVal Wert As Byte)
      78. ' Dieser Sub gibt ein Byte am DatenPort aus
      79. Dim Ausgabe As Integer
      80. Dim Port As Integer
      82. oldDaten = Wert
      83. Port = CInt(Basisadresse)
      84. Ausgabe = Wert
      85. Out(Port, Ausgabe)
      86. End Sub
      88. Public Sub Schreibe_KontrollByte(ByVal Wert As Byte)
      89. ' Dieser Sub gibt ein Byte am KontrollPort aus
      90. Dim Ausgabe As Integer
      91. Dim Port As Integer
      93. oldKontroll = Wert
      94. Port = CInt(Basisadresse) + 2
      95. Ausgabe = Wert Or 32
      96. Ausgabe = Ausgabe Xor 43
      97. Out(Port, Ausgabe)
      98. End Sub
      100. Public Function Lese_InputByte() As Byte
      101. ' Diese Funktion liefert ein am InputPort gelesenes Byte zurück
      102. ' Die Bits 0,1,2 sind unbenutzt und werden immer als 1 = gesetzt zurückgegeben
      103. Dim Ausgabe As Integer
      104. Dim Port As Integer
      106. Port = CInt(Basisadresse) + 1
      107. Ausgabe = Inp(Port)
      108. ' Bit7 muß invertiert werden & die 3 LSB auf 1 setzen
      109. If Ausgabe >= 128 Then Ausgabe = Ausgabe - 128 Else Ausgabe = Ausgabe + 128
      110. Ausgabe = Ausgabe Or 7
      111. Lese_InputByte = CByte(Ausgabe)
      112. End Function
      113. Public Sub Schreibe_DatenString(ByVal Wert As String)
      114. ' Dieser Sub gibt ein Byte am DatenPort aus
      115. ' Der Übergabewert ist ein String aus 8 Zeichen mit 0en und 1en
      116. ' welche als Binärwerte interpretiert werden
      117. ' das Erste Zeichen ist das MSB das letzte Zeichen das LSB
      118. Dim Ausgabe As Byte
      120. Ausgabe = String2Byte(Wert)
      121. Schreibe_DatenByte(Ausgabe)
      122. End Sub
      124. Public Sub Schreibe_KontrollString(ByVal Wert As String)
      125. ' Dieser Sub gibt ein Byte am KontrollPort aus
      126. ' Der Übergabewert ist ein String aus 8 Zeichen mit 0en und 1en
      127. ' welche als Binärwerte interpretiert werden
      128. ' das Erste Zeichen ist das MSB das letzte Zeichen das LSB
      129. Dim Ausgabe As Byte
      131. Ausgabe = String2Byte(Wert)
      132. Schreibe_KontrollByte(Ausgabe)
      133. End Sub
      135. Public Function Lese_InputString() As String
      136. ' Diese Funktion liefert ein am InputPort gelesenes Byte in StringForm zurück
      137. ' Das MSB ist das erste und das LSB das letzte Zeichen
      138. ' Die Bits 0,1,2 sind unbenutzt und werden immer als 1 = gesetzt zurückgegeben
      139. Dim Ausgabe As Byte
      140. Dim AusString As String
      142. Ausgabe = Lese_InputByte
      143. AusString = Byte2String(Ausgabe)
      144. Lese_InputString = AusString
      145. End Function
      147. Private Function String2Byte(ByVal Wert As String) As Byte
      148. ' Diese Funktion wandelt einen 8 Zeichen String mit 0en & 1en
      149. ' in ein Byte. Im String ist das MSB das erste und LSB das letzte Zeichen
      150. Dim zähler As Integer
      151. Dim Ausgabe As Byte
      153. For zähler = 0 To 7
      154. If Mid$(Wert, zähler + 1, 1) = "1" Then
      155. Ausgabe = Ausgabe + 2 ^ (7 - zähler)
      156. End If
      157. Next
      158. String2Byte = Ausgabe
      159. End Function
      161. Private Function Byte2String(ByVal Wert As Byte) As String
      162. ' Diese Funktion wandelt ein Byte in einen String um
      163. ' Im String ist das MSB das erste und das LSB das letzte Zeichen
      164. Dim zähler As Integer
      165. Dim Ausgabe As String = Nothing
      167. For zähler = 7 To 0 Step -1
      168. If Wert >= 2 ^ zähler Then
      169. Ausgabe = Ausgabe & "1"
      170. Wert = Wert - 2 ^ zähler
      171. Else
      172. Ausgabe = Ausgabe & "0"
      173. End If
      174. Next
      175. Byte2String = Ausgabe
      176. End Function
      177. Public Function Lese_InputBit(ByVal Pin As LPT_Input_Pin) As Boolean
      178. ' Diese Funktion prüft ob das übergebene Bit auf High liegt (5Volt)
      179. ' und gibt ein True zurück wenn dem so ist. Liegt der Eingang auf Low
      180. ' wird False zurückgegeben
      181. Dim Ausgabe As String
      182. Dim Position As Integer
      183. Dim Rückgabe As Boolean
      185. Position = 8 - Pin
      186. Ausgabe = Lese_InputString
      187. If Mid$(Ausgabe, Position, 1) = "1" Then Rückgabe = True Else Rückgabe = False
      188. Lese_InputBit = Rückgabe
      189. End Function
      191. Public Sub Schreibe_KontrollBit(ByVal Pin As LPT_Kontroll_Pin, ByVal Ein As Boolean)
      192. ' Dieser Sub schaltet einen Ausgangspin des Kontrollport auf High (5Volt)
      193. ' wenn Ein = True, bei Ein = False wird das Pin auf GND (0Volt) gelegt
      194. ' Alle anderen Ausgänge des Kontrollport bleiben unverändert
      195. Dim Ausgabe As Byte
      197. Ausgabe = 2 ^ Pin
      198. Ausgabe = oldKontroll Or Ausgabe
      199. If Ein = False Then Ausgabe = Ausgabe Xor 2 ^ Pin
      200. Schreibe_KontrollByte(Ausgabe)
      201. End Sub
      203. Public Sub Schreibe_DatenBit(ByVal Pin As LPT_Daten_Pin, ByVal Ein As Boolean)
      204. ' Dieser Sub schaltet einen Ausgangspin des Datenport auf High (5Volt)
      205. ' wenn Ein = True, bei Ein = False wird das Pin auf GND (0Volt) gelegt
      206. ' Alle anderen Ausgänge des Kontrollport bleiben unverändert
      207. Dim Ausgabe As Byte
      209. Ausgabe = 2 ^ Pin
      210. Ausgabe = oldDaten Or Ausgabe
      211. If Ein = False Then Ausgabe = Ausgabe Xor 2 ^ Pin
      212. Schreibe_DatenByte(Ausgabe)
      213. End Sub


      Das einfach in den Code der Form1 einfügen (Nicht im LoadEvent, auserhalb eines Events)

      Jetzt die Zeit und das Datum lesen:

      VB.NET-Quellcode

      1. Dim Closee = True
      2. Dim datadate As String = "Uhrzeit: " & Date.Now.Hour.ToString() & ":" & Date.Now.Minute.ToString() & ":" & Date.Now.Second.ToString() & " Datum: " & Now.Date & " ="


      Jetzt den Timer1 zum aktualisieren des Datums und der Uhrzeit verwenden (Interval auf 1000 setzen)

      VB.NET-Quellcode

      1. datadate = "Uhrzeit: " & Date.Now.Hour.ToString() & ":" & Date.Now.Minute.ToString() & ":" & Date.Now.Second.ToString() & " Datum: " & Now.Date & " ="


      Jetzt die Codes für alle Buttons :

      VB.NET-Quellcode

      1. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      2. TextBox1.Clear()
      3. End Sub
      5. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      6. MsgBox(datadate)
      7. End Sub
      9. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      10. '' Hier kommt euer Alarm
      12. End Sub


      Jetzt zum Herz : Wir müssen mit dem Timer Check alle paar Sekunden überprüfen ob der Eingang geschaltet wurde. Als erstes müsst ihr zwei Kabel an die Pins 6 und 12 anschließen. An diese Kabel wird später die Lichtschranke angeschlossen. Jetzt folgt ersteinmal der Code zum überprüfen:

      VB.NET-Quellcode

      1. Init_LPT(LPT.LPT1)
      3. ' Alle Ausgänge des DatenPort einschalten
      4. Schreibe_DatenByte(255)
      6. ' Im DatenPort BitNr4=Data4=Pin6 auf Low=GND=0=False schalten ohne
      7. ' die anderen Ausgänge zu verändern
      8. Schreibe_DatenBit(LPT_Daten_Pin.Data4, False)
      10. ' Prüfen ob im Inputport das BitNr5=PE=Pin12 auf Low=GND=0=Flase liegt
      11. If Lese_InputBit(LPT_Input_Pin.PE) = False Then
      12. If Closee = True Then
      13. TextBox1.AppendText(vbNewLine & datadate & " Zimmertür wurde geöffnet")
      14. 'Dim NewImage As Image = Form2.copyFrame(Form2.PictureBox1, New RectangleF(0, 0, Form2.PictureBox1.Width, Form2.PictureBox1.Height))
      15. 'NewImage.Save("c:\" & datadate & " Beweisfoto.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
      16. ' Alarm-Sound wiedergeben!!!
      18. Closee = False
      19. End If
      20. Else
      21. If Closee = False Then
      22. TextBox1.AppendText(vbNewLine & datadate & " Zimmertür wurde geschlossen")
      23. Closee = True
      24. End If
      25. End If
      27. ' Im Kontrollport die Bits 0 und 3 setzen, restliche Ausgänge = 0
      28. Schreibe_KontrollString("00001001")


      Hier trägt er Texte in die Textbox ein wann die Tür geöffnet oder geschlossen wurde. Wenn ihr die Lichtschranke zusammengebaut habt müsst ihr sie nurnoch in die Nähe der Tür ausrichten und einen Laserpointer auf den Lichtwiderstand richten. Jetzt die Lichtschranke anschließen an die Zwei kabel die wir an die Pins 6 und 12 angeschlossen hatten.

      Viel Spaß

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TS-Development“ ()

      Könntest du bitte die Conrad Artikel Nummer Hinzufügen?

      Danke

      MfG Tobi

      Hallo
      Kleiner Hinweis:
      Wenn ein längerer Quellcod übernommen wird,
      einen Link in den Quellcod setzen.Es ist keine Schande dies zu tun,sondern Fair.
      In Vb 2010 sind bestimmt schon bessere Funktionen implantiert,damit könntest du den Cod überarbeiten.
      Eine Abfrage alle paar sec. erfasst schnelles Öffnen und Schließen der Tür nicht immer exakt.
      Was passiert wenn die Tür offen bleibt(Schalter) oder Lichtschranke betätigt?
      Du musst den Flankenwechsel mit Auswerten.

      Kleine saubere Zeichnung ist immer Hilfreich.

      Vorschlag:Wenn du dies mit Bitwackel der Seriellen und einer EreignisAuslösung machst,braucht du keine Timer,
      also kaum Rechenzeit und das Prog wird Verständlicher und einfacher.
      Außerdem keine Dll.

      P.S.
      Versuche es ,würde mich freuen wenn du es schaffst.

      Gruß

      Ich habe denn Code so hier eingetragen. Wenn man ihn nicht versteht dann ist es nicht mein Problem. Außerdem ist das Net Framework 4 noch in der Beta Phase und deshalb werde ich den Code nicht umschreiben und weil ich keine Zeit habe.

      Wenn du Zeit hast kannst du das ja gerne für mich übernehmen und hier posten!

      Wenn die Tür offen bleibt kann man im Code sehen:

      VB.NET-Quellcode

      1. If Closee = True Then
      2. TextBox1.AppendText(vbNewLine & datadate & " Zimmertür wurde geöffnet")
      3. 'Dim NewImage As Image = Form2.copyFrame(Form2.PictureBox1, New RectangleF(0, 0, Form2.PictureBox1.Width, Form2.PictureBox1.Height))
      4. 'NewImage.Save("c:\" & datadate & " Beweisfoto.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
      5. ' Alarm-Sound wiedergeben!!!
      7. Closee = False
      8. End If


      Das dort steht: " Alarm-Sound wiedergeben!!!" Das passiert solange bis die Tür wieder zugeht. Man kann es nätürlich auch umbauen.

      Ich hab mir die Lichtschranke gekauft komme aber nur auf max.2,5 cm Reichweite 8|
      Habe sie mit dem Ozilloskop durchgemessen und auf max. leistung getrimmt.

      Was soll ich machn?

      MfG Tobi

      Ich lasse auf den Licht-Widerstand einfach einen Laser-Pointer draufstrahlen. Da gibts nichts mit Reichweite oder so. Du kannst den Laserpointer auf den Widerstand von 10 Metern entfernung draufstrahlen lassen und das Releas springt an.

      Es seiden du hast dir eine Lichtschranke gekauft die mit Infrarot arbeitet. Das solltest du dir net kaufen. Sondern eine Lichtschranke mit einem Foto-Widerstand

      8| ich hab mir genau die lichtschranke Art. Nr, oben gekauft!
      Wie kommsde dann auf Lichtwiederstand? Des is ne Infra. Lichtrschranke...

      VCJunk schrieb:

      Lichtschranke Artikel-Nr.:
      191710 - 62
      Link:

      Tja ich habe die Bestellnumm er dir net gegeben. Ich war es net. Zitat war von VC-Junk. Ist leider die Falsche da kann ich dir net merh Weiter helfen. Oben im Thread steht auch Lichtschranke mit Lichtwiderstand (oder Türschalter) und keine Infrarot-Lichtschranke.

      Tja ich habe die Bestellnumm er dir net gegeben. Ich war es net. Zitat war von VC-Junk. Ist leider die Falsche da kann ich dir net merh Weiter helfen. Oben im Thread steht auch Lichtschranke mit Lichtwiderstand (oder Türschalter) und keine Infrarot-Lichtschranke.


      Und welche ist die richtige die man bei Conrad für 15 € kaufen kann?
      Wäre vllt hilfreich wenn du auch die artikel nummer posten könntest bevor sich jetzt jeder irgendein müll kauft das dann nachher nicht geht!

      Ich hab mir auch mal überlegt das zu machen...
      Will das aber mit nem art Schalter machen
      Also zwei dräte die normalerweiße aneinanderhängen also Strom fließt.
      Wenn jetzt die Türe geöffnet wird kommt ja kein Strom mehr an weils ja unterbrochen wurde.
      Geht das mit dem gleichen Code?

      5V ist der Output, das weiß ich aufjedenfall, wie viel es verträgt kann ich nicht sagen und ich wills auch nicht austesten...
      aber ich habe mir auch mal einiges ausprobiert, dabei hab ich eine 9 V Blockbatterie(bw. akku) verwendet und es hat immer noch funktioniert ;)
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      jvbsl schrieb:

      aber ich habe mir auch mal einiges ausprobiert, dabei hab ich eine 9 V Blockbatterie(bw. akku) verwendet und es hat immer noch funktioniert

      Um hier etwas genaues zu sagen,muß ich deine "Experimentierschaltung" kennen.


      Mann sollte immer die Grenzwerte einhalten.
      Es kann sonst zu Vorschädigungen kommen,welche sich später auswirken.

      Paraport 4mA gegen +5V bei TTL-Pegel,glaube aber das dies nicht immer gegeben ist.

      Gruß

      es war eine ganz einfache Schaltung welche über einen Transistor ein Relais geschaltet hat, dabei waren natürlich Widerstände dazwischen, sodass die Stromstärke zumindest mal nicht so hoch ist...xD(das Relais hat nur den Durchgang zu ner Steckdose freigeschalten und somit alles mögliche^^). (ich bin mir nicht sicher aber der Transistor war glaub ich ein BC547 evtl. auch 49
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

    Facebook
    Telefonspende