widgets simples
WIDGETS REALISES EN TK
Voici une liste de widget trouvés sur internet que vous pouvez simplement utiliser dans vos projets :
HORLOGE ANALOGIQUE
CALENDRIER
DIAL TACTILE
Dial qui vous permet à la manière d'un potentiomètre sans fin de monter ou descendre une valeur à l'infini.
AFFICHAGE LCD
VOLTMETRE
Un voltmètre qui fait varier une aiguille en forme de flèche en fonction de la valeur contenue dans le Scale (progressbar) dessous.
GRAPHE CAMEMBERT
Un code sur un Canvas pour réaliser des camemberts que vous pouvez réutiliser pour agrémenter votre interface.
DKFFONT
FONTDLG
Une autre boite de dialogue pour sélectionner ses polices de caractères.
J'adhère moins malgré qu'elle ait pas mal de choix.
Chez moi elle a planté une fois.
HSPLIT
Ce widget est bien pratique. Il vous permet de scinder l'écran en deux horizontalement et d'ajuster les deux parties à l'aide du curseur central sur le petit carré.
Dans d'autres langages de programmation, on pourrait le comparer à un hsplit.
VSPLIT
Ce widget est bien pratique. Il vous permet de scinder l'écran en deux verticalement et d'ajuster les deux parties à l'aide du curseur central sur le petit carré.
Dans d'autres langages de programmation, on pourrait le comparer à un vsplit.
DESSIIN DE COURBES, et graphiques
J'ai pas mal cherché sur le net la possibilité de tracer des courbes ou des graphiques avec Tcl TK, et deux solutions simples sont ressortis de mes recherches :
- Utiliser gnuplot (ouverture d'une fenêtre en dehors de tk)
- Utiliser un générateur de graphe codé en Tcltk nommé UKAZ
Nous allons étudier simplement comment utiliser UKAZ au quotidien pour réaliser des courbes ou des graphiques simples dans un tutoriel ci-dessous:
Téléchargez d'abord le paquet UKAZ sur github ou ici.
Voici à quoi ressemble un graphique réalisé sous UKAZ :
Son utilisation semble être très simple car il contient des exemples de base comme celui-ci :
set basedir [file dirname [info script]] lappend auto_path [file join $basedir ..] if {0} { package require ukaz pack [ukaz::graph .g -width 500 -height 400] -expand yes -fill both set data {1 4.5 2 7.3 3 1.2 4 6.5} .g plot $data } package require ukaz pack [ukaz::graph .g] -expand yes -fill both set data {1 4.5 2 7.3 3 1.2 4 6.5} .g plot $data with points pointtype filled-squares color "#A0FFA0" .g set log y
Il suffit de
- Packer un ukaz::graph dans un canvas
- Définir une liste sous la forme : x1 y1 x2 y2 x3 y3 etc...
- d'utiliser la commande plot
- définir quel est l'ordonnée (y à gauhe et y2 à droite comme sur la photo ci-dessus)
Voici le résultat de ce code :
Les possibilités sont infinies.
Vous pouvez tracer des courbes en utilisant des aires de couleur.
Vous pouvez Zoommer en définissant un carré par un clic gauche, un clic droit revient en arrière, et vous pouvez même définir des aires en superposition pour analyser votre graphique comme ceci :
Ce composant est tout simplement génial.
Je vais vous faire un tuto prochainement pour savoir comment l'utiliser, il n'aura plus de secrets pour vous.
.