Mis aplicaciones en .NET 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_alb...?dl=1295405603 Nota: puedes trabajar tanto en forma gráfica o en el editor http://www.denunciando.com/thums_alb...?dl=1295405603 Necesitas usar los siguientes controles:
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. |
Respuesta: Mis aplicaciones en .NET Pues no estuvo nada mal pero es poca informacion |
Respuesta: Mis aplicaciones en .NET Cita:
|
Respuesta: Mis aplicaciones en .NET Cita:
|
Respuesta: Mis aplicaciones en .NET Cita:
Bien. asi lo hare. gracias por la sugerencia o_0 |
Respuesta: Mis aplicaciones en .NET ¿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 |
Respuesta: Mis aplicaciones en .NET 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 |
Respuesta: Mis aplicaciones en .NET 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 |
Respuesta: Mis aplicaciones en .NET 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 |
Respuesta: Mis aplicaciones en .NET gracias por el aporte |
La franja horaria es GMT -5. Ahora son las 12:52:38. |
Desarrollado por: vBulletin® Versión 3.8.9
Derechos de Autor ©2000 - 2024, Jelsoft Enterprises Ltd.
DeNunCianDo.CoM ©