[AVALIAR] Sistema

por **Tayllor** Seg Ago 27, 2012 1:19 pm

Lembrando galera sou programador a menos de 2 semanas então criei esse sistema mas ja estou criando mais avançados. ^^, a e quero que avaliem falando se esta correto o que é preciso melhorar nele.

Server Side

- Crie uma command button no control da frmServer.

deixe-a normal.

- Der 2 cliques na command button ponha:

Código:: scrlMM.Max = MAX_MAPS scrlMX.Max = MAX_MAPX scrlMY.Max = MAX_MAPY picWarpAll.Visible = True

- Crie uma picturebox na parte control do server ponha o nome de picWarpAll e va na visible de suas properties e ponho false.

- Crie uma label dentro da picturebox com o nome lblMM e o caption Map: 1

- Abaixo da label que acabamos de construir, faça uma HScrollbar com o nome scrlMM
Der 2 cliques e ponha

Código:: lblMM.caption = "Map: " & scrlMM.Value

- Abaixo crie uma label com o nome lblMX e a caption X: 0

- De baixo da label lblMX faça outra HScrollbar com o nome scrlMX. der dois cliques na mesma e ponha:

Código:: lblMX.caption = "X: " & scrlMX.Value

- Abaixo do que acabamos de construir faça outra label dessa vez com o nome lblMY e o caption Y: 0

- Abaixo acrescente a HScrollbar ponhaa o nome scrlMY e der dois cliques na mesma e ponha:

Código:: lblMY.caption = "Y: " & scrlMY.Value

- Ainda ta picturebox crie embaixo da ultima HScrollbar um command button com qualquer nome e caption der dois cliques no mesmo e adicione:

Código:: Dim Index As Long Dim MapNum As Long Dim MapX As Long Dim MapY As Long MapNum = Int(scrlMM.Value) MapX = Int(scrlMX.Value) MapY = Int(scrlMY.Value) For Index = 1 To MAX_PLAYERS If IsPlaying(Index) Then If GetPlayerAccess(Index) = 0 Then Call PlayerWarp(Index, MapNum, MapX, MapY) End If End If Next Index Call GlobalMsg(O servidor teletransporta todos para map " & MapNum & ".", YELLOW) picWarpAll.Visible = False

- Abaixo crie outra command button com qualquer nome e com a Caption Cancelar der dois cliques na mesma e adicione:

Código:: Dim Index As Long Dim MapNum As Long Dim MapX As Long Dim MapY As Long MapNum = Int(scrlMM.Value) MapX = Int(scrlMX.Value) MapY = Int(scrlMY.Value) For Index = 1 To MAX_PLAYERS If IsPlaying(Index) Then If GetPlayerAccess(Index) = 0 Then Call PlayerWarp(Index, MapNum, MapX, MapY) End If End If Next Index Call GlobalMsg("O servidor teletransporta todos para map " & MapNum & ".", YELLOW) picWarpAll.Visible = False