Tester des programmes simples

Tester des programmes simples pour se faire la main

Maj 04/04/2019

Hello world!

Débuter avec ce programme est une vieille tradition. Dans Espace de travail, saisissez :

Window(#(Static,"Hello world!"))

Puis exécuter en appuyant sur F9 ou en cliquant sur ! et vous obtenez une petite fenêtre indiquant "Hello world !".

Remplacez maintenant "Hello world!" par "Coucou!" : la fenêtre affiche alors "Coucou!" car le libellé entre guillemets est celui qui est affiché.

Hello World

Logiciel de dessin

Un sympathique petit logiciel de dessin intégré. Dans Espace de travail, saisissez :

Window(DrawControl)

Puis exécuter en appuyant sur F9 en cliquant sur !

DrawControl

Éditeur de texte

Un autre programme classique pour débuter est l’éditeur de texte : un logiciel simple qui permet l’apprentissage du menu et de la barre d’outils. Dans Espace de travail, saisissez :

Window(Controller
   {
   Title: "Simple éditeur de texte"
   Commands:
       (
       (Undo,      "Ctrl+A")
       (Redo,      "Ctrl+R")
       (Cut,       "Ctrl+X")
       (Copy,      "Ctrl+C")
       (Paste,     "Ctrl+P")
       )
   Menu:
   (
        ("&Edit",
            "&Undo", "&Redo", "",
            "Cu&t", "&Copy", "&Paste")
        )
   Controls:
  ( Vert
   ( Toolbar, Undo, Redo, Cut, Copy, Paste)
           Editor )
   })

Puis exécuter en appuyant sur F9 en cliquant sur ! et vous obtenez une fenêtre intitulée "Simple éditeur de texte", avec un menu et une barre d’outils.

Editeur de texte

Horloge

Quel jour sommes nous et quelle heure est-il ? Dans Espace de travail, saisissez :

Window(Controller
        {
         Title: 'Date & Heure'
         New(before = "", font = #(name: 'Arial', size: 16, weight: 600), format = 'dddd dd MMMM yyyy HH:mm:ss')
                {
                super(.ctrls(before, font, format))
                .before = before
                .format = format
                .timer = SetTimer(.WndProc.Hwnd, 100, 1000, .On_Timer)
                }
        ctrls(before, font, format)
                {
                return Object('Border'
                                Object('Static'  Date().Format(format), font: font.name, size: font.size, weight: font.weight))
                }
        On_Timer(@unused_arguments)
                {
                .Border.Static.Set(.before $ Date().Format(.format))
                }
        Destroy()
                {
                KillTimer(.WndProc.Hwnd, .timer)
                ClearCallback(.On_Timer)
                }
        })

Puis exécuter en appuyant sur F9 en cliquant sur !

Horloge

9 bouteilles de bières

Une variante de "99 Bottles of Beer". Dans Espace de travail, saisissez :

i = 9
  while (i > 0)
 {
 Alert(i $ ' bottles of beer on the wall, bottles of beer. 
   Take one down, pass it around...','Bottles of Beer',flags: MB.ICONINFORMATION)
 --i
 if i is 0
 Alert('Ahh poo, we are out of beer','Bottles of Beer',flags: MB.ICONERROR)
 }

Puis exécuter en appuyant sur F9 ou en cliquant sur ! et chantez en même temps...