サブルーチン*CHECK_TABLEは、味方の色(COL:0が黒、1が白)の数を
上から、右上、右、右下、下、左下、左、左上の8つの方向を順番に
数えるプログラムなのですが、上手く動作しません。
出来かけのソースを載せますので、誰か、助けてください。
100 '最初のプログラム(2009/03/18-05:44:23)
110 DIM MASU(640/32,480/32):CLC_X=23*32:CLC_Y=20*32:JUNBN=1
120 DIM CHKTBL_X(7):DIM CHKTBL_Y(7):DIM C(7)
130 CHKTBL_X(0)=0:CHKTBL_Y(0)=-1
140 CHKTBL_X(1)=1:CHKTBL_Y(1)=-1
150 CHKTBL_X(2)=1:CHKTBL_Y(2)=0
160 CHKTBL_X(3)=1:CHKTBL_Y(3)=1
170 CHKTBL_X(4)=0:CHKTBL_Y(4)=1
180 CHKTBL_X(5)=-1:CHKTBL_Y(5)=1
190 CHKTBL_X(6)=-1:CHKTBL_Y(6)=0
200 CHKTBL_X(7)=-1:CHKTBL_Y(7)=-1
210 PALETTE 8,(150,0,0)
220 *MAIN_LOOP'メインループ--------------------------------------------------
230 CLS 3:SCREEN 3,5,0
240 GOSUB *DRAW_TABLE
250 GOSUB *GET_CLICK
260 SCREEN 3,1,0
270 GOTO *MAIN_LOOP '--------------------------------------------------------
280 *DRAW_TABLE
290 LINE(0,0)-(640,480),8,BF '背景色を塗る
300 FOR I=0 TO 640/32
310 FOR J=0 TO 480/32
320 LINE(I*32,J*32)-(I*32+32,J*32+32),7,B '升目を描く
330 CX=I:CY=J
340 IF MASU(CX,CY)=1 THEN CIRCLE(I*32+16,J*32+16),16,0:PAINT(I*32+16,J*32+16),0
350 IF MASU(CX,CY)=2 THEN CIRCLE(I*32+16,J*32+16),16,7:PAINT(I*32+16,J*32+16),7
360 NEXT J'マスの値に応じて円の色を変える
370 NEXT I
380 RETURN
390 *GET_CLICK '-------------------------------------------------------------
400 'GET MOUSE 0,SW,MOUSE_X,MOUSE_Y
410 GET MOUSE 2,SW,CLC_X,CLC_Y 'クリックした座標を取得
420 IF CLC_X<>0 AND CLC_Y<>0 THEN CX=CLC_X\32:CY=CLC_Y\32 '32で割る
430 IF MASU(CX,CY)=0 AND FLAG=1 THEN MASU(CX,CY)=JUNBN+1 '順番通りにマスを反映させる
440 NUM1=CX:NUM2=CY:COL=JUNBN+1
450 GOSUB *CHECK_TABLE
460 FOR I=0 TO 7
480 IF C(I)>4 THEN WINCOLOR=JUNBN+1:GOSUB *WIN
485 PRINT "C(";I;")=";C(I)
490 NEXT I
500 MOUSE ON,2:ON MOUSE GOSUB *CHANGE_JUNBN
510 RETURN
520 *CHANGE_JUNBN
530 JUNBN=JUNBN XOR 1:FLAG=1 '順番を反転させる
540 RETURN
550 *CHECK_TABLE '-----------------------------------------------------------
560 FCOL=COL '味方の色
570 FOR I=0 TO 7
580 CHECK_X=NUM1:CHECK_Y=NUM2:COUNT=0 '指定の座標からチェックする
590 FOR J=0 TO 100
600 IF CHECK_X<0 OR CHECK_X>640/32 THEN GOTO *BK
610 IF CHECK_Y<0 OR CHECK_Y>480/32 THEN GOTO *BK
620 IF COUNT>0 AND MASU(CHECK_X,CHECK_Y)<>FCOL THEN GOTO *BK
630 IF COUNT>0 AND MASU(CHECK_X,CHECK_Y)=FCOL THEN C(I)=C(I)+1
640 CHECK_X=CHECK_X+CHKTBL_X(I):CHECK_Y=CHECK_Y+CHKTBL_Y(I)
650 COUNT=COUNT+1
660 NEXT J
670 *BK
680 NEXT I
690 RETURN
700 *WIN '-------------------------------------------------------------------
710 IF WINCOLOR=1 THEN PRINT"黒が勝ちました。!" ELSE PRINT"白が勝ちました。!"
720 RETURN
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- FX・外国為替取引 mql4のコンパイルエラー箇所の修正お願いします。 1 2023/03/15 16:14
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 順列をランダムに発生するプログラム 1 2022/11/16 12:16
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
外付ディスプレイで AutoHotkey...
-
Excel VBAで他アプリケーション...
-
Visual Studio .NET 2003:右揃...
-
NoxPlayerとUWSCのadbの座標に...
-
IEに表示されるウェブ画像のあ...
-
uwscについて、同一の画像(仮...
-
UWSCのCHKIMG関数について
-
C#で、画像の、指定した座標の...
-
エクセルVBAで画像を貼り付ける...
-
「VBS」について教えてください
-
bitbltからの画像保存ができま...
-
VBA HTML要素または文字の座標...
-
99BASICで五目並べを作りたい...
-
スクリーンキーボードについて
-
「ご処理進めて頂きますようお...
-
CloseとDisposeの違い
-
VBAでループ内で使う変数名を可...
-
エクセルで、日付を入力すると...
-
UPS警告音を止めたい
-
アクセスVBAのMe!と[ ]
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
C#で、画像の、指定した座標の...
-
Excel VBAで他アプリケーション...
-
VBでクリックイベントを発生さ...
-
外付ディスプレイで AutoHotkey...
-
UWSC画像認識で座標の位置がず...
-
バナーにリンクを埋め込む方法
-
UWSCのCHKIMG関数について
-
マウスストーカーのようにカー...
-
VBA HTML要素または文字の座標...
-
uwscについて、同一の画像(仮...
-
マウスイベントが動かない
-
UWSファイルの編集?
-
VBAで ScreenToClient を使いたい
-
Unityでピクセル情報を取得する...
-
グラフの変化をアニメにするには?
-
エディットボックスの色変更に...
-
puctureBoxの一部の色を変えた...
-
マウスカーソルの移動
-
JPGの画像ファイルの結合
おすすめ情報