USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dúvida classes e redes IP
xFelipe
CARAPICUIBA
SP - BRASIL
ENUNCIADA !
Postada em 10/08/2011 23:26 hs            
Bom, é o seguinte. Tenho que criar um software com dois botões, tal que, o primeiro botão lê um número IP e fale se é classe A, B ou C. Até ai tudo bem, usando esses critérios: A= primeiro número de 1 a 126, B = primeiro número de 128 a 191, C= 192 a 223 e a rede 127 é pra teste. Até ai tudo bem. O segundo botão identifica se dois IPs são da mesma rede, ou seja, se são da classe A irá checar apenas o primeiro número, se for igual, é da mesma rede, classe B os dois primeiros, e C os três primeiros (lembrando que um IP é constituído de 4 números separados por ponto, como 10.0.0.1). Até ai só bla bla bla. O problema é o seguinte: Se fossem números normais, como 10001, iria ser tranquilo, mas os números são separados por pontos (10.0.0.1), e na hora de usar "If variável < 126.0.0.0 then..." por exemplo, dá erro. Como posso fazer para esses pontos não me atrapalharem na hora de fazer a comparação ou mesmo cálculos? Obrigado desde já.
   
Scaliburth
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 11/08/2011 12:59 hs            
Vc pode usar a função mid, para pegar os valores desejados, ou mesmo usar a função abaixo (crédito de Tecla do VBMania).


Public Function RemoverCaracter(Valor As String) As String
Dim Remover As String, i As Byte, Temp As String
Remover = "()*/-+.,;:?" 'Aqui você deverá colocar os caracteres que deseja remover da sua string
Temp = Valor
For i = 1 To Len(Remover)
    Temp = Replace(Temp, Mid(Remover, i, 1), "")
Next
RemoverCaracter = Temp
End Function

   
xFelipe
CARAPICUIBA
SP - BRASIL
ENUNCIADA !
Postada em 14/08/2011 20:11 hs            
Obrigado! Eu consegui. Moderador, se quiser pode fechar.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página