copilot

zoefig

copilot

• Modo Monoestable: Configuras el tiempo de activación (1 a 99 segundos), activas el relé por el tiempo configurado, y muestras el conteo descendente en los displays.
• Modo Astable (Baliza): Configuras los tiempos en alto y bajo, muestras los tiempos configurados, activas/desactivas el relé según los tiempos y puedes detenerlo con una tecla.

Basic
' Definición de puertos
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

Config Portb = Output

' Configuración del teclado y del display
Config Pind.0 = Input ' Pin al que se conecta el teclado
Config Timer0 = Timer , Prescale = 64 ' Configura el temporizador
Enable Timer0

Dim Keypad As Byte
Dim Tiempo_mono As Byte
Dim High_time As Byte
Dim Low_time As Byte
Dim Mode As Byte
Dim Count As Byte

Enable Interrupts

' Teclado 4x4
Data_input Alias Portd

' Variables de gestión de display y relé
Config Lcd = 16 * 1
Config Display = 7 , Common = Cathode
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4

' Display de inicio para setup
Call Inicio

Do
  Keypad = GetKey()
  Call Mostrar(Tiempo_mono)

  If Mode = 1 Then
    ' Modo Monoestable
    If Keypad = "Entra" Then
        Tiempo_mono = SetTiempo()
        Call Parpadeo()
        Call Monoestable(Tiempo_mono)
    End If
  Else
    ' Modo Astable
    If Keypad = "Entra" Then
        High_time = SetTiempo()
        Low_time = SetTiempo()
        Call Parpadeo()
        Call Astable(High_time, Low_time)
    End If
  End If
Loop

End

' Funciones y procedimientos

Function GetKey() As Byte
    ' Leer tecla del teclado matricial
    ' Retornar tecla presionada
End Function

Sub Mostrar(Byval Tiempo As Byte)
    ' Mostrar el tiempo en el display de 7 segmentos
End Sub

Sub Parpadeo()
    ' Hacer parpadear los displays de 7 segmentos
End Sub

Function SetTiempo() As Byte
    ' Capturar tiempo ingresado por el usuario mediante el teclado matricial
    ' Mostrar este tiempo en el display
End Function

Sub Monoestable(Byval Tiempo As Byte)
    ' Activar el relé
    For Count = Tiempo To 0 Step -1
        Call Mostrar(Count)
        Wait 1
    Next
    ' Desactivar el relé
End Sub

Sub Astable(Byval High As Byte, Byval Low As Byte)
    Do
        ' Secuencia de activación y desactivación
    Loop Until Keypad = "Detener"
End Sub

Sub Inicio()
    ' Display parpadeante al inicio
End Sub

• Debes definir las funciones GetKey, Mostrar, Parpadeo, y SetTiempo de acuerdo con las especificaciones de tu hardware y conexiones.
• Ajusta las configuraciones de pines y conexiones según tu circuito particular.
• Es posible que debas agregar o ajustar variables y funciones adicionales según se necesite.