rodfraga

Mas por exemplo... Eu tenho o seguinbte código: Private Sub form_load() For i = 1 to 100 Command1(i).Caption = "" Next i If Command1(30).Caption = "" Then Print "certo" Else Print "errado" End If End Sub Ele ficaria assim: Private Sub Form_load() For i = 1 to 100 Command1(i).Caption = "" Next i If Command1(30).Caption = "" Then Print "certo" Else Print "errado" End If End Sub Certo? Porque sei lá. É estranho... Parece que tem regrinha, pra ficar parecendo com uma "árvore"... Se é que voce me entende.

É fica mais legivel. Mas haja paciencia... Ah e obrigado pela dica! Vou me virar aqui.

O tres é facinho. Voce não tem ideia cara? não acho muito certo botar a resposta, mas... não sei explicar... Bem como é simples, ai vai: (meu pascal ta enferrujado, é bme possivel que voce precise corrigir) program Teste; var num1, num2, num3 : INTEGER; Begin Writeln('Digite um numero'); Readln(num1); for num2 := 1 to 10 do; num3 = num1 * num2; Writeln(num3); end. end. É next ou end for que s eusa? É algo assim. Bem, como disse, voce deve precisar corrigir. Mas a base ta ai.. Vo testar aqui em casa... To com vontade de mexer cm Pascal de novo... Adoro exercitar a cabeça sabe... Rodrigo EDITADO não entendi, esse algoritimo deu como resultado a multiplicação por 1 e por 10... Exemplo: Digito 3, aparece 3 e 30.... Por quê?

ninguém sabe?

Bemn, antes eu pegava o VB e começava... Agora, eu anoto num txt ou numa folha de papel, como o projeto vai funcionar e tal.

Olha, eu já fiz tudo que mandaram, mas continua dando aquele erro ao usar java nomedaclasse

Uma observação. *Só pra lembrrar* não é qualquer coisa que tem que botar em Password char. Se voce botar "a" Se o cara digitar eu vai ficar : aa ou seja, tem que botar "*" no Password Char

hehe... que bom que c acha!!!... Rodrigo Editado Ow, eu tenho outra duvida... Mas dessa vez se voces pudessem dar só dicas , pois eu quero tentar meu codigo Olha como ta o codigo(acrescentei a parte de dar valrores para as variaveis): Private Type VarType nome As String valor As Variant End Type Private var() As VarType Public Function interpretador(linha As String) 'Para variáveis: Dim stringa As String, pdivVars() As String, i As Long, n As Long Dim listName As Object, valorPvar As Variant, vashow As Boolean If Left(linha, 2) = "V#" Or Left(linha, 2) = "v#" Then stringa = Split(linha, "#")(1) pdivVars() = Split(stringa, ", ") Call guarda_vars(pdivVars()) End If If Left(linha, 12) = "showVar.nome" Then vashow = True Call mostrar(vashow) End If If Left(linha, 13) = "showVar.value" Then vashow = False Call mostrar(vashow) End If If vetorVazio(var) = False Then For i = LBound(var) To UBound(var) If Left(linha, Len(var(i).nome)) = var(i).nome And Mid(linha, Len(var(i).nome), Len(var(i).nome) + 1) = "=" Then valorPvar = Split(linha, "=")(1) Call pegaValor(var(i).nome, valorPvar) End If Next i End If End Function Public Function guarda_vars(nome() As String) Dim n As Long If vetorVazio(var) = True Then For i = LBound(nome) To UBound(nome) ReDim Preserve var(i) var(i).nome = nome(i) Next i Else For i = LBound(nome) To UBound(nome) n = UBound(var) + 1 ReDim Preserve var(n) var(n).nome = nome(i) Next i End If End Function Public Function pegaValor(nome As String, valor As Variant) For i = LBound(var) To UBound(var) If var(i).nome = nome Then var(i).valor = valor End If Next i End Function Public Function mostrar(nova As Boolean) If vetorVazio(var) = False Then If nova = True Then For i = LBound(var) To UBound(var) MsgBox var(i).nome, vbInformation, "VARIAVEIS" Next i Else For i = LBound(var) To UBound(var) MsgBox var(i).nome & " = " & var(i).valor, vbInformation, "VALORES DAS VARIAVEIS" Next i End If Else MsgBox "Você não declarou variáveis a esta altura", vbInformation + vbOKOnly, "Erro de Sintaxe da linguagem Rio 1.0" End If End Function Private Function vetorVazio(vetor() As VarType) On Error GoTo addPrim Dim unk unk = UBound(var) vetorVazio = False addPrim: If Err.Number = 9 Then vetorVazio = True End If End Function Era pra funcionar perfeitamente bem, pelo menos na minha cabeça. Refiz e tal. Ficaria assim, pra mim. Não dá erro. Porem eu digito o seguinte codigo: v#rodrigo rodrigo=eu showVar.value E aparece uma msgbox dizendo: Só isso... alguém tem ideia de por que isso?

Vou ver isso BJack... Mas kabelera, meu é o NetBeans 3.6...

Cara o meu win é o 98... não sei por que dá erro

Galera, eu sei que eu já tinha visto o codigo do Graymalkin, mas eu tava sem internet e precisava ver como ficava, ai não abria a internet E eu tirei todos os Resume Next pra ver como ficava... Consegui uma solução minha(claro, depois de ter aprendido com o codigo do Graymalkin... mas pelo menos o codigo não ficou copia!!!! ) Ai vai: 'No form ta a mesma coisa, apesar de que eu decidi que eu vou fazer uma dll(ou activex exe, sei lá, vou ver), ou seja, não havera form para codigo, apenas os interpretadores teram(como se fosse enxer de interpretador, alem do meu :P). Eu deixei o form só como teste. 'Na classe: Private Type VarType nome As String valor As Variant End Type Private var() As VarType Public Function interpretador(linha As String) 'Para variáveis: Dim stringa As String, pdivVars() As String Dim listName As Object If Left(linha, 2) = "V#" Or Left(linha, 2) = "v#" Then stringa = Split(linha, "#")(1) pdivVars() = Split(stringa, ", ") Call guarda_vars(pdivVars()) End If If Left(linha, 7) = "showVar" Then Call mostrar End If End Function Public Function guarda_vars(nome() As String) On Error GoTo addPrim Dim unk, n As Long unk = UBound(var) For i = LBound(nome) To UBound(nome) n = UBound(var) + 1 ReDim Preserve var(n) var(n).nome = nome(i) Next i Exit Function addPrim: If Err.Number = 9 Then For i = LBound(nome) To UBound(nome) ReDim Preserve var(i) var(i).nome = nome(i) Next i End If End Function Public Function mostrar() For i = LBound(var) To UBound(var) MsgBox var(i).nome, vbInformation, "VARIAVEIS" Next i End Function Essa foi a parte das variaveis até aonde fiz! Valeu!!!

Claro!!!! Ai vai: /* * alo.java * * Created on 31 de Julho de 2004, 19:45 */ package alo; /** * * @author teste */ public class alo{ public static void main(String[] args){ System.out.println("Alo mundo!"); } } Botei com comentários e tudo.. Abraços Rodrigo

Valeu digo eu...

.vbs = Visual Basic Script, semiabreviado: VBScript são codigos de VB, sem a parte visual (eu acho) do mesmo.

Bem, ainda bem que é com todos. Espero daqui a um tempo atingir um certo nivel. Até porque VB vai ficar um pouquinho mais simples quando eu olhar mais a fundo Java ou C++(to vendo o basico dos dois pra ver qual mais gosto e qual pego)

Opa valeu, eu botei o nome do arquivo como ola.java e gerou o ola.class. Ta ai, vou testar depois posto aqui! Valeu mesmo Rodrigo Opa, eu salvei como mesmo nome: "alo", porem eu boto: java alo e dá o seguinte erro: Exception in thread "main" java.lang.NoClassDefFoundError: alo alguém sabe como resolver?

Opa, mais um! Obrigado aew... Vou começar a pintar mais aqui no forum pra tirar duvidas. Abraços Rodrigo

Essa parte eu entendi. Sei fazer select sim! MAs... como eu guardo os dados em um array dinamico? EDITADO Ah, deixa eu explicar, eu quero saber, como fazer quantos selects foram necessarios sabe? Tipo, tenho 8 usuarios e quero mostrar os 8 num select, porem mais um entrou pra equipe do site, ai tem que passar a ser 9 sleects alguém SABE? Rodrigo

é deve ser verdade.. E eu nem programo a muito tempo... Mas esperar um ano hein... Eu nem ia lembrar mais do projeto

obrigado tambem!!!

Cara, o erro do vars vai ai mesmo, pois veja: Eu não copiei o código todo E esqueci do detalhe da declaração dele lá em cima. Bem, eu vou tirar os Resume Next e ver Obrigado Rodrigo EDITADO Realmente, dá um caminhao de erros. Vou tentar o seu código pra ver se dá certo e ver quais as diferenças pro meu. Editado Num é que deu certo Por que que os erros só vem comigo ? Bem, eu mudei a função mostrar para: Public Function mostrar() For i = LBound(Var) To UBound(Var) MsgBox Var(i).nome, vbInformation, "VARIAVEIS" Next i End Function Tirei os comentarios da parte em relação a mostrar na função interpretador, e tambem fiz com que baste o comando showVar para que possa mostrar em msgsboxes o conteudo. Eu realmente estou deprimido depois dessa Quase nenhum código meu vai pronto sem alteração do povo daqui ou até total reformulação

Ok, vou tentar o do DOS, mas o endereço não abre aqui Editado Da erro no DOS Algo como: java.lang.NoClassDefined: hello/class

Num funciona... Detalhe: Acho que ta em guardar variaveis, pois fiz o seguinte na funçço mostrar: For i = LBound(var) To Ubound(var) AID.List1.Additem(var(i).nome) Next i E ainda não adiciona na lista

VAleu mesmo brother!

Fala, galera... Depois de muita paciencia com o *ruim* jcreator e passar pelo *lerdo* NetBeans, me estabeleci, e gostei do *simples* BlueJ. Bem, eu fiz a seguinte classe(como o kabeleira me disse): public class hello{ public static void main(String[] args){ System.out.println("Hello World"); } } E executei no netbeans mesmo agora com o bluej, fui lá em nova class, e fiz isso ai. Fui em compilar, e gerou um .class. Como eu executo esse bixo dae? E o tal do .jar, o executavel. Como eu crio um? Abraços Rodrigo