Values in SPIN

[chrisjournoud]

Hi,

I know Bacon for quite a while but I am new to use it. I found it very interesting.

I am translating a small program I wrote sometimes ago (in Python + Tk, Gambas basic, Vala + Glade, Lazarus, ). In fact, it is the program I wrote when I am looking for a new programming language.

My actual problem is about SPIN. It can take floating point values with any number of digit after the decimal point,  if you declare the step parameter with this amount of decimals (ex: Svalue = SPIN(100, 25, 0.0, 40.0, 0.0001) mean that you can enter 20.0015 in the SPIN field)

But, when you do value2 = GET(Svalue), if you have entered 20.0015, you get 20. Is it normal or my mistake somewhere ? value2 have been declared TYPE double first ?

Thanks for your advices.

Here is my code:
INCLUDE "hug.bac"

GLOBAL v_pente, v_denivele, masse1, masse2, masse_totale, v_distance, v_temps, v_vitesse, coef_pente, cp1, cp2, cp3, rendement, puissance, puissance1, puissance2 TYPE double

'Déclaration des fonctions du programme

SUB apropos
SHOW(Msgbox1)
END SUB

SUB close_dialog(NUMBER widget)
SYSTEM "true"
FOCUS(Appli)
HIDE(widget)
END SUB

SUB calculer
v_pente = 0.0
v_denivele = 0.0
masse1 = GET(Smc)
masse2 = GET(Smv)
masse_totale = arrondi((masse1 + masse2), 2)
TEXT(Lmtv, STR$(masse_totale))
IF masse_totale = 0 THEN
msg = MSGDIALOG("La masse ne peut être nulle", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
v_distance = GET(Sdist)
IF v_distance = 0 THEN
msg = MSGDIALOG("La distance ne peut être nulle", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
IF GET(Rden) THEN
v_denivele = GET(Sden)
IF v_denivele <> 0 THEN
IF v_denivele >= (v_distance * 1000) THEN
msg = MSGDIALOG("Le dénivelé ne peut pas être" & NL$ & "supérieur ou égal à la distance", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
SET(Sden, 0)
SET(Rden, 1)
SET(Rpen, 0)
EXIT SUB
END IF
v_pente = v_denivele / SQR(POW(v_distance * 1000, 2) - POW(v_denivele, 2)) * 100: PRINT "v_pente "; v_pente
SET(Spen, v_pente)
SHOW(Spen)
ELSE
v_pente = 0.0
SET(Spen, v_pente)
SHOW(Spen)
END IF
ELSE
v_pente = VAL(GRAB$(Spen)): PRINT v_pente
v_denivele = arrondi(SIN(ATN(v_pente / 100) * v_distance * 1000), 2): PRINT v_denivele
SET(Sden, v_denivele)
SHOW(Sden)
END IF
v_temps = GET(Sheure) + GET(Sminute) / 60 + GET(Sseconde) / 3600
IF v_temps = 0 THEN
msg = MSGDIALOG("Il faut saisir une durée", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
v_vitesse = v_distance / v_temps
TEXT(Lvitv, STR$(arrondi(v_vitesse, 2)))
coef_pente = v_pente / 100
cp1 = 9,81 * (masse1 + masse2) * coef_pente * (v_vitesse / 3.6)
cp1 = arrondi(cp1, 2)
TEXT(Lp1v, STR$(cp1))
air = 0.00
IF GET(Rp21) THEN
air = 0.35
END IF
IF GET(Rp22) THEN
air = 0.30
END IF
IF GET(Rp23) THEN
air = 0.22
END IF
densite = 1.0
cp2 = arrondi(densite / 2 * air * POW((v_vitesse - GET(Svent)) / 3.6, 3), 2)
TEXT(Lp2v, STR$(cp2))
frot = 0.0
IF GET(Rp31) THEN
frot = 0.004
END IF
IF GET(Rp32) THEN
frot = 0.006
END IF
IF GET(Rp33) THEN
frot = 0.009
END IF
cp3 = arrondi(9.81 * (masse1 + masse2) * frot * v_vitesse / 3.6, 2)
TEXT(Lp3v, STR$(cp3))
rendement = GET(Sp4)
IF rendement = 0 THEN
msg = MSGDIALOG("Il faut saisir une valeur non" & NL$ & "nulle pour le rendement", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT
END IF
puissance = (cp1 + cp2 + cp3) * 100 / rendement
puissance1 = arrondi(puissance, 3)
TEXT(Lpui1v, STR$(puissance1))
puissance2 = arrondi(puissance / masse1, 3)
TEXT(Lpui2v, STR$(puissance2))
END SUB

SUB effacer
SET(Smc, 0)
SET(Smv, 0)
TEXT(Lmtv, "NC")
SET(Rden, 1)
SET(Sden, 0)
SET(Spen, 0)
SET(Sdist, 0)
SET(Sheure, 0)
SET(Sminute, 0)
SET(Sseconde, 0)
TEXT(Lvitv, "NC")
TEXT(Lp1v, "NC")
TEXT(Lp2v, "Mains en haut")
SET(Rp21, 1)
SET(Svent, 0)
TEXT(Lp3v, "Vélo de route")
SET(Rp31, 1)
SET(Sp4, 97.5)
TEXT(Lpui1v, "NC")
TEXT(Lpui2v, "NC")
END SUB


SUB calc_masse_tot
tmp = GET(Smc) + GET(Smv)
TEXT(Lmtv, STR$(tmp))
END SUB

SUB swap_den_pente
IF GET(Rden) THEN
HIDE(Spen)
SHOW(Sden)
END IF
IF GET(Rpen) THEN
HIDE(Sden)
SHOW(Spen)
END IF
END SUB

SUB position
IF GET(Rp21) THEN
TEXT(Lp2v, "Mains en haut")
END IF
IF GET(Rp22) THEN
TEXT(Lp2v, "Mains en bas")
END IF
IF GET(Rp23) THEN
TEXT(Lp2v, "Guidon/vélo CLM")
END IF
END SUB

SUB roulement
IF GET(Rp31) THEN
TEXT(Lp3v, "Vélo de route")
END IF
IF GET(Rp32) THEN
TEXT(Lp3v, "Vélo gravel")
END IF
IF GET(Rp33) THEN
TEXT(Lp3v, "VTT")
END IF
END SUB


FUNCTION arrondi(double x, int y)
LOCAL z TYPE double
IF y = 0 THEN
x = ROUND(x)
ELSE
tmp = POW(10, y)
z = ROUND((x * tmp)) / tmp
END IF
RETURN z
END FUNCTION


'Dessiner l'interface
Appli = WINDOW("CALCUL DE PUISSANCE A VELO", 360, 516)

'En partant du haut et de gauche à droite
Lmc = MARK("Masse corporelle :", 200,25): ATTACH(Appli, Lmc, 5, 0)
Smc = SPIN(100,25,0, 200,0.5): ATTACH(Appli, Smc, 210, 0): CALLBACK(Smc, calc_masse_tot)
Lmv = MARK("Masse vélo + équipement :", 200,25): ATTACH(Appli, Lmv, 5, 26)
Smv = SPIN(100,25,0, 30,0.1): ATTACH(Appli, Smv, 210, 26): CALLBACK(Smv, calc_masse_tot)
Lmtt = MARK("Masse totale en kg :", 200,25): ATTACH(Appli, Lmtt, 5, 52)
Lmtv = MARK("NC", 100,25): ATTACH(Appli, Lmtv, 210, 52)
Rden = RADIO("Dénivelé en m :", 200, 25, 0): ATTACH(Appli, Rden, 5, 78): CALLBACK(Rden, swap_den_pente)
Sden = SPIN(100,25,-9999, 9999, 0.01): ATTACH(Appli, Sden, 210, 78): SET(Sden, 0)
Rpen = RADIO("Pente en % :", 200, 25, Rden): ATTACH(Appli, Rpen, 5, 104): CALLBACK(Rpen, swap_den_pente)
Spen = SPIN(100,25,0.0, 40.0, 0.0001): ATTACH(Appli, Spen, 210, 104): SET(Spen, 0): HIDE(Spen)
Ldist = MARK("Distance en km :", 200, 25): ATTACH(Appli, Ldist, 5, 130)
Sdist = SPIN(100,25,0, 100, 0.01): ATTACH(Appli, Sdist, 210, 130)
Ltps = MARK("Temps en hh:mm:ss :", 200, 25): ATTACH(Appli, Ltps, 5, 156)
Sheure = SPIN(45,25,0, 59, 1): ATTACH(Appli, Sheure, 193, 156)
Sminute = SPIN(45,25,0, 59, 1): ATTACH(Appli, Sminute, 238, 156)
Sseconde = SPIN(45,25,0, 59, 1): ATTACH(Appli, Sseconde, 283, 156)
Lvitt = MARK("Vitesse en km/h :", 200, 25): ATTACH(Appli, Lvitt, 5, 182)
Lvitv = MARK("NC", 100, 25): ATTACH(Appli, Lvitv, 210, 182)
Lp1t = MARK("P1 > gravité :", 200, 25): ATTACH(Appli, Lp1t, 5, 208)
Lp1v = MARK("NC", 100, 25): ATTACH(Appli, Lp1v, 210, 208)
Lp2t = MARK("P2 > pénétration dans l'air :", 200, 25): ATTACH(Appli, Lp2t, 5, 234)
Lp2v = MARK("Mains en haut", 120, 25): ATTACH(Appli, Lp2v, 210, 234)
Rp21 = RADIO("Haut", 100, 25, 0): ATTACH(Appli, Rp21, 50, 260): CALLBACK(Rp21, position)
Rp22 = RADIO("Bas", 100, 25, Rp21): ATTACH(Appli, Rp22, 155, 260): CALLBACK(Rp22, position)
Rp23 = RADIO("CLM", 100, 25, Rp21): ATTACH(Appli, Rp23, 250, 260): CALLBACK(Rp23, position)
Lvent = MARK("Vitesse du vent (+ ou -) :", 200, 25): ATTACH(Appli, Lvent, 5, 286)
Svent = SPIN(100,25,0, 40, 0.01): ATTACH(Appli, Svent, 210, 286)
Lp3t = MARK("P3 > frottements :", 200, 25): ATTACH(Appli, Lp3t, 5, 312)
Lp3v = MARK("Vélo de route", 100, 25): ATTACH(Appli, Lp3v, 210, 312)
Rp31 = RADIO("700x25C", 100, 25, 0): ATTACH(Appli, Rp31, 50, 338): CALLBACK(Rp31, roulement)
Rp32 = RADIO("27,5 route", 100, 25, Rp31): ATTACH(Appli, Rp32, 155, 338): CALLBACK(Rp32, roulement)
Rp33 = RADIO("27,5 XC", 100, 25, Rp31): ATTACH(Appli, Rp33, 260, 338): CALLBACK(Rp33, roulement)
Lp4 = MARK("P4 > rendement :", 200, 25): ATTACH(Appli, Lp4, 5, 364)
Sp4 = SPIN(100,25,97.5, 100.0, 0.01): ATTACH(Appli, Sp4, 210, 364)
Lpui1t = MARK("PUISSANCE TOTALE EN W :", 200, 25): ATTACH(Appli, Lpui1t, 5, 390)
Lpui1v = MARK("NC", 100, 25): ATTACH(Appli, Lpui1v, 210, 390)
Lpui2t = MARK("PUISSANCE EN W / kg :", 200, 25): ATTACH(Appli, Lpui2t, 5, 416)
Lpui2v = MARK("NC", 100, 25): ATTACH(Appli, Lpui2v, 210, 416)

'Boutons
Bcal = BUTTON("Calculer", 172, 30): ATTACH(Appli, Bcal, 5, 446): CALLBACK(Bcal, calculer)
Bef = BUTTON("Effacer", 172, 30): ATTACH(Appli, Bef, 182, 446): CALLBACK(Bef, effacer)
Bap = BUTTON("A propos", 172, 30): ATTACH(Appli, Bap, 5, 481): CALLBACK(Bap, apropos)
Bqt = BUTTON("Quitter", 172, 30): ATTACH(Appli, Bqt, 182, 481): CALLBACK(Bqt, QUIT)

'Tooltips et mise en forme
PROPERTY(Lmc, "tooltip-text", "Poids de corps du cycliste")
PROPERTY(Lmc,"xalign", 0.0)
PROPERTY(Lmv, "tooltip-text", "Poids du vélo " & NL$ & "+ vêtements " & NL$ & "+ accessoires")
PROPERTY(Lmv,"xalign", 0.0)
PROPERTY(Lmtt,"xalign", 0.0)
PROPERTY(Ldist,"xalign", 0.0)
PROPERTY(Ltps,"xalign", 0.0)
PROPERTY(Lvitt,"xalign", 0.0)
PROPERTY(Lp1t,"xalign", 0.0)
PROPERTY(Lp2t,"xalign", 0.0)
PROPERTY(Lvent,"xalign", 0.0)
PROPERTY(Lp3t,"xalign", 0.0)
PROPERTY(Lp4,"xalign", 0.0)
PROPERTY(Lpui1t,"xalign", 0.0)
PROPERTY(Lpui1t, "tooltip-text", "Avec masse totale")
PROPERTY(Lpui2t,"xalign", 0.0)
PROPERTY(Lpui2t, "tooltip-text", "Avec poids du cycliste seul")

'Boites de dialogue
Msgbox1 = MSGDIALOG("Programmé et compilé" & NL$ & "avec Bacon " & VERSION$ & NL$ & "+ HUG version " & HUGVERSION$ & NL$ & "par C. Journoud" & NL$ & "selon méthode Vayer / Portoleau" & NL$ & "Avril 2019 mod. 07/2021", 300, 200, 0, 1): CALLBACK(Msgbox1, close_dialog)
Msgbox2 = MSGDIALOG("le bouton calculer a été" & NL$ & "sélectionné", 300, 150, 0, 1): CALLBACK(Msgbox2, close_dialog)

'Affichage et lancement de la boucle
DISPLAY


[chrisjournoud]

Looking at HUG documentation, it looks like the SET method for SPIN is setting an integer value.

As well, it is said : SPIN Creates a spinbutton with a width of <xsize> and a height of <ysize>. The range of integer values lays between <start> and <end>, and will be increased or decreased with <step> size. Returns the ID of the created spin button.

I am using HUG version 0.105

[rikky]

Yes, you're right.
I get the same.

' bacon-spin.bac

' Include the files for making a GUI.
INCLUDE "/opt/BaCon/share/hug.bac"

SUB My_SPINBOX()
PRINT GET(SPIN_STR)
END SUB

' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon SPINBOX ", 250, 100 )

FRAME_STR = FRAME(225, 50)

ATTACH( Mainwin, FRAME_STR, 10, 10 )

'  SPIN uses GET to see the value in the SUB  
SPIN_STR = SPIN(100,30, 1, 10, 0.1)
ATTACH( Mainwin, SPIN_STR, 15, 20 )


' Create a button.
GET_NUMBER = BUTTON("get number", 100, 25)
ATTACH( Mainwin, GET_NUMBER , 40, 65 )

' Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 155, 65 )

' Make button do something
CALLBACK( My_chk, QUIT)
CALLBACK(GET_NUMBER, My_SPINBOX)

DISPLAY

Hug does:
line 502:

IMPORT "gtk_spin_button_get_value_as_int(long)" FROM hug_Gtk$ TYPE int

and:
line 1370:

CASE "spin"
get = gtk_spin_button_get_value_as_int(hug_widget)

sound like an int.

 Rik.

[Pjot]

Hi chrisjournod,

Thanks for your large program. As rik already has detected, the HUG context uses 'value_as_int' and therefore you obtain an integer.

To understand why HUG uses this function, we have to go back to the beginning of BaCon. HUG was designed with HTML forms and widgets as a model. The HTML version of the spin button uses integer numbers.

Please note that HUG is based on GTK2 and not actively maintained. It has severe limitations because of its HTML model.

If you want to create a GUI then you might consider the native GUI functions instead. These functions allow a much wider range in GTK, also for GTK3 and GTK4. It's core is declarative so the code will stay clear and condense. You can find some demonstration programs here.

Alternatively, you can plainly use GTK functions within BaCon code, thereby accessing the API directly.

Best regards

Peter

[rikky]

You could probably also try to work around,
with two spinboxes, or more, with a dot somewhere in between. 

[chrisjournoud]

Thanks a lot to all of you for your fast answers.

Since my two posts, I have taken the choice of keeping SPIN for integers and to use ENTRY + 2 buttons for decimal values, using decimal_value = VAL(GRAB$(entry_text)) for retrieving the values and TEXT(STR$(decimal_value)) for filling the fields as needed.

I could try to do a SUB to create a "combined" widget, with in parameters : the 2 buttons, the widget on witch the buttons have to act, the max and the min values and the step.

Edit : the program does not test the validity of the ENTRY fields to be numbers. It is not a big deal on a program with an unique window and a small amount of entry fields but it is not the best to do .

@pjot I think your advice to use the native GUI functions instead of HUG is a good one. I am going to dig in. However, I think that the HUG way is an elegant and simple concept to do simple gui programs.

Here my new code (in french for the GUI, sorry):INCLUDE "hug.bac"

GLOBAL v_pente, v_denivele, masse1, masse2, masse_totale, v_distance, v_temps, v_vitesse, coef_pente, cp1, cp2, cp3, rendement, puissance, puissance1, puissance2 TYPE double

'Déclaration des fonctions du programme

SUB apropos
SHOW(Msgbox1)
END SUB


SUB close_dialog(NUMBER widget)
SYSTEM "true"
FOCUS(Appli)
HIDE(widget)
END SUB


SUB calculer
v_pente = 0.0
v_denivele = 0.0
masse1 = VAL(GRAB$(Emcv))
masse2 = VAL(GRAB$(Emvv))
masse_totale = arrondi((masse1 + masse2), 2)
TEXT(Lmtv, STR$(masse_totale))
IF masse_totale = 0 THEN
msg = MSGDIALOG("La masse ne peut être nulle", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
v_distance = VAL(GRAB$(Edist))
IF v_distance = 0 THEN
msg = MSGDIALOG("La distance ne peut être nulle", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
IF GET(Rden) THEN
v_denivele = VAL(GRAB$(Eden))
IF v_denivele <> 0 THEN
IF v_denivele >= (v_distance * 1000) THEN
msg = MSGDIALOG("Le dénivelé ne peut pas être" & NL$ & "supérieur ou égal à la distance", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
TEXT(Eden, "0")
SET(Rden, 1)
SET(Rpen, 0)
EXIT SUB
END IF
v_pente = v_denivele / SQR(POW(v_distance * 1000, 2) - POW(v_denivele, 2)) * 100
TEXT(Epen, STR$(v_pente))
SHOW(Epen)
ELSE
v_pente = 0.0
TEXT(Epen, STR$(v_pente))
SHOW(Epen)
END IF
ELSE
v_pente = VAL(GRAB$(Epen)): PRINT v_pente
v_denivele = arrondi(SIN(ATN(v_pente / 100) * v_distance * 1000), 2)
TEXT(Eden, STR$(v_denivele))
SHOW(Eden)
END IF
v_temps = GET(Sheure) + GET(Sminute) / 60 + GET(Sseconde) / 3600
IF v_temps = 0 THEN
msg = MSGDIALOG("Il faut saisir une durée", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT SUB
END IF
v_vitesse = v_distance / v_temps
TEXT(Lvitv, STR$(arrondi(v_vitesse, 2)))
coef_pente = v_pente / 100
cp1 = 9.81 * masse_totale * coef_pente * (v_vitesse / 3.6)
cp1 = arrondi(cp1, 2)
TEXT(Lp1v, STR$(cp1))
air = 0.00
IF GET(Rp21) THEN
air = 0.35
END IF
IF GET(Rp22) THEN
air = 0.30
END IF
IF GET(Rp23) THEN
air = 0.22
END IF
densite = 1.0
cp2 = arrondi(densite / 2 * air * POW((v_vitesse - VAL(GRAB$(Event))) / 3.6, 3), 2)
TEXT(Lp2v, STR$(cp2))
frot = 0.0
IF GET(Rp31) THEN
frot = 0.004
END IF
IF GET(Rp32) THEN
frot = 0.006
END IF
IF GET(Rp33) THEN
frot = 0.009
END IF
cp3 = arrondi(9.81 * (masse1 + masse2) * frot * v_vitesse / 3.6, 2)
TEXT(Lp3v, STR$(cp3))
rendement = VAL(GRAB$(Ep4v))
IF rendement = 0 THEN
msg = MSGDIALOG("Il faut saisir une valeur non" & NL$ & "nulle pour le rendement", 300, 150, 0, 1): CALLBACK(msg, close_dialog)
SHOW(msg)
EXIT
END IF
puissance = (cp1 + cp2 + cp3) * 100 / rendement
puissance1 = arrondi(puissance, 3)
TEXT(Lpui1v, STR$(puissance1))
puissance2 = arrondi(puissance / masse1, 3)
TEXT(Lpui2v, STR$(puissance2))
END SUB


SUB effacer
TEXT(Emcv, "0.00")
TEXT(Emvv, "0.00")
TEXT(Lmtv, "NC")
SET(Rden, 1)
TEXT(Eden, "0")
TEXT(Epen, "0.00")
TEXT(Edist, "0.00")
SET(Sheure, 0)
SET(Sminute, 0)
SET(Sseconde, 0)
TEXT(Lvitv, "NC")
TEXT(Lp1v, "NC")
TEXT(Lp2v, "Mains en haut")
SET(Rp21, 1)
TEXT(Event, "0.00")
TEXT(Lp3v, "Vélo de route")
SET(Rp31, 1)
TEXT(Ep4v, "97.5")
TEXT(Lpui1v, "NC")
TEXT(Lpui2v, "NC")
END SUB


SUB calc_masse_totale
LOCAL tmp TYPE double
tmp = VAL(GRAB$(Emcv)) + VAL(GRAB$(Emvv))
TEXT(Lmtv, STR$(tmp))
END SUB


SUB swap_den_pente
IF GET(Rden) THEN
DISABLE(Epen)
DISABLE(Bpenm)
DISABLE(Bpenp)
ENABLE(Eden)
ENABLE(Bdenm)
ENABLE(Bdenp)
END IF
IF GET(Rpen) THEN
DISABLE(Eden)
DISABLE(Bdenm)
DISABLE(Bdenp)
ENABLE(Epen)
ENABLE(Bpenm)
ENABLE(Bpenp)
END IF
END SUB


SUB position
IF GET(Rp21) THEN
TEXT(Lp2v, "Mains en haut")
END IF
IF GET(Rp22) THEN
TEXT(Lp2v, "Mains en bas")
END IF
IF GET(Rp23) THEN
TEXT(Lp2v, "Guidon/vélo CLM")
END IF
END SUB


SUB roulement
IF GET(Rp31) THEN
TEXT(Lp3v, "Vélo de route")
END IF
IF GET(Rp32) THEN
TEXT(Lp3v, "Vélo gravel")
END IF
IF GET(Rp33) THEN
TEXT(Lp3v, "VTT")
END IF
END SUB


SUB moins_dist
LOCAL x TYPE double
x = VAL(GRAB$(Edist))
x = x - 0.01
TEXT(Edist, STR$(x))
END SUB


SUB plus_dist
LOCAL x TYPE double
x = VAL(GRAB$(Edist))
x = x + 0.01
TEXT(Edist, STR$(x))
END SUB


SUB moins_mc
LOCAL x TYPE double
x = VAL(GRAB$(Emcv))
x = x - 0.01
TEXT(Emcv, STR$(x))
calc_masse_totale
END SUB


SUB plus_mc
LOCAL x TYPE double
x = VAL(GRAB$(Emcv))
x = x + 0.01
TEXT(Emcv, STR$(x))
calc_masse_totale
END SUB


SUB moins_mv
LOCAL x TYPE double
x = VAL(GRAB$(Emvv))
x = x - 0.01
TEXT(Emvv, STR$(x))
calc_masse_totale
END SUB


SUB plus_mv
LOCAL x TYPE double
x = VAL(GRAB$(Emvv))
x = x + 0.01
TEXT(Emvv, STR$(x))
calc_masse_totale
END SUB


SUB moins_den
LOCAL x TYPE double
x = VAL(GRAB$(Eden))
x = x - 1
TEXT(Eden, STR$(x))
END SUB


SUB plus_den
LOCAL x TYPE double
x = VAL(GRAB$(Eden))
x = x + 1
TEXT(Eden, STR$(x))
END SUB


SUB moins_pen
LOCAL x TYPE double
x = VAL(GRAB$(Epen))
x = x - 0.01
TEXT(Epen, STR$(x))
END SUB


SUB plus_pen
LOCAL x TYPE double
x = VAL(GRAB$(Epen))
x = x + 0.01
TEXT(Epen, STR$(x))
END SUB


SUB moins_vent
LOCAL x TYPE double
x = VAL(GRAB$(Event))
x = x - 0.01
TEXT(Event, STR$(x))
END SUB


SUB plus_vent
LOCAL x TYPE double
x = VAL(GRAB$(Event))
x = x + 0.01
TEXT(Event, STR$(x))
END SUB


SUB moins_p4
LOCAL x TYPE double
x = VAL(GRAB$(Ep4v))
x = x - 0.5
IF x < 0 THEN x = 100
IF x > 100 THEN x = 0
TEXT(Ep4v, STR$(x))
END SUB


SUB plus_p4
LOCAL x TYPE double
x = VAL(GRAB$(Ep4v))
x = x + 0.5
IF x < 0 THEN x = 100
IF x > 100 THEN x = 0
TEXT(Ep4v, STR$(x))
END SUB


FUNCTION arrondi(double x, int y)
LOCAL z, tmp TYPE double

IF y = 0 THEN
z = ROUND(x)
ELSE
tmp = POW(10, y)
z = ROUND((x * tmp)) / tmp
END IF
RETURN z
END FUNCTION


'Dessiner l'interface
Appli = WINDOW("CALCUL DE PUISSANCE A VELO", 350, 516)

'En partant du haut et de gauche à droite
Lmc = MARK("Masse corporelle :", 200,25): ATTACH(Appli, Lmc, 10, 0)
Emcv = ENTRY("0.00", 60, 25): ATTACH(Appli, Emcv, 210, 0): CALLBACK(Emcv, calc_masse_totale)
Bmcvm = BUTTON("-", 25, 25): ATTACH(Appli, Bmcvm, 271, 0): CALLBACK(Bmcvm, moins_mc)
Bmcvp = BUTTON("+", 25, 25): ATTACH(Appli, Bmcvp, 297, 0): CALLBACK(Bmcvp, plus_mc)
Lmv = MARK("Masse vélo + équipement :", 200, 25): ATTACH(Appli, Lmv, 10, 26)
Emvv = ENTRY("0.00", 60, 25): ATTACH(Appli, Emvv, 210, 26): CALLBACK(Emvv, calc_masse_totale)
Bmvvm = BUTTON("-", 25, 25): ATTACH(Appli, Bmvvm, 271, 26): CALLBACK(Bmvvm, moins_mv)
Bmvvp = BUTTON("+", 25, 25): ATTACH(Appli, Bmvvp, 297, 26): CALLBACK(Bmvvp, plus_mv)
Lmtt = MARK("Masse totale en kg :", 200,25): ATTACH(Appli, Lmtt, 10, 52)
Lmtv = MARK("NC", 50, 25): ATTACH(Appli, Lmtv, 210, 52)
Rden = RADIO("Dénivelé en m :", 200, 25, 0): ATTACH(Appli, Rden, 10, 78): CALLBACK(Rden, swap_den_pente)
Eden = ENTRY("0", 60, 25): ATTACH(Appli, Eden, 210, 78)
Bdenm = BUTTON("-", 25, 25): ATTACH(Appli, Bdenm, 271, 78): CALLBACK(Bdenm, moins_den)
Bdenp = BUTTON("+", 25, 25): ATTACH(Appli, Bdenp, 297, 78): CALLBACK(Bdenp, plus_den)
Rpen = RADIO("Pente en % :", 200, 25, Rden): ATTACH(Appli, Rpen, 10, 104): CALLBACK(Rpen, swap_den_pente)
Epen = ENTRY("0.00", 60, 25): ATTACH(Appli, Epen, 210, 104): DISABLE(Epen)
Bpenm = BUTTON("-", 25, 25): ATTACH(Appli, Bpenm, 271, 104): CALLBACK(Bpenm, moins_pen): DISABLE(Bpenm)
Bpenp = BUTTON("+", 25, 25): ATTACH(Appli, Bpenp, 297, 104): CALLBACK(Bpenp, plus_pen): DISABLE(Bpenp)
Ldist = MARK("Distance en km :", 200, 25): ATTACH(Appli, Ldist, 10, 130)
Edist = ENTRY("0.00", 60, 25): ATTACH(Appli, Edist, 210, 130)
Bdistm = BUTTON("-", 25, 25): ATTACH(Appli, Bdistm, 271, 130): CALLBACK(Bdistm, moins_dist)
Bdistp = BUTTON("+", 25, 25): ATTACH(Appli, Bdistp, 297, 130): CALLBACK(Bdistp, plus_dist)
Ltps = MARK("Temps en hh:mm:ss :", 200, 25): ATTACH(Appli, Ltps, 10, 156)
Sheure = SPIN(45, 25, 0, 59, 1): ATTACH(Appli, Sheure, 193, 156)
Sminute = SPIN(45, 25, 0, 59, 1): ATTACH(Appli, Sminute, 238, 156)
Sseconde = SPIN(45, 25, 0, 59, 1): ATTACH(Appli, Sseconde, 283, 156)
Lvitt = MARK("Vitesse en km/h :", 200, 25): ATTACH(Appli, Lvitt, 5, 182)
Lvitv = MARK("NC", 100, 25): ATTACH(Appli, Lvitv, 210, 182)
Lp1t = MARK("P1 > gravité :", 200, 25): ATTACH(Appli, Lp1t, 10, 208)
Lp1v = MARK("NC", 100, 25): ATTACH(Appli, Lp1v, 210, 208)
Lp2t = MARK("P2 > pénétration dans l'air :", 200, 25): ATTACH(Appli, Lp2t, 10, 234)
Lp2v = MARK("Mains en haut", 120, 25): ATTACH(Appli, Lp2v, 210, 234)
Rp21 = RADIO("Haut", 100, 25, 0): ATTACH(Appli, Rp21, 50, 260): CALLBACK(Rp21, position)
Rp22 = RADIO("Bas", 100, 25, Rp21): ATTACH(Appli, Rp22, 155, 260): CALLBACK(Rp22, position)
Rp23 = RADIO("CLM", 100, 25, Rp21): ATTACH(Appli, Rp23, 250, 260): CALLBACK(Rp23, position)
Lvent = MARK("Vitesse du vent (+ ou -) :", 200, 25): ATTACH(Appli, Lvent, 10, 286)
Event = ENTRY("0.00", 60, 25): ATTACH(Appli, Event, 210, 286)
Bventm = BUTTON("-", 25, 25): ATTACH(Appli, Bventm, 271, 286): CALLBACK(Bventm, moins_vent)
Bventp = BUTTON("+", 25, 25): ATTACH(Appli, Bventp, 297, 286): CALLBACK(Bventp, plus_vent)
Lp3t = MARK("P3 > frottements :", 200, 25): ATTACH(Appli, Lp3t, 10, 312)
Lp3v = MARK("Vélo de route", 100, 25): ATTACH(Appli, Lp3v, 210, 312)
Rp31 = RADIO("700x25C", 100, 25, 0): ATTACH(Appli, Rp31, 50, 338): CALLBACK(Rp31, roulement)
Rp32 = RADIO("27,5 route", 100, 25, Rp31): ATTACH(Appli, Rp32, 155, 338): CALLBACK(Rp32, roulement)
Rp33 = RADIO("27,5 XC", 100, 25, Rp31): ATTACH(Appli, Rp33, 260, 338): CALLBACK(Rp33, roulement)
Lp4 = MARK("P4 > rendement :", 200, 25): ATTACH(Appli, Lp4, 10, 364)
Ep4v = ENTRY("97.5", 60, 25): ATTACH(Appli, Ep4v, 210, 364)
Bp4m = BUTTON("-", 25, 25): ATTACH(Appli, Bp4m, 271, 364): CALLBACK(Bp4m, moins_p4)
Bp4p = BUTTON("+", 25, 25): ATTACH(Appli, Bp4p, 297, 364): CALLBACK(Bp4p, plus_p4)
Lpui1t = MARK("PUISSANCE TOTALE EN W :", 200, 25): ATTACH(Appli, Lpui1t, 10, 390)
Lpui1v = MARK("NC", 100, 25): ATTACH(Appli, Lpui1v, 210, 390)
Lpui2t = MARK("PUISSANCE EN W / kg :", 200, 25): ATTACH(Appli, Lpui2t, 10, 416)
Lpui2v = MARK("NC", 100, 25): ATTACH(Appli, Lpui2v, 210, 416)

'Boutons
Bcal = BUTTON("Calculer", 160, 30): ATTACH(Appli, Bcal, 10, 446): CALLBACK(Bcal, calculer)
Bef = BUTTON("Effacer", 160, 30): ATTACH(Appli, Bef, 180, 446): CALLBACK(Bef, effacer)
Bap = BUTTON("A propos", 160, 30): ATTACH(Appli, Bap, 10, 481): CALLBACK(Bap, apropos)
Bqt = BUTTON("Quitter", 160, 30): ATTACH(Appli, Bqt, 180, 481): CALLBACK(Bqt, QUIT)

'Tooltips et mise en forme
PROPERTY(Lmc, "tooltip-text", "Poids de corps du cycliste")
PROPERTY(Lmc,"xalign", 0.0)
PROPERTY(Lmv, "tooltip-text", "Poids du vélo " & NL$ & "+ vêtements " & NL$ & "+ accessoires")
PROPERTY(Lmv,"xalign", 0.0)
PROPERTY(Lmtt,"xalign", 0.0)
PROPERTY(Ldist,"xalign", 0.0)
PROPERTY(Ltps,"xalign", 0.0)
PROPERTY(Lvitt,"xalign", 0.0)
PROPERTY(Lp1t,"xalign", 0.0)
PROPERTY(Lp2t,"xalign", 0.0)
PROPERTY(Lvent,"xalign", 0.0)
PROPERTY(Lp3t,"xalign", 0.0)
PROPERTY(Lp4,"xalign", 0.0)
PROPERTY(Lpui1t,"xalign", 0.0)
PROPERTY(Lpui1t, "tooltip-text", "Avec masse totale")
PROPERTY(Lpui2t,"xalign", 0.0)
PROPERTY(Lpui2t, "tooltip-text", "Avec poids du cycliste seul")

'Boites de dialogue
Msgbox1 = MSGDIALOG("Programmé et compilé" & NL$ & "avec Bacon " & VERSION$ & NL$ & "+ HUG version " & HUGVERSION$ & NL$ & "par C. Journoud" & NL$ & "selon méthode Vayer / Portoleau" & NL$ & "Avril 2019 mod. 07/2021", 300, 200, 0, 1): CALLBACK(Msgbox1, close_dialog)
Msgbox2 = MSGDIALOG("le bouton calculer a été" & NL$ & "sélectionné", 300, 150, 0, 1): CALLBACK(Msgbox2, close_dialog)

'Affichage et lancement de la boucle
DISPLAY

[chrisjournoud]

I have another small problem. once compiled, I can not run the program with a double click from the file explorer because it is declared as application/x-sharedlib instead of application/x-executable. However it runs fine launched from a command line in the terminal. Do you know what is the issue?

[Pjot]

Hi chrisjournod,

This has nothing to do with BaCon, but it is a 'feature' of modern GCC versions and "Positional Independent Executables".

As a default, GCC now creates binaries with the '-pie' flag. The binaries then are identified as "shared object".

See also the posts on StackExchange here and here.

Cordialement,
Peter

[chrisjournoud]

Hi Peter,

Thanks. I am going to see around your links

[chrisjournoud]

There is no such issue when I use Clang compiler instead of GCC one

[Pjot]

Merci Chris for letting this know.

I guess there is not other way around it then.

Alternatively, you could try the TCC compiler as well.

BR
Peter