使用易语言怎么实现多线程计算
生活随笔
收集整理的這篇文章主要介紹了
使用易语言怎么实现多线程计算
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
這篇文章給大家介紹使用易語言怎么實現多線程計算,內容非常詳細,感興趣的小伙伴們可以參考借鑒,希望對大家能有所幫助。
多線程計算
此功能需要加載精易模塊5.6
.版本2 .支持庫iext .程序集窗口程序集1 .程序集變量總線程id,整數型 .程序集變量線程判斷數量,整數型 .程序集變量線程總數,整數型 .程序集變量線程id,整數型 .程序集變量當前表項,整數型 .程序集變量許可證,整數型 .子程序__啟動窗口_創建完畢 .局部變量i1,整數型 .計次循環首(10000,i1) 置隨機數種子() 超級列表框1.插入表項(,,,,,) 超級列表框1.置標題(i1-1,0,到文本(取隨機數(1,99))) 超級列表框1.置標題(i1-1,1,多項選擇(取隨機數(1,4),“加”,“減”,“乘”,“除”)) 超級列表框1.置標題(i1-1,2,到文本(取隨機數(1,99))) .計次循環尾() .子程序_按鈕_啟動_被單擊 總線程id=線程_啟動(&子程序_計算,,) .子程序子程序_計算 .局部變量表項引索,整數型 .判斷循環首(線程判斷數量<超級列表框1.取表項數()) .如果真(線程總數<到整數(編輯框_總線程數.內容)) 線程判斷數量=線程判斷數量+1 線程id=線程_啟動(&子程序_結果) 超級列表框1.置標題(表項引索,3,“計算中”) 表項引索=表項引索+1 線程總數=線程總數+1 .如果真結束 .判斷循環尾() .子程序子程序_結果 .局部變量數值1,雙精度小數型 .局部變量數值2,雙精度小數型 .局部變量計算符號,文本型 .局部變量結果,雙精度小數型 .局部變量i,整數型 當前表項=當前表項+1 i=當前表項-1 數值1=到數值(超級列表框1.取標題(i,0)) 數值2=到數值(超級列表框1.取標題(i,2)) 計算符號=超級列表框1.取標題(i,1) .如果真(計算符號=“加”) 結果=數值1+數值2 .如果真結束 .如果真(計算符號=“減”) 結果=數值1-數值2 .如果真結束 .如果真(計算符號=“乘”) 結果=數值1×數值2 .如果真結束 .如果真(計算符號=“除”) 結果=數值1÷數值2 .如果真結束 程序_延時(1,1) 超級列表框1.置標題(i,3,到文本(結果)) 程序_延時(1,1) 線程總數=線程總數-1 .子程序_按鈕_銷毀_被單擊 線程_銷毀(總線程id) .子程序_按鈕_暫停_被單擊 線程_掛起(總線程id) .子程序_按鈕_恢復_被單擊 線程_恢復(總線程id) .子程序__啟動窗口_將被銷毀 線程_銷毀(總線程id)
運行結果:
總結
總結
以上是生活随笔為你收集整理的使用易语言怎么实现多线程计算的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: linux server添加硬盘,新增硬
- 下一篇: linux+ip+路由设置,Linux下