[VB6] Simples Slot_Machine

[UnKnowN]

Private Sub Command1_Click()
Dim a, b, c As Color
Dim j, k, l As Integer
a = Picture1.BackColor
b = Picture2.BackColor
c = Picture3.BackColor
j = Int(Rnd * 3) + 1
If j = 1 Then
a = RGB(255, 0, 0)
End If
If j = 2 Then
a = RGB(0, 165, 255)
End If
If j = 3 Then
a = RGB(30, 255, 30)
End If
k = Int(Rnd * 3) + 1
If k = 1 Then
b = RGB(255, 0, 0)
End If
If k = 2 Then
b = RGB(0, 165, 255)
End If
If k = 3 Then
b = RGB(30, 255, 30)
End If
l = Int(Rnd * 3) + 1
If l = 1 Then
c = RGB(255, 0, 0)
End If
If l = 2 Then
c = RGB(0, 165, 255)
End If
If l = 3 Then
c = RGB(30, 255, 30)
End If
End Sub

O que é que está mal ? O erro dá-se em Dim a, b, c As Color

User-defined type not-defined

Quero agradecer desde já ao Ridelight, foi com o programa dele que consegui encontrar as perfect colors para a Slot 😞

http://ridelight.no.sapo.pt/simulador.html

PS: Tenho 3 PictureBox's e 1 Botao 🙂

[Tiago Salgado]

Dá-te erro porque não te permite fazer esse tipo de declaração.

[UnKnowN]

Entao pkek o erro só da no c ?

[vbmaster]

sem saber a versão, nada feito... continuam a ignorar o post das regras!

[Tiago Salgado]

Em 17/04/2006 às 21:24, UnKnowN disse:

Entao pkek o erro só da no c ?

Porque é a ultima variavel declarada...se acrescentares o "d" ele irá dar erro no d 😞

[UnKnowN]

Hmm... ok... Mas entao como é que resolvo ? Não vejo onde esteja o rpoblema 😐

[Tiago Salgado]

Em vez de pores a = Picture1.BackColor e dps tentares por a = RGB(0, 165, 255) metes tipo:

If j = 1 Then

Picture1.BackColor = RGB(255, 0, 0)

End If

[UnKnowN]

Deu, Obrigadão Tiago Salgado. Este Moço é do Best LOL!! XD

PS: 1º Post Editado 😞