Hi,help with my radio buton counter active

Discussions related to Visual Prolog
arcano
Posts: 1
Joined: 20 Jul 2012 0:52

Hi,help with my radio buton counter active

Unread post by arcano » 25 Jul 2012 4:56

Code: Select all

predicates         estado:(radioButton::state,integer).     clauses         estado(R,W):-     if R = radioButton::checked() then             end if.     predicates     suma1:(integer).     clauses    % suma1(VAE):-VAE = 1, integerValue (VA).        suma1(VAE):-  R1=string::format("%d", VAE),edit_ctl:setText(R1),        vpiCommonDialogs::note(string::format("Suma es: %", R1)).      %  suma1(VAE1):- VAE1 == 2, edit_ctl:setText("Estres agudo2"),!,fail.       % suma1(VAE2):- VAE2 == 3, edit_ctl:setText("Estres agudo3").         predicates     onPushButtonClick : button::clickResponder. clauses     onPushButtonClick(_Source) = button::defaultAction:- %       hasDomain(integer,Num1), %       Num1=toterm(edit1_ctl:getText()), %       stdio::write("\n I = ",Num1), %       %        suma1(Num1).         RadioState1 =  radSi1:getRadioState(),   RadioState2 =  radSi2:getRadioState(),   RadioState3 =  radSi3:getRadioState(),     estado(RadioState1,3),     estado(RadioState2,3),     estado(RadioState3,3),       suma1(2).       % %    if RadioState1 = radioButton::checked() then %   edit_ctl:setText("OK buton1") % % elseif RadioState2 = radioButton::checked()  then %       edit_ctl:setText("OK buton2") % %elseif RadioState3 = radioButton::checked()  then %        edit_ctl:setText("OK buton3") %     %end if.   % onPushButtonClick(_Source) = button::defaultAction.

Post Reply