[VB] 1er Programa de novato

[luchito76]

Hola, les queria comentar que soy muy nuevo en esto de la programacion, apenas unos diez dias, y he aprendido algunas cositas para aplicar a una pequeña idea:  hacer un programita que poniendo en un textbox el numero de telefono me devuelva el nombre de quien hizo la llamada (muy simple), somos tres personas en este apto, anotamos las llamadas en un papel y a fin de mes las cotejamos con el detalle de la factura de Telefonica, y asi cada uno paga sus llamadas, se entiende?? Aca les paso el codigo.  En este codigo estan algunos de los telefonos (ficticios), faltarian muchos mas, la pregunta en concreto es si todo eso se puede resumir de alguna forma, no quiero el codigo entero, solo la idea en caso de poderse, y yo buscarla y poder aprender, desde ya muchas gracias.-


Public Class Factura

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles ok.Click
        If telefono.Text = "637150308" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "630742457" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "6077678788" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "677777197" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "663543017" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "666619041" Then
            nombre.Text = "Lucho"
        ElseIf telefono.Text = "902055307" Then
            nombre.Text = "Lucho"
        Else
            nombre.Text = "Desconocido"
        End If
    End Sub
End Class   ´espero que se entienda lo que expuse, jajaja, saludos

[Rakzo-Fimbres]

Un detalle tonto, como sabran quien hizo cada llamada si el programa se resetea cada vez que lo ejecutas.. a menos que guardes los datos en un archivo de txt no?

Digo una sugerencia para tu programin xD

Si quieres te ayudo, no mas contactame 

[luchito76]

Ya lo probe y funciona bien, cada ves que lo ejecuto no se resetea, los datos estan en el codigo, y con la factura al lado vas poniendo a cada numero de telefono el nombre de quien hizo la llamada, es muy simple pero ten en cuenta que llevo diez dias en esto, lo que pasa es que el codigo es bastante largo para algo tan simple, mi pregunta era si se podia simplificar con alguna otra instruccion que yo no conozca o algo asi, pero igual gracias.-

[Rakzo-Fimbres]

Nah esta bien amigo, con el paso del tiempo vas perfeccionando el codigo con nuevas tecnicas.

A lo que me referi anteriormente es que como diablos iba a saber quien hizo cada llamada si no guardan datos?

Pero ahora que lo leo bien, me equivoque.. error de datos mios xD

[luchito76]

Todo bien amigo, es que imagino con lo poco que he leido que debe haber algo por ahi, jajaja, que simplifique un porgrama tan simple con tan largo codigo, supongo yo.-

[Rakzo-Fimbres]

Asi se empieza 
Al menos no eres de ese tipo de personas (llamadas lammers) que solo copian el code sin tener la menor idea de lo que hace

[hectorzx]

Bueno no se si es esto lo q quieres pero bueno. Con esto no hara falta poner tantos condicionales.

Primero cargamos los datos del archivo "datos.txt"

Código:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim leer As New System.IO.StreamReader("datos.txt") 'cargamos el archivo
        Dim datos(100) As String
        Dim temporal(2) As String
        Dim y As Integer
        For y = 1 To 100
            datos(y) = leer.ReadLine 'leemos la primera linea
            temporal = Split(datos(y), ",") 'separamos el nombre del telefono , le indicamos q lo separe cuando encuentre una coma
            If datos(y) = "" Then GoTo 10 'si no hay mas datos para leer terminamos
            telefono(y) = temporal(0) 'Asignamos el numero
            nombre(y) = temporal(1) 'Asignamos el nombre
        Next
10:
    End Sub

Despues con dos textboxt llamados nombree y telefonoo y un boton:

Código:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As Integer
        For y = 1 To 100
            If nombree.Text = telefono(y) Then ' lo hacemos pasar por todas las variables para ver si concuerda con alguna
                telefonoo.Text = nombre(y)
                GoTo 10
            End If
        Next
        telefonoo.Text = "Desconocido" 'Si no esta se advierte que no esta xD
10:
    End Sub

Por ultimo en un archivo llamado "datos.txt" (en mi caso) metemos en cada linea el telefono y el nombre separados por comas..
Ejemplo:
95432678,paco
65466578,juan
56489785,pepe
etc...

Salu2

[chipbios]

Si lo quieres hacer sin crear archivo(cosa que en muchos casos puede ser peor) puedes hacer una array con todos los telefonos y luego conpararla con el if then, poner que si es a alguno de la array nombre=lucho, else nombre=desconocido.Se ¿podria hacer asi?

Código:

Public Class Factura
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dim telefonos(5) as integer 'o la que quieras
telefonos(1)= 630742457
telefonos(2)=otro telefono
'asi con todos los que quieras...


If  telefono.text = telefonos() then
nombre.text = "lucho"

Else

nombre.text = "desconocido"

End If
    End Sub
End Class

'Habre cometido cientos de errores de syntaxis porque llevo muchisima prisa y ademas no tengo ahora instalado el visual studio para probarlo pero espero que se entienda el code

Repito no se si se podra es solo una idea...

[luchito76]

Bueno, estoy leyendo un manual bastante completo y todavia no habia llegado a esos de los arrays y cargar archivos de texto, pero voy a estudiar como funciona eso  y despues les comento, igual muchas gracias y saludos.-