Das deutsche Python-Forum

Code: Alles auswählen

from Tkinter import *
root = Tk()
root.title("Abakus")
cv = Canvas(root,height=450,width=650)
cv.pack()
perle = {}
usingIDLE = 0


r = 30   # Durchmesser der Perle
ax = 40   # Perlen-Offset in x-Richtung
ay = 35   # Perlen-Offset in y-Richtung
originx = 10 # Ursprung ...
originy = 50 # ... des Ganzen


### Aktion:Kugel nach oben schieben.
def schieb(xc,yc):
    ycNeu = yc-1   # einen hochrücken
    if ycNeu == -2 or perle.has_key((xc,ycNeu)):  # wenn wir schon ganz oben waren oder dort eine Perle ist ...
        ycNeu = yc+1 # einen runterrücken
        if ycNeu == 10 or perle.has_key((xc,ycNeu)): # wenn wir schon ganz unten waren oder da auch schon eine Perle ist, ...
            return  # ... dann gibt es nichts zu tun
    xx = originx + xc*ax;  yy = originy + ycNeu*ay
    cv.coords(perle[(xc,yc)],xx,yy,xx+r,yy+r)
    perle[(xc,ycNeu)] = perle[(xc,yc)] # Die Perle bekommt einen neuen Dict-Eintrag entspr. der neuen Position
    cv.tag_bind(perle[(xc,ycNeu)],"<Button-1>", lambda e,X=xc,Y=ycNeu:schieb(X,Y))  # nötig, da sich ja y verändert hat
    del perle[(xc,yc)] # alten Dict-Eintrag löschen


for x in range(10):
    for y in range(10):
        xx = originx + x*ax;  yy = originy + y*ay
        perle[(x,y)]=cv.create_oval(xx,yy,xx+r,yy+r,fill='green',outline='black',)
        cv.tag_bind(perle[(x,y)],"<Button-1>", lambda e,X=x,Y=y:schieb(X,Y))
           
quit = Button(root, text="Beenden", width=6, command=root.destroy)
quit.pack(side="right")

root.focus_force()
if not usingIDLE:
   root.mainloop()

Code: Alles auswählen

from Tkinter import * 
root = Tk() 
root.title("Abakus") 
cv = Canvas(root,height=450,width=650) 
cv.pack() 
perle = {} 
usingIDLE = 0 
verschoben = []
 
def schieb(xc,yc):
    print perle[(xc,yc)]
    print verschoben
    if yc == 9:
        if perle[(xc,yc)] in verschoben:
            cv.coords(perle[(xc,yc)],s+xc*r+xc*r,s+yc*r,s+(xc+1)*r+xc*r,s+(yc+1)*r)
            del verschoben[(xc,yc)] ### Löschen aus verschoben
        elif perle[(xc,yc)] not in verschoben:
            for o in range(yc+1):
                print verschoben
                verschoben.append(perle[(xc,o)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,o)],s+xc*r+xc*r,s+o*r,s+(xc+1)*r+xc*r,s+(o-1)*r)
    else:
        if perle[(xc,yc+1)] not in verschoben:
            #print xc,yc+1,"nicht in verschoben vorhanden"
            for t in range(yc+1):
                #print xc,t
                verschoben.append(perle[(xc,t)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,t)],s+xc*r+xc*r,s+t*r,s+(xc+1)*r+xc*r,s+(t-1)*r)
        elif perle[(xc,yc-1)] in verschoben:
            for z in range(yc,10):
                cv.coords(perle[(xc,z)],s+xc*r+xc*r,s+z*r,s+(xc+1)*r+xc*r,s+(z+1)*r)
                del verschoben[(xc,z)]

r = 30   # Durchmesser der Perle 
s = 32   # Nur um in Zeile 14 nicht über 79 Zeichen zu kommen 
for x in range(10): 
    cv.create_line(47+x*r+x*r,2,47+x*r+x*r,332,width=1)
for x in range(10): 
    for y in range(10):
        q = x*r  # Nur um in Zeile 43 nicht über 79 Zeichen zu kommen 
        perle[(x,y)] = cv.create_oval(s+q+q,s+y*r,s+(x+1)*r+q,s+(y+1)*r,fill='green')
        #perle[(x,y)] = [str(x*10+y)]
        cv.tag_bind(perle[(x,y)],"<Button-1>", lambda e,X=x,Y=y:schieb(X,Y))
        cv.create_text(47+x*r+x*r,352,text = "0")
print perle
quit = Button(root, text="Beenden", width=6, command=root.destroy) 
quit.pack(side="right") 

root.focus_force() 
if not usingIDLE: 
   root.mainloop()

Code: Alles auswählen

from Tkinter import *

def MoveRight(perle):
	#~~ Schiebt Objekt nach rechts
	print "pos = ", cv.bbox(perle),perle
	pos = cv.bbox(perle)
	#~~ Kontrolle ob eine Perle im Weg ist oder rechtes Rahmenende
	enclosed = cv.find_enclosed(pos[0]+r,pos[1],pos[2]+r,pos[3])
	if enclosed == ():
		if pos[0] < numcol*s:
			cv.move(perle,+s,0)
			cv.itemconfigure(perle,fill="darkolivegreen3")

def MoveLeft(perle):
	#~~ Schiebt Objekt nach links
	pos = cv.bbox(perle)
	#~~ Kontrolle ob eine Perle im Weg ist oder linkes Rahmenende
	enclosed = cv.find_enclosed(pos[0]-r,pos[1],pos[2]-r,pos[3])
	if enclosed == ():
		if pos[0] > s:
			cv.move(perle,-s,0)
			cv.itemconfigure(perle,fill="green")

#  ->>----THE-ABACUS-APPLICATION----<<-
if __name__ == '__main__':

	root = Tk()
	root.title("Abakus-Prototyp")
	root['bg'] = 'steelblue3'
	cv = Canvas(root,height=450,width=250,bd=4,relief=RAISED,bg='khaki2')
	cv.pack()

	usingIDLE = 0

	r       = 30   # Durchmesser der Perle
	s       = r+2  # Linker Anschlag für Perlen
	gap     = 6    # Vertikaler Zwischenraum
	numcol  = 5    # Anzahl Perlen pro Perlenreihe
	numrows = 9    # Anzahl der Perlenreihen

	dicke   = 4    # Dicke der Reihenstange
	top     = r    # Oberes Rahmenende
	left    = s    # Linkes Rahmenende
	right   = left+(numcol+1)*r+8  #Rahmenende rechts
	bottom  = top+(numrows*r)+(numrows*gap) # Rahmenende unten
	ypos    = 0    # Vertikalposition der Reihenstange
	yg      = 0    # Hilfsvariable

	#~~ Erzeugt Stangen
	for rod in range(numrows):
		ypos = s+(r/2+1)+yg+rod*r
		stange = cv.create_line(left,
								ypos,
								right,
								ypos,
								fill='darkolivegreen4',
								width=dicke)
		yg += gap

	#~~ Erzeugt Abakusrahmen
	rectangle = cv.create_rectangle(left-2,
									top-4,
									right,bottom+4,
									width= 8,
									outline='darkgoldenrod4'
									)

	#~~ Erzeugt die Perlen
	for x in range(numcol):
		yg = 0
		for y in range(numrows):
			x0 = s+x*r
			y0 = s+yg+y*r
			x1 = s+(x+1)*r
			y1 = s+yg+(y+1)*r
			yg += gap
			# Zeichne Perle
			object = cv.create_oval(x0,y0,x1,y1,fill='green',outline='darkgreen')
			# Event für die Rechtschiebung
			cv.tag_bind(object,"<Button-1>",lambda e,Object=object:MoveRight(Object))
			# Event für die Linksschiebung
			cv.tag_bind(object,"<Button-3>",lambda e,Object=object:MoveLeft(Object))

	quit = Button(root, text="Beenden", width=10, command=root.destroy)
	quit.pack(side="bottom",pady=4)

	if not usingIDLE:
  		root.mainloop()

Code: Alles auswählen

from Tkinter import * 
root = Tk() 
root.title("Abakus") 
cv = Canvas(root,height=450,width=650) 
cv.pack() 
perle = {} 
usingIDLE = 0 
verschoben = []
 
def schieb(xc,yc):
    print perle[(xc,yc)]
    print verschoben
    if yc == 9:
        if perle[(xc,yc)] in verschoben:
            cv.coords(perle[(xc,yc)],s+xc*r+xc*r,s+yc*r,s+(xc+1)*r+xc*r,s+(yc+1)*r)
            verschoben.remove(perle[(xc,yc)]) 
            print verschoben
        elif perle[(xc,yc)] not in verschoben:
            for o in range(yc+1):
                print verschoben
                if perle[(xc,o)] not in verschoben:
                    verschoben.append(perle[(xc,o)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,o)],s+xc*r+xc*r,s+o*r,s+(xc+1)*r+xc*r,s+(o-1)*r)
                print verschoben
    elif yc == 1:
        if perle[(xc,yc)] in verschoben:
            for u in range(yc,10):
                cv.coords(perle[(xc,u)],s+xc*r+xc*r,s+u*r,s+(xc+1)*r+xc*r,s+(u-1)*r)
                verschoben.remove(perle[(xc,yc)])
                print verschoben
        elif perle[(xc,yc)] not in verschoben:
            verschoben.append(perle[(xc,yc)]) ### Der WERT vom Schlüssel
            cv.coords(perle[(xc,yc)],s+xc*r+xc*r,s+yc*r,s+(xc+1)*r+xc*r,s+(yc+1)*r)
    elif yc <> 9:
        if perle[(xc,yc+1)] not in verschoben:
            #print xc,yc+1,"nicht in verschoben vorhanden"
            for t in range(yc+1):
                if perle[(xc,t)] not in verschoben:
                    verschoben.append(perle[(xc,t)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,t)],s+xc*r+xc*r,s+t*r,s+(xc+1)*r+xc*r,s+(t-1)*r)
                print verschoben
        elif perle[(xc,yc-1)] in verschoben:
            for z in range(yc,10):
                cv.coords(perle[(xc,z)],s+xc*r+xc*r,s+z*r,s+(xc+1)*r+xc*r,s+(z+1)*r)
                verschoben.remove(perle[(xc,z)])
                print verschoben

r = 30   # Durchmesser der Perle 
s = 32   # Nur um in Zeile 14 nicht über 79 Zeichen zu kommen 
for x in range(10): 
    cv.create_line(47+x*r+x*r,2,47+x*r+x*r,332,width=1)
for x in range(10): 
    for y in range(10):
        q = x*r  # Nur um in Zeile 43 nicht über 79 Zeichen zu kommen 
        perle[(x,y)] = cv.create_oval(s+q+q,s+y*r,s+(x+1)*r+q,s+(y+1)*r,fill='green')
        #perle[(x,y)] = [str(x*10+y)]
        cv.tag_bind(perle[(x,y)],"<Button-1>", lambda e,X=x,Y=y:schieb(X,Y))
        cv.create_text(47+x*r+x*r,352,text = "0")
print perle
quit = Button(root, text="Beenden", width=6, command=root.destroy) 
quit.pack(side="right") 

root.focus_force() 
if not usingIDLE: 
   root.mainloop()

Code: Alles auswählen

cv.tag_bind(perle[(x,y)],"<Button-1>", lambda e,X=x,Y=y:schieb(X,Y))
perle[(x,y)] = [x*10+y]

Code: Alles auswählen

from Tkinter import *

def MoveRight(perle):
	#~~ Schiebt Objekte nach rechts

	#~~ Hilfsliste deklarieren
	auxlist = []
	pos = cv.bbox(perle)

	#~~ Objektnummern der Perlen auf der rechten Seite
	#   der angeklickten Perle inklusive der angeklickten.
	auxlist = list(cv.find_enclosed(pos[0],pos[1],right,pos[3]))
	auxlist.reverse()

	for obj in auxlist:
		pos = cv.bbox(obj)
		enclosed = cv.find_enclosed(pos[0]+r,pos[1],pos[2]+r,pos[3])
		if enclosed == ():
			if pos[0] < numcol*s:
				cv.move(obj,+s,0)
				cv.itemconfigure(obj,fill="darkolivegreen3")
	return()

def MoveLeft(perle):
	#~~ Schiebt Objekte nach links

	#~~ Hilfsliste deklarieren
	auxlist = []
	pos = cv.bbox(perle)

	#~~ Objektnummern der Perlen auf der linken Seite
	#   der angeklickten Perle inklusive der angeklickten.
	auxlist = list(cv.find_enclosed(left-1,pos[1],pos[2],pos[3]))

	for obj in auxlist:
		pos = cv.bbox(obj)
		enclosed = cv.find_enclosed(pos[0]-r,pos[1],pos[2]-r,pos[3])
		if enclosed == ():
			if pos[0] > s:
				cv.move(obj,-s,0)
				cv.itemconfigure(obj,fill="green")
	return()

#  ->>----THE-ABACUS-APPLICATION----<<-
if __name__ == '__main__':

	root = Tk()
	root.title("Abakus-Prototyp-26.01.04 22:30")
	root['bg'] = 'steelblue3'
	cv = Canvas(root,height=450,width=250,bd=4,relief=RAISED,bg='khaki2')
	cv.pack()

	usingIDLE = 0

	r       = 30   # Durchmesser der Perle
	s       = r+2  # Linker Anschlag für Perlen
	gap     = 6    # Vertikaler Zwischenraum
	numcol  = 5    # Anzahl Perlen pro Perlenreihe
	numrows = 9    # Anzahl der Perlenreihen

	dicke   = 4    # Dicke der Reihenstange
	top     = r    # Oberes Rahmenende
	left    = s    # Linkes Rahmenende
	right   = left+(numcol+1)*r+8  #Rahmenende rechts
	bottom  = top+(numrows*r)+(numrows*gap) # Rahmenende unten
	ypos    = 0    # Vertikalposition der Reihenstange
	yg      = 0    # Hilfsvariable

	#~~ Erzeugt Stangen
	for rod in range(numrows):
		ypos = s+(r/2+1)+yg+rod*r
		stange = cv.create_line(left,
								ypos,
								right+2,
								ypos,
								fill='darkolivegreen4',
								width=dicke)
		yg += gap

	#~~ Erzeugt Abakusrahmen
	rectangle = cv.create_rectangle(left-2,
									top-4,
									right,bottom+4,
									width= 8,
									outline='darkgoldenrod4'
									)

	#~~ Erzeugt die Perlen
	for x in range(numcol):
		yg = 0
		for y in range(numrows):
			x0 = s+x*r
			y0 = s+yg+y*r
			x1 = s+(x+1)*r
			y1 = s+yg+(y+1)*r
			yg += gap
			# Zeichne Perle
			object = cv.create_oval(x0,y0,x1,y1,fill='green',outline='darkgreen')
			# Event für die Rechtschiebung
			cv.tag_bind(object,"<Button-1>",lambda e,Object=object:MoveRight(Object))
			# Event für die Linksschiebung
			cv.tag_bind(object,"<Button-3>",lambda e,Object=object:MoveLeft(Object))

	quit = Button(root, text="Beenden", width=10, command=root.destroy)
	quit.pack(side="bottom",pady=4)

	if not usingIDLE:
  		root.mainloop()

Code: Alles auswählen

from Tkinter import * 
root = Tk() 
root.title("Abakus") 
cv = Canvas(root,height=450,width=650) 
cv.pack() 
perle = {} 
usingIDLE = 1 
verschoben = []
 
def schieb(xc,yc):
    print perle[(xc,yc)]
    print verschoben
    if yc == 9:
        if perle[(xc,yc)] in verschoben:
            cv.coords(perle[(xc,yc)],s+xc*r+xc*r,s+yc*r,s+(xc+1)*r+xc*r,s+(yc+1)*r)
            verschoben.remove(perle[(xc,yc)]) 
            print verschoben
        elif perle[(xc,yc)] not in verschoben:
            for o in range(yc+1):
                print verschoben
                if perle[(xc,o)] not in verschoben:
                    verschoben.append(perle[(xc,o)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,o)],s+xc*r+xc*r,s+o*r,s+(xc+1)*r+xc*r,s+(o-1)*r)
                print verschoben
    elif yc == 1:
        if perle[(xc,yc)] in verschoben:
            for u in range(yc,10):
                cv.coords(perle[(xc,u)],s+xc*r+xc*r,s+u*r,s+(xc+1)*r+xc*r,s+(u-1)*r)
                verschoben.remove(perle[(xc,yc+1)])
                print verschoben
        elif perle[(xc,yc)] not in verschoben:
            verschoben.append(perle[(xc,yc)]) ### Der WERT vom Schlüssel
            cv.coords(perle[(xc,yc)],s+xc*r+xc*r,s+yc*r,s+(xc+1)*r+xc*r,s+(yc+1)*r)
    elif yc <> 9:
        if perle[(xc,yc+1)] not in verschoben:
            #print xc,yc+1,"nicht in verschoben vorhanden"
            for t in range(yc+1):
                if perle[(xc,t)] not in verschoben:
                    verschoben.append(perle[(xc,t)]) ### Der WERT vom Schlüssel
                cv.coords(perle[(xc,t)],s+xc*r+xc*r,s+t*r,s+(xc+1)*r+xc*r,s+(t-1)*r)
                print verschoben
        elif perle[(xc,yc-1)] in verschoben:
            for z in range(yc,10):
                cv.coords(perle[(xc,z)],s+xc*r+xc*r,s+z*r,s+(xc+1)*r+xc*r,s+(z+1)*r)
                verschoben.remove(perle[(xc,z)])
                print verschoben

r = 30   # Durchmesser der Perle 
s = 32   # Nur um in Zeile 14 nicht über 79 Zeichen zu kommen 
for x in range(10): 
    cv.create_line(47+x*r+x*r,2,47+x*r+x*r,332,width=1)
for x in range(10): 
    for y in range(10):
        q = x*r  # Nur um in Zeile 43 nicht über 79 Zeichen zu kommen 
        perle[(x,y)] = cv.create_oval(s+q+q,s+y*r,s+(x+1)*r+q,s+(y+1)*r,fill='green')
        #perle[(x,y)] = [x*10+y]
        cv.tag_bind(perle[(x,y)],"<Button-1>", lambda e,X=x,Y=y:schieb(X,Y))
        cv.create_text(47+x*r+x*r,352,text = "0")
print perle
quit = Button(root, text="Beenden", width=6, command=root.destroy) 
quit.pack(side="right") 

root.focus_force() 
if not usingIDLE: 
   root.mainloop()

Code: Alles auswählen

#~~ Erzeugt Stangen 
for rod in range(numrows): 
  ypos = s+(r/2+1)+yg+rod*r 
  stange = cv.create_line(left, 
                    ypos, 
                    right+2, 
                    ypos, 
                    fill='darkolivegreen4', 
                    width=dicke) 
  yg += gap
  cv.create_text(right+2+8,ypos - dicke/2,text = "0")

Code: Alles auswählen

#!/usr/bin/env python
# -*- coding: UTF-8 -*-

# Anwendung   : The Abacus
# Version     : 1.00
# Autor       : Fritz Wüst (CH-6048 Horw)
# Datum       : 27.01.2004 - 03:00
# Geändert    : 27.01.2004 - 03:00

from Tkinter import *


def MoveRight(perle):
	#~~ Schiebt Objekte nach rechts

	#~~ Hilfsliste deklarieren
	auxlist = []
	pos = cv.bbox(perle)

	#~~ Objektnummern der Perlen auf der rechten Seite
	#   der angeklickten Perle inklusive der angeklickten.
	auxlist = list(cv.find_enclosed(pos[0],pos[1],right,pos[3]))
	auxlist.reverse()

	for obj in auxlist:
		pos = cv.bbox(obj)
		enclosed = cv.find_enclosed(pos[0]+r,pos[1],pos[2]+r,pos[3])
		if enclosed == ():
			if pos[0] < numcol*s:
				cv.move(obj,+s,0)
				cv.itemconfigure(obj,fill="darkolivegreen3")

	UpdateNumOfPearls()

	return()

def MoveLeft(perle):
	#~~ Schiebt Objekte nach links

	#~~ Hilfsliste deklarieren
	auxlist = []
	pos = cv.bbox(perle)

	#~~ Objektnummern der Perlen auf der linken Seite
	#   der angeklickten Perle inklusive der angeklickten.
	auxlist = list(cv.find_enclosed(left-1,pos[1],pos[2],pos[3]))

	for obj in auxlist:
		pos = cv.bbox(obj)
		enclosed = cv.find_enclosed(pos[0]-r,pos[1],pos[2]-r,pos[3])
		if enclosed == ():
			if pos[0] > s:
				cv.move(obj,-s,0)
				cv.itemconfigure(obj,fill="green")

	UpdateNumOfPearls()

	return()

def UpdateNumOfPearls():
	#~~ Aktualisiert Texte auf der Canvasfläche
	global cleanmessage
	yg = 0
	cleaning = FALSE
	for row in range(numrows):
		y0 = s+yg+row*r
		y1 = s+yg+(row+1)*r
		foundobj = cv.find_enclosed(left-1,y0-1,right,y1+1)
		numpearls = 0
		numcolor  = 'blue'
		for obj in foundobj:
			fillcolor = cv.itemcget(obj,'fill')
			if fillcolor == 'darkolivegreen3':
				numpearls += 1
		if numpearls == numcol:
			cleaning = TRUE
			numcolor = 'red'
	 	xpos = right+15
	 	ypos = top+1+yg+r/2+row*r
	 	try:
	 		cv.delete(numlist[row])
	 	except:
	 		pass
		numlist[row] = cv.create_text(xpos,ypos,text=numpearls,anchor='w',fill=numcolor,font=font1)
		yg += gap
	try:
		cv.delete(cleanmessage)
	except:
		pass
	if cleaning == TRUE:
		xpos = (top+right)/2
		ypos = bottom+30
		text = cleantext
		cleanmessage = cv.create_text(xpos,ypos,text=text,anchor='center',fill='red',font=font2)

	return()

#  ->>----THE-ABACUS-APPLICATION----<<-
if __name__ == '__main__':

	root = Tk()
	root.title("Abakus-Prototyp-27.01.04 - 03:00")
	root['bg'] = 'steelblue3'
	cv = Canvas(root,height=430,width=450,bd=4,relief=RAISED,bg='khaki2')
	cv.pack()

	usingIDLE = 0

	#~~ Listendeklaration für die Anzahl verschobener Perlen
	numlist = []

	#~~ Zeichensätze
	font1 = ('Helvetica', 15, 'bold')
	font2 = ('Helvetica', 20, 'bold','underline')
	cleantext = 'Bitte Bereinigen!!!'

	r       = 30   # Durchmesser der Perle
	s       = r+2  # Linker Anschlag für Perlen
	gap     = 6    # Vertikaler Zwischenraum
	numcol  = 10    # Anzahl Perlen pro Perlenreihe
	numrows = 9    # Anzahl der Perlenreihen

	dicke   = 4    # Dicke der Reihenstange
	top     = r    # Oberes Rahmenende
	left    = s    # Linkes Rahmenende
	right   = left+(numcol+1)*r+8  #Rahmenende rechts
	bottom  = top+(numrows*r)+(numrows*gap) # Rahmenende unten
	ypos    = 0    # Vertikalposition der Reihenstange
	yg      = 0    # Hilfsvariable

	#~~ Erzeugt Stangen
	for rod in range(numrows):
		ypos = s+(r/2+1)+yg+rod*r
		stange = cv.create_line(left,
								ypos,
								right+2,
								ypos,
								fill='darkolivegreen4',
								width=dicke)
		yg += gap

	#~~ Erzeug Textobjekte für die Anzahl verschobener Perlen
	yg = 0
	for num in range(numrows):
		xpos    = right+15
		ypos    = top+1+yg+r/2+num*r
		textobj = cv.create_text(xpos,ypos,text=0,anchor='w',fill='blue',font=font1)
		numlist.append(textobj)
		yg += gap

	#~~ Erzeugt Meldetext-Objekt für "Bereinigen"
	xpos = (top+right)/2
	ypos = bottom+30
	text = ''
	cleanmessage = cv.create_text(xpos,ypos,text=text,anchor='center',fill='red',font=font2)

	#~~ Erzeugt Abakusrahmen
	rectangle = cv.create_rectangle(left-2,
									top-4,
									right,bottom+4,
									width= 8,
									outline='darkgoldenrod4'
									)

	#~~ Erzeugt die Perlen
	for x in range(numcol):
		yg = 0
		for y in range(numrows):
			x0 = s+x*r
			y0 = s+yg+y*r
			x1 = s+(x+1)*r
			y1 = s+yg+(y+1)*r
			yg += gap
			# Zeichne Perle
			object = cv.create_oval(x0,y0,x1,y1,fill='green',outline='darkgreen')
			# Event für die Rechtschiebung
			cv.tag_bind(object,"<Button-1>",lambda e,Object=object:MoveRight(Object))
			# Event für die Linksschiebung
			cv.tag_bind(object,"<Button-3>",lambda e,Object=object:MoveLeft(Object))

	quit = Button(root, text="Beenden", width=10, command=root.destroy)
	quit.pack(side="bottom",pady=4)

	if not usingIDLE:
  		root.mainloop()

Code: Alles auswählen

from Tkinter import * 


def MoveRight(perle): 
   #~~ Schiebt Objekte nach rechts 

   #~~ Hilfsliste deklarieren 
   auxlist = [] 
   pos = cv.bbox(perle) 

   #~~ Objektnummern der Perlen auf der rechten Seite 
   #   der angeklickten Perle inklusive der angeklickten. 
   auxlist = list(cv.find_enclosed(pos[0],pos[1],right,pos[3])) 
   auxlist.reverse() 

   for obj in auxlist: 
      pos = cv.bbox(obj) 
      enclosed = cv.find_enclosed(pos[0]+r,pos[1],pos[2]+r,pos[3]) 
      if enclosed == (): 
         if pos[0] < numcol*s: 
            cv.move(obj,+s,0) 
            cv.itemconfigure(obj,fill="darkolivegreen3") 

   UpdateNumOfPearls() 

   return() 

def MoveLeft(perle): 
   #~~ Schiebt Objekte nach links 

   #~~ Hilfsliste deklarieren 
   auxlist = [] 
   pos = cv.bbox(perle) 

   #~~ Objektnummern der Perlen auf der linken Seite 
   #   der angeklickten Perle inklusive der angeklickten. 
   auxlist = list(cv.find_enclosed(left-1,pos[1],pos[2],pos[3])) 

   for obj in auxlist: 
      pos = cv.bbox(obj) 
      enclosed = cv.find_enclosed(pos[0]-r,pos[1],pos[2]-r,pos[3]) 
      if enclosed == (): 
         if pos[0] > s: 
            cv.move(obj,-s,0) 
            cv.itemconfigure(obj,fill="green") 

   UpdateNumOfPearls() 

   return() 

def UpdateNumOfPearls(): 
   #~~ Aktualisiert Texte auf der Canvasfläche
    global cleanmessage
    global zusammen
    zusammen = ''
    yg = 0
    cleaning = FALSE
    for row in range(numrows):
        y0 = s+yg+row*r
        y1 = s+yg+(row+1)*r
        foundobj = cv.find_enclosed(left-1,y0-1,right,y1+1)
        numpearls = 0
        numcolor  = 'blue'
        for obj in foundobj:
            fillcolor = cv.itemcget(obj,'fill')
            if fillcolor == 'darkolivegreen3':
                numpearls += 1
        if numpearls == numcol:
            cleaning = TRUE
            numcolor = 'red'
        xpos = right+15
        ypos = top+1+yg+r/2+row*r
        try:
            cv.delete(numlist[row])
        except:
            pass
        numlist[row] = cv.create_text(xpos,ypos,text=numpearls,anchor='w',fill=numcolor,font=font1)
        yg += gap
        zusammen = zusammen + str(numpearls)
    try:
        cv.delete(zusammen)
    except:
        pass
    #zusammen = str(numpearls)
    sum = cv.create_text(60,420,text=zusammen,font=font1)
    try:
        cv.delete(cleanmessage)
    except:
        pass
    if cleaning == TRUE:
        xpos = (top+right)/2
        ypos = bottom+30
        text = cleantext
        cleanmessage = cv.create_text(xpos,ypos,text=text,anchor='center',fill='red',font=font2)
    return() 

#  ->>----THE-ABACUS-APPLICATION----<<- 
root = Tk() 
root.title("Abakus-Prototyp-27.01.04 - 03:00") 
root['bg'] = 'steelblue3' 
cv = Canvas(root,height=430,width=450,bd=4,relief=RAISED,bg='khaki2') 
cv.pack() 

usingIDLE = 1 

#~~ Listendeklaration für die Anzahl verschobener Perlen 
numlist = [] 

#~~ Zeichensätze 
font1 = ('Helvetica', 15, 'bold') 
font2 = ('Helvetica', 15, 'bold','underline') 
cleantext = 'Bitte Bereinigen!!!' 

r       = 30    # Durchmesser der Perle 
s       = r+2   # Linker Anschlag für Perlen 
gap     = 6     # Vertikaler Zwischenraum 
numcol  = 10    # Anzahl Perlen pro Perlenreihe 
numrows = 10    # Anzahl der Perlenreihen 

dicke   = 4    # Dicke der Reihenstange 
top     = r    # Oberes Rahmenende 
left    = s    # Linkes Rahmenende 
right   = left+(numcol+1)*r+8  #Rahmenende rechts 
bottom  = top+(numrows*r)+(numrows*gap) # Rahmenende unten 
ypos    = 0    # Vertikalposition der Reihenstange 
yg      = 0    # Hilfsvariable 

#~~ Erzeugt Stangen 
for rod in range(numrows): 
  ypos = s+(r/2+1)+yg+rod*r 
  stange = cv.create_line(left, 
                    ypos, 
                    right+2, 
                    ypos, 
                    fill='darkolivegreen4', 
                    width=dicke) 
  yg += gap 

#~~ Erzeug Textobjekte für die Anzahl verschobener Perlen 
yg = 0 
for num in range(numrows): 
  xpos    = right+15 
  ypos    = top+1+yg+r/2+num*r 
  textobj = cv.create_text(xpos,ypos,text=0,anchor='w',fill='blue',font=font1) 
  numlist.append(textobj) 
  yg += gap 

#~~ Erzeugt Meldetext-Objekt für "Bereinigen" 
xpos = (top+right)/2 
ypos = bottom+30 
text = '' 
cleanmessage = cv.create_text(xpos,ypos,text=text,anchor='center',fill='red',font=font2) 
#~~ Erzeugt Fenster, dass die dargestellte Zahl anzeigt
sum = cv.create_text(20,420,text=text)

#~~ Erzeugt Abakusrahmen 
rectangle = cv.create_rectangle(left-2, 
                       top-4, 
                       right,bottom+4, 
                       width= 8, 
                       outline='darkgoldenrod4' 
                       ) 

#~~ Erzeugt die Perlen 
for x in range(numcol): 
  yg = 0 
  for y in range(numrows): 
     x0 = s+x*r 
     y0 = s+yg+y*r 
     x1 = s+(x+1)*r 
     y1 = s+yg+(y+1)*r 
     yg += gap 
     # Zeichne Perle 
     object = cv.create_oval(x0,y0,x1,y1,fill='green',outline='darkgreen') 
     # Event für die Rechtschiebung 
     cv.tag_bind(object,"<Button-1>",lambda e,Object=object:MoveRight(Object)) 
     # Event für die Linksschiebung 
     cv.tag_bind(object,"<Button-3>",lambda e,Object=object:MoveLeft(Object)) 

quit = Button(root, text="Beenden", width=10, command=root.destroy) 
quit.pack(side="bottom",pady=4) 

if not usingIDLE: 
    root.mainloop()