Mensajes

uhh esta dificil encontrarle....

Pero funciona, ¿verdad? Investiga un poco que nadie mejor que tu va ha saber lo que quieres...
Respecto a lo del And en el If seria asi:

Código (vb) [Seleccionar] Expandir


If Date = "16/05/2010" And Time = "22:48:50" Then Msgbox "*PsYkE1* no te va ha hacer los deberes todos los dias..."



Salu2!

[IF]

claro
Seria así:

Código (vb) [Seleccionar] Expandir


Dim miNivel As Integer

Private Sub Form_Load()
       miNivel = SCRLL.Value
End Sub

Private Sub VScroll2_Change()
   If SCRLL.Value = SCRLL.Max / 2 Then
       MsgBox "estoy en el medio"
   ElseIf SCRLL.Value > miNivel Then
       MsgBox "estoy subiendo el nivel"
   Else
       MsgBox "estoy bajando el nivel"
   End If
   miNivel = SCRLL.Value
End Sub

Salu2!

Tienes que hacerlo en el orden que te puse yo, porque sino, detecta antes que has aumentado el value y sales del IF antes de que compruebe que esta en la mitad, ¿entiendes?
Prueba con esto:

Código (vb) [Seleccionar] Expandir

Private Sub VScroll2_Change()
   If VScroll2.Value = VScroll2.Max / 2 Then
       Label5.BackColor = vbRed
       Label6.BackColor = vbGreen
       MsgBox "estoy en el medio"
   ElseIf VScroll2.Value > MedidorNivel3 Then
       Label5.BackColor = vbRed
       Label6.BackColor = vbRed
       MsgBox "El medidor del nivel 3 detecta baja cantidad de agua"
   Else
       Label5.BackColor = vbRed
       Label6.BackColor = vbRed
       MsgBox "El medidor del nivel 3 detecta baja cantidad de agua"
   End If
   MedidorNivel3 = VScroll2.Value
End Sub

Y si, es exacto, es exactamente la mitad del scroll...
Si el maximo del Scroll no es par, la mitad no te dara exacta, entonces pones el doble del valor, asi la mitad del nuevo Max seria el antiguo Max (no se si me explique...)

Espero haberte ayudado!

Salu2!

Ok, gracias a postear mi code he aprendido mucho...
Lo corregire en breves...
Una vez más:
Gracias BlackZeroX▓▓▒▒░░  

Muchas gracias!!!!!!!!!
no pasara para la proxima!!!!!!!

Salu2!

Gracias, no tenia ni idea, solo fue un experimento...
Voy a mirar eso...

Salu2!

claro
Seria así:

Código (vb) [Seleccionar] Expandir


Dim miNivel As Integer

Private Sub Form_Load()
        miNivel = SCRLL.Value
End Sub

    If SCRLL.Value = SCRLL.Max / 2 Then
        MsgBox "estoy en el medio"
    ElseIf SCRLL.Value > miNivel Then
        MsgBox "estoy subiendo el nivel"
    Else
        MsgBox "estoy bajando el nivel"
    End If
    miNivel = SCRLL.Value
End Sub

Salu2!

[Timer]

Hola buenas, aqui os presento mi ultimo invento :
Hacer garabatos de colores en tu formulario, es simple, pero me gusta el efecto...
Al cabo de unos seg tendriamos algo asi:


o así:


Bueno aqui va el codigo, es la cosa mas estupida que podais imaginar:
Necesitamos añadir:

* Un Timer
* Un ScrollBar
* Tres CommandButton (con una matriz)
* Un Label

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////

'\\Variables
Dim R1 As Integer, R2 As Integer, R3 As Integer, R4 As Integer
Dim C1 As Integer, C2 As Integer, C3 As Integer
Dim L As Integer
Dim Relleno As Boolean
Dim Que As Variant

Private Sub Form_Load()
   ' Pongo titulo al Form
   Me.Caption = "*PsYkE1* - Garabatos"
   ' Asigno el caption a cada botón
   Command1(0).Caption = "Parar"
   Command1(1).Caption = "Rellenos"
   Command1(2).Caption = "Salir"
End Sub

Private Sub HScroll1_Scroll()
   ' El intervalo del Timer sea igual a el Value del ScrollBar
   Timer1.Interval = HScroll1.Value
   ' El Value del ScrollBar me aparezca en el Label1
   Label1.Caption = HScroll1.Value
End Sub

Private Sub Command1_Click(Index As Integer)
   'Segun el Index asigno unos comandos a cada botón
   Select Case Index
       '\\Parar
       Case 0
           ' Limpio el Form
           Me.Cls
           ' Depende del Caption hace una cosa u otra
           If Command1(0).Caption = "Parar" Then
               MsgBox "Se han quitado los garabatos de tu Formulario", vbInformation, "*PsYkE1* - Garabatos"
               Timer1.Enabled = False
               Command1(0).Caption = "Comenzar"
           Else
               Timer1.Enabled = True
               Command1(0).Caption = "Parar"
           End If
       '\\Rellenos
       Case 1
           ' Limpio el Form
           Me.Cls
           Timer1.Enabled = True
           Command1(0).Caption = "Parar"
           ' Depende del Caption hace una cosa u otra
           If Command1(1).Caption = "Rellenos" Then
               Relleno = True
               MsgBox "Ahora se hará con rectangulos opacos", vbInformation, "*PsYkE1* - Garabatos"
               Command1(1).Caption = "Huecos"
           Else
               Relleno = False
               MsgBox "Se han quitado los garabatos de tu Formulario", vbInformation, "*PsYkE1* - Garabatos"
               Command1(1).Caption = "Rellenos"
           End If
       '\\Salir
       Case 2
           ' Si el Timer esta activado pregunta si quieres salir
           If Timer1.Enabled = True Then
               Que = MsgBox("¿Deseas salir?", vbQuestion + vbYesNo, "*PsYkE1* - Garabatos")
               ' Si dices SI sales del programa
               If Que = vbYes Then End
           End If
       End Select
   
End Sub

Private Sub Timer1_Timer() ' Cada 5 milisegundos

' Etiqueta Rndm
Rndm:

   ' Para que me salgan números aleatorios
   Randomize

   With Me ' Con el formulario actual
       ' Coordenada x del punto de partida
       ' dentro del alto del Form
       R1 = Int(Rnd * .Height)
       ' Coordenada y del punto de partida
       ' dentro del alto del Form
       R2 = Int(Rnd * .Height)
       ' Coordenada x del punto final
       ' dentro del ancho del Form
       R3 = Int(Rnd * .Width)
       ' Coordenada y del punto final
       ' dentro del ancho del Form
       R4 = Int(Rnd * .Width)
   End With

   ' Si las coordenadas de partida coinciden con las finales voy a la etiqueta Rndm
   If R1 = R3 And R2 = R4 Then GoTo Rndm

   ' Tres números aleatorios para definir el color de nuestra futura linea
   C1 = Int(Rnd * 255)
   C2 = Int(Rnd * 255)
   C3 = Int(Rnd * 255)

   If Relleno = False Then
       L = Int(Rnd * 3 + 1)
       If L = 1 Then
           Line (R1, R2)-(R3, R4), RGB(C1, C2, C3) ' Lineas
       ElseIf L = 2 Then
           Circle (R1, R2), (R3), RGB(C1, C2, C3) ' Circulos
       Else
           Line (R1, R2)-(R3, R4), RGB(C1, C2, C3), B ' Rectándulos
       End If
   Else
       Line (R1, R2)-(R3, R4), RGB(C1, C2, C3), BF ' Rectangulos rellenos
   End If

End Sub

Descargalo en http://www.mediafire.com/?yymmaefy1ey

Espero que os haya gustado...  

Salu2!

He mirado el code y funcionar funciona...
Solo unas cosillas:
*Te aconsejo cifrar la clave del registro porque antivirus como el NOD-32 pueden detectarte esto...
*En el Form_Load no es necesario establecer el valor 0 a la variable Pos porque es el valor por defecto.
*Creo que le podrias haber añadido más cosas, no?¿ (No creo que te hubiiera llebado mucho tiempo)...Ademas que este tipo de programas esta bastante visto...

Espero que tengas en cuenta las cosillas que te he dicho, y que sepas que lo utilize en mi PC...

Salu2!  

Eso es un fake como un catedral de grande...
Aunque debo de admitir que me ha hecho mucha gracia!

Salu2!

Mira esto:

Código (vb) [Seleccionar] Expandir


Dim miNivel As Integer

Private Sub Form_Load()
        miNivel = SCRLL.Value
End Sub

Private Sub SCRLL_Change()
    If SCRLL.Value > miNivel Then
        MsgBox "estoy subiendo el nivel"
    Else
        MsgBox "estoy bajando el nivel"
    End If
    miNivel = SCRLL.Value
End Sub

Con esto de base solo tendrias que adaptarlo a tu proyecto para que los shapes cambien de color...
Espero que te sirva...

Salu2!