ayuda con checkbox

[zare]

holaa a todos ... bueno hace poco que estoy aprendiendo visual basic....y tengo un problema ....estoy haciendo una boleta de una pizzeria...tengo seis checkbox....cada una vale dos soles ....al marcar algunas se le tiene que sumar eso al total.....ya intente hacer eso usando un if pero nada ...no me funciona si marco 2 al total se le tendria que sumar 4 pero nada porfa alguna idea??

[seba123neo]

Hola, yo te doy como debe ser despues hacelo vos, te creas una matriz de controles con esos 6 checkbox y la recorres y cuando encuentre el valor = True entonces vas sumando...

saludos.

[zare]

hola gracias por responder perooo recien vamos una semana de clases y solo hicimos el if y else :S alguna idea

[culd]

Busca un poquito en otros post, hace no mas de 1 o 2 semanas puse un codigo a una persona que necesitaba sumar el valor de cada checkbox que tildaba.... Buscalo y ahi tenes la solucion...

Para encontrar mas rapido, busca mis mensajes respondidos.

[Judgement]

Saludos, creo que esto te serviria un pokito

Código:

Private Sub Command1_Click()
    Dim ctlCheck As Control
    Dim lContador As Long
    
    For Each ctlCheck In Me.Controls
        If (TypeOf ctlCheck Is CheckBox) And (ctlCheck.Value = 1) Then
            lContador = lContador + 1
        End If
    Next
    MsgBox lContador * 2
End Sub

[UnlimiT3D]

Cada ves que presiones en un check te dira el valor en un msgbox..

Dim Valor As Byte
Private Sub Check1_Click()
Call SumarValor
MsgBox Valor
End Sub
Private Sub SumarValor()
Valor = 0
If Check1.Value = 1 Then
Valor = Valor + 2
End If
If Check2.Value = 1 Then
Valor = Valor + 2
End If
If Check3.Value = 1 Then
Valor = Valor + 2
End If
If Check4.Value = 1 Then
Valor = Valor + 2
End If
If Check5.Value = 1 Then
Valor = Valor + 2
End If
If Check6.Value = 1 Then
Valor = Valor + 2
End If
End Sub

Private Sub Check2_Click()
Call SumarValor
MsgBox Valor
End Sub

Private Sub Check3_Click()
Call SumarValor
MsgBox Valor
End Sub

Private Sub Check4_Click()
Call SumarValor
MsgBox Valor
End Sub

Private Sub Check5_Click()
Call SumarValor
MsgBox Valor
End Sub

Private Sub Check6_Click()
Call SumarValor
MsgBox Valor
End Sub

y este es si quieres q se llame sumarvalor desde un command mas cortito xd

Dim Valor As Byte

Private Sub SumarValor()
Valor = 0
If Check1.Value = 1 Then
Valor = Valor + 2
End If
If Check2.Value = 1 Then
Valor = Valor + 2
End If
If Check3.Value = 1 Then
Valor = Valor + 2
End If
If Check4.Value = 1 Then
Valor = Valor + 2
End If
If Check5.Value = 1 Then
Valor = Valor + 2
End If
If Check6.Value = 1 Then
Valor = Valor + 2
End If
End Sub

Private Sub Command1_Click()
Call SumarValor
MsgBox Valor
End Sub

[seba123neo]

creo que usando una matriz de control como dije antes se optimiza ese codigo a 4 lineas mas o menos...