Jeux et leçons pour apprendre l'Anglais

rem ============================================================================
rem                    English
rem ============================================================================

Init()
Menu()

end
rem ============================================================================
SUB Init()
    label clic
    dim i,u$
    full_space 0 : color 0,50,150,250
    caption 0,"learning English"
    application_title "OXFORD UNIVERSITY PRESS"    
    dll_on "kgf.dll" : ' Adapter le chemin de la DLL
END_SUB
rem ============================================================================
SUB Menu()
    main_menu 10
        sub_menu 11 : parent 11,10 : caption 11,"Anglais"
        sub_menu 12 : parent 12,10 : caption 12,"Quitter"  : on_click 12,clic
        sub_menu 13 : parent 13,10 : caption 13,"?"
        sub_menu 14 : parent 14,13 : caption 14,"Infos"    : on_click 14,clic
        sub_menu 15 : parent 15,13 : caption 15,"A-Propos" : on_click 15,clic
' ------------------------------------------------------------------------------
        sub_menu 20 : parent 20,11 : caption 20,"Games"
        sub_menu 21 : parent 21,11 : caption 21,"Learning"
        
' ------------------------ Games -----------------------------------------------
        
        sub_menu 100 : parent 100,20 : caption 100,"Animals maze"
        sub_menu 101 : parent 101,20 : caption 101,"Color maze"
        sub_menu 102 : parent 102,20 : caption 102,"Food maze"
        sub_menu 103 : parent 103,20 : caption 103,"Time maze"
        sub_menu 104 : parent 104,20 : caption 104,"Numbers 1-10 maze"
        sub_menu 105 : parent 105,20 : caption 105,"Numbers 11-20 maze"
        sub_menu 106 : parent 106,20 : caption 106,"Chrismas maze"
        
            for i = 100 to 106 : on_click i,clic : next i
' ---------------------- Learning ----------------------------------------------
        sub_menu 200 : parent 200,21 : caption 200,"Stories"
        sub_menu 201 : parent 201,21 : caption 201,"Art Gallery"
        sub_menu 202 : parent 202,21 : caption 202,"24 stories (level 1)"
        sub_menu 203 : parent 203,21 : caption 203,"12 stories (level 2)"
        sub_menu 204 : parent 204,21 : caption 204,"8 stories (level 3)"
        sub_menu 205 : parent 205,21 : caption 205,"Opposites"        
            for i = 200 to 205 : on_click i,clic : next i
' ------------------------------------------------------------------------------
END_SUB
rem ============================================================================
Clic:
    select number_click
        case 012 : Quitter() : return
        case 014 : Infos()   : return
        case 015 : Apropos() : return
        case 100 : u$ = "https://elt.oup.com/student/i-spy/games/animals?cc=global&selLanguage=en"
        case 101 : u$ = "https://elt.oup.com/student/i-spy/games/colour?cc=global&selLanguage=en"
        case 102 : u$ = "https://elt.oup.com/student/i-spy/games/food?cc=global&selLanguage=en"
        case 103 : u$ = "https://elt.oup.com/student/i-spy/games/time?cc=global&selLanguage=en"
        case 104 : u$ = "https://elt.oup.com/student/i-spy/games/numbersi?cc=global&selLanguage=en"
        case 105 : u$ = "https://elt.oup.com/student/i-spy/games/numbersii?cc=global&selLanguage=en"
        case 106 : u$ = "https://elt.oup.com/student/i-spy/games/christmas?cc=global&selLanguage=en"
' ------------------------------------------------------------------------------
        case 200 : u$ = "https://elt.oup.com/student/i-spy/stories/newpupil?cc=global&selLanguage=en"
        case 201 : u$ = "http://more2.starfall.com/n/level-b/art/load.htm?f&redir=www"
        case 202 : u$ = "http://www.kizclub.com/reading1.htm"
        case 203 : u$ = "http://www.kizclub.com/reading2.htm"
        case 204 : u$ = "http://www.kizclub.com/reading3.htm"
        case 205 : u$ = "http://www.lil-fingers.com/opposites/01.php"
' ------------------------------------------------------------------------------  
    end_select
    HTML_In_PANORAMIC(u$,20,20,width(0)-100,height(0)-150)
return
rem ============================================================================
SUB HTML_In_PANORAMIC(url$,xo,yo,larg,haut)
    dim_local WB%,res%
    WB% = dll_call1("WB_Create",handle(0)) : ' créer le browser dans la form 0
    res% = dll_call5("WB_Locate",WB%,xo,yo,larg+50,haut+50) : ' adapter la valeur des paramètres
    res% = dll_call2("WB_Url",WB%,adr(url$))
END_SUB
rem ============================================================================
SUB Quitter()
    if message_information_yes_no("Vous voulez vraiment quitter ?") = 1 then terminate
END_SUB
rem ============================================================================
SUB Infos()
    dim_local t$
    t$ = "Quelques jeux et leçons por apprendre l'Anglais"
    message t$  
END_SUB
rem ============================================================================
SUB Apropos()
    dim_local t$,res%
    t$ = "Auteur  : Papydall." + chr$(13)
    t$ = t$ + "Date de création : 02 / 02 / 2018." + chr$(13)
    t$ = t$ + "Dernière modif   : 03 / 02 / 2018." + chr$(13)        
    message t$
END_SUB
rem ============================================================================