تويت
هذا امر معرفت الايام حطه بالريموت
انصخه من بعد الخط
-------------------------
Alias Status {
/Window -ato @اليوم
if ($day == Saturday) { /Aline -i @اليوم 6ــ 5اليوم الـــسبت 6ــ }
if ($day == Sunday) { /Aline -i @اليوم 6ــ 5اليوم الأحــد 6ــ }
if ($day == Monday) { /Aline -i @اليوم 6ــ 5اليوم الأثنيـن 6ــ }
if ($day == Tuesday) { /Aline -i @اليوم 6ــ 5اليوم الثلاثاء 6ــ }
if ($day == Wednesday) { /Aline -i @اليوم 6ــ 5اليوم الأربعــاء 6ــ }
if ($day == Thursday) { /Aline -i @اليوم 6ــ 5اليوم الخميس 6ــ }
if ($day == Friday) { /Aline -i @اليوم 6ــ 5اليوم الجمعه 6ــ }
}
Menu Status {
اليوم أي يوم:/status
}
----------------------------------
هذي الاله الحاسبه من بعد الخط تنصخه حطه بالريموت
-------------------------
dialog cal {
title "calculator - by ABDULLAH"
size 100 100 235 280
button "C&lose", 69, 175 240 50 30, ok
button "7", 7, 10 30 50 30, default
button "4", 4, 10 65 50 30, default
button "1", 1, 10 100 50 30, default
button "8", 8, 65 30 50 30, default
button "5", 5, 65 65 50 30, default
button "2", 2, 65 100 50 30, default
button "9", 9, 120 30 50 30, default
button "6", 6, 120 65 50 30, default
button "3", 3, 120 100 50 30, default
button "&Sqareroot", 10, 175 30 50 30, default
button "/", 11, 10 170 50 30, default
button "x", 12, 65 170 50 30, default
button "-", 13, 175 65 50 30, default
button "+", 14, 175 100 50 30, default
button "0", 15, 10 135 50 30, default
button ".", 16, 65 135 50 30, default
button "(", 17, 120 135 50 30, default
button ")", 22, 175 135 50 30, default
button "^", 20, 120 170 50 30, default
button "=", 21, 175 170 50 30, default
button "B&ack", 19, 10 240 50 30, default
button "Cl&ear", 23, 95 240 50 30, default
button "&Average Nu&mbers", 24, 10 205 105 30, default
button "&Memory &Manager", 25, 120 205 105 30
edit "", 18, 10 7 220 20, read
}
on *:dialog:cal:*:*: {
if ($devent == sclick) {
if ($did == 24) { dialog -m avg avg }
if ($did == 25) { dialog -m mem mem | mem }
if ($did == 15) { did -a cal 18 0 }
if ($did == 1) { did -a cal 18 1 }
if ($did == 2) { did -a cal 18 2 }
if ($did == 3) { did -a cal 18 3 }
if ($did == 4) { did -a cal 18 4 }
if ($did == 5) { did -a cal 18 5 }
if ($did == 6) { did -a cal 18 6 }
if ($did == 7) { did -a cal 18 7 }
if ($did == 8) { did -a cal 18 8 }
if ($did == 9) { did -a cal 18 9 }
if ($did == 10) { set %sqr $did(cal,18).text | did -r cal 18 | did -a cal 18 $calc( %sqr ^ (1/2)) | unset %sqr }
if ($did == 11) { did -a cal 18 / }
if ($did == 12) { did -a cal 18 * }
if ($did == 13) { did -a cal 18 - }
if ($did == 14) { did -a cal 18 + }
if ($did == 16) { did -a cal 18 . }
if ($did == 19) { set %back $did(cal,18).text | did -o cal 18 1 $left(%back,$calc($len(%back) - 1)) | unset %back }
if ($did == 21) { set %eq $calc($did(cal,18).text) | did -r cal 18 | did -a cal 18 %eq | unset %eq }
if ($did == 17) { did -a cal 18 ( }
if ($did == 20) { did -a cal 18 ^ }
if ($did == 22) { did -a cal 18 ) }
if ($did == 23) { did -r cal 18 }
}
}
dialog avg {
title "Average Numbers"
size 340 100 235 100
button "C&lose", 1, 175 65 50 30, ok
button "&Average", 4, 10 65 50 30, default
button "&Clear", 6, 95 65 50 30, default
text "Numbers separated by commas:", 2, 50 10 180 20
edit "", 3, 10 25 215 20, right autohs
}
on *:dialog:avg:*:*: {
if ($devent == sclick) {
if ($did == 4) { set %avg $avg($did(avg,3).text) | did -r avg 3 | did -a avg 3 %avg | unset %avg }
if ($did == 6) { did -r avg 3 }
if ($did == 5) { set %back $did(cal,18).text | did -o cal 18 1 $left(%back,$calc($len(%back) - 1)) | unset %back }
}
}
alias calc { dialog -m cal cal }
alias avg {
set %avgstr1 $replace($1-,$chr(44),$chr(32))
set %avgsnum $numtok(%avgstr1,32)
set %avgstr $replace(%avgstr1,$chr(32),$chr(43))
set %avgstr2 $calc(%avgstr)
set %avgcalc $calc( %avgstr2 / %avgsnum )
unset %avgs* | .timerunset 1 3 unset %avgcalc
return %avgcalc
}
dialog mem {
title "Memory Manager"
size 340 125 290 215
button "Close", 1, 230 135 50 30, ok
button "Help", 8, 230 175 50 30, default
button "M+", 3, 230 95 50 30, default
button "M-", 4, 230 55 50 30, default
button "MC", 6, 230 15 50 30, default
list 2, 10 15 215 160, autohs
edit "", 7, 10 170 215 20, right autohs
}
dialog memhelp {
title "Memory Help"
size -1 -1 200 260
button "OK", 1, 145 225 50 30, ok
text "MC; Clears all memory strings.", 2, 10 20 150 20
text "M-; Deletes a single memory string from the list. Select the string, and hit the button.", 3, 10 50 150 50
text "M+; Adds a single memory string to the list. Type the memory string into the edit box at the bottom of the 'Memory Manager' box, and click the button.", 4, 10 100 190 80
text "Close; Self Explanitory. Closes the 'Memory Manger' box.", 5, 10 165 180 30
text "Double click a memory string to place it in the calculator.", 6, 10 200 160 25
}
on *:dialog:mem:*:*: {
if ($devent == sclick) {
if ($did == 3) { did -a mem 2 $did(mem,7).text | did -r mem 7 }
if ($did == 1) {
:loop
inc %close
if ($did(mem,2,%close).text == $null) { dialog -x mem | dec %close | halt }
else { set %close. [ $+ [ %close ] ] $did(mem,2,%close) | goto loop }
}
if ($did == 4) { if ($did(mem,2).sel == $null) { halt } | else { unset %close. [ $+ [ $did(mem,2).sel ] ] | dec %close | did -d mem 2 $did(mem,2).sel } }
if ($did == 6) { unset %close* | dialog -x mem }
if ($did == 8) { dialog -m memhelp memhelp }
}
if ($devent == dclick) { did -a cal 18 $did(mem,2,$did(mem,2).sel).text }
}
alias mem {
:loop
inc %mem1
if ( %close. [ $+ [ %mem1 ] ] == $null) && ( %close. [ $+ [ $calc(%mem1 + 1) ] ] == $null) && ( %close. [ $+ [ $calc(%mem1 + 2) ] ] == $null) { unset %mem1 | halt }
else { did -a mem 2 %close. [ $+ [ %mem1 ] ] | goto loop }
}
menu status,channel,query {
-
الحاسبة:/calc
-
}
انصخه من بعد الخط
-------------------------
Alias Status {
/Window -ato @اليوم
if ($day == Saturday) { /Aline -i @اليوم 6ــ 5اليوم الـــسبت 6ــ }
if ($day == Sunday) { /Aline -i @اليوم 6ــ 5اليوم الأحــد 6ــ }
if ($day == Monday) { /Aline -i @اليوم 6ــ 5اليوم الأثنيـن 6ــ }
if ($day == Tuesday) { /Aline -i @اليوم 6ــ 5اليوم الثلاثاء 6ــ }
if ($day == Wednesday) { /Aline -i @اليوم 6ــ 5اليوم الأربعــاء 6ــ }
if ($day == Thursday) { /Aline -i @اليوم 6ــ 5اليوم الخميس 6ــ }
if ($day == Friday) { /Aline -i @اليوم 6ــ 5اليوم الجمعه 6ــ }
}
Menu Status {
اليوم أي يوم:/status
}
----------------------------------
هذي الاله الحاسبه من بعد الخط تنصخه حطه بالريموت
-------------------------
dialog cal {
title "calculator - by ABDULLAH"
size 100 100 235 280
button "C&lose", 69, 175 240 50 30, ok
button "7", 7, 10 30 50 30, default
button "4", 4, 10 65 50 30, default
button "1", 1, 10 100 50 30, default
button "8", 8, 65 30 50 30, default
button "5", 5, 65 65 50 30, default
button "2", 2, 65 100 50 30, default
button "9", 9, 120 30 50 30, default
button "6", 6, 120 65 50 30, default
button "3", 3, 120 100 50 30, default
button "&Sqareroot", 10, 175 30 50 30, default
button "/", 11, 10 170 50 30, default
button "x", 12, 65 170 50 30, default
button "-", 13, 175 65 50 30, default
button "+", 14, 175 100 50 30, default
button "0", 15, 10 135 50 30, default
button ".", 16, 65 135 50 30, default
button "(", 17, 120 135 50 30, default
button ")", 22, 175 135 50 30, default
button "^", 20, 120 170 50 30, default
button "=", 21, 175 170 50 30, default
button "B&ack", 19, 10 240 50 30, default
button "Cl&ear", 23, 95 240 50 30, default
button "&Average Nu&mbers", 24, 10 205 105 30, default
button "&Memory &Manager", 25, 120 205 105 30
edit "", 18, 10 7 220 20, read
}
on *:dialog:cal:*:*: {
if ($devent == sclick) {
if ($did == 24) { dialog -m avg avg }
if ($did == 25) { dialog -m mem mem | mem }
if ($did == 15) { did -a cal 18 0 }
if ($did == 1) { did -a cal 18 1 }
if ($did == 2) { did -a cal 18 2 }
if ($did == 3) { did -a cal 18 3 }
if ($did == 4) { did -a cal 18 4 }
if ($did == 5) { did -a cal 18 5 }
if ($did == 6) { did -a cal 18 6 }
if ($did == 7) { did -a cal 18 7 }
if ($did == 8) { did -a cal 18 8 }
if ($did == 9) { did -a cal 18 9 }
if ($did == 10) { set %sqr $did(cal,18).text | did -r cal 18 | did -a cal 18 $calc( %sqr ^ (1/2)) | unset %sqr }
if ($did == 11) { did -a cal 18 / }
if ($did == 12) { did -a cal 18 * }
if ($did == 13) { did -a cal 18 - }
if ($did == 14) { did -a cal 18 + }
if ($did == 16) { did -a cal 18 . }
if ($did == 19) { set %back $did(cal,18).text | did -o cal 18 1 $left(%back,$calc($len(%back) - 1)) | unset %back }
if ($did == 21) { set %eq $calc($did(cal,18).text) | did -r cal 18 | did -a cal 18 %eq | unset %eq }
if ($did == 17) { did -a cal 18 ( }
if ($did == 20) { did -a cal 18 ^ }
if ($did == 22) { did -a cal 18 ) }
if ($did == 23) { did -r cal 18 }
}
}
dialog avg {
title "Average Numbers"
size 340 100 235 100
button "C&lose", 1, 175 65 50 30, ok
button "&Average", 4, 10 65 50 30, default
button "&Clear", 6, 95 65 50 30, default
text "Numbers separated by commas:", 2, 50 10 180 20
edit "", 3, 10 25 215 20, right autohs
}
on *:dialog:avg:*:*: {
if ($devent == sclick) {
if ($did == 4) { set %avg $avg($did(avg,3).text) | did -r avg 3 | did -a avg 3 %avg | unset %avg }
if ($did == 6) { did -r avg 3 }
if ($did == 5) { set %back $did(cal,18).text | did -o cal 18 1 $left(%back,$calc($len(%back) - 1)) | unset %back }
}
}
alias calc { dialog -m cal cal }
alias avg {
set %avgstr1 $replace($1-,$chr(44),$chr(32))
set %avgsnum $numtok(%avgstr1,32)
set %avgstr $replace(%avgstr1,$chr(32),$chr(43))
set %avgstr2 $calc(%avgstr)
set %avgcalc $calc( %avgstr2 / %avgsnum )
unset %avgs* | .timerunset 1 3 unset %avgcalc
return %avgcalc
}
dialog mem {
title "Memory Manager"
size 340 125 290 215
button "Close", 1, 230 135 50 30, ok
button "Help", 8, 230 175 50 30, default
button "M+", 3, 230 95 50 30, default
button "M-", 4, 230 55 50 30, default
button "MC", 6, 230 15 50 30, default
list 2, 10 15 215 160, autohs
edit "", 7, 10 170 215 20, right autohs
}
dialog memhelp {
title "Memory Help"
size -1 -1 200 260
button "OK", 1, 145 225 50 30, ok
text "MC; Clears all memory strings.", 2, 10 20 150 20
text "M-; Deletes a single memory string from the list. Select the string, and hit the button.", 3, 10 50 150 50
text "M+; Adds a single memory string to the list. Type the memory string into the edit box at the bottom of the 'Memory Manager' box, and click the button.", 4, 10 100 190 80
text "Close; Self Explanitory. Closes the 'Memory Manger' box.", 5, 10 165 180 30
text "Double click a memory string to place it in the calculator.", 6, 10 200 160 25
}
on *:dialog:mem:*:*: {
if ($devent == sclick) {
if ($did == 3) { did -a mem 2 $did(mem,7).text | did -r mem 7 }
if ($did == 1) {
:loop
inc %close
if ($did(mem,2,%close).text == $null) { dialog -x mem | dec %close | halt }
else { set %close. [ $+ [ %close ] ] $did(mem,2,%close) | goto loop }
}
if ($did == 4) { if ($did(mem,2).sel == $null) { halt } | else { unset %close. [ $+ [ $did(mem,2).sel ] ] | dec %close | did -d mem 2 $did(mem,2).sel } }
if ($did == 6) { unset %close* | dialog -x mem }
if ($did == 8) { dialog -m memhelp memhelp }
}
if ($devent == dclick) { did -a cal 18 $did(mem,2,$did(mem,2).sel).text }
}
alias mem {
:loop
inc %mem1
if ( %close. [ $+ [ %mem1 ] ] == $null) && ( %close. [ $+ [ $calc(%mem1 + 1) ] ] == $null) && ( %close. [ $+ [ $calc(%mem1 + 2) ] ] == $null) { unset %mem1 | halt }
else { did -a mem 2 %close. [ $+ [ %mem1 ] ] | goto loop }
}
menu status,channel,query {
-
الحاسبة:/calc
-
}
[/align]
تعليق