Mis aplicaciones en .NET

Pues no estuvo nada mal pero es poca informacion

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.

Bien. asi lo hare. gracias por la sugerencia

o_0

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

He aquí un pequeño ejemplo.
[code]
'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

[/code]

ahora para VB .NET

[code]
' 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


[/code]


Espero hacer ahora más ejemplos y adjuntar un PDF

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

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

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

gracias por el aporte