{"id":26,"date":"2007-03-03T03:33:49","date_gmt":"2007-03-03T01:33:49","guid":{"rendered":"http:\/\/www.kosmala.pl\/?p=26"},"modified":"2012-12-16T19:20:53","modified_gmt":"2012-12-16T18:20:53","slug":"naumiacz","status":"publish","type":"post","link":"http:\/\/www.kosmala.pl\/?p=26","title":{"rendered":"Naumiacz"},"content":{"rendered":"

Niewyszukany programik z niewyszukanym imieniem – napisany w Tcl\/Tk. Chlebak jak sama nazwa wskazuje s\u0142u\u017cy do noszenia granat\u00f3w, a naumiacz do naumiewania si\u0119 na pami\u0119\u0107 s\u0142\u00f3wek z j\u0119zyk\u00f3w sobie obcych. Przy uruchomieniu program prosi nas o podanie pliku ze s\u0142\u00f3wkami. Plikiem tym jest zwyk\u0142y plik tekstowy o uk\u0142adzie:<\/p>\n

s\u0142\u00f3wko obce – t\u0142umaczenie
\ns\u0142\u00f3wko obce – t\u0142umaczenie
\ns\u0142\u00f3wko obce – t\u0142umaczenie<\/p>\n

kt\u00f3ry mo\u017cemy sobie tworzy\u0107 na bie\u017c\u0105co w byle notatniku (ucz\u0105c si\u0119 np. z ksi\u0105\u017cki). Program traktuje my\u015blnik jako oddzielenie obcego s\u0142\u00f3wka od rodzimego t\u0142umaczenia.<\/p>\n

Po wczytaniu pliku ze s\u0142\u00f3wkami do nauczenia, jeste\u015bmy proszeni o wybranie rozdzia\u0142u. Ka\u017cdy rozdzia\u0142 to ile\u015btam (ile? – to do ustawienia w kodzie programu) kolejnych s\u0142\u00f3w z pliku s\u0142\u00f3wek.<\/p>\n

\"naumiacz11.png\"<\/p>\n

I rozpoczyna si\u0119 nauka. Wiecie jak najefektywniej szkoli si\u0119 \u017co\u0142nierzy w zabijaniu na polu walki? Ustawia im si\u0119 ruchome tarcze, kt\u00f3re pojawiaj\u0105 si\u0119 na moment zza krzaka lub pag\u00f3rka i po sekundzie znowu chowaj\u0105. \u017bo\u0142nierz nie ma czasu na zastanawianie si\u0119 nad poci\u0105gni\u0119ciem za spust – widzi cel, to musi bezmy\u015blnie strzeli\u0107, bo cel si\u0119 ju\u017c chowa. Odruch… Z programikiem naumiacz zasada nauki s\u0142\u00f3wek jest podobna, widzisz s\u0142owo i musisz jak najszybciej zaznaczy\u0107 jedn\u0105 z trzech mo\u017cliwo\u015bci t\u0142umaczenia. Widzisz s\u0142\u00f3wko – klikasz t\u0142umaczenie, widzisz s\u0142\u00f3wko – klikasz t\u0142umaczenie, itd. Czasu nic nie odlicza – za\u0142o\u017cy\u0142em, \u017ce korzystaj\u0105cy z naumiacza robi to z w\u0142asnej ch\u0119ci, ma wystarczaj\u0105c\u0105, dobrowoln\u0105 motywacj\u0119 do nauki i nie trzeba go stresowa\u0107 u\u0142amkami sekund \ud83d\ude09<\/p>\n

\"naumiacz2.png\"<\/p>\n

#!\/usr\/bin\/wish
\n#
\n# naumiacz.tcl – program do nauki s\u0142\u00f3wek.
\n# Autor: miroslaw.kosmala@trilowcy.org
\n#
\n###<\/font><\/p>\n

###
\n# Kolorystyka
\ntk_setPalette gray90<\/font><\/p>\n

# Ile s\u0142\u00f3wek ma zawiera\u0107 jeden dzia\u0142 (stan zak\u0142adany – 1}?
\n# max 10<\/font><\/p>\n

set il_w_dziale 9<\/font><\/p>\n

font create base_font -family Helvetica -size 14 -weight normal
\nfont create word_font -family Helvetica -size 16 -weight bold<\/font><\/p>\n

proc losowa max {
\nset temp [expr rand()]
\nset temp [split $temp {.}]
\nset temp [split [lindex $temp 1] {}]
\nif { [lindex $temp 0] > $max } {
\nwhile { [lindex $temp 0] > $max } {
\nset temp [expr rand()]
\nset temp [split $temp {.}]
\nset temp [split [lindex $temp 1] {}]
\n}<\/font><\/p>\n

return [lindex $temp 0]
\n}<\/font><\/p>\n

proc dawaj_slowa {} {
\nglobal rozdzial
\nglobal slowka
\nglobal tlumaczenia
\nglobal il_w_dziale<\/font><\/p>\n

set index [losowa $il_w_dziale]<\/font><\/p>\n

set index2 [losowa $il_w_dziale]
\nwhile { $index == $index2 } {
\nset index2 [losowa $il_w_dziale]
\n}
\nset index3 [losowa $il_w_dziale]
\nwhile { $index == $index3 || $index2 == $index3 } {
\nset index3 [losowa $il_w_dziale]
\n}<\/font><\/p>\n

.f.sl configure -text „[lindex $slowka($rozdzial) $index]” -font word_font<\/font><\/p>\n

global poprawne<\/font><\/p>\n

set pozycja [losowa 2]
\nif { $pozycja == 0 } {
\n.f.f.g configure -text „[lindex $tlumaczenia($rozdzial) $index]” \\
\n-font word_font
\n.f.f.s configure -text „[lindex $tlumaczenia($rozdzial) $index2]” \\
\n-font word_font
\n.f.f.d configure -text „[lindex $tlumaczenia($rozdzial) $index3]” \\
\n-font word_font
\nset poprawne „jeden”
\n}
\nif { $pozycja == 1 } {
\n.f.f.g configure -text „[lindex $tlumaczenia($rozdzial) $index2]” \\
\n-font word_font
\n.f.f.s configure -text „[lindex $tlumaczenia($rozdzial) $index]” \\
\n-font word_font
\n.f.f.d configure -text „[lindex $tlumaczenia($rozdzial) $index3]” \\
\n-font word_font
\nset poprawne „dwa”
\n}
\nif { $pozycja == 2 } {
\n.f.f.g configure -text „[lindex $tlumaczenia($rozdzial) $index2]” \\
\n-font word_font
\n.f.f.s configure -text „[lindex $tlumaczenia($rozdzial) $index3]” \\
\n-font word_font
\n.f.f.d configure -text „[lindex $tlumaczenia($rozdzial) $index]” \\
\n-font word_font
\nset poprawne „trzy”
\n}<\/font><\/p>\n

}<\/font><\/p>\n

# ——————————————————
\n# — PROCEDURA PRACY —
\n# ——————————————————
\nproc praca {widget rozdzial} {
\ndestroy $widget<\/font><\/p>\n

frame .f
\nlabel .f.top -text „NAUKA” -relief raised -font base_font
\nlabel .f.sep1 -text ” ”
\nlabel .f.sl
\nframe .f.f
\nlabel .f.f.g -text ” *** ” -font word_font \\
\n-background white -foreground black
\nlabel .f.f.s -text ” *** ” -font word_font \\
\n-background white -foreground black
\nlabel .f.f.d -text ” *** ” -font word_font \\
\n-background white -foreground black<\/font><\/p>\n

label .f.sep -text ” ”
\npack .f .f.top .f.sep1 .f.sl .f.f .f.f.g .f.f.s .f.f.d .f.sep -expand no -fill x<\/font><\/p>\n

frame .f.b
\nbutton .f.b.j -text ” Dzia\u0142 ” -font base_font -command { dawaj_rozdzial .f}
\nbutton .f.b.d -text ” Koniec ” -font base_font -command {exit}
\npack .f.b -expand no -fill x
\npack .f.b.j .f.b.d -expand no -fill x -side left<\/font><\/p>\n

dawaj_slowa<\/font><\/p>\n

# ———————-
\n# — ZDARZENIA —
\n# –
\nbind .f.f.g {
\n.f.f.g configure -background navy -foreground yellow
\n.f.f.s configure -background white -foreground black
\n.f.f.d configure -background white -foreground black
\n}
\nbind .f.f.s {
\n.f.f.g configure -background white -foreground black
\n.f.f.s configure -background navy -foreground yellow
\n.f.f.d configure -background white -foreground black
\n}
\nbind .f.f.d {
\n.f.f.g configure -background white -foreground black
\n.f.f.s configure -background white -foreground black
\n.f.f.d configure -background navy -foreground yellow
\n}
\n# —
\nbind .f.f.g {
\nglobal poprawne
\nif { $poprawne != „jeden” } {
\ntk_dialog {.con} { Kontrola } { PUD\u0141O!!!} {} 0 { O.K }
\n} else {
\ndawaj_slowa
\n}
\n}
\nbind .f.f.s {
\nglobal poprawne
\nif { $poprawne != „dwa” } {
\ntk_dialog {.con} { Kontrola } { PUD\u0141O!!!} {} 0 { O.K }
\n} else {
\ndawaj_slowa
\n}
\n}
\nbind .f.f.d {
\nglobal poprawne
\nif { $poprawne != „trzy” } {
\ntk_dialog {.con} { Kontrola } { PUD\u0141O!!!} {} 0 { O.K }
\n} else {
\ndawaj_slowa
\n}
\n}<\/font><\/p>\n

}
\nset poprawne „”
\n# ——————————————————
\n# — PROCEDURA WYBORU ROZDZIA\u0141U —
\n# ——————————————————
\nproc dawaj_rozdzial {widget} {<\/font><\/p>\n

if { $widget != „null” } {
\ndestroy $widget
\n}
\nglobal il_nazwa
\nglobal il_slow
\nglobal rozdzial<\/font><\/p>\n

frame .f
\npack .f -expand yes -fill both<\/font><\/p>\n

label .f.top -text „WYB\u00d3R ROZDZIA\u0141U” -font base_font -relief raised
\nlabel .f.op -text „Do dyspozycji jest $il_slow sl\u00f3w\\nw $il_nazwa rozdzialach.” \\
\n-font base_font
\nlabel .f.wyb -text „Do opanowania wybieram\\nrozdzia\u0142 nr ” \\
\n-font base_font<\/font><\/p>\n

spinbox .f.sb -from 1 -to $il_nazwa -width 3<\/font><\/p>\n

label .f.sep -text ” ”
\npack .f.top .f.op .f.wyb -expand yes -fill x
\npack .f.sb .f.sep -expand no<\/font><\/p>\n

frame .f.b
\npack .f.b -expand no -fill x
\nbutton .f.b.b1 -text ” O.K ” -font base_font -command {
\nset rozdzial [.f.sb get]
\npraca .f [expr $rozdzial-1]
\n}
\nbutton .f.b.b2 -text ” Zamknij ” -command {exit} -font base_font
\npack .f.b.b1 .f.b.b2 -expand no -fill x -side right<\/font><\/p>\n

}
\n# ——————————————————<\/font><\/p>\n

wm title . „Naumiacz II”
\n#wm geometry . 200×300<\/font><\/p>\n

# Dawaj plik s\u0142ownika
\nif [catch { set fdes [open [tk_getOpenFile] r]} dupa ] {
\nputs „B\u0142\u0105d: Nie mog\u0119 otworzy\u0107 pliku z danymi\\n”
\nexit 1
\n}<\/font><\/p>\n

list slowka
\nlist tlumaczenia<\/font><\/p>\n

set il_tmp 0
\nset il_nazwa 0
\nset il_slow -1<\/font><\/p>\n

while { [gets $fdes wiersz] != -1 } {<\/font><\/p>\n

set tmp [split $wiersz {-}]
\nlappend slowka($il_nazwa) [lindex $tmp 0]
\nlappend tlumaczenia($il_nazwa) [lindex $tmp 1]<\/font><\/p>\n

if {$il_tmp != $il_w_dziale} {
\nset il_tmp [expr $il_tmp + 1]
\n} else {
\nset il_tmp 0
\nset il_nazwa [expr $il_nazwa + 1]
\n}<\/font><\/p>\n

set il_slow [expr $il_slow + 1]
\n}
\nunset tmp
\nunset il_tmp<\/font><\/p>\n

# —
\n# Dawaj na pocz\u0105tek wyb\u00f3r rozdzia\u0142u
\ndawaj_rozdzial null<\/font><\/p>\n

—<\/p>\n

No tak – wszystko powy\u017csze fajnie, ale co gdy mamy plik ze s\u0142\u00f3wkami: s\u0142owo obce – t\u0142umaczenie, a nam jest potrzebny plik: t\u0142umaczenie – s\u0142owo obce ? Po prostu, korzystamy z konsolowego konwentera plik\u00f3w ze s\u0142\u00f3wkami.<\/p>\n

\"konwenter.png\"<\/p>\n

#!\/usr\/bin\/tcl
\n#
\n# konwerter.tcl – program zamieniaj\u0105cy miejscami slowa oddzielone
\n# my\u015blnikiem (czyli. „s\u0142\u00f3wko – t\u0142umaczenie” na
\n# t\u0142umaczenie – s\u0142owko), przewidziany jako wspomaganie
\n# do programu NAUMIACZ
\n#
\n#
\n# Autor: Miros\u0142aw 'mk23z’ Kosmala Resko, dn. 04.09.2003r
\n# maito: miroslaw.kosmala@trilowcy.org godz. 22:09
\n#
\n#<\/font>####
\n# Sprawdzenie parametr\u00f3w wywo\u0142ania<\/font><\/p>\n

if { $argc == 0 || $argc == 1 } {<\/font><\/p>\n

puts „”
\nputs ” Podaj parametry wywo\u0142ania:”
\nputs „”
\nputs ” BASH>konwerter.tcl ”
\nputs „”
\nexit
\n}<\/font><\/p>\n

####
\n# Otwarcie plik\u00f3w roboczych<\/font><\/p>\n

if [catch {set fin [open [lindex $argv 0] r]} dupa] {
\nputs „”
\nputs „B\u0142\u0105d: Nie mog\u0119 otworzy\u0107 pliku <[lindex $argv 0]> do odczytu…”
\nputs „”
\nexit
\n}
\nif [catch {set fout [open [lindex $argv 1] w]} dupa] {
\nputs „”
\nputs „B\u0142\u0105d: Nie mog\u0119 otworzy\u0107 pliku <[lindex $argv 1]> do zapisu…”
\nputs „”
\nexit
\n}<\/font><\/p>\n

####
\n# Praca<\/font><\/p>\n

# Flaga zlicznika
\nset zlicznik 0<\/font><\/p>\n

while { [gets $fin inline] != -1 } {
\nset inline [split $inline {-}]
\nputs $fout „[lindex $inline 1] – [lindex $inline 0]”
\nset zlicznik [expr $zlicznik+1]
\n}<\/font><\/p>\n

####
\n# Sprz\u0105tanie po sobie<\/font><\/p>\n

close $fin
\nclose $fout<\/font><\/p>\n

# Raport
\nputs „——————————————–”
\nputs ” Gotowe… przerobiono $zlicznik wierszy s\u0142\u00f3wek…\\n”<\/font><\/p>\n

exit<\/font><\/p>\n","protected":false},"excerpt":{"rendered":"

Niewyszukany programik z niewyszukanym imieniem – napisany w Tcl\/Tk. Chlebak jak sama nazwa wskazuje s\u0142u\u017cy do noszenia granat\u00f3w, a naumiacz do naumiewania si\u0119 na pami\u0119\u0107 s\u0142\u00f3wek z j\u0119zyk\u00f3w sobie obcych.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14,13],"tags":[],"class_list":["post-26","post","type-post","status-publish","format-standard","hentry","category-programy","category-tcltk"],"_links":{"self":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/26","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=26"}],"version-history":[{"count":1,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/26\/revisions"}],"predecessor-version":[{"id":3879,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/26\/revisions\/3879"}],"wp:attachment":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=26"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=26"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=26"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}