Duas Duvidas Numa

[rodfraga]

Fala galera... Eu tenho duas duvidas numa tacada só.

Primeiro. Como eu faço para que meu programa possa abrir outros arquivos? Exemplo, que ele possa abrir todos os arquivos de extensao .blc? E que essa extensao seja caracterisitca do meu programa?

E outra, eu to fazendo uma linguagem de programação(par apoder aprender e tetnar continuar a XScript já que o Graymalkin deixou), e estou fazendo uma parte que o Graymalkin disse ser facil mas eu to passando por mais lençois.

É a parte de guardar variáveis

Vou por todo o código relacionado a essa parte aqui ok? Eu não acho erro, alias, nem o VB, porem nada é executado.

Se alguém puder ajudar...

'No botao que compila e executa o meu teste
Dim sintax As New BMain
Private Sub ver_Click()
Dim lines() As String
lines() = Split(Text1.Text, vbCrLf)
For i = LBound(lines) To UBound(lines)
sintax.compilador (lines(i))
Next i
End Sub

'na classe BMain:

Private Type VarType
nome As String
valor As Variant
End Type
Public Function interpretador(linha As String)
On Error Resume Next
'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
stringa = Split(linha, "=")(1)
listName = stringa
Call mostrar(listName)
End If
End Function

Public Function guarda_vars(nome() As String)
On Error Resume Next
Dim unk
unk = UBound(var)
If Err.Number = 9 Then
For i = LBound(nome) To UBound(nome)
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 mostrar(list As Object)
For i = LBound(var) To UBound(var)
list.AddItem (var(i).nome)
Next i
End Function

Eu criei a funação mostrar para poder ver se o trocinho tava guardando as variaveis direitinho. Eu digitei no txt de codigo:

v#teste, teste1
showVar=List1

então, não faz nada esse codigo "todo"

[William Rodrigues]

Fala galera... Eu tenho duas duvidas numa tacada só. 

Opa !!!

Manda aí....

Primeiro. Como eu faço para que meu programa possa abrir outros arquivos? Exemplo, que ele possa abrir todos os arquivos de extensao .blc? E que essa extensao seja caracterisitca do meu programa?

Bom, dê uma olhadinha nesse post

Agora, com relação ao código....depois eu dô uma olhadinha pois minha mãe tá aqui me enchendo para eu deixar ela "teclar" como diz ela

hehehe...

Abraços,

William Rodrigues

[rodfraga]

VAleu mesmo brother!

[Graymalkin]

Tira o "On Error Resume Next". Talvez por isso você não esteja vendo o erro.

Abraços,

Graymalkin

[rodfraga]

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

[Graymalkin]

Realmente, foi só tirar os On Error Resume Next que ele me revelou diversos erros. Um deles é que havia referência a um vetor chamado Vars que não havia sido declarado em lugar algum. O outro problema é que ao detectar que não existe nada em Vars o índice do primeiro item deveria ser explicitamente 0, depois é que deveria ser UBound(Var) + 1. Segue o cógido todo:

'No form:
Dim sintax As New BMain

Private Sub Form_Load()
    Text1.Text = "v#teste, teste1" & vbCrLf & "showVar=List1"
End Sub

Private Sub ver_Click()
    Dim lines() As String
    lines() = Split(Text1.Text, vbCrLf)
    For i = LBound(lines) To UBound(lines)
        sintax.interpretador (lines(i))
    Next i
End Sub

'Na BMain
Dim Var() As VarType
Private Type VarType
    nome As String
    valor As Variant
End Type
Public Function interpretador(linha As String)
'On Error Resume Next
    '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
    '   stringa = Split(linha, "=")(1)
    '   listName = stringa
    '   Call mostrar(listName)
    'End If
End Function

Public Function guarda_vars(nome() As String)
    Dim unk
    On Error Resume Next
    unk = UBound(Var)
    erro = Err.Number
    On Error GoTo 0
    If erro = 9 Then
        For i = LBound(nome) To UBound(nome)
            If i = 0 Then
                n = 0
            Else
                n = UBound(Var) + 1
            End If
            ReDim Preserve Var(n)
            Var(n).nome = nome(i)
        Next i
    Else
        For i = LBound(nome) To UBound(nome)
            Var(i).nome = nome(i)
        Next i
    End If
End Function

Public Function mostrar(list As Object)
    For i = LBound(Var) To UBound(Var)
        list.AddItem (Var(i).nome)
    Next i
End Function

Ah, e o ShowVar nunca vai funcionar desse jeito. Não há como executar códigos dinâmicamente no VB (infelizmente, ), portanto não há como relacionar string "List1" com o objeto List1 existente no form. A não ser, é claro que você faça isso de forma explícita (supondo que sNome é uma variável string que tem o nome do objeto que você quer):

if sNome = "List1" then
  set obj = List1
elseif sNome = "List2" then
  set obj = List2
endif

Abraços,

Graymalkin

[rodfraga]

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

[Graymalkin]

Eu realmente estou deprimido depois dessa Quase nenhum código meu vai pronto sem alteração do povo daqui ou até total reformulação

Fica assim não. Isso é assim mesmo. As vezes isso também ocorre comigo com frequência. Daí, apago tudo e começo a fazer de novo. E, se ainda não consigo, deixo pra lá. Daí, após algum tempo (dias, semanas, meses ou anos (?)), inevitavelmente acabo tentando fazer de novo, e quase sempre tenho sucesso.

Abraços,

Graymalkin

[rodfraga]

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

[William Rodrigues]

Mas esperar um ano hein... Eu nem ia lembrar mais do projeto

Hehehehehe....

Mas comigo também é assim cara...Eu quando não consigo ou vejo que vai me dar muito trabalho (principalmente quando eu programo na sexta de madrugada) eu deixo prá lá e daqui alguns dias (ou no máximo semanas) eu vou e consigo fazer....Acho que acontece com todos !

heheheh

Abraços,

William Rodrigues

[rodfraga]

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)

[William Rodrigues]

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

Pouquinho......

hehehehe

Se tu se aprofundar em Java ou C++ o VB vai ficar mais fácil do que mexer em Windows

hehehe

Abraços,

William Rodrigues

[rodfraga]

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

[William Rodrigues]

Consegui uma solução minha(claro, depois de ter aprendido com o codigo do Graymalkin... mas pelo menos o codigo não ficou copia!!!!  )

Fez bem brother....

Quando o pessoal passa o código, acho que se deve estudar o código postado e não fazer uma cópia do mesmo....Acho que muitos deveriam seguir o seu exemplo !

Abraços,

William Rodrigues

[rodfraga]

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:

rodrigo =

Só isso... alguém tem ideia de por que isso?

[rodfraga]

ninguém sabe?

[Graymalkin]

Já que você apenas quer a dica, o erro está na seguinte linha:

If Left(linha, Len(var(i).nome)) = var(i).nome And Mid(linha, Len(var(i).nome), Len(var(i).nome) + 1) = "=" Then

Qual o tamanho (comprimento, quantidade de caracteres) em "="?

E, cara, indenta (ou endenta, ou identa, já que não há um consenso sobre a palavra) esse código.

Abraços,

Graymalkin

[Guest eu nao logado]

er... e o que quer dizer qualquer uma das formas da palavra?

[Graymalkin]

Identar (ou qualquer uma das variantes) é colocar espaçamentos na frente do código a fim de facilitar a leitura. Exemplo:

do while a=2
for i=1 to 10
if i=3 and a=1 then
msgbox "blá"
else
msgbox "blé"
endif
next
loop

O código acima identado ficaria assim:

do while a=2
    for i=1 to 10
        if i=3 and a=1 then
            msgbox "blá"
        else
            msgbox "blé"
        endif
    next
loop

Muito mais fácil de ler, não acha? Especialmente em códigos gigantescos.

Abraços,

Graymalkin

[rodfraga]

É fica mais legivel. Mas haja paciencia...

Ah e obrigado pela dica! Vou me virar aqui.

[Graymalkin]

É fica mais legivel. Mas haja paciencia...

Claro, identar um código já pronto é meio chato. Todavia, no meu caso, já idento automaticamente enquanto escrevo o código. Ou seja, após digitar uma linha com um if, for ou do while e teclar ENTER, já teclo TAB. Além disso, você pode identar (TAB) ou desidentar (SHIFT+TAB) várias linhas selecionadas.

Abraços,

Graymalkin

[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.

[Graymalkin]

Quase. Na verdade 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

A idéia é aninhar (conter) os códigos que são executados "dentro" da instrução. Por isso, If e Else ficam na mesma direção (ou executa um ou executa outro). Todas as instruções que são executadas no mesmo nível (For e If, no exemplo acima) ficam no mesmo nível. Como todo o código fica "dentro" de uma sub, todos são identados em um nível e todas as linhas que são executadas "dentro" das instruções são identadas em mais um nível. Sacou?

Abraços,

Graymalkin

[rodfraga]

Saquei

então... Ah eu queria saber o que voce queria dizer com If's aninhados(na XScript)... Agora descobri?

[Graymalkin]

Saquei

então... Ah eu queria saber o que voce queria dizer com If's aninhados(na XScript)... Agora descobri?

Ifs aninhados seriam Ifs dentro de Ifs. Por exemplo:

if a=2 then
  if b=3 then
    msgbox "blá"
  else
    if c=4 then
      msgbox "blé"
    else
      msgbox "bli"
    endif
  endif
endif

Abraços,

Graymalkin

[rodfraga]

Ah, obrigado... Vivendo e aprendendo...