|
Programacion Pregunta, consulta o ayuda a resolver los problemas o incógnitas que tengan los demás miembros de la comunidad sobre programación en general. |
Hola Invitado! Tómate un minuto para registrarte, es 100% GRATIS y no verás ninguna publicidad! ¿Qué estás esperando? Para Ingresa a Denunciando.com por medio de TapaTalk Clic ACA | Registrarse Ahora |
Programacion » Mis aplicaciones en .NETParticipa en el tema Mis aplicaciones en .NET en el foro Programacion. |
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Aplicaciones Blackberry!!! | Mafes | Celulares | 23 | 07-07-2011 00:51:02 |
juegos y aplicaciones | .Richy. | Celulares | 19 | 20-05-2011 12:46:45 |
AIO - USB Utilities Tools 2010 [Aplicaciones para USB][10 Aplicaciones][RS] | PERSEO | Software - Programas | 0 | 30-09-2009 09:39:12 |
Toneladas De Aplicaciones | Gandalf | Computadores | 3 | 21-05-2009 20:18:47 |
Las mejores aplicaciones!! | Terrateniente | Celulares | 9 | 27-01-2009 19:28:45 |
, 22:10:54 | #1 | |
Denunciante Aprendiz | Mis aplicaciones en .NET
Calificación: de
5,00 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 Nota: puedes trabajar tanto en forma gráfica o en el editor 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. | |
Twittear Seguir a @denunciando
| |
No Calculado | #1.5 |
SponSor | Re: Mis aplicaciones en .NET |
21-01-2011 , 12:21:16 | #2 |
Recien Registrado | Respuesta: Mis aplicaciones en .NET
Pues no estuvo nada mal pero es poca informacion
|
26-01-2011 , 13:32:37 | #3 |
Denunciante Aprendiz | Respuesta: Mis aplicaciones en .NET |
26-01-2011 , 14:22:58 | #4 |
Denunciante Distinguido | Respuesta: Mis aplicaciones en .NET |
27-01-2011 , 13:29:25 | #5 |
Denunciante Aprendiz | Respuesta: Mis aplicaciones en .NET |
29-01-2011 , 21:41:19 | #6 |
Denunciante Aprendiz | 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 |
28-02-2011 , 20:49:43 | #7 |
Denunciante Aprendiz | 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 |
28-02-2011 , 20:50:22 | #8 |
Denunciante Aprendiz | 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 |
28-02-2011 , 20:51:22 | #9 |
Denunciante Aprendiz | 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 |
23-03-2011 , 01:04:49 | #10 |
Recien Registrado | Respuesta: Mis aplicaciones en .NET
gracias por el aporte
|
Etiquetas |
inicio en .net, nuevo, programar, vb6, vbnet |
|