Visual Basic - Contar cuantas veces se ha ejecutado mi programa

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de ricardo

Contar cuantas veces se ha ejecutado mi programa

Publicado por ricardo (2 intervenciones) el 23/08/2017 06:12:19
Hola buen dia!!!

Ocupo su ayuda para crear un programita que tenga una cuenta en un txt cada vez que se ejecuta espero me de a entender yo quiero ejecutar el programa con otro y al ejecutarlo este cuente cuantas veces fue ejecutado en un block de notas no tengo ni idea de como hacerlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Contar cuantas veces se ha ejecutado mi programa

Publicado por Antoni Masana (282 intervenciones) el 23/08/2017 11:59:58
Es fácil

Si en fichero contador no existe lo creas con el contenido 1, cuando ya exista Lee el contenido, sumas 1 y el resultado lo guardas en el fichero.

1
2
3
4
5
6
7
8
9
10
Dim File as String, Cuenta as String
File="Mi_Contador.txt"
 
IF Dir(File)="" THEN
   Open File For Output as #1 : print #1, "1" : close #1
Else
   Open File For Input as #1 : input #1, Cuenta: Close #1
   Cuenta = Str$(val(Cuenta) + 1)
   Open File For Output as #1 : print #1, Cuenta: close #1
End If

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de ricardo

Contar cuantas veces se ha ejecutado mi programa

Publicado por ricardo (2 intervenciones) el 26/08/2017 07:42:06
Buen dia!!!

No me funciono el codigo solo imprime 1 no hace la suma
saludos y gracias por tu comentario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

Contar cuantas veces se ha ejecutado mi programa

Publicado por Antoni Masana (282 intervenciones) el 26/08/2017 12:20:54
Publica el código y te digo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad