Jpab Posted May 10, 2008 Report Share Posted May 10, 2008 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 😛 Link to comment Share on other sites More sharing options...
Jpab Posted May 11, 2008 Author Report Share Posted May 11, 2008 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? Link to comment Share on other sites More sharing options...
asworm Posted May 12, 2008 Report Share Posted May 12, 2008 vou ser simcero... nao percebo nada de electronica... tambem desconheco como fazer para manipular os circitos, mas aparentemente nao vejo nada de errado... Got it? Link to comment Share on other sites More sharing options...
David Pintassilgo Posted May 12, 2008 Report Share Posted May 12, 2008 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. cool stuffs to check. http://blog.zxcoders.com// Link to comment Share on other sites More sharing options...
Jpab Posted May 13, 2008 Author Report Share Posted May 13, 2008 ja tinha visto esse site thanks na mesma... o meu codigo pareceu te certo? Link to comment Share on other sites More sharing options...
NuGuN Posted May 16, 2008 Report Share Posted May 16, 2008 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 Link to comment Share on other sites More sharing options...
Jpab Posted May 17, 2008 Author Report Share Posted May 17, 2008 tipo pessoal eu tenho uma picture box e cria dividila em 6 partes e cada parte funcionar como um botao??? Link to comment Share on other sites More sharing options...
Jpab Posted May 17, 2008 Author Report Share Posted May 17, 2008 obrigado NuGuN Link to comment Share on other sites More sharing options...
NuGuN Posted May 18, 2008 Report Share Posted May 18, 2008 E porque não 4 picturebox's em vez de uma só? Alguma razão em especial? Cumps Link to comment Share on other sites More sharing options...
Jpab Posted May 18, 2008 Author Report Share Posted May 18, 2008 era uma picturebox onde dava a imagem da camera mas ja resolvi o problema... puz varias labels transparentes a funcionar de botao xD Link to comment Share on other sites More sharing options...
Jpab Posted May 18, 2008 Author Report Share Posted May 18, 2008 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 Link to comment Share on other sites More sharing options...
NuGuN Posted May 24, 2008 Report Share Posted May 24, 2008 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 Link to comment Share on other sites More sharing options...
Jpab Posted May 25, 2008 Author Report Share Posted May 25, 2008 Obrigado NuGuN tambem cheguei maios tarde a esse resultado sozinho e esquecime de vir aqui avizar, peço desculpa XD Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now