[R] Problème avec GUICtrlCreateCheckbox()

[wara]

bonjour, voilà j' ai un problème je n'arrive pas faire une simple addition en utilisant checkbox,
regarder ce code et vous allez comprendre

Code : Tout sélectionner

#include <GuiConstants.au3>
GUICreate("test")

$pomme=GUICtrlCreateCheckbox("Acheter 10 pommes ",10,10)
$poire=GUICtrlCreateCheckbox("Acheter 5 poires ",10,30)
$bannane=GUICtrlCreateCheckbox("Acheter 8 bannanes",10,50)
GUICtrlCreateLabel("Nombre total de fruits : ",40,80)
$total= GuiCtrlCreateLabel("0",175, 80, 50, 18,0x1000)
GUISetState(@SW_SHOW)
While 1

$msg = GUIGetMsg()
if  $pomme=$msg and $poire=$msg and $bannane=$msg Then
    $pomme=10
$poire=5
$bannane=8
    $toto=$pomme+$bannane+$poire
            GuiCtrlSetData($total,$toto)
            EndIf
 if $msg = $GUI_EVENT_CLOSE Then
    
         Exit
         EndIf
       
       
WEnd

ceci est surement tout bête mais je n'y arrive pas.
SVP aidez moi.

[Vins83]

Code : Tout sélectionner

#include <GuiConstants.au3>

;$total = 0

GUICreate("test")

$pomme = GUICtrlCreateCheckbox("Acheter 10 pommes ", 10, 10)
$poire = GUICtrlCreateCheckbox("Acheter 5 poires ", 10, 30)
$bannane = GUICtrlCreateCheckbox("Acheter 8 bannanes", 10, 50)
GUICtrlCreateLabel("Nombre total de fruits : ", 40, 80)
$total = GUICtrlCreateLabel("0", 175, 80, 50, 18, 0x1000)


GUISetState(@SW_SHOW)

AdlibEnable("calcul", 0)

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop


WEnd

Func calcul()
    
    If BitAND(GUICtrlRead($pomme), $GUI_CHECKED) Then
        $nb_pomme = 10
    Else
        $nb_pomme = 0
    EndIf
    
    If BitAND(GUICtrlRead($poire), $GUI_CHECKED) Then
        $nb_poire = 5
    Else
        $nb_poire = 0
    EndIf
    
    If BitAND(GUICtrlRead($bannane), $GUI_CHECKED) Then
        $nb_bannane = 8
    Else
        $nb_bannane = 0
    EndIf
    
    GuiCtrlSetData($total,$nb_pomme + $nb_poire + $nb_bannane)
    
EndFunc

J'espere que cela fera l'affaire

++

[wara]

Oui merci cela marche très bien merci Vins83.