Mensajes

[Necesitas:]

Mira buscate un dado, y dibujalo en paint o busca imagenes e intenta dibujarlo en una perspectiva que se vean 3 caras o si queres una sola y cargas en cada picture una cara del dado. Ej:

Código (vb) [Seleccionar] Expandir


Picture1.Picture = LoadPicture("C:\dado1.jpg")
Picture2.Picture = LoadPicture("C:\dado2.jpg")
Picture3.Picture = LoadPicture("C:\dado3.jpg")
Picture4.Picture = LoadPicture("C:\dado4.jpg")
Picture5.Picture = LoadPicture("C:\dado5.jpg")
Picture6.Picture = LoadPicture("C:\dado6.jpg")

y despues cuando apretas un boton que su funciona sea "tirar los dados" haces:

Código (vb) [Seleccionar] Expandir


Private Sub cmdTirar_Click()
Dim i As Integer
Dim x As Integer

For i = 1 To Int(Rnd * 15) + 3  'El dado puede llegar a rodar 15 veces, minimo 3
   x = Int(Rnd * 6) + 1 'El dado puede salir entre 1 y 6 (osea sus caras)
   Select Case x
      Case 1: PictureDado.Picture = Picture1.Picture 'Si el dado sale 1 carga dado 1
      Case 2: PictureDado.Picture = Picture2.Picture 'Si el dado sale 2 carga dado 2
      Case 3: PictureDado.Picture = Picture3.Picture 'Si el dado sale 3 carga dado 3
      Case 4: PictureDado.Picture = Picture4.Picture 'Si el dado sale 4 carga dado 4
      Case 5: PictureDado.Picture = Picture5.Picture 'Si el dado sale 5 carga dado 5
      Case 6: PictureDado.Picture = Picture6.Picture 'Si el dado sale 6 carga dado 6
    End Select
    DoEvents 'Para que nuestro programa funcione sin colgarse
    PictureDado.Refresh 'Redibujamos la imagen del dado para visualizar bien
    Call Sleep(250) 'Duerme al programa por 0.25 segundos
Next i
End Sub

Y por ultimo agregamos esta API y esta funcion en el Form_Load para que empieze a crear numeros aleatorios:

Código (vb) [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Randomize

Entonces el codigo bien armado nos queda asi:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
'Aca cargamos cada picture con una imagen del dado diferente (1 x cada cara)
Randomize
Picture1.Picture = LoadPicture("C:\dado1.jpg")
Picture2.Picture = LoadPicture("C:\dado2.jpg")
Picture3.Picture = LoadPicture("C:\dado3.jpg")
Picture4.Picture = LoadPicture("C:\dado4.jpg")
Picture5.Picture = LoadPicture("C:\dado5.jpg")
Picture6.Picture = LoadPicture("C:\dado6.jpg")
End Sub

Private Sub cmdTirar_Click()
Dim i As Integer
Dim x As Integer

For i = 1 To Int(Rnd * 15) + 3  'El dado puede llegar a rodar 15 veces, minimo 3
   x = Int(Rnd * 6) + 1 'El dado puede salir entre 1 y 6 (osea sus caras)
   Select Case x
      Case 1: PictureDado.Picture = Picture1.Picture 'Si el dado sale 1 carga dado 1
      Case 2: PictureDado.Picture = Picture2.Picture 'Si el dado sale 2 carga dado 2
      Case 3: PictureDado.Picture = Picture3.Picture 'Si el dado sale 3 carga dado 3
      Case 4: PictureDado.Picture = Picture4.Picture 'Si el dado sale 4 carga dado 4
      Case 5: PictureDado.Picture = Picture5.Picture 'Si el dado sale 5 carga dado 5
      Case 6: PictureDado.Picture = Picture6.Picture 'Si el dado sale 6 carga dado 6
    End Select
    DoEvents 'Para que nuestro programa funcione sin colgarse
    PictureDado.Refresh 'Redibujamos la imagen del dado para visualizar bien
    Call Sleep(250) 'Duerme al programa por 0.25 segundos
Next i
End Sub

Necesitas:
1 PictureBox llamado PictureDado (Para mostrar el dado)
6 PictureBox llamados Picture1, Picture2, Picture3, etc y con propiedad Visible = False (Para guardar cada cara del dado)
1 CommandButton llamado cmdTirar (Para tirar los dados)
6 Imagenes guardadas en C:\ con nombre dado1.jpg, dado2.jpg hasta el 6


Lo elabore recien, cualquier cosa avisame y espero te sirva

PD: Podes ponerle las imagenes vos a los Picture o buscate 6 imagenes de dados y ponelas en tu Disco C:\ y llamalas Dado1, Dado2, Dado3 y que esan jpg, si queres cambiale la ruta, la extension o lo que te parezca!


Sancho.Mazorka   

Cuando lo ejecuten abri un archivo o en el registro de windows y pone que ya se uso, y cuando quieran usarlo de vuelta que verifique si ya se uso y no te deje usarlo de nuevo


Sancho.Mazorka   

man si supiese te ayudo, pero no se, posteaste en el foro incorrecto, aca es donde van las aplicaciones de .NET http://foro.elhacker.net/index.php/board,62.0.html ahi talvez te puedan ayudar


Sancho.Mazorka   

Descargate la Api-Guide y busca las APIs que tengan que ver con este tema:

Windows Information

En el TreeView aparece ese nombre como contenedor de las APIs para obtener informacion de una PC


Sancho.Mazorka   

No se si has probado VB6, pero deben ser iguales:

Código [Seleccionar] Expandir

NombreModulo.Funcion(Parametros)

Creo que unicamente puedes llamar a las variables, funciones y subs publicos!

Sancho.Mazorka   

Código (vb) [Seleccionar] Expandir

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255

Private Sub Form_Load()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
MsgBox sConnType
End Sub

Esto devuelve el nombre de la conexion que esta en este momento activa 
Avisame si te sirve! 


Sancho.Mazorka   

No entendi bien, pero creo que queres convertir el nombre de algo en una variable...Creo que yo tambien pregunte esto una vez y me dijeron que no!
Ej ( es pseudocodigo de visual basic ):

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Var As String
Var.Name = Command1.Name
'Var ahora pasa a llamarse Command1
End Sub

Sancho.Mazorka   

Ahi http://foro.elhacker.net/index.php?topic=183002.0 explico como conectarse a una web, unque le den el credito a otra persona     


Sancho.Mazorka   

Mas facil:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text2.Text = StrReverse(Text2.Text)
End Sub

Sancho.Mazorka   

Toma, esta es la web oficial de OpenGL http://www.opengl.org/
Y con VB es facil hacer un fullscreen con el tamaño de la resolucion, primero obtenes la resolucion, despues haces un fullscreen, y despues redimensionas 

Web con ejemplos:
http://www.glprogramming.com/red/
http://www.opengl.org/resources/code/samples/redbook/
Sancho.Mazorka