Estoy buscando un programa para comparar los tamaños de naipes usando VB. Solo hay dos. ¿Alguien amable puede ayudarme?
'Añadir 2 cuadros de imagen y 2 etiquetas al formulario
'El cuadro de imagen se utiliza para mostrar imágenes de naipes
Tipo privado PK
Imagen como imagen estándar
Núm. como entero
Tipo final
Atenuar PK() como PK
Privado Sub Form_Load()
Mostrar
Label1.Caption = ""
Label2.ReDim PK(2 a 14)
'Establecer PK(2).Pic = LoadPicture("ruta del nombre del archivo")'Imagen de Poker 2
PK(2).Num = 2
'Establecer PK(3). ("nombre de archivo de ruta")'Imagen de Poker 3
PK(3).Num = 3
'Set PK(4).Pic = LoadPicture("nombre de archivo de ruta ")' Imagen de poker 4
PK(4).Num = 4
'Set PK(5).Pic = LoadPicture("path filename")'Imagen de poker Imagen de 5
PK(5).Num = 5
'Set PK(6).Pic = LoadPicture("ruta del nombre del archivo")'Imagen de Poker 6
PK (6).Num = 6
'Set PK(7).Pic = LoadPicture("ruta del nombre del archivo")'Poker 6
'Set PK(7). ("nombre de archivo de ruta") 'Imagen del naipe K
PK(13).Num = 13 'K
'Set PK(14).Pic = LoadPicture( "nombre de archivo de ruta) ") 'Imagen del naipe A
PK(14).Num = 14 'A
MsgBox "Haz clic con el ratón para seleccionar el que creas que es más grande"
End Sub
Private Sub Picture1_Click()
Atenuar i como entero
Atenuar j como entero
RndPic i, j
Si gt;j Entonces
MsgBox "Correcto"
De lo contrario
MsgBox "Error"
Finalizar si
End Sub
Subimagen privada2_Click( )
Atenuar i como entero
Atenuar j como entero
RndPic i, j
Si j gt i Entonces
MsgBox "Correcto"
De lo contrario
MsgBox "Error"
Fin si
End Sub
Private Sub RndPic(i como entero, j como entero)
Aleatorizar
A:
i = Int((14 - 2 1) * Rnd 2)
j = Int( (14 - 2 1) * Rnd 2)
Si i = j Entonces vaya a A
Seleccione el caso i
Caso 11
Etiqueta1. Label1.Caption = "J"
Caso 12
Label1.Caption = "Q"
Caso 13
Label1.Caption = "K"
Caso 14
Label1.Caption = "A"
Caso más
Label1.Caption = i
Fin Seleccionar
Seleccionar Caso j
Caso 11
Label2.Caption = "J"