{"id":5288,"date":"2016-02-19T22:20:18","date_gmt":"2016-02-19T21:20:18","guid":{"rendered":"http:\/\/www.kosmala.pl\/?p=5288"},"modified":"2016-02-19T22:20:18","modified_gmt":"2016-02-19T21:20:18","slug":"ile_czego-tcl","status":"publish","type":"post","link":"http:\/\/www.kosmala.pl\/?p=5288","title":{"rendered":"ILE_CZEGO.TCL"},"content":{"rendered":"

A oto proste, ale bardzo przydatne narz\u0119dzie dla piwowar\u00f3w. Po zagotowaniu i ostudzeniu brzeczki cz\u0119sto okazuje si\u0119, \u017ce poziom Blg odbiega od naszych oczekiwa\u0144. Poni\u017cej programik pozwalaj\u0105cy na obliczenie ile wody, lub ile cukru, nale\u017cy doda\u0107 do brzeczki nastawnej (przed zadaniem dro\u017cd\u017cy), by uzyska\u0107 oczekiwany poziom Blg.
\nSkrypt dzia\u0142a bez przer\u00f3bek na ka\u017cdym systemie z zainstalowanym interpretatorem Tcl\/Tk<\/a>. Wystarczy przekopiowa\u0107 poni\u017csze do pliku tekstowego i nada\u0107 mu rozszerzenie „.tcl”. Ja u\u017cywam na smartfonowym Androidzie – w \u015brodowisku AndroWish<\/a>. Je\u015bli przy warzeniu potrzebuj\u0119 zmieni\u0107 Blg, to po prostu si\u0119gam do kieszeni po telefon.<\/p>\n


\n#!\/usr\/bin\/wish -f
\n#####################################################
\n### ILE_CZEGO.TCL ###
\n#----------------------------------------------------
\n# Autor: Miros\u0142aw Kosmala http:\/\/www.kosmala.pl
\n# Data utworzenia: 20\/02\/2016 r.
\n#----------------------------------------------------
\n#
\n# Prosty skrypcik pomagaj\u00b1cy obliczac ile wody, lub
\n# ile cukru nalezy dodac do brzeczki piwnej, by ja
\n# zagescic lub rozcieczyc do wymaganego BLG.
\n#
\n# TODO
\n# ====
\n# 1) Obsluga bledow
\n#
\n#####################################################<\/p>\n

###
\n## KONFIGURACJA
\n#
\nfont create myFont -family \"Helvetica\" -size 16 -weight normal
\nset tcl_precision 2<\/p>\n

###
\n## ILE WODY
\n#
\nframe .w -borderwidth 2 -relief ridge
\nlabel .w.t -text \"ILE WODY\" -background navy -foreground white -font myFont
\npack .w .w.t -fill x<\/p>\n

frame .w.f1
\nlabel .w.f1.l -text \"BLG poczatkowe: \" -font myFont
\nset blg1w \"0.0\"
\nentry .w.f1.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable blg1w
\npack .w.f1
\npack .w.f1.l .w.f1.e -side left -fill x<\/p>\n

frame .w.f2
\nlabel .w.f2.l -text \"Litraz poczatkowy: \" -font myFont
\nentry .w.f2.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable litraz1
\npack .w.f2
\npack .w.f2.l .w.f2.e -side left -fill x<\/p>\n

frame .w.f3
\nlabel .w.f3.l -text \"BLG docelowe: \" -font myFont
\nentry .w.f3.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable blg2w
\npack .w.f3
\npack .w.f3.l .w.f3.e -side left -fill x<\/p>\n

label .w.w -text \"Nalezy dolac: ... litrow\" -font myFont
\npack .w.w<\/p>\n

button .w.b -text \" Przelicz wode \" -font myFont -command {<\/p>\n

# Przeliczenie wody
\n set wynik1 [expr ($litraz1*($blg1w-$blg2w))\/$blg2w]
\n .w.w configure -text \"Nalezy dolac: $wynik1 litrow\"<\/p>\n

}
\npack .w.b -fill x<\/p>\n

###
\n## ILE CUKRU
\n#
\nframe .c -borderwidth 2 -relief ridge
\nlabel .c.t -text \"ILE CUKRU\" -background navy -foreground white -font myFont
\npack .c .c.t -fill x<\/p>\n

frame .c.f1
\nlabel .c.f1.l -text \"BLG poczatkowe: \" -font myFont
\nset blg1c \"0.0\"
\nentry .c.f1.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable blg1c
\npack .c.f1
\npack .c.f1.l .c.f1.e -side left -fill x<\/p>\n

frame .c.f2
\nlabel .c.f2.l -text \"Litraz poczatkowy: \" -font myFont
\nentry .c.f2.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable litraz2
\npack .c.f2
\npack .c.f2.l .c.f2.e -side left -fill x<\/p>\n

frame .c.f3
\nlabel .c.f3.l -text \"BLG docelowe: \" -font myFont
\nentry .c.f3.e -width 4 -relief flat -borderwidth 1 -font myFont -textvariable blg2c
\npack .c.f3
\npack .c.f3.l .c.f3.e -side left -fill x<\/p>\n

label .c.w -text \"Nalezy dodac: ... kg\" -font myFont
\npack .c.w<\/p>\n

button .c.b -text \" Przelicz cukier \" -font myFont -command {<\/p>\n

# Przeliczenie cukru
\n set wynik2 [expr $litraz2*(1+($blg1c*4\/1000))*(($blg1c-$blg2c)\/($blg2c-100))]
\n .c.w configure -text \"Nalezy dodac: $wynik2 kg\"
\n}
\npack .c.b -fill x<\/p>\n

###
\n## KONIEC
\n#
\nbutton .k -text \" Zamknij \" -font myFont -command {exit 0}
\npack .k -fill x
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

A oto proste, ale bardzo przydatne narz\u0119dzie dla piwowar\u00f3w. Po zagotowaniu i ostudzeniu brzeczki cz\u0119sto okazuje si\u0119, \u017ce poziom Blg odbiega od naszych oczekiwa\u0144. Poni\u017cej programik pozwalaj\u0105cy na obliczenie ile wody, lub ile cukru, nale\u017cy doda\u0107 do brzeczki nastawnej (przed zadaniem dro\u017cd\u017cy), by uzyska\u0107 oczekiwany poziom Blg. Skrypt dzia\u0142a bez przer\u00f3bek na ka\u017cdym systemie z […]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[13],"tags":[438,439,332,92,418],"class_list":["post-5288","post","type-post","status-publish","format-standard","hentry","category-tcltk","tag-android","tag-ile_czego-tcl","tag-piwo","tag-program","tag-tcltk"],"_links":{"self":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5288","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5288"}],"version-history":[{"count":5,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5288\/revisions"}],"predecessor-version":[{"id":5293,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5288\/revisions\/5293"}],"wp:attachment":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5288"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5288"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5288"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}