[ 99BASIC ] 日曜プログラマー [ DarkBASIC ]

[ 99BASIC ] 日曜プログラマー [ DarkBASIC ]at PROG

[ 99BASIC ] 日曜プログラマー [ DarkBASIC ] - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

50:仕様書無しさん
 11/10/14 08:29:19.94 
 
【訃報】C言語の開発者、デニス・リッチー氏が死去--享年70 [10/13] 
http://toki.2ch.net/test/read.cgi/bizplus/1318487508/l50

51:仕様書無しさん
 11/10/14 08:31:40.97 
 
【訃報】Apple社 前CEO スティーブ・ジョブズ氏死去[10/06] 
http://toki.2ch.net/test/read.cgi/bizplus/1317859133/l50

52:─☆─ [ X | I.I.T. ] COURANT DE CONSOLE  ◆TXFAX7cidQpG 
 11/10/15 08:40:51.26 
…ってなワケで、今回はマルチタスクについてお勉強しようね♪（アハ♪” 
 
99BASICで簡単な動作原理を書いておく。 
 
タイマー割り込みを利用して各タスクに持ち時間を与えて動作させていく。 
 
今回のプログラムではシグナルやセマフォは付けていないが、付ければプロセス間通信も可能になる。 
 
プログラムを実行しながら各タスクの動作状況が分かる面白い仕組みだ…。

53:─☆─ [ X | I.I.T. ] COURANT DE CONSOLE  ◆TXFAX7cidQpG 
 11/10/15 08:42:00.47 
    1 'save"multitask2011_10_15_01.bas",a 
  100 DEFINT A-Z:WIDTH 80,25:SCREEN 3 
  110 CT=0:TS=0 
  120 ON INTERVAL GOSUB *TSYNC:INTERVAL ON,100 
  130 GOTO 130 
  140 ' 
  150 *PROC1 
  160 LINE(0,16*1)-(639,16*2-1),0,BF 
  170 J1=0 
  180 LINE(J1*2,16*1)-(J1*2+1,16*2-1),1,BF 
  190 J1=J1+1:IF J1<320 THEN 180 
  200 GOTO 200 
  210 ' 
  220 *PROC2 
  230 LINE(0,16*3)-(639,16*4-1),0,BF 
  240 J2=0 
  250 LINE(J2*2,16*3)-(J2*2+1,16*4-1),2,BF 
  260 J2=J2+1:IF J2<320 THEN 250 
  270 GOTO 270 
  280 ' 
  290 *PROC3 
  300 LINE(0,16*5)-(639,16*6-1),0,BF 
  310 J3=0 
  320 LINE(J3*2,16*5)-(J3*2+1,16*6-1),3,BF 
  330 J3=J3+1:IF J3<320 THEN 320 
  340 GOTO 340 
  350 ' 
  360 *PROC4 
  370 LINE(0,16*7)-(639,16*8-1),0,BF 
  380 J4=0 
  390 LINE(J4*2,16*7)-(J4*2+1,16*8-1),4,BF 
  400 J4=J4+1:IF J4<320 THEN 390

次ページ