(solucionado)[vb] ¿Como muestro esto en el debug?

Iniciado por SuperDraco, 15 Julio 2011, 20:00 PM

0 Miembros y 1 Visitante están viendo este tema.

SuperDraco

Código (vb) [Seleccionar]
Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean
If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False
End Function


Private Sub Form_Load()
DoesFileExist "C:\file.txt"
End Sub


¿Como puedo saber si me devuelve TRUE o FALSE, y de paso hacer un debug.print?

gracias
No he vuelto, solo estoy de paso.

79137913

HOLA!!!

Código (vb) [Seleccionar]
Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean
    If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False
End Function


Private Sub Form_Load()
    DEBUG.PRINT DoesFileExist("C:\file.txt")
End Sub


P.D: Indenta el codigo plz.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Elemental Code

Código (vb) [Seleccionar]
dim XD as boolean
XD = DoesFileExist "C:\file.txt"
debug.print XD

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

79137913

HOLA!!!

Cita de: Elemental Code en 15 Julio 2011, 20:03 PM
Código (vb) [Seleccionar]
dim XD as boolean
XD = DoesFileExist "C:\file.txt"
debug.print XD


XD Eso va a dar error, necesitas ponerle parentesis si o si cuando igualas a algo o llamas el resultado.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

SuperDraco

#4
gracias a los 2

¿Es necesario volver a escribir la funcion y el string en el debug?

el ejemplo que me habeis dado hace esto:

debug.print funcion string

¿no se podría hacer con un simple parámetro/operador que reconozca el argumento anterior?

algo así:
debug.print %1

(Lo sé, me ha quedado muy batch  :xD)

EDITO: si, tengo que acostumbrarme a indentar, pero solo stoy practicando funciones XD

EDITO2: por más que me he leido esto:

http://wiki.gambas-es.org/index.php?title=Tabla_de_Traducci%C3%B3n_de_ordenes_de_VB6_a_Gambas

No encuentro ningún tipo de parámetro para hacer lo que he dicho, pero si batch si que lo puede hacer, digo yo que vb también :S.
No he vuelto, solo estoy de paso.

79137913

HOLA!!!

Ejemm
No, no se puede, para escribir en la ventana de Inmediato tenes que hacer debug.print.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

SuperDraco

#6
si, a lo que me refiero es que debe existir algun parámetro en vb para reconocer el último argumento que ha pasado por el procedimiento... ¿¿¿¿NO???

por ejemplo:

Código (vb) [Seleccionar]
Private Sub Form_Load()
   DoesFileExist("C:\file.txt")
   DEBUG.PRINT %1
End Sub



DoesFileExist("C:\file.txt")  sería el argumento 1

Y El propósito de %1 (Pongo %1 porque no conozco dicho parámetro en vb) sería que hiciera esto:

DEBUG.PRINT DoesFileExist("C:\file.txt")


¿Me entiendes?  :-\

Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código  :xD
No he vuelto, solo estoy de paso.

raul338

Cita de: pitoloko en 15 Julio 2011, 20:30 PM
Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código  :xD
Deja de comprar batch con vb :¬¬ Acaso lo probaste en vbs?

No se puede, Debug.Print acepta cualquier variable de tipo simple (sea funcion o variable o constante u operacion)

SuperDraco

#8
bueno, vale vale :-\

Solo intentaba averiguar eso, además, en vbs si que se puede...

(0)
(1)


...Por eso, es muy raro que en VB no.

un saludo!

PD: Pronto os intentaré recompensar la ayuda xD
No he vuelto, solo estoy de paso.

$Edu$

Alguien no ha seguido los consejos de leer El Guille..