OpenEuphoria

2. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by petelomax Jan 16, 2011
• 1711 views

Without doing it for you, here is roughly what you need:

include swfuncs.e 
include get.e 

remove those

            	wPuts( {Win, 10, 10}, "Input a number") 
            wPuts({Win,10,50},"Input second number ") 

remove those and create two labels instead

    a = prompt_number(" Type num ",{}) 
  b = prompt_number(" Type num ",{}) 

remove those and create two input fields instead

     ? b 
w= wait_key() 

remove those and create an output field instead

setHandler(Win, w32HActivate, routine_id("start_it")) 

Add an "OK" or "Calculate it" button and use w32HClick on that instead.

You final program should have 7 create() statements

HTH, Pete

4. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by jimcbrown (admin) Jan 16, 2011
• 1706 views

 
include swfuncs.e 
include get.e 
      object a,b,r,w 
 
      r = 1 
      a = prompt_number(" Type num ",{}) 
      b = prompt_number(" Type num ",{}) 
 
      clear_screen() 
 
      while r > 0 do 
           r = a - b* floor(a/b) 
           if r = 0 then 
             exit 
           end if 
           a = b 
           b = r 
      end while 
 
      puts(1,"The Greatest Common Denominator is ") 
 
      ? b 
 
w=wait_key() 
 

Actually, this code is not DOS32 specific. It should work on Linux/GNU and BSD and even on Windows using console mode (eui.exe) . There is no need to "convert" anything. (You may want to change get.e to std/get.e for 4.0 but this is optional.)

6. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by petelomax Jan 16, 2011
• 1714 views

Are there any parts of my post you /DO/ understand?

Can you tell me /exactly/ where you got "include win32lib.ew" from?

There are five things that need to be replaced.

8. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by Selgor Jan 16, 2011
• 1694 views

Pete

I always put

include win32lib.ew
without warning

at the start of an .exw programme

I do not know what I am supposed to create 7 times

And a label ... don't know

This .exw programming is not clear to me yet

Cheers

Selgor

10. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by dcole Jan 17, 2011
• 1614 views

Hello Selgor,

I just made this up on the fly. It should do what you want.

 
--  code generated by Win32Lib IDE v0.22.0 Build Dec-16-2006 
 
constant TheProgramType="exw"  
  
include Win32Lib.ew 
without warning 
 
 
-------------------------------------------------------------------------------- 
--  Window Window1 
global constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 ) 
global constant LText4 = createEx( LText, "Type Number 1 and Enter", Window1, 72, 68, 132, 20, 0, 0 ) 
global constant EditText2 = createEx( EditText, "", Window1, 208, 68, 48, 20, 0, 0 ) 
global constant LText5 = createEx( LText, "Type Number 2 and Enter", Window1, 72, 100, 132, 20, 0, 0 ) 
global constant EditText3 = createEx( EditText, "", Window1, 208, 100, 48, 20, 0, 0 ) 
global constant LText7 = createEx( LText, "The Greatest Common Denominator is", Window1, 8, 168, 192, 20, 0, 0 ) 
global constant EditText6 = createEx( EditText, "", Window1, 208, 168, 48, 20, 0, 0 ) 
global constant LText9 = createEx( LText, "Hit Enter to Restart", Window1, 272, 168, 100, 20, 0, 0 ) 
 
--------------------------------------------------------- 
procedure calculate() 
   integer a,b,r 
     r=1 
     a=getNumber(EditText2) 
     b=getNumber(EditText3) 
     if a=0 or b=0 then  
         return 
     end if 
      while r > 0 do  
           r = a - b* floor(a/b)  
           if r = 0 then  
             exit  
           end if  
           a = b  
           b = r  
      end while  
    setText(EditText6,b) 
end procedure 
-------------------------------------------------------------------------------- 
procedure Window1_onActivate (integer self, integer event, sequence params)--params is ()  
  setVisible(LText9,0) 
  setFocus(EditText2) 
end procedure 
setHandler( Window1, w32HActivate, routine_id("Window1_onActivate")) 
-------------------------------------------------------------------------------- 
procedure EditText2_onKeyDown (integer self, integer event, sequence params)--params is ( atom scanCode, atom shift ) 
   if params[1]=13 then 
       if self=EditText2 then 
           setText(EditText3,"") 
           doEvents(0) 
           setFocus(EditText3) 
       elsif self=EditText3 then     
           calculate() 
           setVisible(LText9,1) 
       elsif self=EditText6 then 
           setText(EditText2,"") 
           setText(EditText3,"") 
           setText(EditText6,"")     
           setVisible(LText9,0) 
       end if 
   end if 
 
end procedure 
setHandler( {EditText2,EditText3,EditText6}, w32HKeyDown, routine_id("EditText2_onKeyDown")) 
 
WinMain( Window1,Normal ) 

Don Cole

12. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by Selgor Jan 17, 2011
• 1543 views

Don

It works like a charm

Thank you so much

I wish to choose some words for you

so I will leave this post as is for now

BUT........... please read tomorrow

You are ... and always have been ...

So helpful

Cheers

........................ more to come

Selgor

14. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by DanM Jan 17, 2011
• 1520 views

Selgor,

Did you notice that Don Cole's Window's version of your program was developed using the IDE? It would probably be a better starting point for making Windows versions of your programs than trying to hand code them.

You do still have to "think differently" to make Windows programs, but using the IDE should make things quite a bit easier.

Just a suggestion.

Dan M.

16. Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by Insolor Jan 18, 2011
• 1467 views

include dos_rescue.ew --- from the Insolor's package   
                      --- http://www.rapideuphoria.com/dosrescue2.zip 
include swfuncs.e 
include get.e 
      object a,b,r,w 
 
      r = 1 
      a = prompt_number(" Type num ",{}) 
      b = prompt_number(" Type num ",{}) 
 
      clear_screen() 
 
      while r > 0 do 
           r = a - b* floor(a/b) 
           if r = 0 then 
             exit 
           end if 
           a = b 
           b = r 
      end while 
 
      puts(1,"The Greatest Common Denominator is ") 
 
      ? b 
 
b = getc(0) --- press Enter instead of wait_key() 
 

The correct solution is:

include dos_rescue.ew as dos_rescue --- from the Insolor's package    
                                    --- http://www.rapideuphoria.com/dosrescue2.zip  
 
include get.e 
 
if dos_rescue:graphics_mode(18) then -- create GUI window, actually 
end if 
 
      object a,b,r,w  
  
      r = 1  
      -- a = prompt_number(" Type num ",{})  
      dos_rescue:puts(1," Type num ") 
      a = value(dos_rescue:gets(0)) 
      a = a[2] 
      dos_rescue:puts(1,'\n') 
       
      -- b = prompt_number(" Type num ",{})  
      dos_rescue:puts(1," Type num ") 
      b = value(dos_rescue:gets(0)) 
      b = b[2] 
      dos_rescue:puts(1,'\n') 
       
      dos_rescue:clear_screen()  
  
      while r > 0 do  
           r = a - b* floor(a/b)  
           if r = 0 then  
             exit  
           end if  
           a = b  
           b = r  
      end while  
  
      dos_rescue:puts(1,"The Greatest Common Denominator is ")  
         
      -- ? b 
      dos_rescue:printf(1,"%d",b) 
  
w=dos_rescue:wait_key()  

It works fine with exw.exe and euiw.exe both.