政治傾向診断

ソース
プログラム

# =========================
# 政治傾向診断 25問（枠なし版）
# =========================

# ---- 背景 ----
"body"の「background」に"#f3f7ff"をDOMスタイル設定
"body"の「display」に"flex"をDOMスタイル設定
"body"の「flex-direction」に"column"をDOMスタイル設定
"body"の「align-items」に"center"をDOMスタイル設定
"body"の「padding」に"30px 14px"をDOMスタイル設定
"body"の「gap」に"16px"をDOMスタイル設定

筆風＝'"Hiragino Mincho ProN","Yu Mincho","Noto Serif JP","serif"'

# ---- 設問データ ----
設問＝[
["富裕層への課税を増やすべきだと思う。","L"],
["大企業の利益よりも中小企業や個人事業主の保護を優先すべきだ。","L"],
["国家は教育や医療に大きく関与すべきだ。","L"],
["移民・難民の受け入れを積極的に進めるべきだ。","L"],
["環境保護のために経済成長を抑制することも必要だ。","L"],
["伝統的な家族観や価値観は社会に重要だ。","R"],
["個人の自由よりも国家の安全や秩序を優先すべきだ。","R"],
["市場競争が経済成長や社会発展にとって最も重要だ。","R"],
["移民や外国人に対して厳格な政策を取るべきだ。","R"],
["税金はできるだけ少なく、政府の介入は少なくすべきだ。","R"],
["労働組合や労働者の権利を強化すべきだ。","L"],
["社会保障制度は手厚くあるべきだ。","L"],
["ジェンダー多様性を積極的に認めるべきだ。","L"],
["国家の伝統や文化を守ることは重要だ。","R"],
["政府は経済的弱者を積極的に支援すべきだ。","L"],
["国境管理は厳格であるべきだ。","R"],
["外国文化を積極的に取り入れるべきだ。","L"],
["犯罪者への刑罰は厳しくあるべきだ。","R"],
["財産の集中は制限すべきだ。","L"],
["軍事や防衛力は十分に維持すべきだ。","R"],
["政治は市民参加を最優先すべきだ。","L"],
["伝統産業や農業は保護すべきだ。","R"],
["企業規制は必要に応じて強化すべきだ。","L"],
["秩序のため自由は制限されてもよい。","R"],
["富裕層や大企業への規制を強化すべきだ。","L"]
]

選択＝[
["はい", 2],
["どちらかというとはい", 1],
["どちらとも言えない", 0],
["どちらかというといいえ", -1],
["いいえ", -2]
]

現在問＝0
総得点＝0
履歴＝[]
完了＝0

# ---- UI ----
タイトル＝"政治傾向診断（25問）"のラベル作成
タイトルの「font-family」に筆風をDOMスタイル設定
タイトルの「font-size」に"26px"をDOMスタイル設定

進行＝"1 / 25"のラベル作成
進行の「font-family」に筆風をDOMスタイル設定

表示枠＝""のラベル作成
表示枠の「font-family」に筆風をDOMスタイル設定
表示枠の「font-size」に"22px"をDOMスタイル設定
表示枠の「text-align」に"center"をDOMスタイル設定
表示枠の「width」に"min(860px, 95vw)"をDOMスタイル設定
表示枠の「padding」に"0"をDOMスタイル設定
表示枠の「background」に"transparent"をDOMスタイル設定
表示枠の「box-shadow」に"none"をDOMスタイル設定
表示枠の「transition」に"opacity 0.35s ease"をDOMスタイル設定

結果枠＝""のラベル作成
結果枠の「display」に"none"をDOMスタイル設定
結果枠の「white-space」に"pre-wrap"をDOMスタイル設定
結果枠の「font-family」に筆風をDOMスタイル設定

# ---- 判定 ----
●判定名(点)
    もし(点>=41)なら それは "極左"
    違えばもし(点>=21)なら それは "左派"
    違えばもし(点>=6)なら それは "中道左派"
    違えばもし(点>=-5)なら それは "中道"
    違えばもし(点>=-20)なら それは "中道右派"
    違えばもし(点>=-40)なら それは "右派"
    違えば それは "極右"
ここまで

●表示更新
    進行に((現在問+1) & " / 25")をテキスト設定
    表示枠の「opacity」に"0"をDOMスタイル設定
    0.02秒待つ
    表示枠に("Q" & (現在問+1) & "： " & 設問[現在問][0])をテキスト設定
    表示枠の「opacity」に"1"をDOMスタイル設定
ここまで

●結果表示
    判定＝判定名(総得点)
    表示枠の「display」に"none"をDOMスタイル設定
    進行の「display」に"none"をDOMスタイル設定
    結果枠の「display」に"block"をDOMスタイル設定
    結果枠に("【結果】" & 判定 & "（合計スコア：" & 総得点 & "）")をテキスト設定
    完了＝1
ここまで

●回答する(係数)
    もし(完了=1)なら 戻る
    種別＝設問[現在問][1]
    加点＝係数
    もし(種別="R")なら 加点＝0-係数
    総得点＝総得点+加点
    現在問＝現在問+1
    もし(現在問>=25)なら
        結果表示
        戻る
    ここまで
    表示更新
ここまで

# ---- ボタン ----
iを0から(選択の要素数-1)まで繰返
    name＝選択[i][0]
    k＝選択[i][1]
    b＝nameのボタン作成
    bの「padding」に"12px 18px"をDOMスタイル設定
    bの「border-radius」に"9999px"をDOMスタイル設定
    bの「border」に"0"をDOMスタイル設定
    bの「background」に"#ffffff"をDOMスタイル設定
    bの「box-shadow」に"0 8px 18px rgba(0,0,0,0.10)"をDOMスタイル設定
    bの「cursor」に"pointer"をDOMスタイル設定
    bの「font-family」に筆風をDOMスタイル設定
    bをクリックした時には
        回答する(k)
    ここまで
ここまで

表示更新
作品について
作品情報

作品を編集
karn1ya 作
ライセンス: 未指定（未指定/貯蔵庫のみ）
形式: wnako
タグ: -
利用バージョン: 3.7.15
アクセス数(累計): 75
アクセス数(今月): 6
バグ報告: 0件
更新日時: 2026/02/21 12:25
作品公開情報
交流
政治傾向診断

プログラム

作品情報

コメント
