Foros del Web » Programación para mayores de 30 ;) » C/C++ »

no se ha declarado el nombre

Estas en el tema de no se ha declarado el nombre en el foro de C/C++ en Foros del Web. hola, tengo un codigo al cual esto modificando , pero el problema es que me da errores como eso de los que no se ha ...
  #1 (permalink)  
Antiguo 30/01/2012, 06:05
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 3 meses
Puntos: 0
no se ha declarado el nombre

hola, tengo un codigo al cual esto modificando , pero el problema es que me da errores
como eso de los que no se ha declarado el nombre , estoy usando vb 2008 express edition , aki dejo el codigo
Código C:
Ver original
  1. Option Explicit
  2. Private dado As Byte
  3. Private contRo, contAz, contAm, contVe As Byte
  4. Private turno As Byte
  5. Private ro0, ro1, ro2, ro3 As Byte
  6. Private az0, az1, az2, az3 As Byte
  7. Private am0, am1, am2, am3 As Byte
  8. Private ve0, ve1, ve2, ve3 As Byte
  9. Private ficha As Byte
  10. Private sacada As Boolean
  11.  
  12. Private Sub Form_Load()
  13. ro0 = 4: ro1 = 4: ro2 = 4: ro3 = 4
  14. az0 = 21: az1 = 21: az2 = 21: az3 = 21
  15. am0 = 38: am1 = 38: am2 = 38: am3 = 38
  16. ve0 = 55: ve1 = 55: ve2 = 55: ve3 = 55
  17. Randomize
  18. End Sub
  19.  
  20. Private Sub cmdDado_Click()
  21.  
  22. Call Tirada
  23. If turno = 0 Then
  24. Call Movimiento(ro0, ro1, ro2, ro3)
  25. ElseIf turno = 1 Then
  26. Call Movimiento(az0, az1, az2, az3)
  27. ElseIf turno = 2 Then
  28. Call Movimiento(am0, am1, am2, am3)
  29. Else
  30. Call Movimiento(ve0, ve1, ve2, ve3)
  31. End If
  32. 'Loop
  33. End Sub
  34.  
  35. Private Sub Tirada()
  36. 'Ojo: CInt aproxima; Int trunca:
  37. dado = Int(6 * Rnd + 1)
  38. txtDado.Text = CStr(dado)
  39. End Sub
  40.  
  41. Private Sub Movimiento(ficha0, ficha1, ficha2, ficha3)  (((error    error al no declarar lstjug))))
  42. If (lstJug(turno).List(0) <> "" Or lstJug(turno).List(1) <> "" Or lstJug(turno).List(2) <> "" Or lstJug(turno).List(3) <> "") And dado = 5 Then
  43. Call Salida(ficha0, ficha1, ficha2, ficha3)
  44. ElseIf lstJug(turno).List(0) = "" Or lstJug(turno).List(1) = "" Or lstJug(turno).List(2) = "" Or lstJug(turno).List(3) = "" Then
  45. Call Normal(ficha0, ficha1, ficha2, ficha3)
  46. End If
  47.  
  48.  
  49. turno = turno + 1
  50. If turno > 3 Then turno = 0
  51. If turno = 0 Then
  52. lstJugadores.ListIndex = 0
  53. ElseIf turno = 1 Then lstJugadores.ListIndex = 1
  54. ElseIf turno = 2 Then lstJugadores.ListIndex = 2   (((ERROR AL NO DECLARAR LST JUGADORES)))
  55. ElseIf turno = 3 Then lstJugadores.ListIndex = 3
  56. End If
  57. End Sub
  58.  
  59. Private Sub Salida(a, b, c, d)
  60. sacada = False
  61. If lstJug(turno).List(0) <> "" Then
  62. pos(a).AddItem lstJug(turno).List(0)
  63. lstJug(turno).List(0) = ""
  64. sacada = True
  65. ElseIf lstJug(turno).List(1) <> "" Then
  66. pos(b).AddItem lstJug(turno).List(1)
  67. lstJug(turno).List(1) = ""
  68. sacada = True
  69. ElseIf lstJug(turno).List(2) <> "" Then
  70. pos(c).AddItem lstJug(turno).List(2)
  71. lstJug(turno).List(2) = ""
  72. sacada = True
  73. ElseIf lstJug(turno).List(3) <> "" Then
  74. pos(d).AddItem lstJug(turno).List(3)
  75. lstJug(turno).List(3) = ""
  76. sacada = True
  77. End If
  78.  
  79. End Sub
  80.  
  81. Private Function F_Reposiciona(ByVal ficha As Byte) As Byte
  82. ficha = ficha + dado
  83. If (turno = 1 Or turno = 2 Or turno = 3) And ficha > 67 Then ficha = ficha - 68
  84. F_Reposiciona = ficha
  85. End Function
  86.  
  87. Private Sub Normal(a, b, c, d)
  88. Dim aux As Byte
  89. Dim anterior As Byte
  90. If optFicha0.Value = True And lstJug(turno).List(0) = "" Then
  91. aux = a
  92. a = F_Reposiciona(aux)
  93. pos(a).AddItem pos(aux).List(0)
  94. pos(aux).RemoveItem 0
  95.  
  96. ElseIf optFicha1.Value = True And lstJug(turno).List(1) = "" Then
  97. aux = b
  98. anterior = b
  99. b = F_Reposiciona(aux)
  100. pos(b).AddItem pos(anterior).List(0)
  101. pos(anterior).RemoveItem 0
  102. ElseIf optFicha2.Value = True And lstJug(turno).List(2) = "" Then
  103. aux = c
  104. anterior = c
  105. c = F_Reposiciona(aux)
  106. pos(c).AddItem pos(anterior).List(0)
  107. pos(anterior).RemoveItem 0
  108. ElseIf optFicha3.Value = True And lstJug(turno).List(3) = "" Then
  109. aux = d
  110. anterior = d
  111. d = F_Reposiciona(aux)
  112. pos(d).AddItem pos(anterior).List(0)
  113. pos(anterior).RemoveItem 0
  114. Else
  115. MsgBox "Esa ficha no ha salido de casa todavía. Usa una de las que ya están fuera"
  116. If turno = 0 Then
  117. turno = 3
  118. Else
  119. turno = turno - 1
  120. End If
  121. End If
  122. End Sub

a ver si encuentro una solucion , gracias
  #2 (permalink)  
Antiguo 30/01/2012, 06:25
 
Fecha de Ingreso: enero-2011
Ubicación: Venezuela, Táchira
Mensajes: 96
Antigüedad: 13 años, 2 meses
Puntos: 10
Respuesta: no se ha declarado el nombre

Hola amigo posteaste en la seccion equivocada.. debes poner esto en la seccion .NET para que te puedan ayudar
  #3 (permalink)  
Antiguo 30/01/2012, 06:33
 
Fecha de Ingreso: diciembre-2011
Ubicación: Crespo - Entre Rios
Mensajes: 155
Antigüedad: 12 años, 3 meses
Puntos: 25
Respuesta: no se ha declarado el nombre

no se como funciona much el vb, pero, no usan el ; para terminar una sentencia?, porque si es asi, te falta ponerlo en casi todas la lineas
  #4 (permalink)  
Antiguo 30/01/2012, 07:08
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 3 meses
Puntos: 0
Respuesta: no se ha declarado el nombre

ok , lo pngo en net entonces, gracias , podeir cerrar aki

Etiquetas: nombre
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:00.