«

[Kon-Tiki]

Done.

For Column = 0 To 3
 *For row = 0 To 5
 * * position = row * 7 + Column
 * * If Veld(position).Tag = player And Veld(position + 1).Tag = player And Veld(position + 2).Tag = player And Veld(position + 3).Tag = player Then
 * * * * *MsgBox "Winner!"
 * * * * *Call ClearField
 * * End If
 *Next row
Next Column

[Rogue]

Oh, I see now.

Use this line to create above function

position = row * 7 + Column

Then in the code, just call function and check if returned value is equal to playerID

[Kon-Tiki]

Hmm... might be a good idea. Never thought of making a one-line function, but it's used too many times (even in the clicking of the button on top) to keep readability. Just a slight readability improvement, but it is one.

[Rogue]

It will help you in diagonals, and it will give you back value for the box right where you need it. (It's not 1 line, as you have to return value for that position)

[Kon-Tiki]

Maybe a dumb question, but what's the syntax to return values? I've been working around it by making global vars >_>

[Rogue]

add 'as type' in declaration of function

Example:

Function GRID( row, column) as Integer
 *position = row * 7 + Column
 *GRID = array( position )
Function end

Now, when you call GRID(1,2) it will return value in that cell.

[Kon-Tiki]

Dim Row As Integer, Column As Integer, pos As Integer
Private Sub Klik_Click(Index As Integer)
Column = Klik(Index).Index
Row = 5

Do While Veld(pos).Tag = 0 Or Row > 0
 *pos = Position(Column, Row)
 *Row = Row - 1
 *MsgBox "Row = " & Row & "."
Loop
End Sub



' *****************
' ** Horizontaal **
' *****************
Sub Direction(Position, player)
Dim Column As Integer, Row As Integer
For Column = 0 To 3
 *For Row = 0 To 5
 * * Call Position(Column, Row)
 * * If Veld(Position).Tag = player And Veld(Position + 1).Tag = player And Veld(Position + 2).Tag = player And Veld(Position + 3).Tag = player Then
 * * * * *MsgBox "Winner!"
 * * * * *Call ClearField
 * * End If
 *Next Row
Next Column
End Sub

Function Position(Column, Row) As Integer
 *Position = Row * 7 + Column
 *pos = Position
End Function

This one goes to row -2, then gives an error (invalid control array index)


Edit: Nevermind. 6:30am here, so could expect such things. Changed the or to and in the loop and it works now.


Edit Edit: Seems like it always ends on row 0 >_>

[Rogue]

I see, in VB you can't use functions same as in C++

Sory about that, you can change that one line for position back to main function.

Just copy/paste this stuff, change criteria and you're done.

[Rogue]

Dim Row As Integer, Column As Integer, pos As Integer
Private Sub Klik_Click(Index As Integer)
Column = Klik(Index).Index
Row = 5

Do While Veld(pos).Tag = 0 Or Row > 0
 pos = Position(Column, Row)
 Row = Row - 1
 MsgBox "Row = " & Row & "."
Loop
End Sub



' *****************
' ** Horizontaal **
' *****************
Sub Direction(Position, player)
Dim Column As Integer, Row As Integer
For Column = 0 To 3
 For Row = 0 To 5
 * *Position = Row * 7 + Column
 * *If Veld(Position).Tag = player And Veld(Position + 1).Tag = player And Veld(Position + 2).Tag = player And Veld(Position + 3).Tag = player Then
 * * * * MsgBox "Winner!"
 * * * * Call ClearField
 * *End If
 Next Row
Next Column
End Sub

[Rogue]

Why you have this line criteria in the sub line?

Sub Direction(Position, player)

Also change this code to add player id to array

Private Sub Klik_Click(Index As Integer)
Column = Klik(Index).Index
Row = 5

Do While Veld(pos).Tag = 0 Or Row > 0
pos = Position(Column, Row)
Row = Row - 1
MsgBox "Row = " & Row & "."
Loop
End Sub

EDIT: Add player id to Klik sub, so that you know what player's coin you need to add to array