Dim X As Integer
Dim Y As Integer
Dim Aux_MapID As Integer = CInt(MapID)
' Traitement de X
X = CInt(Int(Aux_MapID / 512))
If X > 256 Then
X = CInt(256 - X)
End If
' Traitement de Y
Y = CInt(Aux_MapID Mod 512)
If Y > 256 Then
Y = CInt(256 - Y)
End If
' Traitement D'affichage
LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"
X = CInt(Int(Aux_MapID / 512))
If X > 256 Then
X = CInt(256 - X)
End If
Dim X As Integer
Dim Y As Integer
Dim Aux_MapID As Integer = CInt(MapID)
' Traitement de X
X = CInt(Int(Aux_MapID / 512))
If X > 256 Then
X = CInt(256 - X)
End If
' Traitement de Y
Y = CInt(Aux_MapID Mod 512)
If Y > 256 Then
Y = CInt(256 - Y)
End If
' Traitement D'affichage
LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"
Dim X As Integer
Dim Y As Integer
Dim Aux_MapID As Integer = CInt(MapID)
' Traitement de X
X = CInt(Int(Aux_MapID / 512))
If X > 256 Then
X = CInt(256 - X)
End If
' Traitement de Y
Y = CInt(Aux_MapID Mod 512)
If Y > 256 Then
Y = CInt(256 - Y)
End If
' Traitement D'affichage
LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"