Turbo Black



Turbo Black
Projecto de Programacion Visual
La intencion del proyecto conciste en que mediante la programcion de PIC 18f4550 programado en lenajuje C , es darle una aplicación al programa mediante una interface grafica que de ahí nace la idea del proyecto black.
Principalmente turbo black consisite en que por medio de una interface de usuario programada en visual basi 6 es controlar unvehiculo de via remoto
El vehiculo constas de un par de luces, un pa de direccionales , una lus de stop y un juego de motores engranados, el trabajo de la interface de usuario es mandar la informacion al pic para poder manipular todos estos dispositivos en sincronia y hablitar una optima funcionalididad de este.




Diagramas del cuicuito
Sistema de luces del carro


Sistema de motor A reversa ymarcha










Sistema de motor A reversa y marcha










Codigo del proyecto :

Option Explicit
Dim Parpadeos As Byte
Dim Dato As Integer
Dim Rec_Buf(0 To 31) As Byte
Dim Send_Buf(0 To 31) As Byte
Dim inter As Integer
Dim direcb As Integer
Dim direca As Integer

Dim cstop As Integer
Dim cluz As Integer

Private Sub atras_Click()
Timer4.Enabled = False 'resetea y apaga las dirrecionalesTimer3.Enabled = False
Timer5.Enabled = False

If (cluz = 0) Then 'habilita los motores y deshabilita la luz
Send_Buf(0) = 1
Send_Buf(1) = 192 'envia un valor a la salida en su forma binaria para accionar los motores
Send Send_Buf, 2
End If

If (cluz = 1) Then 'habilita los motores y habilita la luz
Send_Buf(0) = 1
Send_Buf(1) = 200 'envia un valor ala salida en su forma binaria para accionar los motores
Send Send_Buf, 2
End If
End Sub

Private Sub Command1_Click()
inter = 0
direcb = 0
direca = 0
'habilita el timer que tiene la funcion de las intermitentes
Timer4.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = True
End Sub
Private Sub direcionA_Click()
inter = 0
direcb = 0
direca = 0
'habilita el timer que tiene la funcion delas direcional 2
Timer4.Enabled = True
Timer3.Enabled = False
Timer5.Enabled = False
End Sub

Private Sub direcionaizq_Click()
inter = 0
direcb = 0
direca = 0
'habilita el timer que tiene la funcion de las direcional 1
Timer4.Enabled = False
Timer5.Enabled = False
Timer3.Enabled = True

End Sub

Private Sub Form_Load()
OpenMPUSBDevice 'abre comunicaciones
If (myOutPipe =INVALID_HANDLE_VALUE) Or (myInPipe = INVALID_HANDLE_VALUE) Then
MsgBox "No se ha comunicado con el dispositivo", 0 + 16, "Error"
CloseMPUSBDevice 'cierra comunicaciones
End
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Send_Buf(0) = 10 'Opcion 10 para indicar fin del programa
Send_Buf(1) = 0
Send Send_Buf, 2 'Se manda el Buffer con los 2 bytesacumulados
CloseMPUSBDevice 'cierra comunicaciones
End Sub

'****************************************************
'************menu de opciones ***********************
'****************************************************

Private Sub boton1_Click()
Send_Buf(0) = 1 'Opcion 1
Send_Buf(1) = Val(Text1.Text)
Send Send_Buf, 2 'Se manda el Buffer con los 2bytes acumulados
End Sub
Private Sub boton2_Click()
Send_Buf(0) = 2 'Opcion2
Send Send_Buf, 2 'Se manda el Buffer con los 2 bytes acumulados
Timer2.Enabled = True
End Sub


Private Sub ladoA_Click()
Timer4.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = False
If (cluz = 0) Then 'habilita los motores y deshabilita la luz
Send_Buf(0) = 1
Send_Buf(1) = 144'envia un valor a la salida en su forma binaria para accionar los motores
Send Send_Buf, 2
End If
If (cluz = 1) Then 'habilita los motores y habilita la luz
Send_Buf(0) = 1
Send_Buf(1) = 152 'envia un valor a la salida en su forma binaria para accionar los motores
Send Send_Buf, 2
End If
End Sub
Private Sub ladoB_Click()
Timer4.Enabled = False
Timer3.Enabled =...