A PYTHON PROGRAMM FOR POST LASIK ECTASIA RISC ( GREEK) « ΜΥΩΠΙΑ LASER ΓΕΩΡΓΙΟΣ ΤΣΙΟΥΛΙΑΣ ΟΦΘΑΛΜΙΑΤΡΟΣ – ΔΙΑΘΛΑΣΤΙΚΗ ΧΕΙΡΟΥΡΓΙΚΗ ΜΕ LASER Χειρουργός Οφθαλμίατρος Γ. Τσιούλιας | Χειρουργική με Laser | Αντιμετώπιση Οφθαλμικών παθήσεων | Επεμβάσεις Αντιμετώπισης Καταρράκτη & Γλαύκωμα - Διαθλαστική χειρουργική με excimer laser| Αντιμετώπιση Οφθαλμικών παθήσεων | Επεμβάσεις Αντιμετώπισης Καταρράκτη & Γλαύκωμα " />

ΓΕΩΡΓΙΟΣ ΤΣΙΟΥΛΙΑΣ MD, PHD, EBOD

ΧΕΙΡΟΥΡΓΟΣ ΟΦΘΑΛΜΙΑΤΡΟΣ - ΔΙΑΘΛΑΣΤΙΚΗ ΧΕΙΡΟΥΡΓΙΚΗ ΜΕ LASER

A PYTHON PROGRAMM FOR POST LASIK ECTASIA RISC ( GREEK)

python-logopython-logo

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

from Tkinter import *

root = Tk()
root.title(«ΥΠΟΛΟΓΙΣΜΟΣ ΡΙΣΚΟΥ ΕΚΤΑΣΙΑΣ ΜΕΤΑ ΑΠΟ LASIK»)
root.geometry(«800×600»)
root.grid()

def callback6(event):
field6 = varText6.get()
print field6
return

def callback7(event):
field7 = varText7.get()
return

def callback8(event):
field8 = varText8.get()
return

def callback9(event):
field9 = varText9.get()
return

def callback10(event):
field10 = varText10.get()
return

def callback11(event):
field11 = varText11.get()
return

def callback12(event):
field12 = varText12.get()
return

def callback13(event):
field13 = varText13.get()
return

def callback14(event):
field14 = varText14.get()
return

def callback15(event):
field15 = varText15.get()
return

def callback16(event):
field16 = varText16.get()
return

def callback17(event):
field17 = varText17.get()
return

def callback18(event):
field18 = varText18.get()
return

def callback19(event):
field19 = varText19.get()
return

def callback20(event):
field20 = varText20.get()
return

def callback21(event):
field21 = varText21.get()
return

def calculateAmount():
field6 = varText6.get()
field7 = varText7.get()
field8 = varText8.get()
field9 = varText9.get()
field10 = varText10.get()
field11 = varText11.get()
field12 = varText12.get()
field13= varText13.get()
field14 = varText14.get()
field15= varText15.get()
field16= varText16.get()
field17 = varText17.get()
field18 = varText18.get()
field19 = varText19.get()
field20 = varText20.get()
field21 = varText21.get()
SCORE.delete(0, END)
SCORE.insert(0, int(field6+field7+field8+ field9+field10+field11+field12+field13+field14+field15+field16+field17+field18+field19+field20+field21))

return

Label(root, text=»ΑΝ ΚΕΡΑΤΟΚΩΝΟΣ «).grid(sticky=W, row=0)
Label(root, text=»ΑΠΑΓΟΡΕΥΕΤΑΙ LASIK «).grid(sticky=W, row=0, column=1)

Label(root, text=»ΑΝ ΥΠΟΚΛΙΝΙΚΟΣ ΚΩΝΟΣ ΜΕ I-S >1.4 «).grid(sticky=W, row=1)
Label(root, text=»ΑΠΑΓΟΡΕΥΕΤΑΙ LASIK»).grid(sticky=W, row=1, column=1)

Label(root, text=»ΑΝ ΥΠΟΛΟΙΠΟΜΕΝΟ ΣΤΡΩΜΑ <250 «).grid(sticky=W, row=2)
Label(root, text=»ΑΠΑΓΟΡΕΥΕΤΑΙ LASIK»).grid(sticky=W, row=2, column=1)

Label(root, text=»ΑΝ ΠΑΧΟΣ ΚΕΡΑΤΟΕΙΔΟΥΣ<480 «).grid(sticky=W, row=3)
Label(root, text=»ΑΠΑΓΟΡΕΥΕΤΑΙ LASIK»).grid(sticky=W, row=3, column=1)

Label(root, text=»ΑΝ ΤΡΕΙΣ ΧΑΡΤΕΣ ΣΤΟ orbscan ΔΕΝ ΕΙΝΑΙ ΚΦ ΚΑΙ ΥΠΑΡΧΕΙ ΣΥΣΧΕΤΙΣΗ «).grid(sticky=W, row=4)
Label(root, text=»ΑΠΑΓΟΡΕΥΕΤΑΙ LASIK»).grid(sticky=W, row=4, column=1)

Label(root, text=»ΑΝ ΤΟΠΟΓΡΑΦΙΑ ΚΦ ΓΡΑΨΤΕ 0,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 1″).grid(sticky=W, row=5)
varText = IntVar()
initAmount = Entry(root, textvariable=varText, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=5, column=1)

Label(root, text=»ΑΝ ΥΠΟΛΟΙΠΟΜΕΝΟ ΣΤΡΩΜΑ>300 ΓΡΑΨΤΕ 0,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 1″).grid(sticky=W, row=6)
varText2 = IntVar()
initAmount = Entry(root, textvariable=varText2, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=6, column=1)

Label(root, text=»ΑΝ ΣΦΑΙΡΙΚΟ ΙΣΟΔΥΝΑΜΟ <8 ΓΡΑΨΤΕ 0,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 1″).grid(sticky=W, row=7)
varText3 = IntVar()
initAmount = Entry(root, textvariable=varText3, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=7, column=1)

Label(root, text=»ΑΝ ΠΑΧΟΣ ΚΕΡΑΤΟΕΙΔΟΥΣ >510 ΓΡΑΨΤΕ 0,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 1″).grid(sticky=W, row=8)
varText4 = IntVar()
initAmount = Entry(root, textvariable=varText4, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=8, column=1)

Label(root, text=»IF ΗΛΙΚΙΑ >30  ΓΡΑΨΤΕ 0,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 1″).grid(sticky=W, row=9)
varText5 = IntVar()
initAmount = Entry(root, textvariable=varText5, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=9, column=1)

Label(root, text=»                 «).grid(sticky=W, row=10)
Label(root, text=»                 «).grid(sticky=W, row=10, column=1)

Label(root, text=»ΑΝ ΚΕΚΑΜΕΝΗ ΚΛΕΨΥΔΡΑ Η ΔΙΑΦΟΡΑ >1.00D ΣΕ ΚΑΠΟΙΟ ΣΗΜΕΙΟ ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0»).grid(sticky=W, row=11)
varText6 = IntVar()
initAmount = Entry(root, textvariable=varText6, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=11, column=1)

Label(root, text=»ΑΝ 250<ΥΠΟΛΟΙΠΟΜΕΝΟ ΣΤΡΩΜΑ<259  ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=12)
varText7 = IntVar()
initAmount = Entry(root, textvariable=varText7, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=12, column=1)

Label(root, text=»IF 18<ΗΛΙΚΙΑ<21 ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=13)
varText8 = IntVar()

initAmount = Entry(root, textvariable=varText8, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=13, column=1)

Label(root, text=»IF  481<ΠΑΧΟΣ ΚΕΡΑΤΟΕΙΔΟΥΣ<490 ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=14)
varText9 = IntVar()
initAmount = Entry(root, textvariable=varText9, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=14, column=1)

Label(root, text=»IF  12<ΣΦΑΙΡΙΚΟ ΙΣΟΔΥΝΑΜΟ<14 ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=15)
varText10 = IntVar()
initAmount = Entry(root, textvariable=varText10, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=15, column=1)

Label(root, text=»ΑΝ ΔΥΟ ΧΑΡΤΕΣ ΣΤΟ orbscan ΔΕΝ ΕΙΝΑΙ ΚΦ ΚΑΙ ΥΠΑΡΧΕΙ ΣΥΣΧΕΤΙΣΗ   ΓΡΑΨΤΕ 3,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=16)
varText11 = IntVar()
initAmount = Entry(root, textvariable=varText11, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=16, column=1)

Label(root, text=»                 «).grid(sticky=W, row=17)
Label(root, text=»                 «).grid(sticky=W, row=17, column=1)

Label(root, text=»ΑΝ 260<ΥΠΟΛΟΙΠΟΜΕΝΟ ΣΤΡΩΜΑ<279 ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0»).grid(sticky=W, row=18)
varText12 = IntVar()
initAmount = Entry(root, textvariable=varText12, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=18, column=1)

Label(root, text=»IF 22<ΗΛΙΚΙΑ<25 ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=19)
varText13 = IntVar()
initAmount = Entry(root, textvariable=varText13, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=19, column=1)

Label(root, text=»IF  491<ΠΑΧΟΣ ΚΕΡΑΤΟΕΙΔΟΥΣ <510 ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=20)
varText14 = IntVar()
initAmount = Entry(root, textvariable=varText14, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=20, column=1)

Label(root, text=»IF  10<ΣΦΑΙΡΙΚΟ ΙΣΟΔΥΝΑΜΟ<12 ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=21)
varText15 = IntVar()
initAmount = Entry(root, textvariable=varText15, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=21, column=1)

Label(root, text=»ΑΝ ΕΝΑΣ ΧΑΡΤΗΣ ΣΤΟ orbscan ΔΕΝ ΕΙΝΑΙ ΚΦ   ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=22)
varText16 = IntVar()
initAmount = Entry(root, textvariable=varText16, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=22, column=1)

Label(root, text=» ΑΝ ΔΙΑΦΟΡΑ <1.00D ΣΕ ΚΑΠΟΙΟ ΣΗΜΕΙΟ, ΜΕ ΚΕΚΑΜΕΝΗ ΚΛΕΨΥΔΡΑ ΓΡΑΨΤΕ 2,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=23)
varText17 = IntVar()
initAmount = Entry(root, textvariable=varText17, width=10, bg = «pale green»)

initAmount.grid(sticky=W, row=23, column=1)

Label(root, text=»ΑΝ ΔΙΑΦΟΡΑ <1.00D ΣΕ ΚΑΠΟΙΟ ΣΗΜΕΙΟ, ΧΩΡΙΣ ΚΕΚΑΜΕΝΗ ΚΛΕΨΥΔΡΑ ΓΡΑΨΤΕ 1,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=24)

varText18 = IntVar()
initAmount = Entry(root, textvariable=varText18, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=24, column=1)

Label(root, text=»IF  280<ΥΠΟΛΟΙΠΟΜΕΝΟ ΣΤΡΩΜΑ <290  ΓΡΑΨΤΕ 1,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=25)

varText19 = IntVar()
initAmount = Entry(root, textvariable=varText19, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=25, column=1)

Label(root, text=»IF 26<ΗΛΙΚΙΑ<29 ΓΡΑΨΤΕ 1,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=26)
varText20 = IntVar()
initAmount = Entry(root, textvariable=varText20, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=26, column=1)

Label(root, text=»IF  8<ΣΦΑΙΡΙΚΟ ΙΣΟΔΥΝΑΜΟ<10 ΓΡΑΨΤΕ 1,ΔΙΑΦΟΡΕΤΙΚΑ ΓΡΑΨΤΕ 0″).grid(sticky=W, row=27)
varText21 = IntVar()
initAmount = Entry(root, textvariable=varText21, width=10, bg = «pale green»)
initAmount.grid(sticky=W, row=27, column=1)

Label(root, text=»ΣΥΝΟΛΟ ΒΑΘΜΩΝ»).grid(sticky=W, row=13, column=3)

Button(root, text=»ΥΠΟΛΟΓΕΙΣΤΕ», width=12, command=calculateAmount).grid(sticky=W, row=20, column=3)

Label(root, text=»ΚΙΝΔΥΝΟΣ ΕΚΤΑΣΙΑΣ»).grid(sticky=W, row=16, column=3)

Label(root, text=»ΒΑΘΜΟΙ>6 ΥΨΗΛΟΣ»).grid(sticky=W, row=21, column=3)
Label(root, text=»3<ΒΑΘΜΟΙ<=6 ΜΕΣΟΣ»).grid(sticky=W, row=22, column=3)
Label(root, text=»ΒΑΘΜΟΙ<=3 ΧΑΜΗΛΟΣ»).grid(sticky=W, row=23, column=3)

Label(root, text=»MAX SCORE=18 «).grid(sticky=W, row=24, column=3)

varText = IntVar()
SCORE = Entry(root, textvariable=varText, takefocus=0, width=15, bg = «pale green»)
SCORE.grid(sticky=W, row=14, column=4)

root.mainloop()



Created by comgr.net