[Simples]Mensagem automática por parte do Servidor

por Manolo Ter 21 Jan 2014, 16:02

Bem este é um sistema bem simples,feito por mim mesmo, se quiser implementá-lo e repostar, fique á vontade, só peço que ponha os créditos.

Primeiro, clique com o botão esquerdo na SStab principal do servidor (aquele treco que tem uns botões em cima que parecem mais com uma guia de navegador).

Então selecione a opção "Properties", irá aparecer uma nova janela com as propriedades da SSTab, lá tera uma caixa de texto com o nome "Tab count", acrescente ele em 1, e clique no botão ">" em cima, para ir pras propriedades dessa "guia".

Vá em "Tab Caption", e coloque o nome que você quer que apareça nessa guia, eu coloquei "Mensagem automática".

Agora você terá que por dois CommandButtons, uma textbox , uma listbox ,uma label e dois timers.

No primeiro CommandButton você definirá essas propriedades:

Código:: Name = "CmdAdd" Caption = "Adicionar" Default = "True"

De um duplo clique nesse CommandButton e adicione esse código:

Código:: lstmsg.AddItem txtauto.text 'Adiciona o texto do txtauto a lista txtauto.txt =""

No segundo CommandButton você definirá essas propriedades:

Código:: Name = "cmdRem" Caption = "Remover"

De um duplo clique nesse CommandButton e adicione esse código:

Código:: On Error GoTo resolve 'Isso impedirá o servidor de ser pausado ou desligado caso o adm tente remover uma mensagem inexistente lstmsg.RemoveItem lstmsg.ListIndex resolve: If Err.Number = 0 Then Exit Sub 'Isso impede de uma caixa de mensagem ser exibida cada vez que essa sub for ativada MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbOKCancel, "Servidor"

A unica coisa a ser feita na textbox é definir as propriedades desse modo:

Código:: Name = txtauto Text = ""

Na listbox você definirá as propriedades do seguite modo:

Código:: Name = "lstmsg" Style = "1-Checkbox"

Na label só será necessário definir a propriedade nome, coloque-o como "lblInfo"

No primeiro timer, você definira as seguintes propriedades

Código:: Name = "tmSend" Interval = 1

De um duplo clique nele e defina o seguinte código:

Código:: On Error GoTo resolve: Dim x If lstmsg.ListCount = 0 Then Exit Sub 'Evita quaisquer erro. Randomize 'Avisa ao VB que um numero deve ser selecionado aleatóriamente tmSend.Interval = rand(100, 99999) 'Faz com que o intervalo de tempo em que esta sub e ativada varie prox = tmSend.Interval 'Esta variavel sera chamada no final, mas é puramente estética x = (Int(rand(0, lstmsg.ListCount))) 'Seleciona aleatoriamente um "index" da lista, eu coloquei o Int() só pra garanti, mas creio que não é nescessario If lstmsg.Selected(x) = False Then Exit Sub 'Caso a mensagem sorteada não esteja selecionada, sai dessa função Call GlobalMsg(lstmsg.List(x), Yellow) ' Envia a mensagem para o servidor, onde está "Yellow" você define a cor de sua preferencia resolve: If Err.Number = 0 Then Exit Sub MsgBox "Erro :" & Err.Number & vbCrLf & Err.Description, vbOKOnly, "Servidor

No segundo timer defina essas propriedades:

Código:: Name = "tmRedutor" Interval = 1

De um duplo clique e então adicione:

Código:: prox = prox - 1 lblinfo.Caption = "Proxima mensagem em: " & prox & "/ms"

Por fim de um duplo clique na form, e la em cima, la em cima mesmo coloque:

Código:: Option explicit dim prox as long

Para usar o sistema é simples
Digite a mensagem na caixa de texto, aperte adicionar e marque ela na listbox, automaticamente ela será enviada, para remover,apenas selecione ela na lista e aperte "Remover".

ps: Mais de uma mensagem pode ser marcada

por VithorUchi Dom 26 Out 2014, 14:23

Sistema "Bugado",Ele Sobrecarrega e Da Erro,Tirando Isso Funciona Cool

[Simples]Mensagem automática por parte do Servidor

[Simples]Mensagem automática por parte do Servidor

Re: [Simples]Mensagem automática por parte do Servidor