{"id":5294,"date":"2016-03-02T22:14:01","date_gmt":"2016-03-02T21:14:01","guid":{"rendered":"http:\/\/www.kosmala.pl\/?p=5294"},"modified":"2016-03-02T22:14:01","modified_gmt":"2016-03-02T21:14:01","slug":"oblicz_alkohol-tcl","status":"publish","type":"post","link":"http:\/\/www.kosmala.pl\/?p=5294","title":{"rendered":"OBLICZ_ALKOHOL.TCL"},"content":{"rendered":"

Jeszcze jedno narz\u0119dzie dla piwowar\u00f3w. Skrypcik w Tcl\/Tk<\/a> dzia\u0142aj\u0105cy na ka\u017cdym systemie z zainstalowanym interpretatorem tego j\u0119zyka. Poni\u017cszy kod nale\u017cy przekopiowa\u0107 do pliku tekstowego z rozszerzeniem „.tcl”. Ja u\u017cywam na smartfonowym Androidzie z zainstalowanym \u015brodowiskiem AndroWish<\/a>.
\nCo do dzia\u0142ania programu: „Blg pocz\u0105tkowe”, to Blg przed rozpocz\u0119ciem fermentacji, natomiast „Blg ko\u0144cowe”, to to, kt\u00f3re aktualnie odczytujemy na Balingometrze. R\u00f3\u017cnic\u0119 pomi\u0119dzy nimi program dzieli przez 1,938 i na tej podstawie podaje przybli\u017cony % alkoholu.<\/p>\n


\n#!\/usr\/bin\/wish -f
\n#
\n#####################################################
\n### OBLICZ_ALKOHOL.TCL ###
\n#----------------------------------------------------
\n# Autor: Miros\u0142aw Kosmala http:\/\/www.kosmala.pl
\n# Data utworzenia: 20\/02\/2016 r.
\n#----------------------------------------------------
\n#
\n# Prosty skrypcik do obliczania ilosci alkoholu
\n# w przefermentowanym piwku.
\n#
\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## MAIN
\n#
\nframe .w -borderwidth 2 -relief ridge
\nlabel .w.t -text \"ALKOHOL\" -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
\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.f3
\nlabel .w.f3.l -text \"BLG koncowe: \" -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 \"Alkoholu: ... %\" -font myFont
\npack .w.w<\/p>\n

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

# Przeliczenie ilosci alkoholu
\n set wynik1 [expr ($blg1w-$blg2w)\/1.938]
\n .w.w configure -text \"Alkoholu: $wynik1 %\"<\/p>\n

}
\npack .w.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":"

Jeszcze jedno narz\u0119dzie dla piwowar\u00f3w. Skrypcik w Tcl\/Tk dzia\u0142aj\u0105cy na ka\u017cdym systemie z zainstalowanym interpretatorem tego j\u0119zyka. Poni\u017cszy kod nale\u017cy przekopiowa\u0107 do pliku tekstowego z rozszerzeniem „.tcl”. Ja u\u017cywam na smartfonowym Androidzie z zainstalowanym \u015brodowiskiem AndroWish. Co do dzia\u0142ania programu: „Blg pocz\u0105tkowe”, to Blg przed rozpocz\u0119ciem fermentacji, natomiast „Blg ko\u0144cowe”, to to, kt\u00f3re aktualnie odczytujemy […]<\/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":[440,332,92,418],"class_list":["post-5294","post","type-post","status-publish","format-standard","hentry","category-tcltk","tag-oblicz_alkohol-tcl","tag-piwo","tag-program","tag-tcltk"],"_links":{"self":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5294","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=5294"}],"version-history":[{"count":3,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5294\/revisions"}],"predecessor-version":[{"id":5297,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/5294\/revisions\/5297"}],"wp:attachment":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5294"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}