Array

[Ganhei]

OLÁ PESSOAL !

TO COM UM PROGRAMINHA QUE TEM Q FAZER TIPO UM Bd COM VETORES

(tem q digitar a nota do aluno e conforme vai armazenando no vetor, vai clicando em uma setinha para avancar o para o proximo aluno ou voltar no aluno anterior)

Dim VETOR1(10) As Double
Dim VETOR2(10) As Double
Dim n1, n2, qtd, i As Double



Private Sub calcular_Click()
'-----inicio media do aluno------'
media = (n1 + n2) / 2
resultado.Caption = media
'-----fim media do aluno------'


'-----inicio vetores------'
For i = 1 To 10
VETOR1(i) = VETOR1(i) + n1
VETOR2(i) = VETOR2(i) + n2

Next i


'-----fim vetores------'


End Sub





Private Sub Command1_Click()
If qtd >= 1 And qtd <= 10 Then
qtd = qtd - 1
quantidade.Caption = qtd
End If
End Sub

Private Sub next_Click()
If qtd >= 0 And qtd <= 9 Then

qtd = qtd + 1
quantidade.Caption = qtd

End If

nota1.Text = ""
nota2.Text = ""
resultado.Caption = ""




End Sub

Private Sub nota1_Change()
n1 = Val(nota1.Text)
End Sub

Private Sub nota2_Change()
n2 = Val(nota2.Text)
End Sub

Private Sub quantidade_Click()
qtd = Val(quantidade.Caption)
End Sub

o problema é quando clico na setinha voltar, ou avançar, os dados não são armazenador.

alguém teria uma dica???

[Decio]

Apenas um chute:

Dimensione as suas váriaveis assim:

Dim n1 as double

Dim n2 as double

Dim qtd as double

etc....

pois da forma como você está fazendo n1,n2,qtd e i , na verdade são variantes e não double.Como o programa inclui calculos, isso pode afetar o resultado final.

[sem ideia p/ nick]

cara eu te to tentando criar um vetor baseado no seu codigo ae.

mais não da certo da erro = 13. isso e erro de que ?

Public i As Integer
Dim vetor1(2) As Double


Private Sub CommandButton1_Click()

For i = 0 To 2
vetor1(i) = TextBox1.Text

Next i

End Sub

[Ganhei]

erro 13???

especifique o que deseja fazer

[Decio]

Tente assim:

Public i As Integer
Dim vetor1(2) As Double

Private Sub CommandButton1_Click()

For i = 0 To 2
vetor1(i) = Cdbl(TextBox1.Text)

Next i

End Sub

[sem ideia p/ nick]

descobri galera... na pode ser DOUBLE tem que ser VARIANT

como eu faço para gravar dados diferentes em posiçoes diferentes no vetor ?

[Ganhei]

PESSOAL A DÚVIDA É O SEGUINTE :

COMO FAÇO PRA GRAVAR 10 VALORES DE UM TEXTBOX EM UM VETOR DE 10 POSICOES???

COMO FAÇO PARA EXIBIR OS NUMERO ARMAZENADOS???

O PROGRAMA TEM Q ARMAZENAR AS NOTAS DO ALUNO NO VETOR , PRECISO DE DOIS BOTOES QUE QUANDO CLICO UM AVANÇA PARA O PROXIMO ALUNO E O OUTRO VOLTA PARA O ANTERIOR (MOSTRANDO OS DADOS DO VETOR)

DESCULPEM POR ESCREVER EM CAPS E QUE MEU TECLADO FICOU LOUCO!

[Graymalkin]

COMO FAÇO PRA GRAVAR 10 VALORES DE UM TEXTBOX EM UM VETOR DE 10 POSICOES???

Os valores estão em uma única textbox? Caso positivo, o que separa os valores? Caso seja a vírgula, isso aqui já faz isso pra você:

vetor = split(text1.text, ",")

Todavia, os valores armazenados serão do tipo String.

COMO FAÇO PARA EXIBIR OS NUMERO ARMAZENADOS???

Supondo que o "exibir" seja mostrar os valores em uma outra textbox, você pode fazer isso:

for each valor in vetor
  text2.text = text2.text & " - " & valor
next valor

Abraços,

Graymalkin

[Decio]

DESCULPEM POR ESCREVER EM CAPS E QUE MEU TECLADO FICOU LOUCO!

Salve o código abaixo como qualquercoisa.vbs e rode.Talves seu teclado volte ao normal.

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"

[Graymalkin]

DESCULPEM POR ESCREVER EM CAPS E QUE MEU TECLADO FICOU LOUCO!

Salve o código abaixo como qualquercoisa.vbs e rode.Talves seu teclado volte ao normal.

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"

Graymalkin

[Decio]

É que eu já tive um pequeno problema que quando eu teclava o caps Lock, o teclado não voltava ao normal.Dai eu usava este código para poder escrever em minúscula.

[William Rodrigues]

É que eu já tive um pequeno problema que quando eu teclava o caps Lock, o teclado não voltava ao normal.Dai eu usava este código para poder escrever em minúscula.

Bacana...

Abraços,

William Rodrigues

[Graymalkin]

É que eu já tive um pequeno problema que quando eu teclava o caps Lock, o teclado não voltava ao normal.Dai eu usava este código para poder escrever em minúscula.

Mas, é o Num Lock mesmo? Ou o Caps Lock?

Abraços,

Graymalkin

[Decio]

Mas, é o Num Lock mesmo? Ou o Caps Lock?

Você tem razão , na verdade o código é o abaixo:

set WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "{CAPSLOCK}"

Eu usei isto durante 1 mês até resolver o problema.Quando eu teclava "Caps" ou "Num Lock" o meu teclado travava , e eu tinha que desconectar e conectar o teclado novamente para voltar ao normal, só que ele voltava em maiúsculo.

Abraços.