• Jueves 28 de Marzo de 2024, 14:07

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.


Mensajes - Dydimos

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re:Suma de valores entre option button
« en: Lunes 22 de Agosto de 2011, 14:54 »
Exactamente quiero sumar un option button de cada grupo....

Me pueden mostrar como condicionarlo mas?

2
Visual Basic 6.0 e inferiores / Suma de valores entre option button
« en: Sábado 20 de Agosto de 2011, 01:40 »
Hola pues quiero desarrollar un progama que me sume los valores entre option button y que me lo muestre en un label.

Bueno esto es la idea general que quiero....



Uploaded with ImageShack.us


son una seria de preguntas con sus option button como respuesta.. cada option button tiene asignado como valor segun su etiqueta... 1, 2, 3, etc... el valor lo asigne en la opcion TAG de cada option button

Se marca un solo option button por cada grupo... y al fial al darle al boton "ver resultado" deveria sumar x cantidad de option button... la cuestion es que no soy un experto en esto de la programacion y lo que hasta ahora he podido investigar me a llevado al siguiente codigo:

If Option1.Value = True Then
Label1 = ("El valor sumado es:")
Label2 = Val(Option1.Tag) + Val(Option10.Tag)
End If

para mostrar el resultado de la sumatoria uso el label2 y puse como condicion que si el option1 tiene valor true... entonces que me sume ese option1 del grupo 1 y el option10 del "grupo 2", cada uno por estar en la primera pocision tienen valor 1 la sumatoria me da 2....

pero se que el codigo me esta atando con el option1 ya que si por ejemplo en lugar del option1 del "grupo 2" estuviera el option2 marcado... siempre me sumaria el 1 del "grupo 2"... me gustaria que me ayudaran a ver cual es la mejor forma para realizar la sumatoria de varios option button, es decir la sumatoria de un option button por cada grupo independientemente del que este marcado.... si no es tanta la molestia.


3
Visual Basic para principiantes / Re: Como realizar busqueda incluyendo 3 textbox?
« en: Sábado 21 de Noviembre de 2009, 15:37 »
Código: Text
  1. Private Sub Command2_Click()
  2.  Dim dato, pdo, Filtro, clac As String
  3. If cuenta.Text = "" Then
  4. MsgBox "Debe ingresar algún valor" + Chr(10) + "para la búsqueda correspondiente", _
  5. vbOKOnly + vbInformation, "Advertencia"
  6. cuenta.SetFocus
  7. Else
  8.  dato = Trim(cuenta.Text)
  9.  num = Trim(CClase.Text)
  10.  pdo = Trim(Periodo.Text)
  11.  Filtro = "Numcuenta Like '*" & dato & "*'"
  12.  clac = Filtro & "CodClase Like '*" & num & "*'"
  13.  pdo = Filtro & "Periodo Like '*" & pdo & "*'"
  14.  Data1.Recordset.FindFirst Filtro
  15.  If Data1.Recordset.NoMatch Then
  16.    MsgBox "El alumno no existe en la lista", 32, "Advertencia"
  17.  Else
  18.     busq0.Text = Data1.Recordset.Nombre
  19.     busq1.Text = Data1.Recordset.Numcuenta
  20. End If
  21.  End If
  22. End Sub
  23.  

Buneo modifique el codigo y creo este es mejor pero aun asi me tira alumnos que no estan ligados a la clase...

Lo que quiero hacer es que el programa busque un alumno por numero de cuenta, numero de clase y periodo y debe cumplir esas condiciones para que lo traiga... de lo contrrio no... perosiempre me lo trae... :( porfa ayuda!

4
Visual Basic para principiantes / Como realizar busqueda incluyendo 3 textbox?
« en: Jueves 19 de Noviembre de 2009, 00:15 »
Hola amigos....
lo que quiero es realizar una busqueda incluyen el contenido de 3 textbox

los textbox son donde esta el codigo de la clase: AD-131, periodo:1 (ese contenido esta por default siempre)
y en textbox de numero de cuenta que esta al lado izquierdo del boton busqueda.

Bueno el codigo que tengo es el siguiente pero no me funciona: (aqui hacia pruebas solo con 2 textbox codigo de clase y el numero de cuenta)

Código: Visual Basic
  1. Private Sub Command2_Click()
  2.  Dim dato, ncuenta, num, clac As String
  3.  dato = Trim(cuenta.Text)
  4.  num = Trim(CClase.Text)
  5.  ncuenta = "Numcuenta Like'*" & dato & "*'"
  6.  clac = "CodClase Like'*" & num & "*'"
  7.  Data1.Recordset.FindFirst ncuenta
  8.  Data1.Recordset.FindNext clac
  9.  If Data1.Recordset.NoMatch Then
  10.    MsgBox "El alumno no existe en la lista", 32, "Advertencia"
  11.    Exit Sub
  12.  Else
  13.   If Not Data1.Recordset.NoMatch Then
  14.     busq0.Text = Data1.Recordset.Nombre
  15.     busq1.Text = Data1.Recordset.Numcuenta
  16.   End If
  17.  End If
  18. End Sub
  19.  
  20.  
en ese codigo aun no incluyo la busqueda para periodo.. :p
lo ultimo del codigo es que el resultado apareceran en unos texbox mas abajo...

o incluyo imagenes porq no me permite el foro...


 me ayudan plisss como deberia tener el codigo.

Páginas: [1]