Mensajes

Bueno amigos necesito saber si es posible hacer un programa que obtenga mi IP
y luego si la IP es distinta a la que yo tengo en mi ordenador se auto ejecute el programa osea yo tengo 2 portatiles y uno tiene

la ip: 255.345.234 (esta es la ip mia)

y el otro : 125.344.23

y ahora yo al pasar ese programa ami otra pc  (como es ip distina: 125.334.23) pues se autoejecuta sin que ella le de clics al programa osea automaticamente.

Eso es posible?

Saludos

Bueno explico esto para la gente que lo quiera aprender.

bueno primero antes que nada que es DateAdd?

DateAdd --> DateAdd(intervalo, número, fecha)

El argumento intervalo puede tener los siguientes valores:

Código [Seleccionar] Expandir

Valor Descripción
yyyy          Año
q          Trimestre
m           Mes
y        Día del año
d        Día
w        Día de la semana
ww        Semana del año
h        Hora
n        Minuto
s        Segundo


Código [Seleccionar] Expandir

El argumento numero es asi:
Constante Valor Descripción
vbUseSystem 0 Usa valores de API de idioma nacional (NLS).
vbSunday 1 domingo (valor predeterminado)
vbMonday 2 lunes
vbTuesday 3 martes
vbWednesday 4 miércoles
vbThursday 5 jueves
vbFriday 6 viernes
vbSaturday 7 sábado


y esto es una pequeña información para que lo entendais mejor:

Observaciones

Puede utilizar la función DateAdd para sumar un intervalo de tiempo especificado a una fecha o restárselo. Por ejemplo, puede utilizar DateAdd para calcular una fecha de 30 días a partir de hoy o una hora de 45 minutos desde ahora. Para agregar días a fecha, puede utilizar el Día del Año ("y"), Día ("d") o Día de la semana ("w").

La función DateAdd no devolverá una fecha que no sea válida. El siguiente ejemplo suma un mes al 31 de enero:

NewDate = DateAdd("m", 1, "31-ene-95")
En este caso, DateAdd devuelve 28-feb-95, no 31-feb-95. Si fecha es 31-ene-96, devuelve 29-feb-96 porque 1996 es un año bisiesto.

Si la fecha calculada fuera anterior al año 100, se produciría un error.

Si el número no es un valor Long, se redondea al número entero más cercano antes de evaluarse.

Bueno el CData --> bueno para que lo entiendas es por ejemplo

Código [Seleccionar] Expandir

MiFecha  = "19 de Octubre de 1962"   ' Define una fecha.
MiFechaCorta = CDate(MiFecha )        ' Convierte en tipo de datos Date.
MiHora = "4:35:47 PM"              ' Define una hora.
MiHoraCorta = CDate(MiHora)        ' Convierte en tipo de datos Date.

DateDiff --> Esto seria así

Código [Seleccionar] Expandir

DateDiff(intervalo, fecha1, fecha2[,primerdíadelasemana[,primerasemanadelaño]])

y bueno los argumentos de arriba te sirven...


Bueno espero a ver aclarado mucho y ahora para terminar este tutorial pues voy a poner un ejercicio para tener mas base...

Colocar un control TextBox llamado Text1
un control Command llamado Command1.
En el Text1 escribir una fecha:

Código [Seleccionar] Expandir

Option Explicit 
Private Sub Form_Load() 
    Text1 = " Escriba una fecha para calcular el númerode días de un mes " 
End Sub 
 
 
Private Sub Command1_Click() 
 
Dim Fecha_1 As Date 
Dim Fecha_2 As Date 
 
    Fecha_1 = CDate(Text1) 
    Fecha_2 = DateAdd("m", 1, Fecha_1) 
     
    ' Muestra los días 
    MsgBox " Este mes tiene : " & Format$(DateDiff("d", Fecha_1, Fecha_2)) 
 
End Sub 

Saludos

Muy buen manual

Ans ok es que me extrañaba gracias por la ayuda 

ese codigo que pusistes es por que .El que yo puse estaba mal?

es que solo pedi el por que el numero mayor es 0 y el menor tambien 0 yo me creía que el numero mayor DE MI CODIGO es el 24 y el menor el 0 evidentemente

Saludos

Es que raul me aconsejo elguille y por lo que veo es que es bueno pero los ejercicios que manda o no esta bien explicados o manda cosas demasiado dificil o no lo explica muy bien

si alguien me dice un buen manual se lo agradecería pero que se de las APIS y todo eso si puede ser uno bueno

Bueno esto es un programa que quiero que haga estas 2 cosas:

1.) Tienes un array con un número cualquiera de elementos, averigua cual de las variables de ese array es la que tiene el valor mayor.
2.) La que tiene el valor menor y que no sea cero.


entonces para el primer ejercicio tengo este código:

Código [Seleccionar] Expandir

'Poner este código en el Form_Load
Dim Hora(24) As Integer
Dim i As Integer, Mayor As Integer

'Llenar el array con números...
'(en esta entrega veremos cómo hacerlo de forma aleatoria)
'...
'Comprobar cual es el mayor
For i = 1 To 24
    If Hora(i) > Mayor Then
Mayor = Hora(i)
    End If
Next
Print "El número mayor es:"; Mayor

Y ahora para el segundo ejercicio tengo este código:

Código [Seleccionar] Expandir

'Los mismos comentarios iniciales que el primero
Dim Hora(24) As Integer
Dim i As Integer, Menor As Integer
'
For i = 1 To 24
    If Hora(i) Then 'Sólo si no vale cero
If Menor = 0 Then 'Si aún no tiene un valor
    Menor = Hora(i) 'se lo asignamos
Else
    If Hora(i) < Menor Then 'Si el contenido de Hora(i) es menor
Menor = Hora(i) 'lo asignamos como menor
    End If
End If
    End If
Next
Print "El número menor es "; Menor

Bueno esto lo mire de una pagina por que estoy dando esto de los arrays y eso y quise practicar pero cuando lo probé en mi vb6 y le di al commandButton

me imprimió en el primer ejercicio que  el número mayor es: 0

y cuando probé el código del segundo ejercicio mi imprimió:

que el numero menor es: 0

Cosa que no lo entiendo en todo caso el numero mayor sería el 24
y el numero menor el 0 ¿no?

Si me puedes explicar las lineas se lo agradecería para entenderlo mejor es que me cuesta

Gracias 

Ami el wow me gustaba mucho,pero a las 3 semanas por ay lo deje... mucho time en ese juego  aparte que no tenía tiempo de jugar..

Saludos

Ok gracias

Saludos

Edu eso de la calculadora es muy facil jajaj.......

yo no quiero eso, yo quiero que me digais 4 programas diferentes me da igual de que se trate pero que yo tenga que usar And, Or y Not y si puede ser otro con los 3 juntos..

1) Un programa de CUALQUIER tipo que se use AND

2) Un programa de CUALQUIER tipo que se use OR

3) Un programa de CUALQUIER tipo que se use Not

Repito: no quiero la fuente del programa, solo quiero que me digais un programa para yo hacerlo pero uno con AND,OR Y NOT y luego uno si puede ser con los 3 juntos

Saludos y gracias......