Nota media con calificacion

[Braayhaan]

Tambien puedes usar if

Código (vbnet) [Seleccionar] Expandir

If TextBox1.Text = "10" Then
TextBox2.Text = "Eres un Crack"

ElseIf TextBox1.Text = "9" Then
TextBox2.Text = "Te queda muy poco"
End If

es mas largo pero creo que servira no?

Otra cosa:

Si quieres que solo se puedan ingresar numeros, entonces haz esto:

Primero crea 1 Modulo y en el codigo introduce esto:

Código (vbnet) [Seleccionar] Expandir

  Function SoloNumeros(ByVal Keyascii As Short) As Short
       If InStr("1234567890", Chr(Keyascii)) = 0 Then
           SoloNumeros = 0
       Else
           SoloNumeros = Keyascii
       End If
       Select Case Keyascii
           Case 8
               SoloNumeros = Keyascii
           Case 13
               SoloNumeros = Keyascii
       End Select
   End Function

Esto va debajo de Form1:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Inherits System.Windows.Forms.Form
   Public KeyAscii As Short

Ahora Pon en el Codigo de Tu TextBox, ve donde dice Declarations, y ponlo en el evento Keypress y pon esto;

Código (vbnet) [Seleccionar] Expandir

       Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
       keyascii = CShort(SoloNumeros(keyascii))
       If keyascii = 0 Then
           e.Handled = True
       End If

Saludos

[aythor94]

Tambien puedes usar if

Código (vbnet) [Seleccionar] Expandir

If TextBox1.Text = "10" Then
TextBox2.Text = "Eres un Crack"

ElseIf TextBox1.Text = "9" Then
TextBox2.Text = "Te queda muy poco"
End If

es mas largo pero creo que servira no?

Otra cosa:

Si quieres que solo se puedan ingresar numeros, entonces haz esto:

Primero crea 1 Modulo y en el codigo introduce esto:

Código (vbnet) [Seleccionar] Expandir

  Function SoloNumeros(ByVal Keyascii As Short) As Short
       If InStr("1234567890", Chr(Keyascii)) = 0 Then
           SoloNumeros = 0
       Else
           SoloNumeros = Keyascii
       End If
       Select Case Keyascii
           Case 8
               SoloNumeros = Keyascii
           Case 13
               SoloNumeros = Keyascii
       End Select
   End Function

Esto va debajo de Form1:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Inherits System.Windows.Forms.Form
   Public KeyAscii As Short

Ahora Pon en el Codigo de Tu TextBox, ve donde dice Declarations, y ponlo en el evento Keypress y pon esto;

Código (vbnet) [Seleccionar] Expandir

       Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
       keyascii = CShort(SoloNumeros(keyascii))
       If keyascii = 0 Then
           e.Handled = True
       End If

Saludos

Hola!!!
Muchas gracias por tu ayuda y por la de todos, ahora mismo voy a poner manos a la obra.
Gracias,
Salu2!!!

[Braayhaan]

Tranquilop para eso estamos  

y de paso te dejo el ejemplo con notas del 1 al 10  



Descargar:

Programa

Codigo Fuente

[aythor94]

Woooooowwww 
Muchisimas gracias tio por el programa y el codigo fuente, ahora entiendo muchisimo mejor el mecanismo del programa.
Un salu2!!!

[aythor94]

Acabo de probar el proyecto, pero le podria asignar una opción de guardado?
Un salu2!!!

[Braayhaan]

Si pero yo el unico metodo de guardado que se es guardarlo en un .txt que es un texto normal, pero solo con RichTextBox no con TextBox Normal, a lo mejor los users de aca saben algo.

Con un RichTextBox para guardar seria, Añadir el SaveFileDialog y en el Codigo del Boton Guardar "Si es  que lo hay" poner esto:

Código (vbnet) [Seleccionar] Expandir

  If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Guardado" + SaveFileDialog1.FileName

y para cargarlo o abrirlo ps, entonces agregar un OpenFileDialog y pones esto en el boton "Si es que lo hay":

Código (vbnet) [Seleccionar] Expandir

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
       Form1.ActiveForm().Text() = "Abierto" + OpenFileDialog1.FileName

Salu2!

[raul338]

un ricthtextbox para una nota simple?? D:

jajaja XD impresinonante cuantos mensajes me perdi mientras no estaba XD xD, pero supongo que aythor94 no tiene todos los promedios calculados, seria mejor un mini-programa que pida ingresar todas las notas y que al final aparezca el promedio y el texto "eres un crack" por ejemplo  (ahora justo me voy a buscar a cierta persona, pero sino lo haria)

[Braayhaan]

si bueno raul lo que pasa es que yo tambien soy medio nuevo en esto y no se mas formas de guardar cosas jajajaja

Edito_

No se han dado cuenta que casi nunca me desconecto? xD

[raul338]

jajajaj xD, pon todo el contenido en un string, e importa el namespace System.IO
y usas

Código (vbnet) [Seleccionar] Expandir

Dim sw As StreamWriter = File.CreateText(Application.StartupPath & "\notas.txt")
sw.Write(nota)
sw.Close()
sw = Nothing

y listo ^^