FlightRadar24

rem ============================================================================
rem                         FlightRadar24.bas
rem                           Par Papydall
rem ============================================================================
rem Suivez le vol de vos amis grâce à FlightRadar24. En effet, ce site propose
rem de consulter en temps réel la totalité du trafic aérien dans le monde entier.
rem Chaque vol et aéroport est représenté par une icône d avion et une croix.
rem AvecFlightRadar24, un simple clic sur un avion permet d afficher des détails
rem et connaître le nom du vol, la compagnie aérienne, le type et le numéro de
rem l appareil, l altitude, la vitesse ou bien encore sa provenance et sa
rem destination finale.
rem La route suivie par l avion est également affichée.
rem Des photos de l appareil sont aussi consultables.

rem Le tout dans un FORM Panoramic, grâce à KGF.DLL de Klaus que je salue au passage.
rem Un petit désagrément :
rem Une fenêtre de publicité s affiche en bas à droite de la page pendant 20 secondes.
rem Passé ce délai, cliquez sur " Hide ad " en bas à droite pour supprimer la pub.
rem La navigation est intuitive.
rem Cliquez sur une icône d avion,  ses détails s affichent à gauche et vous
rem pouvez cliquez sur 3D (Cockpit view).
rem Patientez quelques secondes ; cliquez sur AIRCRAFT (ON), puis ROTATE VIEW
rem Vous pouvez passer en FULL SCREEN
rem Un vrai régal !
rem ============================================================================

Init() : HTML_in_PANORAMIC(0,50,50,screen_x-100,screen_y-150)
end
rem ============================================================================
SUB Init()
    label quit
    dim url$,fin%
    full_space 0 : color 0,255,0,0
    alpha 10 : top 10,5 :left 10, screen_x /2-300   : font_bold 10 : font_size 10,14
    font_color 10,255,255,255
    caption 10,"Papydall vous informe : Cliquez sur ce cadre rouge pour sortir" : on_click  0,quit
    url$ = "http://www.flightradar24.com/42.05,10.73/5"
    dll_on "c:\users\acer\desktop\kgf.dll" : ' Chemin à adapter ================
END_SUB
rem ============================================================================
' Afficher une page HTML dans un FORM Panoramic
SUB HTML_in_PANORAMIC(Num_Form,x1,y1,x2,y2)
    dim_local hnd%, res%
    hnd%=handle(Num_Form)
    res%=dll_call1("WBCreate",hnd%)
    res%=dll_call4("WBLocate",x1,y1,x2,y2)
    res%=dll_call1("WBUrl",adr(url$))
end_sub
rem ============================================================================
quit:
if message_confirmation_yes_no("Vous voulez vraiment quiter ?") = 1
   fin% = dll_call1("KillProcessByHandle",handle(0))
end_if
rem ============================================================================

rem ============================================================================
rem  Calcul des termes d une suite géométrique
rem ============================================================================
dim u0,un,q,n,taille,i
u0 = 10  : ' terme initial de la suite
q  = 1.5 : ' raison de la suite
n  = 10  : ' nombre des termes de la suite
for i = 0 to n
    taille = u0 * power(q,i)
    print taille   ; "  pouces : soit "; taille * 2.54 ; " cm"
next i
rem ============================================================================