arracheri.com

try-catch全てfinally処理

クラス設計VB or C一括

99BASICでごもくならべをつくりたいのですが…サブルーチン*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"白がかちました。Subversion 履歴のパージほうほうSubversionのリポジトリのりれきをパージ(りれきをけす)するほうほうがわかりません。なにかさんこうになる書籍を紹介していただくだけでもかまいません。たとえば、COMETIIのこうぞうなどでもかまいません、なにかアドバイスをお願いいたします。!" 720 RETURN。ほうほうをしっておられる方がおられたら、ごしどうねがいますでしょうか?よろしくお願いします。出来かけのソースをのせますので、誰か、たすけてください。ユースケース、クラス、シーケンス図のどれを使っていいのか、どこなで細かく書くのかなどです。でもいまいちどうUMLをかいていけばいいのかわかりません。UMLによる分析・設計これからコンピュータシミュレーターのかいはつをおこなうのですが、まずはUMLによるぶんせき・設計を行わなければなりません。

textboxサイト

画像のじどう削除がぞうをCD-Rに入れて送りたいのですが、その画像は一定きかんが過ぎたら自動的にさくじょされるようにしたいのです。どうすればいいのでしょうか?宜しくお願いします。C#はしょしんしゃなので調べてみてもよくわからずにいます。ACCESSのバージョンは2007になります。¥マークのままひょうじさせる方法はないのでしょうか?おねがいいたします。Accessのレポートで半角の¥マークを表示したいのですがバックスラッシュにかわってしまいます。 csvファイルへの書き込みについてフォームに貼ったtextboxやlistboxのないようをボタンを押すことで、csvファイルで書き出したいとかんがえています。どのようにしたらよいのでしょうか??また、いいサイトなどをごぞんじの方がいましたら教えてください。C#でプログラミング。Accessレポートでのマークのひょうじもうしわけありません初歩的なことかもしれませんがおしえてください。