Embedded Files
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...
Google Sites
Report abuse