Controlar 2 sensores e 8 atuadores

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Controlar 2 sensores e 8 atuadores

Mensagem  Tomachewski em Dom 27 Maio - 21:24

Vou ser direto é um trabalho de conclusão de curso do senai Tecnico em manutenção automotiva. A ideia é retirar o comando de valvulas, e torna-los eletro-hidraulicos, eu estava usando dois buffer 74ls541 para fazem a comunicação com o micro atravez da porta usb com cabo conversor paralelo usb. Um buffer faria a comunicão dos sensores e outro o controle das solenoides, e um programa no micro em vb6 faria o sincronismo de abertura e fechamento das valvulas de escape e admição.
O Sensor 1 envia um sinal apenas e o sensor 2 tres sinais e assim sucessivamente.
Funcionaria assim quando receber um sinal do sensor 1 inicia uma contagem, "Contagem =1" sensor dois "Contagem =2", sensor 2 "Contagem=3", Sensor 2 "contagem=4" inicia o ciclo novamente, mas so inicia a contagem com o sensor 1, e de acordo com essa contagem controla cada valvula segindo a ordem de explosão:
contagem=1 cilindro 1
contagem=2 cilindro 3
contagem=3 cilindro 4
contagem=4 cilindro 2
Então com o arduino eu tiro o micro. Mas outro problema é que eu não sei ainda programar o arduino e estou com pouco tempo para a apresentação. Então você pode me ajudar com o codigo! Em vb eu fiz assim...

Dim Contagem As String
Dim Valor As String

Private Sub Timer1_Timer()
If Contagem = 4 Then Contagem = 0
Valor = LPT_ReadByte(hDrive, PP_STATUS)
If Valor = "248" Then Contagem = 1: Trabalho
If Valor = 56 And Contagem = 0 Then Exit Sub
If Valor = "56" Then Contagem = Contagem + 1: Trabalho
If Valor = "120" Then Exit Sub
End Sub


Sub Trabalho()
Select Case Contagem

Case 1
' Primeiro cilindro
Ret = LPT_WriteByte(hDrive, PP_DATA, 0) ' Fecha todas
Ret = LPT_WriteByte(hDrive, PP_DATA, 4) 'Abre escape Cilindro 2
Ret = LPT_WriteByte(hDrive, PP_DATA, 5) 'Abre admição cilindro 3

Case 2
' Terceiro Cilindro
Ret = LPT_WriteByte(hDrive, PP_DATA, 0) ' Fecha todas
Ret = LPT_WriteByte(hDrive, PP_DATA, 2) 'Abre escape Cilindro 1
Ret = LPT_WriteByte(hDrive, PP_DATA, 7) 'Abre admição cilindro 4


Case 3
' Quarto Cilindro
Ret = LPT_WriteByte(hDrive, PP_DATA, 0) ' Fecha todas
Ret = LPT_WriteByte(hDrive, PP_DATA, 6) 'Abre escape Cilindro 3
Ret = LPT_WriteByte(hDrive, PP_DATA, 3) 'Abre admição cilindro 2

Case 4
'Segundo Cilindro
Ret = LPT_WriteByte(hDrive, PP_DATA, 0) ' Fecha todas
Ret = LPT_WriteByte(hDrive, PP_DATA, Cool 'Abre escape Cilindro 4
Ret = LPT_WriteByte(hDrive, PP_DATA, 1) 'Abre admição cilindro 1

End Select

End Sub

Como ficaria para o arduino?

Tomachewski

Mensagens : 1
Data de inscrição : 27/05/2012

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum