sobre reconocer celular

[ciberplay]

hola amigos toy instalado un  centro de llamados me intersarian si me ayudaran con un codigo necesito crear un programa para celulares que uno ingrese los 4 primeros numero del numero q se va llamar me diga de que compañia pertenece (movistar-entel-claro)
desde ya muchas grasias

[ranefi]

hola amigos toy instalado un  centro de llamados me intersarian si me ayudaran con un codigo necesito crear un programa para celulares que uno ingrese los 4 primeros numero del numero q se va llamar me diga de que compañia pertenece (movistar-entel-claro)
desde ya muchas grasias

Lo que aquí necesitas es utilizar la sentencia Select Case, con la cual podrás decidir cuál compañía mostrar en caso de que se escriban los números. Te voy a dar un ejemplo.

Agregar 2 controles; 1 CommandButton, 1 TextBox e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
    Dim Identificador As String
   
    Identificador = Left(Text1.Text, 4)
   
    Select Case Identificador
        Case "8681"
            MsgBox "Es la compañía 1"
        Case "8682"
            MsgBox "Es la compañía 2"
        Case "8683"
            MsgBox "Es la compañía 3"
        Case Else
            MsgBox "Comapañía desconocida"
    End Select
End Sub

Esto es un ejemplo simple, pero también puedes utilizar bases de datos, que de hecho, eso es lo que a mi opinión, sería lo mejor, en caso de que el número de compañías aumente. Nos vemos.

PD: Escribe un número de teléfono en el control TextBox que comience de la siguiente forma: 8681555555

[ciberplay]

Grasias  estoy implementando ese formulario utiizo una  base de datos como me dijiste, como  soy novato en esto empese hace poco, me gustaria si me ayudar un poco  con el codigo, en este mismo formulario que cuando yo coloque  los 4 primeros numenos  de la de la compañía 1 ejemplo me salga la imagen del logo correspondient e de cada compañia, grasias por la ayuda exlente  foro...