PROGRAMACION ALARMA CASA

ALARMA DE CASA

Se ha diseñado un sistema de alarma para las casas el cual se ha programado en Visual Basic.net 2010 y se ha creado un circuito electrónico para su funcionamiento. La alarmaconsiste en nombre y contraseña si esta es la errónea esta dirá “clave incorrecta” y después de tres intentos dirá “ladrón, ladron, ladrón” o si introduce la contraseña pedida le dirá “clave correcta”.La alarma también sonara si deja la puerta abierta y al cerrarla se apagara.
Para la programación de visual trabajamos con una librería de sonido que tendrá su ruta y será llamada por medio de esta,se utilizó una condicional que es el if si es verdadera y el else si es falsa.

PROGRAMACION

Public Class Form1
Dim myPort As Array 'COM Ports detected on the system will be stored hereDelegate Sub SetTextCallback(ByVal [text] As String) 'Added to prevent threading errors during receiveing of data
Dim dato As String
Dim ladron_ As Integer = 1
Dim c As Integer = 0Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If c >= 3 Then
ladron_ = 0My.Computer.Audio.Play("C:\Users\SERVIASO\Desktop\Alarma - Final\Alarma\Resources\clavei.wav")
MsgBox("El sistema se ha cerrado, ya que ha intentado ingresar y no a digitado la información correcta")Beep()
ladron_ = 1
SerialPort1.Close()
Me.Close()
Else
c = c + 1
If usuario.Text = "Administrador" Or usuario.Text ="Invitado" Then
If password.Text = "1234" Then
ladron_ = 0
My.Computer.Audio.Play("C:\Users\SERVIASO\Desktop\Alarma -Final\Alarma\Resources\clavec.wav")
MsgBox("Clave correcta, Bienvedo a tu casa, Ya puedes Ingresar")
c = 0
usuario.Text = ""
password.Text =...