Mensajes

muchas gracias a los que respondieron, yo mismo ya hice el codigo, asi que lo cuelgo por si alguna persona lo necesite:

supongamos que quiera ver que la hora actual este contenida entre las 05:15:14 p.m. y las 09:16:11 a.m.(del dia sgte obviamente)
(creo que lo correcto seria llamarlo dentro del rango de..)

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim a As Date
Dim b As Date
a = CDate("08/01/2009" & " " & "05:15:14 p.m.")
b = CDate("08/01/2009" & " " & "09:16:11 a.m.")
Dim criterio As Date
criterio = CDate("08/01/2009" & " " & Time)
If DateDiff("s", a, b) < 0 Then
b = DateAdd("d", 1, b)
End If
If DateDiff("s", a, criterio) > 0 And DateDiff("s", b, criterio) < 0 Then
MsgBox "esta contenido"
End If
End Sub


saludos

hola foro, estuve buscando en internet la manera de hacer cierta cosa dentro de un intervalo de tiempo. por ejemplo:
en el evento load poner esto

si time está entre el intervalo de 12:40:20 pm y las 08:15:10 am hacer lo siguiente (aca codigo para hacer)

pero no logre encontrar nada, alguna idea?

saludos

me habia olvidado de esa pagina pero de todas maneras no sabia con que terminos buscar ayuda en ella. gracias

en c++ era facil : solo me dirigia a la zona de mensajes y trabajaba con el mensaje sw_show pero en visual basic no se como poder trabajar con el evento show. lo que quiero es que se muestre un mensaje msgbox cada vez que el evento show es ejecutado

saludos

Recien me estoy metiendo a sacon en la programacion en ventanas en c++ uso codeblocks y estoy en la busqueda de un ejemplo en la que haya ventanas hijas ( por si acaso no me refuero a controles), desafortunadamente no encontre buena informacion, y lo poco valioso qu encontre son ejemplos basados en dialog base(recursos,  con BEGIN -END, etc), yo quisiera ejemplos basados en frames ( lo tradicional)

¡alguno me podria ayudar?

saludos

felizmente hace poco halle la solución, era pasar por byval el buffer, aca el codigo

Código [Seleccionar] Expandir

Option Explicit
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_ALWAYS = 4
Private Const FILE_BEGIN = 0


Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hfile _
As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh _
As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" ( _
               ByVal hfile As Long, _
               lpFileSizeHigh As Long) As Long
Private Sub Command1_Click()

 Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte
   Dim sTemp As String, nSize As Long, Ret As Long
   
Dim charbuffer As String
charbuffer = "Anonymous!"
hNewFile = CreateFile("c:\ajhgk.txt", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_ALWAYS, 0, 0)
WriteFile hNewFile, ByVal charbuffer, 10, Ret, ByVal 0&

CloseHandle hNewFile
End Sub



Disculpen por desviar el tema, pero creo que es mas comodo usar las funciones de visual basic . lo de arriba lo postee ya que las funciones de vb no escriben archivos de manera secuencial, sino linea por linea (caso append) y decici usar el api, pero veo que es complicadito...

¿alguna idea de poder hacer que la salida de append, la haga concatenada y no por linea a linea?

saludos

buenos dias ,he implementado un code para escribir contenido en un archivo (que ha de estar creado con el nombre ajhgk.txt y en la c:\ antes de usar el programa), realmente funciona, pero escribe caracteres extraños

Código [Seleccionar] Expandir

Option Explicit
Const MOVEFILE_REPLACE_EXISTING = &H1
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_BEGIN = 0
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_NEW = 1
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const CREATE_ALWAYS As Long = 2
Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20
Const GENERAL_WRITE = 1073741824



Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hfile _
As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh _
As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" ( _
                ByVal hfile As Long, _
                lpFileSizeHigh As Long) As Long
Private Sub Command1_Click()

  Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte
    Dim sTemp As String, nSize As Long, Ret As Long
   
Dim charbuffer As String
charbuffer = "Anonymous!"
hNewFile = CreateFile("c:\ajhgk.txt", GENERIC_WRITE, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0)
WriteFile hNewFile, charbuffer, 10, Ret, ByVal 0&

CloseHandle hNewFile
End Sub


en vez de escribir Anonymous! escribe ¼NÇT:#   


espero que me ayuden

saludos

buenas, quisiera ver si hay una alternativa al conocido sleep de PHP ya que la funcion "duerme" el script y yo quisiera que solo se realiza el retraso sin que se interrumpa el script

Un usuario de VB6 me ayudo con un problema similar y este es el code

Código [Seleccionar] Expandir

Public Sub Wait(ByVal vToWait As Double)
Dim vDateE As String
vDateE = GetTickCount() + vToWait
Do While vDateE > GetTickCount()
'Call WaitMessage
DoEvents
Loop
End Sub

espero ayuda

bien, amigos, me dejaron una tarea en la que hay q convertir algoritmos a java, en uno de esos se usa una funcion parecida a gotoxy de c++ y bien , trate de buscar un equivalente en java y no lo encontre, asi que pense que en el foro ya han solucionado el problema, o si no se ha tocado este, quisiera al menos una funcion que determine la posicion del cursor en la consola , o al menos saber el numero de lineas actuales de la consola

saludos

PD :uso netbeans

Revisando algunas paginas de programacion, me encontre con una lista extensa de pseudocodigos , bien me dije: a programar se ha dicho.


Pues bien, de entre esos ejercicios me encontre con uno que me esta dando unos dolores de cabeza desde mucho y es este

Código [Seleccionar] Expandir

22.-Introducir una frase por teclado. Imprimirla cinco veces en filas
consecutivas, pero cada impresion ir desplazada cuatro columnas hacia la
derecha.

PROGRAMA frase
ENTORNO:
frase <- Espacios( 30 )
ALGORITMO:
Borrar_pantalla( )
EN 5,15 ESCRIBIR "Frase: "
EN 5,22 LEER frase
fi <- 8
co <- 15
veces <- 0
MIENTRAS veces <= 5 HACER
EN fi,co ESCRIBIR frase
veces <- veces + 1
co <- co + 4
fi <- fi + 1
FINMIENTRAS
FINPROGRAMA


EN 5,15 ESCRIBIR "Frase: "
EN 5,22 LEER frase
resalte con rojo la parte en la q tengo duda
¿se trata eso de un array o es solamente la posicion de los caracteres respecto a la pantalla?

link http://www.taringa.net/posts/ciencia-educacion/6747464/Ejercicios-resueltos-de-algoritmo.html

saludo y espero respuesta