Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Hacer Que El Textarea Cambie Cada Dia Su Contenido
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
primero ssaludos a todos los del foro

estoy intenetando hacer una aplicacion que haga lo siguiente:

cada dia que pase me muestra un mensaje diferente

ç
e pensado hacerlo con un formulario y en este un textarea que ahi me muestre el mensaje de cada dia

ademas de tres botones que me permitan navegar y ver si no lo vi el mensaje anterior o el siguiente  y el tercero que me permita ver el del dia


me salen las dudas sobre como cargar el textarea no se pienso  en dos formas

un solo archivo que contengan los mensajes  y que la aplicacion cargue una linea por dia
la otra es hacer varios archivos  segun el dia  ahi se me viene otro inconveniente como hacer  para que cargue el archivos correcto es decir que concuerde con la fecha del dia


gracias de antemano
 



 
vikobak - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
Hola.

Prueba con lo siguiente:

1) Haz clic con el botón derecho sobre la carpeta "Datos", y selecciona Nuevo->Otros->Texto.(Deja el nombre Text1 que da por defecto)
2) Agrega dentro del archivo de texto lo siguiente:

texto[1]
"Recordatorio 1"
texto[2]
"Recordatorio2"
texto[3]
"Recordatorio3"

3) En el evento open del formulario agrega este código:

' gambas class file

PUBLIC SUB Form_Open()
'==================================================================
'PROPOSITO: Leer una cadena desde un archivo de texto, cada vez que
            'se abra el programa.
'==================================================================            
DIM archivo AS File
DIM linea AS String
DIM numero AS Integer
DIM texto AS String

'--------Iniciamos la creación de semillas
RANDOMIZE
'---------------------Elegimos un numero entre 1 y 3
numero = Int(Rnd(3))
texto = "texto" & "[" & Str(numero) & "]"

'-------------------------------Abrimos el archivo en modo lectura
archivo = OPEN "Text1" FOR INPUT
 
'----------------------Mientras no sea el final del archivo
 WHILE NOT Eof(archivo)
'----------------------------Leer una linea
   LINE INPUT #archivo, linea  
'-----------------------Si la linea concuerda con el patron de busqueda  
   IF texto = linea THEN
'---------------------------------Leer linea siguiente.  
        LINE INPUT #archivo, linea
'---------------------Mostrar la linea        
        message(linea)
   END IF
 WEND
END
 


Esto solo es una aproximación a lo que quieres, puede ser que encuentres un mejor método.

Saludos
 



 
última edición por abarzuaf el Martes, 15 Junio 2010, 20:55; editado 2 veces 
abarzuaf - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
buena amigo para mi seria mas fácil con una base de dato con dos o tres campos sqlite para que no te compliques aja dos formularios uno servidor y otro cliente en uno ponéis poner llenar lo datos como por ejemplo dos textbox y un DateChooser este es para elegir la fecha también agregas un buscador por si acaso necesitas modificar algo   y el otro formulario un buscado interno que te compare fechas y listo algo con el cual tiene mas opciones ventajas mejor control claro como dijo el anterior compañero esto es una sugerencia
 



 
alexprox - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
muchas gracias nome la sabia esa
pero falta un detalle
que pasa con la fecha

y otra mas

en el caso que opte por qla opcion de que me lea una linea por dia


que codigo me permite calcular o mostrar el dia hoy si bien es 16 de junio  en el rnago de 1 a 365 que son los dias del año
como le hago para que me devuleva solo un numero  y este sea la variable que permita leer la linea correspondiente




gracias de antemano
 



 
vikobak - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
vikobak escribió: [Ver mensaje]

en el caso que opte por la opción de que me lea una linea por día

¿que código me permite calcular o mostrar el día hoy si bien es 16 de junio  en el rango de 1 a 365 que son los días del año?
¿Cómo hago para que me devuelva solo un número  y éste sea la variable que permita leer la linea correspondiente?

gracias de antemano


Esta simple función te permite obtener el día del año, es decir, los días transcurridos desde el 1 de enero del presente año:

PUBLIC FUNCTION dayOfYear() AS Integer
    DIM myDate AS Date
    myDate = Date(Year(Now), 1, 1)
    RETURN DateDiff(myDate, Now, gb.Day) + 1  
END


Te devuelve un número entero, por lo tanto podrías escribir un fichero con 365 líneas y leer la que corresponda al día de hoy.
Recuerda que para usar la función debes poner obligatoriamente los paréntesis del final:

PRINT dayOfYear()

Como ves, le sumo 1 al resultado de la expresión, porque el 1 de enero lo cuenta como cero.


Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
como hago para leer linea por linea

y como mencione recorrer con un boton siguiente y un boton anterior

viendo el caso de leer linea por linea
 



 
vikobak - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
y donde va esta funcion
 



 
vikobak - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
Hola.

No estaría de mas un gracias o un por favor

Saludos
 



 
abarzuaf - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Que El Textarea Cambie Cada Dia Su Contenido 
 
pues es sin duda que se debe el agradecimiento por la informacion util que se me proporciono
muchas gracias

Nota del Administrador:

Continúa aquí: http://foro.gambas-es.org/viewtopic.php?f=1&t=702
 



 
última edición por jguardon el Jueves, 17 Junio 2010, 20:18; editado 1 vez 
Editado por jguardon, Jueves, 17 Junio 2010, 20:18: Enlace a otro hilo
vikobak - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Introducir Salto De Linea Cada 45 Caracteres. CanihoJR General 3 Lunes, 08 Agosto 2011, 11:35 Ver último mensaje
Invitado
No hay nuevos mensajes No Cambia El Color Del Texto De ComboBox A... jmdelas General 2 Viernes, 03 May 2013, 18:29 Ver último mensaje
jmdelas
No hay nuevos mensajes TableView Y Hacer Que Una Celda No Muestre... tincho Aplicaciones/Fragmentos de Código 9 Jueves, 25 Octobre 2018, 21:09 Ver último mensaje
tincho
No hay nuevos mensajes Hacer Que Se Expanda Contenido De Fmain. portaro Aplicaciones/Fragmentos de Código 9 Jueves, 22 Agosto 2019, 00:19 Ver último mensaje
portaro
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No 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



  

 

cron