generic maker

Originele schrijvers mogen hier hun eigen code Public Domain maken.

generic maker

Berichtdoor pascal » ma aug 08, 2005 6:28 pm

gordon,

sorry but i don't speak german, so can you edit this post to translate it ?
or include a comment about the code.

thanks.

the first program is for JB

Code: Selecteer alles
'Generique'
    'by pascal legal
    'open source
    'free to use and abuse
    nomainwin
    WindowWidth=250
    WindowHeight=200
    open "Generique" for graphics_nsb as #main
    #main, "trapclose [quit]"
    #main, "down; fill black"
    #main, "backcolor black"
    #main, "color yellow"
    #main, "font courier_new 12"
    for i=200 to -230 step -1
        gosub [pause]
        #main, "place ";0;" ";i
        #main, "color yellow"
        #main, "\     programmeur:   "
        #main, "color white"
        #main, "\     Pascal LEGAL   "
        #main, "\                    "
        #main, "color yellow"
        #main, "\         Son:       "
        #main, "color white"
        #main, "\     Paulo Edwards  "
        #main, "\                    "
        #main, "color yellow"
        #main, "\       Animation:   "
        #main, "color white"
        #main, "\     Pierrot le fou "
        #main, "\                    "
        #main, "\                    "
        #main, "\                    "
        #main, "color yellow"
        #main, "\ "+chr$(169)+" Liberty BASIC France"
        #main, "\                       "
        #main, "\"
        #main, "\"
        #main, "\"
        #main, "\"
        #main, "color white"
        #main, "\          FIN "
        #main, "flush 1"
    next i
   
    wait

[pause]
    t=time$("ms")
    t2=t
    while t2<t+40
        t2=time$("ms")
    wend
    return

[quit]
close #main
end


and the second for LB only. (but with a more professional result)

Code: Selecteer alles
'Generique'
    'by pascal legal
    'open source
    'free to use and abuse
    nomainwin
    BackgroundColor$="black"
    dw=DisplayWidth  'largeur de l'ecran
    dh=DisplayHeight 'hauteur de la fenêtre
    gw=252           'largeur du graphicbox
    gh=202           'hauteur du graphicbox
    WindowWidth=dw
    WindowHeight=dh
    graphicbox #main.gb, gw*-1, gh*-1, gw,gh                        'j'initialise le graphicbox à l'exterieur de l'ecran pour eviter un "split"
    open "Credits" for window_popup as #main                        'j'ouvre une fenêtre en plein ecran
    print #main.gb, "locate ";(dw-gw)/2;" ";(dh-gh)/2;" ";gw;" ";gh 'j'affiche le graphicbox en le centrant sur l'ecran
    #main, "refresh"                                                'je rafraichit l'affichage
    #main, "trapclose [quit]"
    #main.gb, "down; fill black"
    #main.gb, "backcolor black"
    #main.gb, "color yellow"
    #main.gb, "font courier_new 12"
    for i=200 to -270 step -1                       'boucle de defilement du texte
        gosub [pause]
        restore [data]
        #main.gb, "place ";0;" ";i
        read text$
        while text$ <> "end"
            col$=left$(text$,2)                     'j'extrait les deux caracteres de gauche pour la couleur
            if left$(col$,1)=":" then               'Si ça commence par ":" c'est que je veux changer la couleur
                col$=upper$(right$(col$,1))
                select case col$                    'selection de la couleur, il faudra en ajouter selon vos besoins
                    case "J"                        'J pour jaune
                        col$="yellow"
                    case else               
                        col$="white"                'le blanc est la couleur par defaut
                end select
                col$="color "+col$
                #main.gb, col$
                text$=right$(text$, len(text$)-2)   'je supprime les ":" et la lettre qui represente la couleur
            end if
            text$="\"+text$                         'ajout de la balise "\" pour afficher le texte dans le graphicbox
            #main.gb, text$                         'affichage du texte dans le graphic box
            read text$
        wend
        #main.gb, "flush 1"                         'fixe l'affichage (j'indique 1 pour ne pas prendre de place en memoire)
    next i                                          ' (le 1 fait qu'on reenregistre l'ecran à la même place en memoire)
    goto [quit]

[pause]
    t=time$("ms")
    t2=t
    while t2<t+40
        t2=time$("ms")
    wend
    return

[quit]
close #main
end

[data]                                  'faites vous plaisir !
    data ":J     programmeur:      "
    data ":B     Pascal LEGAL      "
    data "                         "
    data ":J         Son:          "
    data ":B     Paulo Edwards     "
    data "                         "
    data ":J       Animation:      "
    data ":B     Pierrot le fou    "
    data "                         "
    data "                         "
    data "                         "
    data ":J © Liberty BASIC France"
    data "                         "
    data ""
    data ""
    data ""
    data ""
    data ":B          FIN "
    data "end"                          'les DATA doivent imperativement se terminer par "end"


@++
pascal
 

Berichtdoor Gordon » do aug 11, 2005 4:11 pm

Hello Pascal,

It's allright here to write English.
Almost everybody understands English here in "les Pays-Bas"

Your programs are very neat indeed.
Especially the fact that you didn't use any API, just plain Basic.
Superb.

Gordon

Thanks one more time.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar Public Domain stukjes

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron