當前位置:編程學習大全網 - 源碼下載 - 圖書小程序源代碼

圖書小程序源代碼

程序代碼

{

版本2

支持庫shellEx

。支持庫eAPI

。裝配窗裝配1

。程序集變量熱鍵句柄,整數。

。程序集變量計數,整數類型

。子程序_ _開始窗口_已創建

熱鍵句柄=註冊的熱鍵(取窗口句柄(),標簽1。取窗口句柄(),0,#F10鍵)。

子程序_時鐘1_周期性事件

。局部變量編號,文本類型

。局部變量b度,整型。

計數=計數+1

模擬鍵(#A鍵、# 2鍵和#空格鍵)

。計數循環頭(取文本長度(以文本(計數))、計數b)

Number =取文本的中間(對文本(計數),計數B,1)

如果為真(number = "0 ")

模擬鍵(#鍵0,,)

如果真的結束了。

如果為真(number = "1 ")

模擬鍵(#鍵1,,)

如果真的結束了。

如果為真(number = "2 ")

模擬鍵(#鍵2,,)

如果真的結束了。

如果為真(number = "3 ")

模擬鍵(#鍵3,,)

如果真的結束了。

如果為真(number = "4 ")

模擬鍵(#鍵4,,)

如果真的結束了。

如果為真(number = "5 ")

模擬鍵(#鍵5,,)

如果真的結束了。

如果為真(number = "6 ")

模擬鍵(#鍵6,,)

如果真的結束了。

如果為真(number = "7 ")

模擬鍵(#鍵7,,)

如果真的結束了。

如果為真(number = "8 ")

模擬鍵(#鍵8,,)

如果真的結束了。

如果為真(number = "9 ")

模擬鍵(#鍵9,,)

如果真的結束了。

。計數周期尾部()

模擬鍵(#回車鍵,,)

標題=至文本(計數)

。如果為真(計數= 10)

_ Label 1_反饋事件(0,0)

如果真的結束了。

。Subroutine _ Label 1_反饋事件,整型

參數參數1,整數類型

參數參數2,整數類型

。If(時鐘1。時鐘周期= 0)

時鐘1。時鐘周期= 1000。

標簽1。Title = "已打開"

否則。

時鐘1。時鐘周期= 0。

標簽1。Title = "已關閉"

Title = "已關閉"

如果結束了

子程序_ _ Start window _將被銷毀。

撤消熱鍵(取窗口句柄(),熱鍵句柄)

}結束

控件只有兩個,壹個時鐘和壹個標簽。

如果想在沒有其他設置的情況下測試穩定性,可以打開筆記本代碼中的時鐘周期,設置為=1。

速度快,穩定性強,代碼簡單。

如有其他問題,請百度hi

-

對了,如果要控制次數,在時鐘周期子程序裏加個代碼。

補充代碼{

如果為真(count = 100000)'這個100000就是妳限制的次數。

_ Label 1_反饋事件(0,0)

}

  • 上一篇:新手如何選擇股票
  • 下一篇:SystemUI深淺色主題隨壁紙改變的流程探析
  • copyright 2024編程學習大全網