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!

erro 13??? especifique o que deseja fazer

Olá amigo! entre na bios e veja se o Barramento esta em 133/133 ou se esta em 100/100. se você colocar ele em 133/133 ele volta ao valor original dele (XP 1600+) Programas para saber a velocidade de seu processador. pode ser o AIDA32 da uma olhada na parte de download do Boa Dica falowss OBS: depois posta pra ver se deu certo

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???

MAS COMO QUE USA ESSE TAL DE MODAL???

Olá Tenho duas dúvidas 1-)nesse codigo uso o inputbox (com os botoes ok e cancelar) For I = 1 To 15 VALOR(I) = InputBox("Digite o " & I & " º numero") entrada.Caption = entrada.Caption + Str(VALOR(I)) Next I Queria um comando pra usar somente o botao OK 2-) quando digito uma letra ao invés de um numero no inputbox ele da erro no programa. Como faço para quando o ususa rio digitar uma letra aparecer escrito Caractere invalido?(uma msgbox) Valeuu

Valeu Willian era isso mesmo! valeu

TENHO UM CODIGO NO FORM PRINCIPAL, QUE QUANDO O USUARIO ABRE O PROGRAMA ELE DIGITA O QUE É PEDIDO. SÓ QUE QUANDO ELE TERMINA O PROGRAMA SÓ PODE SER FECHADO. GOSTARIA DE SABER COMO QUE EU FAÇO UM BOTÃO QUE REINICIE ESSE FORM???

ELES APARECEM ASSIM 1 (VERTICAL) EU QUERIA NA HORIZONTAL ( 1,2,3,4..) 2 3 4 SEU EU COLOCAR O CODIGO DENTRO DO BOTÃO ELE APARECE NO FORM , CASO EU COLOQUE N OFORM ELE NÃO APARECE. EU QUERIA QUE ELE MOSTRASSE EM UM LABEL OS NUMERO EM ORDEM CRESCENTE. DEU PRA ENTENDER????

FALA PESSOAL beleza??? TENHO ESSE CODIGO DENTRO DE UM BOTAO For I = 1 To 15 valor(I) = InputBox("Entre com o " & I & " º numero:") Next I For J = 14 To 2 Step -1 For I = 1 To J If valor(I) > valor(I + 1) Then AUX = valor(I) valor(I) = valor(I + 1) valor(I + 1) = AUX End If Next I Next J Cls For I = 1 To 15 Print valor(I) Next I SÓ QUE O PRINT COLOCA OS NUMEROS NA ESQUERDA COLADO A MARGEM E EM PÉ. COMO FAÇO PARA DESCOLAR OS NUMERO , LEVALOS PARA O MEIO DO FORM E DEIXAR OS NUMEROS DEITADOS?!

Tente reinstalar os drivers da placa de rede... remova tudo antes em hardware reinicie e instale novamente.... mas lembre-*se de guarda o config se o seu ip for FIXO.

VISITE http://www.infowester.com/memoria.php

isso QUE DA DEIXAR O MICRO ABERTO!!! UAHAUHAUA BOA!!

você USA ALGUM PROGRAMA PARA ACESSAR O VELOX??? REINSTALE O PROGRAMA E VEJA SE O ERRO CONTINUA

Pra falar a verdade ainda não sei usar o split() então não tenho a minima ideia de como fazer Abraços Ganhei

Fala Graymalkin beleza? eu entendi o que você quis dizer , mas eu preciso que assim, digito em um Textbox os numeros um de cada vez tipo (7,8,5,3,9,7,1) dai apareça na ordem que eu digitei (7,8,5,3,9,7,1)e em um label abaixo mostrando o resultado em ordem crescente (1,3,5,7,7,8,9). Entende??? Abraços Leandro

FALA PESSOAL beleza?? O Fabson DEU UMA AJUDA COM ESSE CODIGO, MAS EU PRECISO QUE ELE MOSTRE EM UM LABEL OS NUMERO DIGITADOS E EM OUTRO LABEL OS NUMERO EM ORDENAÇÃO QUEM PUDER DAR UMA FORÇA AGRADEÇO. Dim VALOR(15) As Double Dim AUX As Integer, I As Integer, J As Integer For I = 1 To 15 VALOR(I) = InputBox("Digite um numero") Next I For J = 14 To 2 Step -1 For I = 1 To J If VALOR(I) > VALOR(I + 1) Then AUX = VALOR(I) VALOR(I) = VALOR(I + 1) VALOR(I + 1) = AUX End If Next I Next J Cls For I = 1 To 15 Print VALOR(I) Next I

Fala beleza??? esqueci de mencionar uma coisa! eu preciso que ele mostre os numero digitados (na ordem digitado) e os numero ordenados( crescente) mas ajudou bastante []´s Ganhei

FALA PESSOAL beleza??? TIVE ALGUNS PROBLEMINHAS E NÃO APARECI POR AKI UM BOM TEMPO... MAS VAMOS LÁ! EU PRECISO PASSAR ESSE ALGORITMO PARA VB ALGORITMO ORDENA INICIO DECLARE VALOR : VETOR [1..15] NUMERICO DECLARE AUX,I,J NUMERICO PARA I DE 1 ATE 15 FAÇA ESCREVA"DIGITE UM NUMERO" LEIA VALOR FIMPARA PARA J DE 15 ATE 2 FAÇA PARA I DE 1 ATE J SE VALOR > VALOR[i+1] ENTÃO AUX=VALOR VALOR=VALOR[i+1] VALOR [i+1] = AUX FIMSE FIMPARA FIMALGORITMO TO PERDIDO COM O PARA!!! VALEU POR ENQUANTO []´S Ganhei

Tenho uma duvida nesse exercicio Fazer um algoritmo que calcule e escreva a seguinte soma 1 + 3 +5 + 7 + 99 1 2 3 4 50 Algoritmo Soma Declare soma, n , d numérico; N= 1; D= 1; Soma= 0 Enquanto (n<100) Inicio Soma= soma + N; N= n+2 D= d+2 Fim-enquanto Escreva “a soma é “ soma; a minha duvida é se o D recebe o 2 ou recebe o 1 pois ele pular de 1 em um!???

Fala Manwë Súlimo bele? era isso mesmo Valeuu!!! Abraços Ganhei

Claro Pigmeu! Tenho um programinha que já diz se o numero é primo ou não! preciso que o programa mostre os numero primo anteriores ao que eu digitei. Por exemplo digitei o 11 dai aparece no label 7,5,3,2,1. a minha duvida e como faço pra aparecer a sequencia dos numeros !!! como dito antes!!!! Private Sub calcular_Click() Dim primo As Boolean visor = Val(entrada.Text) i = 2 resto = 0 primo = True saida.ForeColor = RGB(0, 0, 255) While i < visor resto = visor Mod i If resto = 0 Then primo = False End If i = i + 1 Wend If primo = False Then saida.ForeColor = RGB(255, 0, 0) saida.Caption = "Não é Primo" Else saida.Caption = "Primo" End If End Sub CERTO BIDU!?

Fala pessoal beleza?? ainda to com duvida no problema dos numero primos, preciso que o programa mostre os numero primo anteriores ao que eu digitei. Por exemplo digitei o 11 dai aparece no label 7,5,3,2,1. Tem como dar uma ajudinha?

TÓPICO ENCERRADO VALEUU

tópico ENCERRADO VALEU PESSOAL!!