Mis aplicaciones en .NET

[ARICARRARO]

1. ¿Para quien va efocado este mini tutorial de .NET?
Para todos los novatos de programación en .NET

2. ¿Qué herramientas necesitas?
Solo descargar e instalar VB 2008 o 2010

Primer ejemplo: Sencilla aplicación que muestra la taba de multiplicar de "X" número introducido por el usuario.


Debes iniciar un nuevo proyecto y guardarlo
http://www.denunciando.com/thums_albums/40/37bb03faf9dfe5dab6700a082eaf95e7_40307.jpg?dl=1295405603

Nota: puedes trabajar tanto en forma gráfica o en el editor

http://www.denunciando.com/thums_albums/40/dd565cfca66269067457b28cb858c1e6_40308.jpg?dl=1295405603


Necesitas usar los siguientes controles:


TextBox (solo uno)
Dos botones (Button)
Tres ListBox

http://www.denunciando.com/thums_albums/40/6a2a75df64d6fe985d5b063289dab57b_40309.jpg?dl=1295405603

Y escribir el siguiente código

' En el botón uno debes poner en Text="Calcular"
Dim numero As Integer
Dim x As Integer
Dim producto As Integer

numero=Val(TextBox1.Text)

For x=1 To 10

producto= numero*x

ListBox1.Items.Add(x)
ListBox2.Items.Add(numero)
ListBox3.Items.Add(producto)

Next x


'Ahora el botón limpiar

TextBox1.Clear()
ListBox1.Clear()
ListBox2.Clear()
ListBox3.Clear()


Todavía no adjunto todas las imágenes, si tienes dudas postealas.

Espero les sirva.

[josemcf]

Pues no estuvo nada mal pero es poca informacion

[ARICARRARO]

Pues no estuvo nada mal pero es poca informacion
Si es poca info, pero queria hacerlo menos tediosao para leer, espero hacer mas ejemplos.

[Death_Mask]

Si es poca info, pero queria hacerlo menos tediosao para leer, espero hacer mas ejemplos.
buena propuesta, pero porque no te armas un PDF y lo publicas con los ejercicios... asi se pueden descargar y puedes explicar más detallado.

[ARICARRARO]

buena propuesta, pero porque no te armas un PDF y lo publicas con los ejercicios... asi se pueden descargar y puedes explicar más detallado.


Bien. asi lo hare. gracias por la sugerencia

o_0

[ARICARRARO]

¿Cómo usar ComboBox en VB . NET y Combo en VB 6.0?

He aquí un pequeño ejemplo.

'en VB 6
Private Sub Combo1_Click()
Select Case Combo1.ListIndex

Case 0
MsgBox("Valor 0")
Case 1
MsgBox("Valor 1")
Case 2
MsgBox("Valor 2")
Case Else
MsgBox("Valor no específicado")

End Select
End Sub



ahora para VB .NET


' en el ComboBox
Select Case ComboBox1.SelectedIndex

Case 1
MsgBox("Valor 1")
Case 2
MsgBox("Valor 2")
Case Else
MsgBox("Valor no específicado")



End Select





Espero hacer ahora más ejemplos y adjuntar un PDF

[ARICARRARO]

Uso de bucles, con un centinela para quitar ciclo

Module Module1
'Primer ejemplo de programa tipo consola en VB .NET
'Autor: CARRARO 2011
Sub Main()
Dim Nombre As String
Nombre = ""
Call Mensaje()'invoco la función "Mensaje"
Do
Console.WriteLine("Introduce tu nombre:")
Nombre = Console.ReadLine()
Console.WriteLine("Te llamas " + Nombre)

If (Nombre <> "Aldebaran") Then

End If
Loop Until Nombre = "Aldebaran"

End Sub
'----------------------------------------------------------------
Sub Mensaje()
Console.WriteLine("Uso de bucles en VB .Net")
End Sub
'-----------------------------------------------------------------


End Module

[ARICARRARO]

Promedio en VB .Net, en este el usuario pone la cantidad de materias

Module Module1

'Autor: CARRARO 2011
Sub Main()
Dim Suma As Double
Dim Contador As Integer, Numero As Integer
Dim Calif As Double, Promedio As Double
Suma = 0 : Contador = 0
Calif = 0 : Promedio = 0 : Numero = 0
Console.WriteLine("********Promedio en VB .Net**********")
Numero = Val(InputBox("¿Cuántas materias? ", "Promedio en VB .Net", ""))
If (Numero <= 0) Then
MsgBox("El número de materia no debe ser cero", MsgBoxStyle.Critical, "Aviso")
Else
Console.WriteLine("Promedio para " + CStr(Numero) + " materias")

While Contador < Numero
Contador += 1
Console.WriteLine("Calificación no. " + CStr(Contador))
Calif = Val(InputBox("Introduce calificación " & CStr(Contador), "Promedio en VB .Net", ""))
Console.WriteLine(CStr(Calif))
Suma += Calif

End While
Promedio = Suma / Contador
Console.WriteLine("¡Hecho! El promedio es:" + CStr(Promedio))
MsgBox(Promedio, MsgBoxStyle.Information, "Resultado, el promedio es:")

End If

End Sub


End Module

[ARICARRARO]

Ingeniería económica en VB .Net

Module Module1
'Autor: CARRARO 2011
Sub Main()
Dim valor As Double
Dim tasa As Double
Dim periodo As Integer
Dim n As Integer
Dim resultado As Double
Dim opc As Integer
valor = 0 : tasa = 0 : periodo = 0 : n = 0
resultado = 0 : opc = 0
Console.WriteLine("*** Ingeniería económica ****")
'-----------------------------------------------------------
valor = Val(InputBox("Valor: ", "Ingeniería económica", ""))
tasa = Val(InputBox("Tasa: ", "Ingeniería económica", ""))
periodo = Val(InputBox("Periodo: ", "Ingeniería económica", ""))
'-----------------------------------------------------------
Console.WriteLine("1. Valor futuro 2. Valor presente 3. Salir")
Console.WriteLine("Tu opción: ")
opc = Val(InputBox("Tu opción es ", "Ingeniería económica", ""))
Select Case opc
Case 1
MsgBox("Valor futuro", MsgBoxStyle.Information, "Tu opción es")
For n = 0 To periodo
resultado = valor * (1 + tasa) ^ n
Console.WriteLine("Cantidad generada: " + CStr(resultado) + " no. " + CStr(n))
Next n
Case 2
MsgBox("Valor presente", MsgBoxStyle.Information, "Tu opción es")
For n = 0 To periodo
resultado = valor / (1 + tasa) ^ n
Console.WriteLine("Cantidad generada: " + CStr(resultado) + " no. " + CStr(n))
Next n
Case 3
MsgBox("¡Haz terminado la aplicación!")
Case Else
MsgBox("¡Error, opción no válida!", MsgBoxStyle.Critical, "Aviso del programa")
End Select

End Sub

End Module

Costo de recuperación en VB .Net

Module Module1
'Autor: CARRARO 2011
Sub Main()
Dim costo As Double, depreciacion As Double
Dim valor_recuperacion As Double, valor_actual As Double
Dim acumulado As Double
Dim anyo As Integer, vida_util As Integer

Console.WriteLine("*** [Costo de recuperación] ***")
Console.WriteLine("Introduce costo, valor de recuperación y vida útil")
costo = Val(InputBox("Costo: ", "[Costo de recuperación]", ""))
valor_recuperacion = Val(InputBox("Valor de recuperación : ", "[Costo de recuperación]", ""))
vida_util = Val(InputBox("Vida útil: ", "[Costo de recuperación]", ""))
Console.WriteLine("Introduce año actual")
anyo = Val(InputBox("Año actual: ", "[Costo de recuperación]", ""))
Console.WriteLine("Costo: " + CStr(costo) + " Valor de recuperación: " + CStr(valor_recuperacion))
Console.WriteLine("Vida útil: " + CStr(vida_util))
valor_actual = costo
depreciacion = (costo - valor_recuperacion) / vida_util
acumulado = 0
Console.WriteLine("Año: " + CStr(anyo) + " Depreciación: " + CStr(depreciacion))
While (anyo < vida_util)
acumulado += depreciacion
valor_actual -= depreciacion
Console.WriteLine("Año: " + CStr(anyo) + " Depreciación: " + CStr(depreciacion))
Console.WriteLine("Acumulado: " + CStr(acumulado))
anyo += 1
End While

MsgBox("Ha finalizado el programa", MsgBoxStyle.Exclamation, "Aviso del programa")


End Sub

[alejan777]

gracias por el aporte

[yoxl]

la verdad eso no sirve pa un culo.. . jajajja

[ARICARRARO]

la verdad eso no sirve pa un culo.. . jajajja


Por lo que se ve a ti no te sirve ja ja

[caosmo]

Muy buenos ejemplos para iniciar en algo tan interesante como es la programacion. Estoy encontrando buen material en este foro. Gracias a los que les gusta compartir el conocimiento, que hariamos sin personas tan altruistas. :compres:

[ARICARRARO]

Muy buenos ejemplos para iniciar en algo tan interesante como es la programacion. Estoy encontrando buen material en este foro. Gracias a los que les gusta compartir el conocimiento, que hariamos sin personas tan altruistas. :compres:

Se hace lo que se puede gracias!!!

[mulurkie]

buenisimo

[nasher9999]

no tienen algun manual en pdf ? me gustaria saber mas gracias

[ARICARRARO]

No, no tengo ningún pdf ... tal vez me anime a hacer alguno