LER LINHA A LINHA DO LIST1 EM VB 6
Boa noite amigos!!!
Estou com um projeto de escola e quero fazer um projetinho, motor de passo porém estou tendo dificuldades,eu tenho um list1,timer1 ,label1 e command1,e no list1 vai ter varios numeros e quando eu clicar em command1 ele vai lendo linha a linha até chegar no fim.
exemplo:
23
12
24
41
22
È um projeto de motor de passo
em anexo tem projeto que iniciei ,se alguem poder me ajudar fico muito grato com isso.
Estou com um projeto de escola e quero fazer um projetinho, motor de passo porém estou tendo dificuldades,eu tenho um list1,timer1 ,label1 e command1,e no list1 vai ter varios numeros e quando eu clicar em command1 ele vai lendo linha a linha até chegar no fim.
exemplo:
23
12
24
41
22
È um projeto de motor de passo
em anexo tem projeto que iniciei ,se alguem poder me ajudar fico muito grato com isso.
dentro do Command1 evento Click faça o seguinte
Dim i As Long
For i = 0 to List1.ListCount -1
MsgBox [Ô]Descrição da posição index [Ô] & i & [Ô]: [Ô] & List1.List(i)
Next i
muito obrigado pela resposta.
Dim i As Long
For i = 0 to List1.ListCount -1
MsgBox [Ô]Descrição da posição index [Ô] & i & [Ô]: [Ô] & List1.List(i)
[ô]quando label1 for igual á posição
timer1.enabled = false
label1.caption = 0
[ô]proxima posição
timer2.enabled = true
ler a primeira posição;
desliga o timer
zerar o timer
proxima posição,
ligar timer novamente;
Como ficaria isso?
obrigado desde já.
Dim i As Long
For i = 0 to List1.ListCount -1
MsgBox [Ô]Descrição da posição index [Ô] & i & [Ô]: [Ô] & List1.List(i)
[ô]quando label1 for igual á posição
timer1.enabled = false
label1.caption = 0
[ô]proxima posição
timer2.enabled = true
ler a primeira posição;
desliga o timer
zerar o timer
proxima posição,
ligar timer novamente;
Como ficaria isso?
obrigado desde já.
Dim i As Long
Dim Encontrou As Boolean
Encontrou = False
For i = 0 to List1.ListCount -1
[ô]MsgBox [Ô]Descrição da posição index [Ô] & i & [Ô]: [Ô] & List1.List(i)
if Encontrou = True Then
Timer1.Enabled = True
Encontrou = False
End if
If Label1.Caption = List1.List(i) Then
Timer1.Enabled = False
Encontrou = True
End If
Next iNão entendi muito bem o que você quer, mas veja se isso te ajuda!
Boa noite,
Vou te explicar melhor,estou fazendo projeto de escola com motor de passo,e preciso controlar os passos dele horário e anti-horário.
O projeto consiste em um list1,timer1,label1 e command1.
No list1 vai ter os passos programados:
F=frente
T=trás
4F
12T
45F
78T
19F
16T
47F
89T
178F
201T
71F
12T
49F
56T
12F
45T
56F
23T
E preciso que ao clicar no command1 ,o timer vai lendo linha alinha do list1 automaticamente,exemplo:
4F [ô]dá 4 passos pra frente
12T [ô]dá 4 passos pra trás e assim sucessivamente ao chegar no final da lista ele para.
ler 1 linha ,
ler segunda e assim por diante.
(O projeto vai ser controlado via USB e estou desenvolvendo programa do PIC.)
no aguardo
Vou te explicar melhor,estou fazendo projeto de escola com motor de passo,e preciso controlar os passos dele horário e anti-horário.
O projeto consiste em um list1,timer1,label1 e command1.
No list1 vai ter os passos programados:
F=frente
T=trás
4F
12T
45F
78T
19F
16T
47F
89T
178F
201T
71F
12T
49F
56T
12F
45T
56F
23T
E preciso que ao clicar no command1 ,o timer vai lendo linha alinha do list1 automaticamente,exemplo:
4F [ô]dá 4 passos pra frente
12T [ô]dá 4 passos pra trás e assim sucessivamente ao chegar no final da lista ele para.
ler 1 linha ,
ler segunda e assim por diante.
(O projeto vai ser controlado via USB e estou desenvolvendo programa do PIC.)
no aguardo
Veja se é isso que você quer
Otimo colega,isso mesmo.
No caso vou colocar os dados do codigo do PIC.
Form2.MSComm1.Output = [Ô]a[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]b[Ô][ô]desliga bobina
acima equivale a 1 passo do motor
Form2.MSComm1.Output = [Ô]c[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]d[Ô][ô]desliga bobina
2 bobina
Form2.MSComm1.Output = [Ô]e[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]f[Ô][ô]desliga bobina
3bobina
Form2.MSComm1.Output = [Ô]g[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]h[Ô][ô]desliga bobina
4 bobina
agora se possivel,do jeito do vc fez,tipo ler exemplo 12F ,lendo as bobinas na sequencia acima,exemplo:
ler a 1 ,2,3,4, começa novamente na 1 2 3 4 até chegar na 12f e parar.
desde já agradecido
No caso vou colocar os dados do codigo do PIC.
Form2.MSComm1.Output = [Ô]a[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]b[Ô][ô]desliga bobina
acima equivale a 1 passo do motor
Form2.MSComm1.Output = [Ô]c[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]d[Ô][ô]desliga bobina
2 bobina
Form2.MSComm1.Output = [Ô]e[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]f[Ô][ô]desliga bobina
3bobina
Form2.MSComm1.Output = [Ô]g[Ô] [ô]liga bobina
sleep 1000 [ô]tempo 1 segundo
Form2.MSComm1.Output = [Ô]h[Ô][ô]desliga bobina
4 bobina
agora se possivel,do jeito do vc fez,tipo ler exemplo 12F ,lendo as bobinas na sequencia acima,exemplo:
ler a 1 ,2,3,4, começa novamente na 1 2 3 4 até chegar na 12f e parar.
desde já agradecido
Tópico encerrado , respostas não são mais permitidas