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:
Question
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...
Eu criei a funação mostrar para poder ver se o trocinho tava guardando as variaveis direitinho. Eu digitei no txt de codigo:então, não faz nada esse codigo "todo"
Link to comment
Share on other sites
29 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.