por ejemplo
se entiende
Como Obtener En Runtime El Nombre De Una Variable
Objetivo: Como Obtener En Runtime El Nombre De Una Variable
última edición por tercoIDE el Lunes, 03 Agosto 2015, 15:27; editado 1 vez
Es medio tonta la pregunta, pero no lo estoy consiguiendo
por ejemplo
se entiende
por ejemplo
se entiende
última edición por tercoIDE el Lunes, 03 Agosto 2015, 15:27; editado 1 vez
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
Seguramente Vuott sepa alguna manera de sacar ese dato usando punteros.....
Pero se me ocurre una solución fácil:
Create una clase, con la propiedad valor y nombre, entonces es muy sencillo decir que te muestre o cambiar el nombre,.... no se si te servirá...
Pero se me ocurre una solución fácil:
Create una clase, con la propiedad valor y nombre, entonces es muy sencillo decir que te muestre o cambiar el nombre,.... no se si te servirá...
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
no me sirve, esta es la rutina real:
que sirve para volcar el contenido de una matriz o vector en el debug
me gustaria tambien volcar el nombre de la matriz que estoy debugueando
el workaournd es facil, porque llamo a un
y ya, pero queria ver si hay una solucion mas elegante
Public Sub DebugMe(mf As Float[], filas As Integer, Optional columnas As Integer = 1)
' Rutina para mostrar matrices y vector en el Debug
' para vectores, poner columna=1
Dim f As Integer, c As Integer, stmat As String
'stmat = mf
If columnas = 1 Then
For f = 0 To filas - 1
'modMatriz8.abanda(a, b, a)
stmat &= Format$(mf[f], "0.000000") & " "
Next
Debug stmat
stmat = ""
Else
For f = 0 To filas - 1
For c = 0 To columnas - 1
'modMatriz8.abanda(a, b, a)
stmat &= Format$(mf[f, c], "0.000000") & " "
Next
Debug Str$(f), stmat
stmat = ""
Next
End If
'Stop
End
' Rutina para mostrar matrices y vector en el Debug
' para vectores, poner columna=1
Dim f As Integer, c As Integer, stmat As String
'stmat = mf
If columnas = 1 Then
For f = 0 To filas - 1
'modMatriz8.abanda(a, b, a)
stmat &= Format$(mf[f], "0.000000") & " "
Next
Debug stmat
stmat = ""
Else
For f = 0 To filas - 1
For c = 0 To columnas - 1
'modMatriz8.abanda(a, b, a)
stmat &= Format$(mf[f, c], "0.000000") & " "
Next
Debug Str$(f), stmat
stmat = ""
Next
End If
'Stop
End
que sirve para volcar el contenido de una matriz o vector en el debug
me gustaria tambien volcar el nombre de la matriz que estoy debugueando
el workaournd es facil, porque llamo a un
Debug "fMatrix1"
DebugMe(fMatrix1, filas)
DebugMe(fMatrix1, filas)
y ya, pero queria ver si hay una solucion mas elegante
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
es que vos nos mal acostumbras con tus soluciones eitenianas
jajajajja
vuott escribió: [Ver mensaje]
es que vos nos mal acostumbras con tus soluciones eitenianas
jajajajja
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
última edición por vuott el Domingo, 16 Agosto 2015, 16:53; editado 3 veces
...bueno...sì, existe una posiblidad usando la Clase "Class", pero la variable debe haber sido declarada "Global" y "Pública" .
Ejemplo pratico:
Ejemplo pratico:
última edición por vuott el Domingo, 16 Agosto 2015, 16:53; editado 3 veces
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
claro, pero no es el caso
(en octubre estare en Parma, vives cerca?)
(en octubre estare en Parma, vives cerca?)
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
Se necesita preguntar a Minisini en cual Estructura de los codigos fuentes C de gambas es contenido el nombre-identificador de una variable.
Objetivo: Re: Como Obtener En Runtime El Nombre De Una Variable
......pero... tal vez pueden competir con Él.
Vamos a ver con un Puntero a una variable de tipo String todas las variables locales existentes en un proyecto:
última edición por vuott el Lunes, 04 Abril 2016, 23:08; editado 3 veces
vuott escribió: [Ver mensaje]
......pero... tal vez pueden competir con Él.
Vamos a ver con un Puntero a una variable de tipo String todas las variables locales existentes en un proyecto:
Private Const LAT As Short = 256
Public Sub Main()
Dim s As String
Dim po As Pointer
Dim c As Integer
Dim bb As Byte[]
Dim st As Stream
Dim i As Integer
' Es absolutamente necesario declarar la nuestra imperecedera y inquebrantable fe:
s = "Yo no soy Pythonista !"
po = VarPtr(s)
If po = 0 Then Error.Raise("Puntero no valido !")
st = Memory po For Read
With bb = New Byte[LAT]
.Read(st, 0, bb.Count)
s = .ToString(0, bb.Count)
End With
st.Close
c = InStr(s, Chr(&40) & Chr(&6E) & Chr(&65))
s = bb.ToString(c + 4, InStr(s, "\x00\x00", c) - (c + 4))
Print Replace(s, "\x00", "\n")
End
Private Procedure Nomen(b As Byte)
Dim sh As Short
Dim n As Integer
Dim v As Variant
End
Public Sub Main()
Dim s As String
Dim po As Pointer
Dim c As Integer
Dim bb As Byte[]
Dim st As Stream
Dim i As Integer
' Es absolutamente necesario declarar la nuestra imperecedera y inquebrantable fe:
s = "Yo no soy Pythonista !"
po = VarPtr(s)
If po = 0 Then Error.Raise("Puntero no valido !")
st = Memory po For Read
With bb = New Byte[LAT]
.Read(st, 0, bb.Count)
s = .ToString(0, bb.Count)
End With
st.Close
c = InStr(s, Chr(&40) & Chr(&6E) & Chr(&65))
s = bb.ToString(c + 4, InStr(s, "\x00\x00", c) - (c + 4))
Print Replace(s, "\x00", "\n")
End
Private Procedure Nomen(b As Byte)
Dim sh As Short
Dim n As Integer
Dim v As Variant
End
última edición por vuott el Lunes, 04 Abril 2016, 23:08; editado 3 veces
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4343s (PHP: -63% SQL: 163%)
Consultas SQL: 48 - Debug off - GZIP Activado