Tester Suneido

Tester des programmes simples pour se faire la main avec Suneido


Tests réalisés avec succès sur la version alpha de gSuneido-2022-03-04
Maj 31/05/2022 par jeanluc - Photo en-tête : Plage des dames, Noirmoutier-en-l'Île, Vendée, France

Hello world!

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

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

Puis exécutez 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é.

Logiciel de dessin

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

Window(DrawControl)

Puis exécutez en appuyant sur F9 ou en cliquant sur !

É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écutez en appuyant sur F9 ou en cliquant sur ! et vous obtenez une fenêtre intitulée "Simple éditeur de texte", avec un menu et une barre d’outils.

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écutez en appuyant sur F9 ou en cliquant sur !

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écutez en appuyant sur F9 ou en cliquant sur ! et chantez en même temps...