Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Desligamento do Server Modificado

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Desligamento do Server Modificado em Ter 08 Nov 2011, 15:17

RenanR


Membro
Membro
Eae gente, esse sistema é simples, eu fiz ele aqui e vim disponibilizar pra vocês.

Abra o Server~Side, na frmServer, na aba Painel de Controle/Control Panel, procure pelo botão "Desligar"(Command1). Bem embaixo dele adicione um HScroll. e do lado do Scroll ponha uma label chamada "lblshutdown". (Sem aspas). Ponha nas propriedades da lblShutdown o Max de segundos a serem escolhidos, e o mínimo! Aqui eu pus 1 minimo e 100 máximo. Agora, de dois cliques no HScroll e adicione:
Código:
lblShutdown.Caption = HScroll1.Value

Agora de dois cliques no botão Desligar (Command1) Aparecendo a sub:
Código:
Private Sub Command1_Click()

Mude ela toda para:
Código:
Private Sub Command1_Click()
Dim CTZ As Long
CTZ = MsgBox("Tem certeza de que deseja desligar em " & lblShutdown.Caption & " segundos?", vbYesNo, frmServer.Caption)
    If CTZ = vbYes Then
    Call SendDataToAll("sound" & SEP_CHAR & "ServidorDesligando" & END_CHAR)

    If tmrShutdown.Enabled = False Then
        tmrShutdown.Enabled = True
    End If
    Else
    Exit Sub
    End If
End Sub

Agora na sub do tmrShutdown:
Código:
Private Sub tmrShutdown_Timer()

Mude a sub toda para:
Código:
Private Sub tmrShutdown_Timer()
    Static Secs As Long

    If Secs <= 0 Then Secs = lblShutdown.Caption
    ShutdownTime.Caption = "Desligar em " & Secs & " segundos."

    If Secs = 30 Then Call TextAdd(frmServer.txtText(0), "Desligamento automático do Servidor em " & Secs & " segundos.", True)
    If Secs = 30 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 25 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 20 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 15 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 10 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs < 6 Then
        Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    End If
    Secs = Secs - 1

    If Secs <= 0 Then
        tmrShutdown.Enabled = False
        Call DestroyServer
    End If
End Sub

É isso aí! Um sistema bem simples galera..

Créditos: RenanR - Por criar o sistema, e postar.

http://mmomakerbr.ativoforum.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum