Forum de Programmation en langage PANORAMIC


Rejoignez le forum, c’est rapide et facile

Forum de Programmation en langage PANORAMIC
Forum de Programmation en langage PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Forum de Programmation en langage PANORAMIC

Je vous présente ici mes programmes (code en .BAS et en .EXE) réalisés en langage PANORAMIC, un langage puissant utilisant la syntaxe du BASIC.

Rechercher
 
 

Résultats par :
 

Rechercher Recherche avancée

Mots-clés

fichiers  panoramic  transformation  

Derniers sujets
» Bonne année 2024
La Blague Du Jour EmptyLun 1 Jan - 0:25 par Papydall-Admin

» A ceux qui célèbre Noël, bonnes fêtes
La Blague Du Jour EmptyDim 24 Déc - 10:49 par Papydall-Admin

» Joyeux Noël et Bonne Année
La Blague Du Jour EmptyVen 8 Déc - 1:34 par Papydall-Admin

» Planets of the Solar System : Tilts and Spins
La Blague Du Jour EmptyLun 20 Mar - 15:43 par Papydall-Admin

» Bonne Année 2023
La Blague Du Jour EmptySam 31 Déc - 1:39 par Papydall-Admin

» Fractals - Mandelbrot
La Blague Du Jour EmptyVen 21 Aoû - 22:51 par Papydall-Admin

» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
La Blague Du Jour EmptyMer 21 Nov - 1:08 par Papydall-Admin

» Balises {USER...}
La Blague Du Jour EmptyLun 19 Nov - 22:12 par Papydall-Admin

» Useful Dog
La Blague Du Jour EmptyVen 6 Avr - 14:25 par Papydall-Admin

Mai 2024
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  

Calendrier Calendrier

-45%
Le deal à ne pas rater :
PC Portable LG Gram 17″ Intel Evo Core i7 32 Go /1 To
1099.99 € 1999.99 €
Voir le deal

La Blague Du Jour

Forum de Programmation en langage PANORAMIC :: Sources Panoramic

Aller en bas

La Blague Du Jour Empty La Blague Du Jour

Message par Papydall-Admin Lun 5 Mar - 2:50

Code:
rem ============================================================================
rem                   La Blague Du Jour
rem ============================================================================
label close
dim url$,d$,f$,src$
width 0,800 : height 0,550
dll_on "kgf"     : ' <---------------------------------- Adapter le chemin !!!
d$ = dir_current$
src$ = "http://jour.toutimages"
src$ = src$ + ".com/blague_jour.htm"
Creer_HTML("Blague.html")
Creer_Browser()

on_close 0,close
end
rem ============================================================================
SUB Creer_HTML(htm$)
    dim_local q$ : q$ = chr$(34)    
    f$ = d$ + "/" + htm$  
    file_open_write 999,f$    
    file_writeln 999,"<center>
    file_writeln 999,"<IFRAME src=" + q$ + src$ + q$ + "height=" +q$ +"400" +q$ + " width=" + q$ + "620" + q$
    file_writeln 999,"Marginwidth=" + q$ + "0" + q$ + " marginheight=" + q$ + "0" + " hspace=" + q$ + "0" + q$    
    file_writeln 999," vspace=" + q$ + "0" + q$ + " frameborder=" + q$ + "0" + q$
    file_writeln 999,"scroling=" + q$ + "no" + q$ + "></IFRAME>"
    file_writeln 999,"</center>"    
    file_close 999
    url$ = f$
END_SUB
rem ============================================================================
SUB Creer_Browser()
    dim_local WB%,res%
    WB% = dll_call1("WB_Create",handle(0))
    res% = dll_call5("WB_Locate",WB%,20,20,width_client(0)-50,height_client(0)-50)
    res% = dll_call2("WB_Url",WB%,adr(url$))
END_SUB
rem ============================================================================
Close:
    file_delete f$
    terminate
return
rem ===========================================================================
Papydall-Admin
Papydall-Admin
Admin

Messages : 93
Réputation : 0
Date d'inscription : 08/09/2015
Age : 73
Localisation : MOKNINE (Tunisie)

https://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

Forum de Programmation en langage PANORAMIC :: Sources Panoramic

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum