Datei:Tk Matrix1.jpg

Es ist keine höhere Auflösung vorhanden.

Tk_Matrix1.jpg ‎(233 × 267 Pixel, Dateigröße: 14 KB, MIME-Typ: image/jpeg)

Screenshot von selbsterstelltem tcl/tk-Programm. --Arbol01 19:38, 23. Mär 2006 (UTC)

Quelltext:

#------------------------------------------------------------------------------------------
set farbe(0) #f00
set farbe(1) #0f0
set farbe(2) #00f
set farbe(3) #f70
set farbe(4) #0f7
set farbe(5) #70f
set farbe(6) #ff0
set farbe(7) #0ff
set farbe(8) #f0f
set farbe(9) #7f0
set farbe(10) #07f
#
set farbwerta1 0
set farbwerta2 0
set farbwerta3 0
set farbwertb1 0
set farbwertb2 0
set farbwertb3 0
set farbwertc1 0
set farbwertc2 0
set farbwertc3 0
#
set farbstufen 8
#------------------------------------------------------------------------------------------
#
frame .r1
button .r1.a1 -width 10 -height 5 -background $farbe($farbwerta1)
button .r1.a2 -width 10 -height 5 -background $farbe($farbwerta2)
button .r1.a3 -width 10 -height 5 -background $farbe($farbwerta3)
pack .r1.a1 .r1.a2 .r1.a3
pack .r1 -side left
#
frame .r2
button .r2.b1 -width 10 -height 5 -background $farbe($farbwertb1)
button .r2.b2 -width 10 -height 5 -background $farbe($farbwertb2)
button .r2.b3 -width 10 -height 5 -background $farbe($farbwertb3)
pack .r2.b1 .r2.b2 .r2.b3
pack .r2 -side left
#
frame .r3
button .r3.c1 -width 10 -height 5 -background $farbe($farbwertc1)
button .r3.c2 -width 10 -height 5 -background $farbe($farbwertc2)
button .r3.c3 -width 10 -height 5 -background $farbe($farbwertc3)
pack .r3.c1 .r3.c2 .r3.c3
pack .r3 -side left
#------------------------------------------------------------------------------------------
.r1.a1 configure -command {
  set farbwerta1 [ expr [ expr $farbwerta1 + 1 ] % $farbstufen ] 
  set farbwertb1 [ expr [ expr $farbwertb1 + 1 ] % $farbstufen ]
  set farbwertc1 [ expr [ expr $farbwertc1 + 1 ] % $farbstufen ]
  set farbwerta2 [ expr [ expr $farbwerta2 + 1 ] % $farbstufen ]
  set farbwerta3 [ expr [ expr $farbwerta3 + 1 ] % $farbstufen ]
  .r1.a1 configure -background $farbe($farbwerta1)
  .r2.b1 configure -background $farbe($farbwertb1)
  .r3.c1 configure -background $farbe($farbwertc1)
  .r1.a2 configure -background $farbe($farbwerta2)
  .r1.a3 configure -background $farbe($farbwerta3)
}
#
.r2.b1 configure -command {
  set farbwerta1 [ expr [ expr $farbwerta1 + 1 ] % $farbstufen ]
  set farbwertb1 [ expr [ expr $farbwertb1 + 1 ] % $farbstufen ]
  set farbwertc1 [ expr [ expr $farbwertc1 + 1 ] % $farbstufen ]
  set farbwertb2 [ expr [ expr $farbwertb2 + 1 ] % $farbstufen ]
  set farbwertb3 [ expr [ expr $farbwertb3 + 1 ] % $farbstufen ]
  .r1.a1 configure -background $farbe($farbwerta1)
  .r2.b1 configure -background $farbe($farbwertb1)
  .r3.c1 configure -background $farbe($farbwertc1)
  .r2.b2 configure -background $farbe($farbwertb2)
  .r2.b3 configure -background $farbe($farbwertb3)
}
#
.r3.c1 configure -command {
  set farbwerta1 [ expr [ expr $farbwerta1 + 1 ] % $farbstufen ]
  set farbwertb1 [ expr [ expr $farbwertb1 + 1 ] % $farbstufen ]
  set farbwertc1 [ expr [ expr $farbwertc1 + 1 ] % $farbstufen ]
  set farbwertc2 [ expr [ expr $farbwertc2 + 1 ] % $farbstufen ]
  set farbwertc3 [ expr [ expr $farbwertc3 + 1 ] % $farbstufen ]
  .r1.a1 configure -background $farbe($farbwerta1)
  .r2.b1 configure -background $farbe($farbwertb1)
  .r3.c1 configure -background $farbe($farbwertc1)
  .r3.c2 configure -background $farbe($farbwertc2)
  .r3.c3 configure -background $farbe($farbwertc3)
}
#
.r1.a2 configure -command {
  set farbwerta1 [ expr [ expr $farbwerta1 + 1 ] % $farbstufen ]
  set farbwertb2 [ expr [ expr $farbwertb2 + 1 ] % $farbstufen ]
  set farbwertc2 [ expr [ expr $farbwertc2 + 1 ] % $farbstufen ]
  set farbwerta2 [ expr [ expr $farbwerta2 + 1 ] % $farbstufen ]
  set farbwerta3 [ expr [ expr $farbwerta3 + 1 ] % $farbstufen ]
  .r1.a1 configure -background $farbe($farbwerta1)
  .r2.b2 configure -background $farbe($farbwertb2)
  .r3.c2 configure -background $farbe($farbwertc2)
  .r1.a2 configure -background $farbe($farbwerta2)
  .r1.a3 configure -background $farbe($farbwerta3)
}
#
.r2.b2 configure -command {
  set farbwerta2 [ expr [ expr $farbwerta2 + 1 ] % $farbstufen ]
  set farbwertb2 [ expr [ expr $farbwertb2 + 1 ] % $farbstufen ]
  set farbwertc2 [ expr [ expr $farbwertc2 + 1 ] % $farbstufen ]
  set farbwertb1 [ expr [ expr $farbwertb1 + 1 ] % $farbstufen ]
  set farbwertb3 [ expr [ expr $farbwertb3 + 1 ] % $farbstufen ]
  .r1.a2 configure -background $farbe($farbwerta2)
  .r2.b2 configure -background $farbe($farbwertb2)
  .r3.c2 configure -background $farbe($farbwertc2)
  .r2.b1 configure -background $farbe($farbwertb1)
  .r2.b3 configure -background $farbe($farbwertb3)
}
#
.r3.c2 configure -command {
  set farbwerta2 [ expr [ expr $farbwerta2 + 1 ] % $farbstufen ]
  set farbwertb2 [ expr [ expr $farbwertb2 + 1 ] % $farbstufen ]
  set farbwertc2 [ expr [ expr $farbwertc2 + 1 ] % $farbstufen ]
  set farbwertc1 [ expr [ expr $farbwertc1 + 1 ] % $farbstufen ]
  set farbwertc3 [ expr [ expr $farbwertc3 + 1 ] % $farbstufen ]
  .r1.a2 configure -background $farbe($farbwerta2)
  .r2.b2 configure -background $farbe($farbwertb2)
  .r3.c2 configure -background $farbe($farbwertc2)
  .r3.c1 configure -background $farbe($farbwertc1)
  .r3.c3 configure -background $farbe($farbwertc3)
}
#
.r1.a3 configure -command {
  set farbwerta3 [ expr [ expr $farbwerta3 + 1 ] % $farbstufen ]
  set farbwertb3 [ expr [ expr $farbwertb3 + 1 ] % $farbstufen ]
  set farbwertc3 [ expr [ expr $farbwertc3 + 1 ] % $farbstufen ]
  set farbwerta1 [ expr [ expr $farbwerta1 + 1 ] % $farbstufen ]
  set farbwerta2 [ expr [ expr $farbwerta2 + 1 ] % $farbstufen ]
  .r1.a3 configure -background $farbe($farbwerta3)
  .r2.b3 configure -background $farbe($farbwertb3)
  .r3.c3 configure -background $farbe($farbwertc3)
  .r1.a1 configure -background $farbe($farbwerta1)
  .r1.a2 configure -background $farbe($farbwerta2)
}
#
.r2.b3 configure -command {
  set farbwerta3 [ expr [ expr $farbwerta3 + 1 ] % $farbstufen ]
  set farbwertb3 [ expr [ expr $farbwertb3 + 1 ] % $farbstufen ]
  set farbwertc3 [ expr [ expr $farbwertc3 + 1 ] % $farbstufen ]
  set farbwertb1 [ expr [ expr $farbwertb1 + 1 ] % $farbstufen ]
  set farbwertb2 [ expr [ expr $farbwertb2 + 1 ] % $farbstufen ]
  .r1.a3 configure -background $farbe($farbwerta3)
  .r2.b3 configure -background $farbe($farbwertb3)
  .r3.c3 configure -background $farbe($farbwertc3)
  .r2.b1 configure -background $farbe($farbwertb1)
  .r2.b2 configure -background $farbe($farbwertb2)
}
#
.r3.c3 configure -command {
  set farbwerta3 [ expr [ expr $farbwerta3 + 1 ] % $farbstufen ]
  set farbwertb3 [ expr [ expr $farbwertb3 + 1 ] % $farbstufen ]
  set farbwertc3 [ expr [ expr $farbwertc3 + 1 ] % $farbstufen ]
  set farbwertc1 [ expr [ expr $farbwertc1 + 1 ] % $farbstufen ]
  set farbwertc2 [ expr [ expr $farbwertc2 + 1 ] % $farbstufen ]
  .r1.a3 configure -background $farbe($farbwerta3)
  .r2.b3 configure -background $farbe($farbwertb3)
  .r3.c3 configure -background $farbe($farbwertc3)
  .r3.c1 configure -background $farbe($farbwertc1)
  .r3.c2 configure -background $farbe($farbwertc2)
}

Dieses Bild wurde unter der GNU-Lizenz für freie Dokumentation veröffentlicht. Kopieren, Verbreiten und/oder Modifizieren ist erlaubt unter den Bedingungen der GNU Free Documentation License, Version 1.2 oder einer späteren Version, veröffentlicht von der Free Software Foundation. Es gibt keine unveränderlichen Abschnitte, keinen vorderen Umschlagtext und keinen hinteren Umschlagtext.

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

	Version vom	Vorschaubild	Maße	Benutzer	Kommentar
aktuell	21:38, 23. Mär. 2006		233 × 267 (14 KB)	Arbol01 (Diskussion \| Beiträge)	Screenshot von selbsterstelltem tcl/tk-Programm. --~~~~ {{GNU-FDL}}

Du kannst diese Datei nicht überschreiben.

Dateiverwendung

Die folgende Seite verwendet diese Datei:

Wikibooks:Ich brauche Hilfe/ Archiv/ 2006

Metadaten

Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.

_error	0