Разное (Miscellaneous)

[lsasha7]

светодиод ЭМР- PORTC,4

[boida]

светодиод ЭМР- PORTC,4

Cпасибо

[lsasha7]

подправил прошивку БК под релиз 02.02.2011. в репозиторий выложить не могу, не принимает логин и пароль.
вот прошивка.

[lsasha7]

в репозитории БК под релиз 02.02.2011, представляете, забыл пароль...

[STC]

1) Пароли нужно записывать и хранить в надежном месте (например в блокнотик записывать)
2) А вот это зачем? http://www.assembla.com/user/forgot_password
lsasha7, ты что с луны упал?

[sergey-forever]

Всем привет начал сборку SECU? скоро буду тестировать. Есть один вопрос БК от Дмитрича работает с последней версией SECU, и лично к Дмитричу, будете ли вы модернизировать ваш БК?

[STC]

Вопросы по БК обсуждайте в этой теме viewtopic.php?f=52&t=1081

[lsasha7]

STC
какая разница откуда я упал, главное я исполнил обещание.

[ender11]

заказал себе вот такую штуку, глядишь, через месяц и придёт: http://www.aliexpress.com/product-fm/40 ... alers.html

[ender11]

запощу я ещё пару файлов -- сам я вряд ли это допилю, а кого-нибудь наведёт на умный мысль:

Code: Select all

#!/home/user/etcl/bin/etcl
set prt "/dev/ttyS0"
set capt [open $prt w+]
fconfigure $capt -encoding ascii -mode 9600,n,8,2 -blocking 0 -buffering line -translation cr
after 200
set data [gets $capt]
set data [gets $capt]
puts $data

и

Code: Select all

#!/home/user/etcl/bin/etcl
package require Tk

set scl 1

canvas .arc -width [expr $scl * 480] -height [expr $scl * 272] -bg black
pack .arc
bind .arc <ButtonPress> {exit}

.arc create arc 16 26 240 220 -start 60 -extent 120 -outline #050 -width 16 -style arc -tag tach1 -dash {26 2}
.arc create text 110 80 -fill green -text "0000" -tag tach2

#.arc create rectangle 210 10 250 120 -fill #444 -dash {8 2}
.arc create line 230 120 230 10 -width 40 -fill #444 -dash {8 2} -tag map1
.arc create text 280 60 -fill green -text "0000" -tag map2


.arc create arc 300 30 520 220 -start 60 -extent 60 -width 8 -style arc -outline yellow
set ang [expr (90.0 / 180.0 * 3.14)]
#set ang 1.5
set x [expr 410 - (cos($ang) * 90.0)]
set y [expr 125 - (sin($ang) * 90.0)]
.arc create text 450 100 -text $ang -fill green -tag voltage1
.arc create line 410 125 $x $y -arrow last -width 3 -fill green -tag voltage2

.arc create arc 16 130 280 410 -start 75 -extent 105 -outline #990 -width 16 -style arc -dash {10 2}
set x 148
set y 140
.arc create line 148 270 $x $y -arrow last -width 3 -fill green -tag uoz

.arc create arc 520 320 260 160 -start 60 -extent 60 -style arc -width 16 -outline green -dash {25 2}
set x 390
set y 173
.arc create line 390 270 $x $y -arrow last -width 3 -fill green -tag temp

.arc create line 100 100 200 200 -dash -.. -tag asasas

.arc scale tach2 0 0 $scl $scl

.arc coords [.arc find withtag asasas] 200 220 100 100

#.arc create arc 18 18 122 122 -start 0 -extent 180 -outline white -width 0 -fill white
#.arc create arc 20 20 120 120 -start 0 -extent 30 -outline red -width 3 -style arc
#.arc create arc 20 20 120 120 -start 30 -extent 150 -outline green -width 3 -style arc


.arc delete [.arc find withtag asasas]

#destroy .arc

маленько рисования тут. для запуска нужно скачать и установить tcl/tk интерпретатор. под виндой мне понравился etcl от evolane. собственно, всё запускается и работает под wince (проверял на 4.3" китайском навигаторе).
приветствуются вопросы.