elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Nota media con calificacion		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Nota media con calificacion  (Leído 8,329 veces)
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Nota media con calificacion
« Respuesta #10 en: 4 Septiembre 2009, 20:47 pm »
Tambien puedes usar if :P

Código
  1. If TextBox1.Text = "10" Then
  2. TextBox2.Text = "Eres un Crack"
  3.  
  4. ElseIf TextBox1.Text = "9" Then
  5. TextBox2.Text = "Te queda muy poco"
  6. 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
  1.    Function SoloNumeros(ByVal Keyascii As Short) As Short
  2.         If InStr("1234567890", Chr(Keyascii)) = 0 Then
  3.             SoloNumeros = 0
  4.         Else
  5.             SoloNumeros = Keyascii
  6.         End If
  7.         Select Case Keyascii
  8.             Case 8
  9.                 SoloNumeros = Keyascii
  10.             Case 13
  11.                 SoloNumeros = Keyascii
  12.         End Select
  13.     End Function

Esto va debajo de Form1:

Código
  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.     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
  1.         Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
  2.         keyascii = CShort(SoloNumeros(keyascii))
  3.         If keyascii = 0 Then
  4.             e.Handled = True
  5.         End If

Saludos ;)
« Última modificación: 4 Septiembre 2009, 21:05 pm por BlazeFire » En línea
aythor94

Desconectado Desconectado

Mensajes: 37


Ver Perfil
Re: Nota media con calificacion
« Respuesta #11 en: 4 Septiembre 2009, 21:12 pm »
Cita de: BlazeFire en  4 Septiembre 2009, 20:47 pm
Tambien puedes usar if :P

Código
  1. If TextBox1.Text = "10" Then
  2. TextBox2.Text = "Eres un Crack"
  3.  
  4. ElseIf TextBox1.Text = "9" Then
  5. TextBox2.Text = "Te queda muy poco"
  6. 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
  1.    Function SoloNumeros(ByVal Keyascii As Short) As Short
  2.         If InStr("1234567890", Chr(Keyascii)) = 0 Then
  3.             SoloNumeros = 0
  4.         Else
  5.             SoloNumeros = Keyascii
  6.         End If
  7.         Select Case Keyascii
  8.             Case 8
  9.                 SoloNumeros = Keyascii
  10.             Case 13
  11.                 SoloNumeros = Keyascii
  12.         End Select
  13.     End Function

Esto va debajo de Form1:

Código
  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.     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
  1.         Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
  2.         keyascii = CShort(SoloNumeros(keyascii))
  3.         If keyascii = 0 Then
  4.             e.Handled = True
  5.         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!!!
En línea
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Nota media con calificacion
« Respuesta #12 en: 4 Septiembre 2009, 21:13 pm »
Tranquilop para eso estamos  ;D

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



Descargar:

Programa

Codigo Fuente
« Última modificación: 4 Septiembre 2009, 21:37 pm por BlazeFire » En línea
aythor94

Desconectado Desconectado

Mensajes: 37


Ver Perfil
Re: Nota media con calificacion
« Respuesta #13 en: 4 Septiembre 2009, 21:41 pm »
Woooooowwww  :D
Muchisimas gracias tio por el programa y el codigo fuente, ahora entiendo muchisimo mejor el mecanismo del programa.
Un salu2!!!
 :) :)
En línea
aythor94

Desconectado Desconectado

Mensajes: 37


Ver Perfil
Re: Nota media con calificacion
« Respuesta #14 en: 4 Septiembre 2009, 21:50 pm »
Acabo de probar el proyecto, pero le podria asignar una opción de guardado?
Un salu2!!!
En línea
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Nota media con calificacion
« Respuesta #15 en: 4 Septiembre 2009, 22:10 pm »
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
  1.   If SaveFileDialog1.ShowDialog = DialogResult.OK Then
  2.             RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  3.         End If
  4.         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
  1. If OpenFileDialog1.ShowDialog = DialogResult.OK Then
  2.             RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  3.         End If
  4.        Form1.ActiveForm().Text() = "Abierto" + OpenFileDialog1.FileName

Salu2!
« Última modificación: 4 Septiembre 2009, 22:17 pm por BlazeFire » En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Nota media con calificacion
« Respuesta #16 en: 4 Septiembre 2009, 22:25 pm »
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)
En línea
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Nota media con calificacion
« Respuesta #17 en: 4 Septiembre 2009, 22:27 pm »
si bueno raul lo que pasa es que yo tambien soy medio nuevo en esto y no se mas formas de guardar cosas jajajaja :xD

Edito_

No se han dado cuenta que casi nunca me desconecto? xD
« Última modificación: 4 Septiembre 2009, 22:30 pm por BlazeFire » En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Nota media con calificacion
« Respuesta #18 en: 4 Septiembre 2009, 22:30 pm »
jajajaj xD, pon todo el contenido en un string, e importa el namespace System.IO
y usas

Código
  1. Dim sw As StreamWriter = File.CreateText(Application.StartupPath & "\notas.txt")
  2. sw.Write(nota)
  3. sw.Close()
  4. sw = Nothing

y listo ^^
En línea
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Calificación de web con JAVA
Java 		macurbano 1 1,677 Último mensaje 13 Febrero 2012, 23:30 pm
por Azielito
Máxima calificación europea a una patente valenciana antipiratas
Noticias 		wolfbcn 0 1,113 Último mensaje 4 Enero 2013, 02:01 am
por wolfbcn
De 4Gb a 8Gb se nota? « 1 2 3 »
Hardware 		Vivisnai 27 13,965 Último mensaje 7 Enero 2014, 19:36 pm
por el-brujo
Calcular nota máxima
Programación C/C++ 		Merlindvd 1 2,209 Último mensaje 26 Noviembre 2016, 18:23 pm
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines