Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/09/2013, 12:09
alexg88
 
Fecha de Ingreso: abril-2011
Mensajes: 1.342
Antigüedad: 13 años
Puntos: 344
Respuesta: Ayud Please Newbie en .NET no está declarado. Puede que esté inaccesible d

El error está en que la variable IntPromedio es local al método Form1_Load

Para poder utilizarlo en otros métodos tienes que declararlo a nivel de clase


Código vb:
Ver original
  1. Public Class Form1
  2.  
  3.     Private IntPromedio As Integer
  4.  
  5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.  
  7.  
  8.         'Declaro Nombre De Las Variables Arrays
  9.        Dim ArrPacientes(4) As String
  10.         Dim ArrEdad(4) As Integer
  11.         Dim ArrDiagnostico(4) As String
  12.  
  13.         'Declaro Variables En General
  14.  
  15.         Dim IntSumatoria As Integer      
  16.  
  17.  
  18.         'Asignamos Valores A Los Arrays
  19.        ArrPacientes(0) = "Daniel Roberto"
  20.         ArrPacientes(1) = "Daniel Ghua"
  21.         ArrPacientes(2) = "Danna"
  22.         ArrPacientes(3) = "Zar Keim"
  23.         ArrPacientes(4) = "Kiarito"
  24.  
  25.         ArrEdad(0) = 1
  26.         ArrEdad(1) = 27
  27.         ArrEdad(2) = 55
  28.         ArrEdad(3) = 55
  29.         ArrEdad(4) = 30
  30.  
  31.  
  32.         ArrDiagnostico(0) = "Epilepsia Infantil"
  33.         ArrDiagnostico(1) = "Obesidad"
  34.         ArrDiagnostico(2) = "Hipertensión"
  35.         ArrDiagnostico(3) = "Fractura"
  36.         ArrDiagnostico(4) = "Vasectomia"
  37.  
  38.  
  39.         'Operaciones Simples
  40.  
  41.         IntSumatoria = ArrEdad(0) + ArrEdad(1) + ArrEdad(2) + ArrEdad(3) + ArrEdad(4)
  42.  
  43.         IntPromedio = IntSumatoria / 5
  44.  
  45.     End Sub
  46.  
  47.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  48.         MsgBox("La edad promedio de los pacientes es: " & IntPromedio)
  49.     End Sub
  50. End Class

Saludos.