• Viernes 8 de Noviembre de 2024, 06:44

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - calichecal

Páginas: [1]
1
Visual Basic para principiantes / error raro en matrizes
« en: Lunes 27 de Julio de 2009, 02:00 »
SALUDOS , estoy haciendo una calculadora y utilize una matriz de controles para las teclas de los digitos ,resulta que cuando fui a probarlos a partir de la tecla 5 me aparece un error diciendome " la matriz 5 no existe "y haci hasta la 9 ,y no se donde sera el problema pues se supone las 9 teclas tienen el mismo codigo y de la tecla 4 para abajo si funcionan bien ,agradesco la ayuda aqui esta el codigo de la matriz digitos=

Private Sub digitos_Click(Index As Integer)
Dim numero As String
If numoperandos = 0 And operacion(Index).Caption = "-" Then
ultimaentrada = digito_
End If
If ultimaentrada <> digito_ Then
If digitos(Index).Caption = "0" Then Exit Sub
pantalla.Caption = ""
puntodecimal = False
ultimaentrada = digito_
End If
numero = pantalla.Caption
pantalla.Caption = numero & digitos(Index).Caption

2
Visual Basic para principiantes / problema al sumar matris bidimencional
« en: Viernes 17 de Julio de 2009, 21:49 »
saludo ,ahora en visual basic 6.0 estoy en el tema de las matrises  ,pero tengo el problema de que quiero sumar las filas y las columnas de una matris bidimencional ,pero no me quiere salir ,he revisado el codigo varias veces y la verdad no encuentro la falla ,todo parece estar bien ,agradesco la atencion al que me saque de esta duda,este es el codigo:

Dim mama() As Integer
Private Sub Form_Load()

Dim c As Integer, f As Integer, i As Integer, i2 As Integer, sc As Integer, sf As Integer, a As Integer
c = InputBox("ingrese el numero de columnas :")
f = InputBox("ingrese el numero de filas :")
ReDim mama(1 To c, 1 To f)
For i = 1 To c
  For i2 = 1 To f
     mama(c, f) = InputBox("ingrese el dato numerico de la columna " _
     & i & " de la fila " & i2)
  Next i2
 Next i
For i2 = 1 To f
   sf = 0
  For i = 1 To c
     sf = sf + mama(i, i2)
  Next i
  Print " suma fila "; i2; " = "; sf
Next i2
For i = 1 To c
  sc = 0
  For i2 = 1 To f
     sc = sc + mama(i, i2)
  Next i2
  Print "suma columna "; i; " = "; sc
Next i
End Sub

3
Visual Basic 6.0 e inferiores / BUCLE INFINITO "como evitarlo"
« en: Miércoles 24 de Junio de 2009, 02:43 »
estoy tratando  de utilizar un while solo por practicar que empieze con el evento clip de un command ,he leido y seguido al pie de la tetra la estructura de esa instruccion pero siempre termino en un bucle infinito xd....agradesco la ayuda para el que sepa como es la adecuada utilizacion de while y su utilidad...

Páginas: [1]