|
1 2 3 4 5 |
#include <stdio.h> int main(){ puts("Hello"); return 0; } |
|
1 2 3 |
dim a as integer a = 100 print a |
|
1 2 3 |
dim a as integer a = 100 print a |
highlighting code blockを使ってますが、デフォルトでの設定以外では、free契約のWordPressでは出来ないようです。何故かというと、サーバーにアクセスできないようですので。その結果、Visual Basicでは使えないということです。別に試したところでは、VS2022以上の使用感は実現されていないようです。上に載せているように、コードだけであれば問題ないように思います。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 |
import tkinter # 解読関数 def decode_line(event): global current_line, bgimg, lcharimg, ccharimg, rcharimg if current_line >= len(scenario): return; # 1行読み込み line = scenario[current_line] current_line = current_line + 1 line = line.replace("\\n", "\n").strip() params = line.split(" ") # 分岐 if line[0] != "#": message["text"] = line return elif params[0] == "#back": canvas.delete("all") bgimg = tkinter.PhotoImage(file=params[1]) canvas.create_image(450, 230, image=bgimg) elif params[0] == "#putChar": if params[2] == "L": canvas.delete("left") lcharimg = tkinter.PhotoImage(file=params[1]) canvas.create_image(200, 160, image=lcharimg, tag="left") elif params[2] == "R": canvas.delete("right") rcharimg = tkinter.PhotoImage(file=params[1]) canvas.create_image(700, 160, image=rcharimg, tag="right") else: canvas.delete("center") ccharimg = tkinter.PhotoImage(file=params[1]) canvas.create_image(450, 160, image=ccharimg, tag="center") elif params[0] == "#branch": message.unbind("<Button-1>") btn = tkinter.Button(text=params[2], width=20) branch.append(btn) btn["command"] = lambda : jump_to_line(int(params[1])-1) btn.place(x=300, y=60+int(params[1])*60) jumplabel.append(params[3]) if params[4] == "n": return elif params[0] == "#jump": label = params[1].strip() # ジャンプ先を探す for l in range(len(scenario)): if scenario[l].strip() == "## " + label: current_line = l decode_line(None) return elif params[0].strip() == "#end": message["text"] = "終わり" message.unbind("<Button-1>") current_line = 999999999 # 再帰呼び出し decode_line(None) # ジャンプ関数 def jump_to_line(branchID): global current_line # ボタンを消す for btn in branch: btn.place_forget() btn.destroy() branch.clear() label = jumplabel[branchID] jumplabel.clear() message.bind("<Button-1>", decode_line) # ジャンプ先を探す for l in range(len(scenario)): if scenario[l].strip() == "## " + label: current_line = l decode_line(None) return # ウィンドウ作成 root = tkinter.Tk() root.title("よろしくアドベンチャー") root.minsize(900, 460) root.option_add("*font", ["メイリオ", 14]) # キャンバス作成 canvas = tkinter.Canvas(width=900, height=460) canvas.place(x=0, y=0) # メッセージエリア message = tkinter.Label(width=70, height=5, wraplength=840, bg="white", justify="left", anchor="nw") message.place(x=28, y=284) message["text"] = "クリックしてスタート" # ファイル読み込み scenario = [] file = open("img8/scenario.txt", "r", encoding="utf-8") while True: line = file.readline() scenario.append(line) if not line: file.close() break # 現在の行数 current_line = 0 # イベント設定 message.bind("<Button-1>", decode_line) # 画像 bgimg = None lcharimg = None ccharimg = None rcharimg = None # 選択肢 branch = [] jumplabel = [] root.mainloop() |
Class Brは、branchを保存します。mはButtonのTextに入れるテキスト。goはBranch先のテキスト。実体はbrarray(2)です。2個に限定。8行から14行までは、グローバルな変数。chara_flagはキャラクタを3個最大で限定で、どれが表示になっているか？の判断で使います。
messageをクリックして、current_lineが+1されて、scinarioが進みます。
decode_lineはネタ本では、再帰呼出しですが、自信がないので、単純化しました。Branchは2個に限定。putCharも2個か1個に限定。
PictureBoxのVisibleは、表示されてないものは、Falseにしておかないと、一旦表示されるとズーッと表示される。scinarioを見ると、シーンが変わったときにキャラクタも変わるので、そのタイミングでリセットします。
chara_flagは0から7まで。7は全て、3個表示の状態。下は、実行画面の一部です。
なかなかそのままでは上手く行かないので、かなり変えました。その場しのぎで。decode_lineを再帰で呼び出せるのかは、分かりませんし、クリックで再開も、違うのですが、やってみたくなったら、やって見るかもしれません。でも、今回で「12歳からはじめるゼロからの…」は終わります。
歴史は繰り返すと言いますが、なんか実感させられました。多少の違いはあるにせよ、某国家が他国に侵略して、思い通りにしようとする。全く同じでした。その時は某国家は民衆の力に負けたんですが、今回もそうなるんでしょうか？これだけの被害があるので、一時的に傀儡政権が出来たとしても、いずれ同じ運命になりそうですが。
いまはU国が頑張ってますが、力尽きなければと思います。昨日のU国の大統領は、戦闘機の支援をと、言ってたようですが、難しいようです。核だけはどんな状況でも使っては、行けないでしょう。全人類が破滅します。
久しぶりに大きな地震でした。一関は震度5だったと思います。宮城は6強のとこあり、だったと思います。棚から少しものが落ちましたが、今の所被害は大丈夫だと思います
雪解けが進んで、落ち穂が見えるようになると、数が増えるようです。
足冷たくないんでしょうね。秘密を知りたい。
羽の黒っぽい幼鳥は、去年生まれてすぐの長距離飛行にも耐えられるんですね。こういう訪問者は歓迎ですが…。脅しの訪問は嫌ですね。
意外と足の水かきは大きい。体もでかいですが。輪かんじきみたいです。鳥インフルエンザが出てるの注意です。
PictureBoxを3個配置してますが、Form1の大きさと背景の大きさが、本のように上手くいきません。
PictureBoxに図を配置する部分は、上手くないですね。でもどうすれば良いのでしょうか？
Form1の背景が1個でなく、繰り返してますね。コマンドを処理する部分はこれからです。
覇権主義と民主主義の戦い。ネオナチはどちだ？情報戦でもあるようです。戦いを終わることを祈ります。が、むなしい。
Resourcesを追加したことによって、VBが生成したコード。いじる必要がない、いじらないほうが良いでしょう。
Form1のデザイン画面。LabelとPictureBoxを1個づつ配置。
Resourcesに画像のデータなどを置くと、読み込みが単純化されますが、編集は出来ないようです。かもしれません。
実行画面。
Resourcesにファイルを追加する時は、下の図でMy Projectの1個上のWinFormsAppCharacter8_1を右クリックで、追加から行った。My Projectの右クリックからだと少し変だったと思います。
どんな展開になっていくのか？楽しみです。
基底クラスのCharacter、それから派生クラスのBrave、モンスターはBraveから派生してます。全く同じなので、派生しなくてインスタンスを作っただけでいいでしょうが、ここでは派生してます。ネタ本に沿って。
Form2、戦闘画面。
Form1迷路画面。
PictureBoxの70個は動的配置なので見えない。
コードは見せられるものでは無いです。アルゴリズムはネタ本のとおりです。
スタート直後の画面。
一番近いモンスターと戦いをする場面です。
monster1が現れました。ここではButton勝ったをクリックしてます。
monsterの位置にbraveが進みました。残りの画面は省略。動いたから良いでなくて、覚えるのには、見直しが必要です。多分。結構難しかったと思います。自分には。
戦いはゲームだけに、市民が
犠牲の戦いは止めてほしい。
クラスの定義、メンバ変数にはPropertyを付けたほうが楽なようです。
ClassをPublic指定しているので、Form1からでも参照できるようです。Propertyを使っているとWith句が使えるので楽ですね。
Form2へaPersonを渡しています。
コンストラクタでaPersonを受けているようです。その他は変わりなしです。以下実行画面。
Form2から”OK受け取りました”が帰ってきましので、クラスのインスタンスを渡すことが出来ました。これでネタ本へ戻れます。