corregir errores

03/01/2006 - 20:49 por jorge | Informe spam

Estoy desarrollando un proyecto en vb para diseñar una boleta de notas, y al
iniciarlo me ha mostrado una serie de errores, los cuales quisiera que me
ayuden a corregirlos:

No se ha declarado el nombre 'Round'.
No se ha declarado el nombre 'CAD'.
No se ha declarado el nombre 'ToolTip1',
En QBColor(12) el error manifisesta esto
Un valor de tipo 'Integer' no se puede convertir en '2'.
igual para QBColor(1)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, pr As Integer
n1 = Val(TextBox4.Text)
n2 = Val(TextBox5.Text)
n3 = Val(TextBox6.Text)
pr = Round((n1 + n2 + n3) / 3, 0)
TextBox7.Text() = Str(pr)
If pr >= 11 Then
TextBox9.Text = "APROBADO"
TextBox9.ForeColor = QBColor(1)
Else
TextBox9.Text = "desaprobado"
TextBox9.ForeColor = QBColor(12)
End If
Select Case pr
Case 1
CAD = "UNO"
Case 2
Cad = "DOS"
Case 3
CAD = "TRES"
Case 4
CAD = "CUATRO"
Case 5
CAD = "CINCO"
Case 6
CAD = "SEIS"
Case 7
CAD = "SIETE"
Case 8
CAD = "OCHO"
Case 9
Cad = "NUEVE"
Case 10
CAD = "DIEZ"
Case 11
CAD = "ONCE"
Case 12
CAD = "DOCE"
Case 13
CAD = "TRECE"
Case 14
CAD = "CATORCE"
Case 15
CAD = "QUINCE"
Case 16
CAD = "DIESISEIS"
Case 17
CAD = "DIESISIETE"
Case 18
CAD = "DIESIOCHO"
Case 19
CAD = "DIESINUEVE"
Case 20
CAD = "VEINTE"
End Select
TextBox8.Text = CAD

Button1.Enabled = True
Button1.Enabled = False

ToolTip1.SetToolTip(Button1, "Hacer un clic para calcular")

End Sub

Haber si me ayudan gracias.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Miguel A. Nievas - MCAD.NET

03/01/2006 - 22:31 | Informe spam

Es que no tenes declarado las variables esas.. Ej.. la matriz ROUND no esta
declarada. CAD Tampoco..
Ej: Dim ROUND(10,10) as integer

Atte. Miguel A. Nievas
MCAD.NET

"jorge" wrote:

Estoy desarrollando un proyecto en vb para diseñar una boleta de notas, y al
iniciarlo me ha mostrado una serie de errores, los cuales quisiera que me
ayuden a corregirlos:

No se ha declarado el nombre 'Round'.
No se ha declarado el nombre 'CAD'.
No se ha declarado el nombre 'ToolTip1',
En QBColor(12) el error manifisesta esto
Un valor de tipo 'Integer' no se puede convertir en '2'.
igual para QBColor(1)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, pr As Integer
n1 = Val(TextBox4.Text)
n2 = Val(TextBox5.Text)
n3 = Val(TextBox6.Text)
pr = Round((n1 + n2 + n3) / 3, 0)
TextBox7.Text() = Str(pr)
If pr >= 11 Then
TextBox9.Text = "APROBADO"
TextBox9.ForeColor = QBColor(1)
Else
TextBox9.Text = "desaprobado"
TextBox9.ForeColor = QBColor(12)
End If
Select Case pr
Case 1
CAD = "UNO"
Case 2
Cad = "DOS"
Case 3
CAD = "TRES"
Case 4
CAD = "CUATRO"
Case 5
CAD = "CINCO"
Case 6
CAD = "SEIS"
Case 7
CAD = "SIETE"
Case 8
CAD = "OCHO"
Case 9
Cad = "NUEVE"
Case 10
CAD = "DIEZ"
Case 11
CAD = "ONCE"
Case 12
CAD = "DOCE"
Case 13
CAD = "TRECE"
Case 14
CAD = "CATORCE"
Case 15
CAD = "QUINCE"
Case 16
CAD = "DIESISEIS"
Case 17
CAD = "DIESISIETE"
Case 18
CAD = "DIESIOCHO"
Case 19
CAD = "DIESINUEVE"
Case 20
CAD = "VEINTE"
End Select
TextBox8.Text = CAD

Button1.Enabled = True
Button1.Enabled = False

ToolTip1.SetToolTip(Button1, "Hacer un clic para calcular")

End Sub

Haber si me ayudan gracias.

Responder a este mensaje

#2 Leonardo Azpurua [mvp vb]

03/01/2006 - 23:23 | Informe spam

"Miguel A. Nievas - MCAD.NET"
escribió en el mensaje
news:

Es que no tenes declarado las variables esas.. Ej.. la matriz ROUND no
esta
declarada. CAD Tampoco..
Ej: Dim ROUND(10,10) as integer

Atte. Miguel A. Nievas
MCAD.NET

Hola, Miguel Nievas:

En realidad, Round no es una matriz. Es una función estática de la clase
System.Math, que redondea un valor numerico a una cantidad especificada de
decimales. Eso se resuelve bien calificando por completo la referencia
(System.Math.Round), bien importando la clase.

CAD si que es una referencia a una variable no declarada.

ToolTip1 es un control de tipo ToolTip que hay que agregar al formulario.

El problema con la asignacion a la propiedad ForeColor de la caja de texto
es que esta propiedad en VB.NET es una estructura del tipo
System.Drawing.Color, y la función QBColor devuelve el valor RGB del color
especificado. La solución es reemplazar QBColor(1) y QBColor(12) por
System.Drawing.Color.Blue y System.Drawing.Color.Red respectivamente.

Para convertir numeros en colores, se puede usar la clase
System.Drawing.ColorTranslator.FromWin32, que convierte valores RGB (lo que
devuelve QBColor) en estructuras Color:
TextBox1.ForeColor =
System.Drawing.ColorTranslator.FromWin32(QBColor(12))

Si importas System.Drawing te ahorras muchísimo tipeo.

Salud!

Responder a este mensaje

#3 Leonardo Azpurua [mvp vb]

03/01/2006 - 23:36 | Informe spam

Olvide agregar que si cuando tenia hijos en edad escolar me hubieran mandado
una boleta con cualquier nota entre "DIESISEIS" y "DIESINUEVE" lo habría
retirado de esa escuela inmediatamente.

Salud!

Responder a este mensaje

#4 jorge

04/01/2006 - 05:19 | Informe spam

"Leonardo Azpurua [mvp vb]" escribió:

Olvide agregar que si cuando tenia hijos en edad escolar me hubieran mandado
una boleta con cualquier nota entre "DIESISEIS" y "DIESINUEVE" lo habría
retirado de esa escuela inmediatamente.

Salud!

Mil disculpas por las notas pero aquije en el Peru se califica de 0 a 20,
ahora ya se corrigieron los errores

con System.Drawing.Color.Blue y System.Drawing.Color.Red respectivamente.

y agregando el control Tooltip todo bien, solo me falta declarar CAD, por
que genero y sale nose ha declarado el nombre CAD, y muchas gracias sin
ustedes no hay futuro.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida