Controlo do carro telecomandado peloa LPT

[Jpab]

ja anvancei mais desde a ultima vez que postei info sobre o projecto... estou na parte da eletronica nao esta fiacil :S

vejam o codigo que eu fiz e vejam porfavor se detectam algum erro já que eu ainda nao posso testar o  programa porque a parte da eletronica esta a demorar. se detectarem digam que nao detectarem digam que nao detectaram.

aqui vai o codigo

da parte do controlo da porta:

'declaraçoes
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


'desativo todos os pinos ao iniciar

Private Sub Form_Load()
Dim ValOut As Byte
Out 888, 0
End Sub

'quando carrego nas teclas:

Private Sub Frente()
Dim ValOut As Byte
Out 888, 1
End Sub

Private Sub traz()
Dim ValOut As Byte
Out 888, 2
End Sub

Private Sub Esquerda()
Dim ValOut As Byte
Out 888, 4
End Sub

Private Sub Direita()
Dim ValOut As Byte
Out 888, 8
End Sub

Private Sub cidi()
Dim ValOut As Byte
Out 888, 9
End Sub

Private Sub diba()
Dim ValOut As Byte
Out 888, 10
End Sub

Private Sub esba()
Dim ValOut As Byte
Out 888, 6
End Sub

Private Sub cies()
Dim ValOut As Byte
Out 888, 5
End Sub

Private Sub para()
Dim ValOut As Byte
Out 888, 0
End Sub

se puderem deem uma vista de olhos thanks

😛

[Jpab]

como ninguem diz nada aparentamente esta certo nao?

tipo se eu tiver um multimetro posso testar o programa? tipo encosto o cenas do multimetro a um pino a ver se a voltagem muda quando carregar na tecla ou assim... se ela nao mudar nao deve estar a funcionar... acham este teste possivel?

[asworm]

vou ser simcero... nao percebo nada  de electronica... tambem desconheco como fazer para manipular os circitos, mas aparentemente nao vejo nada de errado...

[David Pintassilgo]

http://www.electronicapt.com/forum/index.php/topic,97.0.html

Parte electrónica mas contem tb a parte de programação em VB6.

Julgo que a grande parte da informação contida já a possuis, mas dá uma vista de olhos, pode estar lá alguma coisa que te interesse.

[Jpab]

ja tinha visto esse site thanks na mesma... o meu codigo pareceu te certo?

[NuGuN]

Boas.

Tipo, o código k postas-te não parece ter erros. Mas depois o resto do código é que não sei. Mas o k aí esta parece estar bom.

cumps

[Jpab]

tipo pessoal eu tenho uma picture box e cria dividila em 6 partes e cada parte funcionar como um botao???

[Jpab]

obrigado NuGuN

[NuGuN]

E porque não 4 picturebox's em vez de uma só? Alguma razão em especial?

Cumps

[Jpab]

era uma picturebox onde dava a imagem da camera mas ja resolvi o problema...

puz varias labels transparentes a funcionar de botao xD

[Jpab]

agora o meu problema é como gravar imagens que tao no vb para o pc.. do tipo

eu tenho este codigo num botao:

SavePicture Picture1.Image, "c:\Foto.jpg"

so que este codigo so dá para gravar um ficheiro... quando quero guardar nova foto carrego no botao e emvez de guardar em um novo ficheiro substitui o anterior :S

tenho de arranjar outra forma de gravar as fotos :S

[NuGuN]

Boas.

óbvio que substitui pk estas a guardar com o mesmo nome. Define uma variável e cada vez de carregas no botão para guardar a imagem, incrementa a variável. E depois nesse código mete o seguinte. Imaginando que a variável era ind

SavePicture Picture1.Image, "c:\Foto" & "(" & ind & ")" & ".jpg"

Cumps

[Jpab]

Obrigado NuGuN  tambem cheguei maios tarde a esse resultado sozinho e esquecime de vir aqui avizar, peço desculpa

XD