Hello, i have to create a game of Mastermind, does anyone know how in Visual Basic




Does anyone know how i can make the colour when clicked, appear in the box below?

Thanks

I haven't done VB for a while, but this is a fairly simpel way to do it

I'm going to call:
The buttons you click by the colours they are.
The choices (at the bottom) "C1", "C2", "C3" and "C4"
The variable "selector" will represent what choice you are on

Put this in the different color buttons.

code:

---

"C" & selector.backcolor="&H80000007&"
If selector =< 4 then
selector = selector + 1
end if

---

code:

---

Dim blank1set, blank2set, blank3set, blank4set As Boolean
Public Sub Blue_click()
If blank1set = True Then
    If blank2set = True Then
        If blank3set = True Then
            blank4.BackColor = &HFF0000
            blank4set = True
        Else
            blank3.BackColor = &HFF0000
            blank3set = True
        End If
    Else
        blank2.BackColor = &HFF0000
        blank2set = True
    End If
Else
    blank1.BackColor = &HFF0000
    blank1set = True
End If

End Sub

---

lol wow am i confused

so do i put all the code in the button that is white or the actual coloured button?

the boxes are called:

cmdred
cmdblue
cmdgreen                     MAIN BOXES
cmdyellow
cmdblack
cmdwhite

cmdfinal1
cmdfinal2                     WHITE BOXES
cmdfinal3
cmdfinal4

quote:

---

Originally posted by mwe99
lol wow am i confused

so do i put all the code in the button that is white or the actual coloured button?

the boxes are called:

cmdred
cmdblue
cmdgreen                     MAIN BOXES
cmdyellow
cmdblack
cmdwhite

cmdfinal1
cmdfinal2                     WHITE BOXES
cmdfinal3
cmdfinal4

---

When i do i get an error saying Syntax Error and the

Private Sub cmdred_Click()
"C" & selector.backcolor="&H80000007&"

is highlighted in red


wooo i got it working

Cmdfinal1.BackColor = Cmdred.BackColor

Did you define selector?

Nope i did it the different way... i just need a way to get the buttons when its filled to move on to the next box now gr

"C" & selector.backcolor="&H80000007&"


the back colour is long not a string

put

"C" & selector.backcolor= &H80000007&

vb will automaticly change it to the right colour value

nope still comes up red... here look

it doesn't seem to like the & sign

i have the colour going in the box... i just need something to tell the other colours to go to the next box

so after cmdfinal1 has been filled, automatically make the next colour go to cmdfinal2

quote:

---

Originally posted by mwe99
nope still comes up red... here look

it doesn't seem to like the & sign

i have the colour going in the box... i just need something to tell the other colours to go to the next box

so after cmdfinal1 has been filled, automatically make the next colour go to cmdfinal2

---

code:

---

"C" & selector.backcolor = me.backcolor
If selector =< 4 then
selector = selector + 1
end if

---

Whats the selector then? the cmdfinal1 ?

quote:

---

Originally posted by mwe99
Whats the selector then? the cmdfinal1 ?

---

if you would have used arrays of buttons, you'd only have to write one procedure and it would have been much easier.

code:

---

"C" & selector.backcolor = me.backcolor
If selector =< 4 then
selector = selector + 1
end if

---

quote:

---

Originally posted by mwe99
lol wow am i confused

---

quote:

---

Originally posted by Millenium_edition
if you would have used arrays of buttons, you'd only have to write one procedure and it would have been much easier.

---

code:

---

Option Explicit

Dim CurrentBox As Byte

Private Sub Form_Load()
  CurrentBox = 1
  Call ClearBoxes
End Sub

Private Sub cmdColor_Click(Index As Integer)
  cmdFinal(CurrentBox).BackColor = cmdColor(Index).BackColor
  CurrentBox = CurrentBox + 1
  If CurrentBox = 5 Then
    Call Validate
    '
    CurrentBox = 1
    Call ClearBoxes
  End If
End Sub

---

It still makes the code red

i don't know why but its not seeming to accept the code so i deleted the code,


i attached this to see if anyone can see the solution.

quote:

---

Originally posted by mwe99
It still makes the code red

i don't know why but its not seeming to accept the code so i deleted the code

---

quote:

---

Originally posted by mwe99
i attached this to see if anyone can see the solution.

---