好用連續單鍵輸入 (不需按 pushbutton, 不飆 CPU 風扇 喔!)

[shinho]

Q:
;;DOS He5 舊程式

[%@ret="0"] ;;return char for use
[repeat 9][message %@ret][waitkey] ;;飆 CPU 風扇
[%@ret="%@ret%WaitKey]
[heavy_work] ;;heavy work need [%@ret]
[end][message 完成輸入: %@ret][delay 45]

=========================================
;;windows 漢書 xp 版升級程式 (請先進提供寶貴意見!)

[%@ret="0"][strlen %@ret][%n=9-%Len]
[resetdialog 等待輸入]
[dialogbox 等待輸入,-1,-1,150,36,180000]
[edittext "NULL", 1, 2, 4, 12, 12][ltext 連續鍵: %@ret, 18, 6]
[enddialog][%i=1]
[repeat %n][waitkey][%@ret="%@ret%WaitKey"]
[if %i==%n][break]
[end][resetdialog 等待輸入]
[dialogbox 等待輸入,-1,-1,150,36,180000]
[edittext %WaitKey, 1, 2, 4, 12, 12][ltext 連續鍵: %@ret, 18, 6]
[enddialog][%i=%i+1]
[end][message_ok 完成輸入: %@ret]

[shinho]

熱絡一下漢書討論區,分享心得! 請測試並提出意見
;; 快速輸入體積 size 輸入
[%size=""][%ky="NULL"][%tiny=1][%ko=1]
[repeat 16][strlen %size][%nk=%Len]
[if %Len > 10][break]
[end][message ( -:去點 +EnEn: )]

[resetdialog 快速輸入][dialogbox 快速輸入, -1, -1,140,40,18000]
[edittext %ky, 1, 2, 4, 8, 12][ltext 測量大小: %size, 12, 6]
[ltext (數字: 0~9 不需 .*點乘 減_去小數點), 12, 24]
[enddialog][waitkey] ;;輸入數字 逐一字元輸入

[if %WaitKey=='p-enter'||%WaitKey=='p-plus'][break]
[elseif %WaitKey=='p-minus']
[if %nk >1][strright %size 1][%k=%String]
[strleft %size %nk-2][%size="%String%k"]
[else][%k1=1] ;;開頭 數字
[%size=""][message 已到 數字最前 !][beep][delay 12]
[end]
[else][if %ko==1][cursor data][end line]' ;;'
[end]"%WaitKey"[left]
[if %Ascii >47 && %Ascii <58] ;;只能輸入數字
[if %ko==1][%ko=0] ;; ko=0 切換 已過開頭數字
[if %WaitKey=="0"][%tiny=0]
[end][%size="%WaitKey"][%kf="."] ;;Key following
[else]
[if %kf=="."][%size="%size.%WaitKey"][%kf="*"]
[else]
[if %tiny==0][%size="%size*0.%WaitKey"][%kf="*"]
[else][%size="%size*%WaitKey"][%kf="."]
[end]
[end]
[end][%ky=%WaitKey] ;;display key in the dialog
[else][sound 60 523,659]
[message 只能輸入數字: %WaitKey ! (非數字)]
[delay 18]
[end][right]
[end]
[end][/ ;;/-][right][erase end line]
[message_ok %size][left]
;; 體積大小 輸入完成