Ayuda Novato

XilFe · #1 (**permalink**) 26/10/2009, 15:51

Hola!
Es la primera vez que intento hacer algo con VB6, la verdad es que no tengo idea de programacion, pero me gustaria aprender, almenos para hacer programas sencillos como el que tengo entre manos.

El problema con el que me encuentro es el siguiente:
tengo dos hscrollbar
HScrollbar1 min13 max19 y esto se refleja en txtpin
HScrollbar2 min21 max30 y esto se refleja en txtcor
el resultado de la division se refleja en txtRD

el problema que tengo es que cuando le mando al boton 1 hacer esto
txtRDVel.text = Val(txtRD.text) * (75 / 19) * (33 / 17)
en txtRDVel no se refleja bien la operacion, pues solo me coje el numero entero de txtRD y no coje los decimales

Un ejemplo supongamos que HScrollbar1 es 13 y HScrollbar2 es 30 el resultado de la division es 30/13=2,30769230
esto me sale en txtRD y esta bien, pero en txtRDVel me tendria que salir 17,6827815 y me sale 15,3250773 pues solo me coje el numero entero 2 y ovbia lo que hay detras de la coma
os dejo el codigo para que lo mireis

Private Sub Form_Load()
Dim txtRD As Currency
Dim txtRDVel As Currency
End Sub

Private Sub HScroll1_Change()
txtPin.text = HScroll1.Value
txtRD.text = Val(HScroll2.Value) / Val(HScroll1.Value)
End Sub

Private Sub HScroll2_Change()
txtCor.text = HScroll2.Value
txtRD.text = Val(HScroll2.Value) / Val(HScroll1.Value)
End Sub

Private Sub HScroll3_Change()
txtVel.text = HScroll3.Value
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Command1_Click()
Dim text As Currency
txtRDVel.text = (75 / 19) * (33 / 17) * Val(txtRD.text)
End Sub

Muchas gracias

pkj · #2 (**permalink**) 26/10/2009, 16:52

Prueba esta línea en el command1

txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text)

PD: También puedes usar los textbox directamente en la formula:

txtRDVel.text = (75 / 19) * (33 / 17) * txtRD.text

Verás que el resultado es el mismo que con cDbl

XilFe · #3 (**permalink**) 27/10/2009, 14:15

Muchas gracias, ahora funciona a la perfeccion!
lo de poner directamente la formula en el txtRDVel no me vale, pues son 6 botones distintos
pues cada boton se refiere a una velocidad con una formula distinta.
Otra pregunta mas si no es mucho abusar, si esto en vez de con botones lo quisiese hacer con una HScrollbar con Min 1 Max 6 se podria?
Es decir que me saliese en txtVel 1, 2, 3, 4, 5, 6 y en txtRDVel el resultado de las multiplicaciones.
Es que ahora lo tengo con 6 Botones y quedaria mejor con una HScrollbar.
Si no se puede o es muy complicado, vale igual con los botones.

De nuevo muchas gracias!
Saludos

pkj · #4 (**permalink**) 27/10/2009, 15:04

Imagino que el hscroll3 ya está usando min1 max6, ya que es el que pone el valor en txtVel y dices que son 6 valores. Solo tendrías que cámbiarlo por:

Código :

Ver originalPrivate Sub HScroll3_Change()
  txtVel.text = HScroll3.Value
  Select Case HScroll3.Value
    Case 1:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text)
    Case 2:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 3:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 4:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 5:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
    Case 6:
      txtRDVel.text = (75 / 19) * (33 / 17) * cDbl(txtRD.text) ' CAMBIANDO LAS FORMULAS
  End Select
End Sub

Creo que así funcionará.

XilFe · #5 (**permalink**) 27/10/2009, 15:18

Ahora te comento que voy a probarlo.
de momento con los botones va perfecto!
el codigo es este

Private Sub HScrollPin_Change()
txtPin.text = HScrollPin.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollCor_Change()
txtCor.text = HScrollCor.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollRPM_Change()
txtRPM.text = Val(HScrollRPM.Value)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub Vel1_Click()
txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 1
End Sub
Private Sub Vel2_Click()
txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 2
End Sub
Private Sub Vel3_Click()
txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 3
End Sub
Private Sub Vel4_Click()
txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 4
End Sub
Private Sub Vel5_Click()
txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 5
End Sub
Private Sub Vel6_Click()
txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 6
End Sub
Private Sub Exit_Click()
End
End Sub

Hasta ahora!

pkj · #6 (**permalink**) 27/10/2009, 15:27

Crea un HScroll llamado HScrollVel y cambias el codigo de los 6 botones por:

Código :

Ver originalPrivate Sub HScrollVel_Change()
  txtVel.text = Cstr(HScrollVel.Value)
  Select Case HScrollVel.Value
    Case 1:
      txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
    Case 2:
      txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
    Case 3:
      txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
    Case 4:
      txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
    Case 5:
      txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
    Case 6:
      txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
      txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
  End Select
End Sub

XilFe · #7 (**permalink**) 27/10/2009, 15:48

VALLA QUE SI FUNCIONAAAAAAAA!!!!
jejejej muchisimas gracias!!!

Ahora a quedado a si

Private Sub HScrollPin_Change()
txtPin.text = HScrollPin.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollCor_Change()
txtCor.text = HScrollCor.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollSelVel_Change()
txtVel.text = HScrollSelVel.Value
Select Case HScrollSelVel.Value
Case 1:
txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
Case 2:
txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
Case 3:
txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
Case 4:
txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
Case 5:
txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
Case 6:
txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
End Select
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub HScrollRPM_Change()
txtRPM.text = Val(HScrollRPM.Value)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub Exit_Click()
End
End Sub

Me falta aun darle unos pequeños retoques, color (esto es facil) que el programa al ejecutarse reproduzca un mp3 (creo que tambien es facil), que me establezca por defecto unos valores predeterminados en todos los textbox para que no se tenga que empezar de arriba abajo, pues ahora si empiezas poniendo las Revoluciones da error (esto ya no lo veo tan facil)
una casilla de verificacion para anular el mp3, por si a la gente le molesta (creo que es facil) que en el textbox de los KM/h solo me salga el entero y dos decimales por ejemplo 130,20 y no 130.205487478 que queda muy feo y por supuesto ponerle un mensage al salir del programa con agradecimientos a la gente como tu que me ayuda a crear estas cosillas para que otra gente las disfrute totalmente gratis, pues esto lo hago por Hobby y no pa sacar dinero.

Esto que te comente lo voy a intentar hacer el fin de semana por mi cuenta, leyendo los manuales que tengo, a ver si lo consigo, ya te contare.
Si no pues tendre que pedirte ayuda

De verdad Muchas Gracias!!!!

XilFe · #8 (**permalink**) 27/10/2009, 16:15

Acabo de darme cuenta que calcula mal los KM/h
Me pone que en 1º a 14000mil pilla 627,0506666666

Lo revisare mañana
ahora es tarde y no me da tiempo de mas
Algo habre puesto yo mal

De nuevo gracias por tu ayuda, hasta mañana

pkj · #9 (**permalink**) 27/10/2009, 16:36

Y si no soy yo alguien te ayudará. Hay gente por aquí que controla mucho más.
Solo hay que explicarse bién para que te entiendan porque a veces te vuelves loco para entender una pregunta.

Sigue disfrutando de tu cerebro. Es la mejor droga y previene el altzeimer.

PD: Es posible que te falten unos parentesis
txtKMh.text = ((Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88)) / 1000

XilFe · #10 (**permalink**) 30/10/2009, 15:20

Hola!
Estos dias anduve muy liado de trabajo y no pude hacer nada, a ver si mañana retomo el tema este.
No se que narices haria mal, pero ahora al volver a compilarlo (se dice a si cuando lo pasas a exe?) me sale bien sin poner el doble parentesis, no se que pudo haber sido?
El caso es que ahora funciona, se ve muy cutrillo y sin acabar pero funciona.
A ver si puedo mañana empezar a darle color.

Hasta mañana!!!