Suporte ao desenvolvimento de jogos!


    Desligamento do Server Modificado

    Compartilhe
    avatar
    Nãner
    Iniciante
    Iniciante

    Mensagens : 58
    Créditos : 16

    Desligamento do Server Modificado

    Mensagem por Nãner em Qui Nov 10, 2011 7:35 pm

    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.
    avatar
    Mateus Silva
    Semi-Experiente
    Semi-Experiente

    Mensagens : 115
    Créditos : 4

    Re: Desligamento do Server Modificado

    Mensagem por Mateus Silva em Qui Nov 10, 2011 8:07 pm

    Nossa !!! pode ser simples mas vc ta evoluindo kda vez mais vllw continue assim..
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1549
    Créditos : 32

    Re: Desligamento do Server Modificado

    Mensagem por BrunoFox em Qui Nov 10, 2011 10:39 pm

    Mais um tuto bom, mais um cred pra vc denovo tbm xD


    _________________
    avatar
    Nanzin
    Membro de Honra
    Membro de Honra

    Mensagens : 1558
    Créditos : 252

    Re: Desligamento do Server Modificado

    Mensagem por Nanzin em Qui Nov 10, 2011 10:41 pm

    particularmente nao gosto de elysium nem de EO

    mais o tutorial em si e muiito bom

    parabens!


    _________________


    Para Aqueles que gostam de Min e de meu Trabalho;
    Upem Meu Pet nao custa nda!!


    Pet:
    avatar
    Nãner
    Iniciante
    Iniciante

    Mensagens : 58
    Créditos : 16

    Re: Desligamento do Server Modificado

    Mensagem por Nãner em Sab Nov 12, 2011 2:20 pm

    Obrigado gente! Tragarei mais tutoriais para cá em breve!

    Conteúdo patrocinado

    Re: Desligamento do Server Modificado

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Ter Out 23, 2018 7:42 pm