2020年06月21日

10万円ではじめるプログラミング講座 5

全ての国民に10万円が行きわたると言う事で、様々な事情の
方がいらっしゃるかと思いますが、それが出来る人に向けて、
Excelを活用したプログラミング講座を執筆する事にしました。
「ゲームをやった時間を記録して集計出来るプログラム」を
自分で作れるようになる事を目標にしています。

今回も、つくってみたプログラムを改造して、Excelを使った
プログラミングの理解を深める事をやってみようと思います。

前々回つくったプログラムを開きます。ファイル名は
「PEAP.xlsm / PEAP.xls」として保存したと思います。

ファイルを開くと、まっさらなExcelブックに「セキュリティ
の警告 マクロが無効にされました。」と言う表示(表現は
バージョンによって違うかも知れません)が出現している事
が確認出来ると思います。忘れずマクロを有効に設定します。

プログラムの改造を始める前に、前々回つくった内容を消し
てしまう事のない様、ファイル名を変えておきましょう。

ツールバー等にある「名前を付けて保存」をクリックします。

ファイル名は「PEAP3.xlsm / PEAP3.xls」等が良いでしょう。

今回は、テキストボックスに数値を入力し終わると、自動的
に“%”の表示を追加して、入力した数値が%の単位である事
がわかる仕組みにしてみようと思います。

今回は、ちょっと大掛かりな改造が必要になります。

まず、テキストボックスに二種類のイベントプロシージャを
組み込みます。「Enter」と「Exit」です。

コード画面を表示させると、画面の上部にコンボボックスが
二つ付いているのが確認出来ると思います。左にあるコンボ
ボックス(オブジェクト)を開いて、「txtRatioA」を選択し
ます。すると、右にあるコンボボックス(プロシージャ)の
内容が更新され、編集ボックスには、プロシージャのコード
が自動的に挿入されているのではないかと思います。ここで、
プロシージャとして「Enter」を選びます。

自動で以下のコードが挿入されていると思います。

Private Sub txtRatioA_Enter()

End Sub

ここで、txtRatioA_Enter の Enter の部分だけを選択状態に
して「F1」を押すと、Enter イベントプロシージャの説明を
閲覧する事が出来ると思います。説明していませんでしたが
コード画面のコードの中で、プログラムが理解出来る単語に
カーソルを合わせて「F1」を押すと、単語の説明を閲覧する
事が出来ます。ほとんどの単語は、カーソルを合わせて「F1」
を押すだけで説明を閲覧する事が出来るのですが、イベント
プロシージャだけは、単語の部分だけを選択状態にしないと
説明を閲覧する事が出来ないので注意が必要です。

そのまま連続して、プロシージャとして「Exit」も選びます。

自動で以下のコードが挿入されていると思うので、

Private Sub txtRatioA_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

「txtRatioA_Exit」に以下の様にコードを書き加えます。

Private Sub txtRatioA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strText As String
strText = txtRatioA.Text
If Right(strText, 1) = "%" Then strText = Left(strText, Len(strText) - 1)
If IsNumeric(strText) Then
RatioA = CSng(strText)
txtRatioA.Text = strText + "%"
Else
txtRatioA.Text = CStr(RatioA) + "%"
End If
End Sub

「Exit」イベントプロシージャは、テキストボックスの編集
が終了し、他のテキストボックス等に編集可能な状態が移る
とき、その前に実行される仕組みです。

3行目、Right関数は、文字列の右側から指定した文字数だけ
取り出す関数です。右側から1文字取り出して“%”がついて
いるかどうか確認します。これは、利用者が入力した数値の
最後に“%”をつけたときに起こり得る出来事です。“%”が
ついていると、コンピュータは数値として認識する事が出来
ないため、“%”を取り除く事をしています。Left関数は左側
から指定した文字数だけを取り出す関数、Len関数は文字列の
長さを知る関数です。Then以降の右辺は、If内でRight関数を
使ってやった事の逆です。文字列の長さから1文字だけ少ない
文字数を割り出して、左側からその文字数だけを取り出して、
左辺に代入する、と言う意味です。

4行目は、入力された文字列が数値として認識出来るか、判別
しています。文字列が数値として認識出来れば、Then以降の
内容を、認識出来なければ、Else以降の内容を実行します。

5行目、テキストボックスに入力された数値を変数に代入して
保持し、後で参照出来る様にしています。後ほど改めて説明
します。

6行目、テキストボックスに入力された数値に“%”を加えて、
テキストボックスに表示しています。

8行目、テキストボックスに入力された文字列が、数値として
認識出来ない場合には、変数の更新はせず、保持してあった
古い数値を使って改めてテキストボックスに表示しています。

「txtRatioA_Enter」に以下の様にコードを書き加えます。

Private Sub txtRatioA_Enter()
Dim strText As String
strText = txtRatioA.Text
If Right(strText, 1) = "%" Then txtRatioA.Text = Left(strText, Len(strText) - 1)
End Sub

「Enter」イベントプロシージャは、テキストボックスが編集
可能な状態になるとき、その前に実行される仕組みです。

「txtRatioA_Exit」でテキストボックスに入力された数値に、
“%”の表示を追加しましたが、テキストボックスが編集可能
な状態になり利用者が入力を始める前に、この表示を取り除
く事をしています。

ここで、「計算」ボタンを押したときに実行されるコードを
含めて、プログラム全体でちょっと大掛かりな改造をしよう
と思います。

改造する前の状態では、「計算」ボタンを押したときに実行
されるコードは以下の様になっていると思います。

Private Sub CommandButton2_Click()
Dim RatioA As Single, RatioP As Single
Dim RatioAP As Single, RatioAE As Single
Dim RatioPP As Single, RatioPE As Single

RatioA = CSng(txtRatioA.Text)
RatioP = CSng(txtRatioP.Text)
RatioAP = CSng(txtRatioAP.Text)
RatioAE = CSng(txtRatioAE.Text)
RatioPP = CSng(txtRatioPP.Text)
RatioPE = CSng(txtRatioPE.Text)

txtAnsP.Text = (RatioA / 100 * RatioAP / 100 + RatioP / 100 * RatioPP / 100) * 100
txtAnsE.Text = (RatioA / 100 * RatioAE / 100 + RatioP / 100 * RatioPE / 100) * 100

End Sub

1〜3行目で変数を宣言しています。

5〜10行目で、テキストボックスに入力された数値を文字列型
から小数点以下を含む数値型に変換し変数に代入しています。

12・13行目で計算を実行し、結果を表示しています。

このうち、5〜10行目にある、テキストボックスに入力された
数値を変数に保持する機能は「Exit」イベントプロシージャ
で追加したプログラムと被るので削除しなければなりません。

そして、1〜3行目にある変数の宣言についてですがこの宣言
の仕方には問題があります。なぜなら、プロシージャの中で
宣言した変数は、プロシージャの中でしか使う事が出来ない
からです。しかも、(この宣言の仕方だと)プロシージャを
一度抜けると、変数は削除されて、次回プロシージャが実行
されるときまで内容が保持されないのです。

そこで、1〜3行目をカット&ペーストして、別の場所で宣言
する様に改造します。具体的には、コードの一番先頭で宣言
する様に改造します。1〜3行目をカットし、カーソルを一番
先頭に迄持っていきます。いくつもの Private Sub が並んで
いると思いますが、それらすべてより前にカーソルを持って
いきます。すると、左のコンボボックスには「(General)」と
右のコンボボックスには「(Declarations)」と表示されるの
ではないかと思います。そこでペーストします。

ここで宣言された変数は、「モジュール レベルで宣言された
変数」と呼ばれ、宣言したモジュール(同じ編集ボックスで
表示できる範囲内の事です)内のすべてのプロシージャから
参照出来る様になります。しかも、プログラムの実行中常に
内容が保持される様になります。

ここまで改造が済んだら、残りの作業を実行しましょう。

「txtRatioA」で「Enter」「Exit」イベントプロシージャを
追加しましたが以下に示す他のテキストボックスについても、
同様に追加します。

「txtRatioP」
「txtRatioAP」「txtRatioAE」
「txtRatioPP」「txtRatioPE」

「txtRatioA」をコピー&ペーストして、「RatioA」を
「RatioP」に書き換えるやり方で作業する事も出来ます。

その場合、「Enter」プロシージャには3カ所、「Exit」プロ
シージャには6カ所も書き換える場所があるので間違えない様、
気をつけてください。

雰囲気としては以下の様になっていると思います。

Private Sub txtRati0A_Enter()
Dim strText As String
strText = txtRati0A.Text
If Right(strText, 1) = "%" Then txtRati0A.Text = Left(strText, Len(strText) - 1)
End Sub
Private Sub txtRati0A_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)
Dim strText As String
strText = txtRati0A.Text
If Right(strText, 1) = "%" Then strText = Left(strText, Len(strText) - 1)
If IsNumeric(strText) Then
Rati0A = CSng(strText)
txtRati0A.Text = strText + "%"
Else
txtRati0A.Text = CStr(Rati0A) + "%"
End If
End Sub

Private Sub txtRati0P_Enter()

End Sub
Private Sub txtRati0P_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)

End Sub

Private Sub txtRati0AP_Enter()

End Sub
Private Sub txtRati0AP_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)

End Sub

Private Sub txtRati0AE_Enter()

End Sub
Private Sub txtRati0AE_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)

End Sub

Private Sub txtRati0PP_Enter()

End Sub
Private Sub txtRati0PP_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)

End Sub

Private Sub txtRati0PE_Enter()

End Sub
Private Sub txtRati0PE_Exit(ByVal Cancel As MSF0rms.ReturnB00lean)

End Sub

(ここに示したコードはコピペしないでください)

最後に、「計算」ボタンを押したときに実行されるコードの
計算結果に“%”を追加するコードを書き加えましょう。

最終的に「計算」ボタンを押したときに実行されるコードは
以下の様になります。

Private Sub CommandButton2_Click()

txtAnsP.Text = (RatioA / 100 * RatioAP / 100 + RatioP / 100 * RatioPP / 100) * 100
txtAnsE.Text = (RatioA / 100 * RatioAE / 100 + RatioP / 100 * RatioPE / 100) * 100

txtAnsP.Text = txtAnsP.Text + "%"
txtAnsE.Text = txtAnsE.Text + "%"

End Sub

――◇◆◇――

ITの話題を。

常識の範囲内で生きている人間は、常識の範囲内でしか物事
を判断する事が出来ません。「自分ならばこうする、だから、
当然他の人もこうするだろう」と言う無意識的に働く判断を
大きく逸脱する悪意を持った嘘に出会ったとき、人は簡単に
騙されてしまいます。

中国「監視型都市」を提唱(中略)
中国政府が、感染症対策を想定し、ITを活用した都市整備モデルを国際標準として提案していることが12日、わかった。個人の行動情報を把握して新型コロナウイルスの感染拡大を食い止めた経験を踏まえたものだ。日本政府は、平時から個人を追跡、監視する「中国モデル」が標準化されかねないとみて、危機感を強めている。(中略)日本政府は、中国の提案が、危機対応だけではなく、普段から個人情報を集めることを前提としている点を警戒する。行き過ぎればプライバシーを侵害しかねないためだ。(後略)


〈読売新聞 6月13日 朝刊 1面〉

日本の新聞記事が中国をやり玉にあげて、監視社会を正当化
し、正当化するのにとどまらず、監視社会を他の国にも拡げ
ようとする動きを批判しています。これが日本社会において
共感を集める言説である事を踏まえた上での情報発信である
事は間違いないでしょう。

この様な言説が共感を集める背景には、日本は監視社会では
無いし、日本社会において中国で行われている様な監視社会
はあり得ないとの、根拠の無い安心感があり、まさか政府が
その様な監視社会をつくろうとしているはずが無く、だから
こそ信頼を置いて任せている、と言う人が多く存在している
のではないかと思います。

特に、政府の見解を反映した記事を書く事で有名な新聞社の
記事である故に、ほぼ政府の見解であり、まさか政府がその
様な監視社会をつくろうとしているはずが無いだろうと言う
根拠のない信頼が強化されるのではないかと思います。

しかしながら、現実は真逆です。

タクシーにはドライブレコーダーに偽装したAI顔認識カメラ
が搭載されており、官邸直結で国民を監視しています。同じ
仕組みのAI顔認識カメラがバスにも導入され全国的な拡がり
を見せています。他にも、緑ナンバーのトラック等を中心に
同じ仕組みのAI顔認識カメラが搭載された車両が増えて来て
います。黒ナンバーの郵便集配車にも搭載されている様です。

JR西日本の駅施設では、地方の通勤通学需要を支える路線も
含め、ほぼ全ての駅と思えるのではないかと言うくらい多数
の駅施設において、「防犯カメラ」がAI顔認識カメラ化され、
個人の移動を、細かく監視しています。最新型の車両にはAI
顔認識カメラが取り付けられており、認知対象を検知したら、
独裁者の元に通知と映像が送られる仕組みになっているにも
かかわらず表向きはワンマン列車の運転手が車内を確認する
目的のカメラとして偽装されている為、一般利用者に本当の
目的が分からない様になっている手の込み様です。首都圏の
JR東日本の路線でも同じ仕組みの車両が導入されようとして
いるとの報道を見かけた事があります。

いまや、官邸が視る事が出来ない経路を辿って移動する事は、
誰にも出来ない程迄に、官邸の監視網が街の隅々まで拡がり
張り巡らされているのです。

常識の範囲内で生きている人間は、他者(中国)をやり玉に
あげて批判するからには、当然、批判している当事者(日本)
においては、万が一同じ批判を受けても、批判には値しない
状態が確保されているはずだ、と考えるのではないかと思い
ます。それが人間社会で生き抜く為に、必要な事だからです。
もし、万が一同じ批判を受けて、批判に値する状態がある事
が明らかになったら、大恥をかき、責任を問われるでしょう。

しかしながら、アベには恥の概念が通用しません。監視網の
存在が明るみに出ても、なお恥じる事無く、監視網の強化に
向けた更なる動きを進めているのです。

先日、自宅と職場を往復する駅前の道を、見渡す事が出来る
場所に、監視カメラが据え付けられました。駅前の道の中で
他の道には自治体の防犯カメラが据え付けられている場所が
多いのですが、この道は、人通りが少ないのか、治安が良い
のか分かりませんが、自治体の防犯カメラももちろん、民間
の防犯カメラさえも設置されていない道でした。防犯カメラ
を設置する余地も理由も無かったのだと思います。ところが、
ある日、駅前に立つ高いビルの窪みの天井に、黒くて見慣れ
ない物体が取り付けられている事に気付きました。当初稼働
していなかったので、目を疑い、カメラにしては大き過ぎる
し、空気口かも知れないし、そもそも記憶が確かではなくて
前からあったのかも知れないと、しばらく様子を見ていたの
ですが、先日、遂に稼働中を示す赤いランプが点灯している
のを確認し、それが監視カメラだと分かりました。もちろん、
AI顔認識カメラです。駅前に立つビルの、四階の高さにある
窪みに柵等は無く、恐らくクレーン等で資材を搬入するとか、
消防隊員が進入するとか、何か特別な事があった時に使える
様に設けられたスペースで人が立ち入る場所ではありません。
どう考えてもカメラを設置する理由が無い場所に監視カメラ
が設置されたのです。監視カメラがある場所からは駅前一帯
と、監視カメラが設置されていなかった駅前の道を見渡す事
が出来ます。

あまりにも常識を逸脱していて、状況が理解出来ていない人
が多くいるのではないかと思うのですが、現実に起きている
事です。アベのやり方は、駅前一帯や駅前の道に監視カメラ
を設置する余地も理由も無かったとしても、それで諦めるの
ではなくて、民間のビルの所有者を脅すか騙すかして、監視
カメラを設置する理由が無い場所にも監視カメラを設置して、
日常生活の隅々の奥の奥まで、ほじくり出そうとするのです。

常識をはるかに超越した、陰湿さ、悪辣さだと思いませんか。

――◇◆◇――

(前略)持続化給付金の事務事業を769億円で受託し、20億円を中抜き。残り97%を創設に関わった電通に丸投げした一般社団法人サービスデザイン推進協議会。実態なき“幽霊法人”との批判を払拭するため、9日に東京・築地の本部事務所を報道陣に公開した。パソコン十数台や電話機8台を設置。職員9人のうち5人が業務をこなし、不在者の机には、飲みかけのお茶のペットボトルを置くリアリティー。

ところが、翌10日に野党議員が訪問すると一変、呼び鈴は外され、内線電話も応答なし。入り口の警備員は「中には誰もいない。外出している」と説明したという。たった1日で“もぬけの殻”。まさか電通と共に立ち上げに関わった人材派遣大手・パソナがエキストラを仕込んだわけではあるまい。(後略)


〈日刊ゲンダイ 6月15日(6月13日 夕刊) 13面〉

疑惑が出ただけ…予算成立
(中略)11日の参院予算委員会の立憲民主党副代表・蓮舫の質問は極めて秀逸だった。(中略)事務作業を受諾した一般社団法人「サービスデザイン推進協議会」を巡って9日、マスコミに公開した東京都内の本部事務所が1日で無人になったと指摘。(中略)新型コロナウイルス対策の専門家会議の議事録について地方創生相・北村誠吾にただすも禅問答が続き「担当大臣はあなたですよ」と言うと北村は「必ずしもそうとは限らない」と開き直った。予算委員会の議事録にはこのお粗末な答弁が残り続ける。また、総務相・高市早苗(の)(中略)「サーバーは増やすんじゃなくて、時代はもうクラウドなんですよ」という迷言はネットでトレンド入りした(中略)。

ただ党はこれらの質問を生かせたとはいえず、補正予算成立に賛成、来週国会は閉じられる。(後略)


〈日刊スポーツ 6月13日 (朝刊) 25面〉

答弁に立った与党議員は、恥をさらしたけれども、核心に迄
迫る事は出来ず、第2次補正予算は成立。第2次補正予算には
持続化給付金の事務委託費として、約850億円が含まれており、
再び協議会に丸投げの可能性が高いとの事です。

なぜ核心に迄迫る事が出来なかったのかについて言うならば、
件の法人の本当の目的が、お金とは別のところにあったから
と言えるのではないかと思います。お金の問題に矮小化して
しまい、本当の目的を見失ってしまったのです。

ほとんどの国民は気付いていませんが、街中で独裁者の目と
耳の配備が急速に進んでいます。もちろん独裁者のやり方に
疑問を持ち、盾つく活動をする国民を発見し、監視し、脅迫
する装置として、利用しようとしているのでしょうけれども、
他にも目的があります。

政府はアイデアのある者からアイデアを窃盗し、身内の利権
共同体の構成員に横流ししています。権力を最大限利用して
情報の窃盗に励んでいるのです。AI顔認識カメラに依らなく
とも音声だけで個人の居場所を特定する事が出来ます。個人
の移動履歴を窃盗する事で、何をやろうとしているか、推測
する事が出来ます。AI顔認識カメラには、可視光線しか認識
出来ない通常のカメラもありますが、赤外線まで認識できる
様にした、赤外線カメラも存在しています。赤外線カメラを
使うと建物の中にいる人間の動きを見る事が出来ます。それ
だけではなく、体の関節の動きを解析して、パソコンで入力
している内容を窃盗する事も出来ます。また筆跡を解析して、
紙に書いている内容、口の動きを解析して、しゃべっている
内容迄も、窃盗する事が出来るのです。これらの情報を窃盗
する技術は既に存在していて、実際に使われているものです。

これらの情報を窃盗する技術は「防犯」等の目的に偽装して
街中のどこにでも紛れ込ませる事が出来る様になっています。
果てしなく高度化した「IT機器」に、「防犯」の役割を担わ
せると同時に、あらゆる情報窃盗技術を組み込む事が出来る
からです。

この独裁者のやり方を知れば、件の法人の本当の目的が何か
おのずと見えて来るのではないでしょうか。

――◆◇◆――

アベには恥の概念が通用しません。

先日、いわゆる“全権委任法”と呼ぶ事が出来る法律の成立
に触れて、アベが整備を進める監視網を告発する記事を書き
ました。あらゆる角度から見て間違っている監視網の存在が
明るみに出ても、アベはなお恥じる事無く、監視網の強化に
向けた更なる動きを進めているのです。

いま目の前で行われている選挙で、権力に巣食い、うまい嘘
で国民を騙して富を掠め取り、その富を、自分を中心とする
親しい仲間に分配する活動を通して利権共同体をつくる勢力
の勢いを、くじく事が出来なければ、果てしなく高度化した
「IT機器」が、街中に張り巡らされる様になり、生活の隅々
迄監視され、移動履歴が記録され、会話等の音声が記録され、
利権共同体の血肉となる情報が窃盗出来ないかと、貪られる
様になるでしょう。

――◆◇◆――

話はプログラミング講座に戻ります。

忘れないうちに、ここまでつくって来たプログラムを保存し
ましょう。ツールバー等にある「保存」をクリックします。

 
posted by miraclestar at 17:00 | Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2020年06月18日

10万円ではじめるプログラミング講座 4

全ての国民に10万円が行きわたると言う事で、様々な事情の
方がいらっしゃるかと思いますが、それが出来る人に向けて、
Excelを活用したプログラミング講座を執筆する事にしました。
「ゲームをやった時間を記録して集計出来るプログラム」を
自分で作れるようになる事を目標にしています。

前回は、ちょっとしたプログラムをつくってみるところまで
進めました。出来上がったプログラムを動かしてみていかが
でしたでしょうか。微妙な結果が出ましたか。微妙な結果が
出たら、正解だと思います。

今回は、つくってみたプログラムを改造して、Excelを使った
プログラミングの理解を深める事をやってみようと思います。

前回つくったプログラムは、ファイルに保存したと思うので
ファイルを開きます。ここで、注意しなければならない事は、
プログラム(マクロ)を含むExcelファイルを保存して閉じる
と、次に開いたときにプログラム(マクロ)が自動的に無効
になると言う事です。これはマクロを使ったウイルスが多く
出現した事により対応がとられた結果です。

前回つくったプログラムを開くと、まだ何も内容が書き込ま
れていない、まっさらなExcelブックが表示されると思います。
プログラム(マクロ)は「Alt+F11」を押した後に表示される
画面を開くと閲覧する事が出来ます。ただし、プログラムが
自動的に無効になっているので、プログラムが含まれている
事は確認出来るのですが、実行する事は出来ません。これを
解除する為には、ファイルを開いた直後に表示される警告の
時点で操作が必要になります。一度でも「Alt+F11」を押して
プログラムが確認出来る画面を開いてしまうと警告は消えて
しまう為、一旦ファイルを閉じて、再び開く必要があります。

改めて、前回つくったプログラムを開くと、まっさらなExcel
ブックに「セキュリティの警告 マクロが無効にされました。」
と言う表示(表現はバージョンによって違うかも知れません)
が出現している事が確認出来ると思います。その横にボタン
が表示(「オプション...」等と表示)されていて、押す事が
出来ると思うので、押すと、マクロを有効に設定する画面が
表示されると思います。この画面で「有効にする」を選ぶと
プログラム(マクロ)を実行する事が、出来る様になります。

プログラムの改造を始める前に、前回つくった内容を消して
しまう事のない様、ファイル名を変えておきましょう。

ツールバー等にある「名前を付けて保存」をクリックします。

ファイル名は「PEAP2.xlsm / PEAP2.xls」等が良いでしょう。

今回は、テキストボックスに数値を入力して数値が変わった
瞬間に計算が行われる様にして、数値の変更による計算結果
の変化を、すぐに確認出来る仕組みにしてみようと思います。

プログラムの変更に取り組む前に、前回つくったプログラム
には、ちょっとした問題があるので、それを確認しましょう。

「F5」を押してプログラムを実行します。

試しに、何も入力しない状態で「計算」ボタンを押してみま
しょう。エラーが表示されましたか。「デバッグ」を押して
みると、どこでエラーが起きているか分かります。

RatioA = CSng(txtRatioA.Text)

の場所で止まっている事が分かると思います。

この式は、右辺の内容を左辺に代入する、と言う意味の式で、
RatioA は変数です。変数とは、変化する値を保持する媒体の
事で、変数そのものを表したり、他の変数と区別したりする
為にアルファベット(A-Z)や数字(0-9)等を組み合わせた
名前が付けられています。変数には、どんな値でも保持する
事が出来る型(Variant型)も存在しますが、どんな値が保持
されているか分からないと使いにくい事が多いので、通常は
プログラムの目的に合わせて保持する事が出来る値の種類を
限定して使います。左辺のRatioA は、小数点以下を含む数値
を保持する事が出来る型(Single型)の変数で、一方右辺の
txtRatioA.Text は文字列を保持する事が出来る型(String型)
の変数で、そのままでは、右辺の内容を左辺に代入する事が
出来ません。そこで文字列から小数点以下を含む数値に変換
する関数(CSng)を使って、右辺の内容を左辺に代入出来る
様にしている、と言うのが、この式の説明です。

ところが、CSng関数は、文字列が数値として認識出来る場合
のみ変換を実行し、そうではない場合はエラーを発生させる
様につくられています。おかしな入力があった場合に勝手に
判断するのではなく、止まる様に出来ている、と言う事です。
その為、おかしな入力があった場合にどうするかプログラム
で記述しておく必要があるのです。

そこで、この式を以下の通りに、書き換える事にしましょう。

If IsNumeric(txtRatioA.Text) Then RatioA = CSng(txtRatioA.Text)

IsNumeric関数は、入力された値が、数値として認識出来るか
どうか判断する関数です。認識できる場合は、真(True)を
返します。If condition Then statements ステートメントは
条件付きの実行を行う事が出来る様になるステートメントで、
condition の式が真(True)の場合のみ、statements を実行
せよと言う意味のプログラムを書く事が出来ます。この式は、
txtRatioA.Text が数値として認識できる場合のみ、先ほどの
右辺の内容を左辺に代入する式、を実行するプログラムです。

同じ意味の式が、全部で6行続いているので、他の行も同様に
書き換えておきましょう。終わったら「F5」で再開出来ます。
問題がなければ、「計算」ボタンを押した後の状態に戻るで
しょう。入力ミス等で問題があれば、エラーが表示されます。

再開せずにプログラムの実行を中断し、編集画面に戻る事も
出来ます。その場合は、ツールバー等にある「リセット」を
探してクリックします。四角形が表示されたボタンです。

正しく書き換えられていたら、何も入力しない状態で「計算」
ボタンを押してみると、エラーは表示されず計算結果として、
0 が表示されているのではないかと思います。数値ではなく、
アルファベットを入力して、「計算」ボタンを押してみると、
やはりエラーは表示されず計算結果として、0 が表示される
のではないかと思います。

次に、テキストボックスにもプログラムを書き込みましょう。

フォーム編集画面でテキストボックスをダブルクリックして
も良いのですが、ちょっと別の操作をしてみようと思います。

コード画面を表示させると、画面の上部にコンボボックスが
二つ付いているのが確認出来ると思います。左にあるコンボ
ボックス(オブジェクト)を開くと、フォームに配置された
コントロールの一覧が、表示されるのではないかと思います。

この中から、テキストボックス「txtRatioA」を選んでみます。
すると、右にあるコンボボックス(プロシージャ)の内容が
更新され、プロシージャのひとつが自動的に選択され、同時
に、編集ボックスには、そのプロシージャのコードが自動的
に挿入されているのではないかと思います。試しに、いくつ
かのプロシージャを選択してみてください。試してみるうち
に、何となく雰囲気がつかめて来るのではないかと思います。

では、オブジェクトとして「txtRatioA」を、プロシージャと
して「Change」を選んでみます。「Change」は自動的に選択
されているプロシージャだと思います。すると、自動で以下
のコードが挿入されていると思うので、

Private Sub txtRatioA_Change()

End Sub

ここに「CommandButton2_Click」と書き加えます。

Private Sub txtRatioA_Change()
CommandButton2_Click
End Sub

以下に示す他のテキストボックスについても、同様にします。

「txtRatioP」
「txtRatioAP」「txtRatioAE」
「txtRatioPP」「txtRatioPE」

雰囲気としては以下の様になっていると思います。

Private Sub txtRati0A_Change()
C0mmandButt0n2_Click
End Sub
Private Sub txtRati0P_Change()
C0mmandButt0n2_Click
End Sub
Private Sub txtRati0AP_Change()
C0mmandButt0n2_Click
End Sub
Private Sub txtRati0AE_Change()
C0mmandButt0n2_Click
End Sub
Private Sub txtRati0PP_Change()
C0mmandButt0n2_Click
End Sub
Private Sub txtRati0PE_Change()
C0mmandButt0n2_Click
End Sub

(ここに示したコードはコピペしないでください)

――◇◆◇――

前回の記事では、プログラミング講座に関連して、その先に
広がるITの世界の話題に触れましたが、その中で更に、本日
告示日を迎えた東京都知事選挙についても触れました。

かつて、情報技術を活用した「IT機器」ではなかった装置が、
いまや「IT機器」のひとつとして数えられる様になった事例
はたくさんありますが、かつて磁気テープに映像を記録して
いた監視カメラは、「映像をデジタルデータに変換する技術」
の発展により、いまや「IT機器」のひとつとして数えられる
様になりました。

東京都知事選挙の結果によっては、権力に巣食い、うまい嘘
で国民を騙して富を掠め取り、その富を、自分を中心とする
親しい仲間に分配する活動を通して利権共同体をつくる勢力
が勢いづいて、その利権共同体を中心とする独裁体制を維持
する為に、果てしなく高度化した「IT機器」を、街中に張り
巡らせる様になるでしょう。

(前略)委託・外注を繰り返し、769億円もの税金を身内企業に配分――。持続化給付金事業のうち、20億円を中抜きしたトンネル法人の設立に関わりながら、(中略)追及を逃れているのは(中略)人材派遣大手パソナだ。東京都のオリンピック関連事業でも、パソナの謎だらけの契約が(中略)分かった。(中略)

五輪ボランティアの研修業務(について)(中略)2017年5月30日、オリパラ準備局が指名競争入札を実施し、パソナが落札。(中略)入札に参加した他の2社は、それぞれ100万円、770万円で応札したのに、パソナはたった8万3000円(全て税抜き)。(中略)参加した一社の営業担当者は「弊社の応札額はしっかり積算した結果。(中略)」と、(中略)振り返る。

この事業の契約期間は18年1月31日まで。その直後にオリパラ準備局は、ラグビーW杯に向けた「開催都市ボランティア育成開発等業務」の指名競争入札の実施計画を公表した。(中略)ラグビーW杯のボランティア育成に紛れて、五輪ボランティアの研修業務も盛り込まれていた。(中略)オリパラ準備局も「8万3000円の契約とひと続きの事業」(担当者)と認めた。(後略)


〈日刊ゲンダイ 6月11日(6月10日 夕刊) 3面〉

謎に包まれているので整理していきましょう。情報公開請求
をした人物は「最初の契約に関する資料の開示を求めたのに、
なぜかその直後に公表された別の契約の資料が含まれていた」
と証言しています。オリパラ準備局も認めた様に、これらは、
「ひと続きの事業」だったと言う事になります。

最初の契約において入札に参加した他の二社は、そのうちの
一社の担当者が「しっかり積算した結果」と証言している事
から分かる通り、入札の時点では、その直後に「ひと続きの
事業」となる別の契約の入札が控えている事を知らなかった
と言えるでしょう。ところが、唯一落札社だけが、その直後
に控えた別の契約を見通した金額で落札したと、これは事実
と言えるのではないでしょうか。

そうなると「落札社だけが、入札の時点で、他の二社が知ら
なかった、その直後に『ひと続きの事業』となる別の契約の
入札が控えている事を、知っていた」と言えるのではないか、
と思います。

(前略)同年(2018年)3月14日実施の入札(では、)(中略)パソナが落札するまで同じ日のうちに3回も入札が繰り返された(中略)。(中略)パソナありきの出来レースにも思える。この最大の謎をオリパラ準備局にぶつけると、「絶対に落札価格の事前調整はしていない」(担当者)と否定。パソナは「お問い合わせにあるような結果を前提にした事前の話し合いなどございません」(広報部)と答えた。(後略)

〈日刊ゲンダイ 6月11日(6月10日 夕刊) 3面〉

これはいわゆる「ご飯論法」ではないでしょうか。「朝ご飯
食べたか」と言う質問に「食べていない」と答えたとしても、
実際には「ご飯は食べていないけど、パンは食べた」と言う
事実を示して「食べていない」とはぐらかすやり方の事です。

――◇◆◇――

正確な表現は忘れてしまいましたが、かつて、小池都知事が
旧・希望の党を率いて国政選挙に挑戦したとき、公約の中に
「外国人労働者の活用」、しかも「厳選した限られた国から
の労働者を活用する」と言う様な内容が、含まれていました。

結局、旧・希望の党は失速し、現実化される事は無かったの
ですが、これを見た瞬間、露骨な利益誘導だとすぐに分かり
ました。実は、政府の規制緩和を決める委員と、規制緩和に
よって生じた事業を受託する民間企業の役員を兼務する政商
が、規制緩和によってある業界の外国人労働者の受け入れを
主導し、某国において事業所を設けて、日本に向けて大量の
労働者を送り込む準備を進めている事を知っていたからです。

小池都知事は大阪府を電撃訪問し、当時の松井大阪府知事と、
大村愛知県知事の三人で会見し、「三都物語」と称して連携
を進める旨を発表しました。この話を進めていたのが、何と
同じ政商だった、との報道が出ていましたが、小池都知事と、
旧・希望の党が、その政商に操られていた実態があった事の
一端をうかがい知る出来事だったのではないか、と思います。

――◆◇◆――

東京都知事選挙の結果によっては、権力に巣食い、うまい嘘
で国民を騙して富を掠め取り、その富を、自分を中心とする
親しい仲間に分配する活動を通して利権共同体をつくる勢力
が勢いづいて、その利権共同体を中心とする独裁体制を維持
する為に、果てしなく高度化した「IT機器」を、街中に張り
巡らせる様になるでしょう。

では、誰に投票すれば、その様な事態になるのを食い止める
事が出来るのでしょうか。本日は告示日ですので、本日から
その事をズバリはっきりと答える事が、許される様になった
のですけれども、具体名に触れる事は、避けたいと思います。

ところで、前回の記事では「主要な国政政党が後ろ盾に付く
都知事候補は、いまのところ三人いる」と述べ、そのうちの
二人については、盛んに触れたのですが、もうひとりの候補
について、触れておかないわけにはいかない内容があるので、
触れてみたいと思います。

立憲民主党や社民党、日本共産党が推す、宇都宮健児候補に
ついてです。宇都宮健児氏については国会で共同会派を組む、
立憲民主党と社民党が歩調を合わせていますが、同じく共同
会派を組む国民民主党は、「自主投票」になりました。あと
一歩のところで野党統一候補にならなかった候補者です。

宇都宮健児氏について調べてみると、経験や能力、人物とし
ては申し分ないものをお持ちの様ですが、完璧な候補者とは
言えない不安要素がある事が分かりました。日本の保守的な
考えを持った人たちにとって、絶対に超えてはいけない一線
を超える発言を、いくつもしているからです。これでは国民
民主党議員の支持者が気持ち良く票を投じる事は出来ません。

宇都宮健児氏の発言の中で繰り返し取り上げられる内容とは、
徴用工や慰安婦等、日韓で、国際問題となっているテーマに
関する内容でしょう。特に2019年に出たインタビュー記事で
「徴用工像や慰安婦像を国会議事堂前に」設置すべき、との
考えを述べた事は、致命的だったと思います。

例え、保守的な考えを持った人たちが嫌がる内容であったと
しても、それが具体的な事実に基づく内容であれば、嫌がる
人を諌める発言になるのでしょうけれども、嘘や捏造、誤報
に基づく内容を、誤認した発言であれば、混乱を招いた責任
は免れないと思います。

2019年に出たインタビュー記事を読む限り、徴用工に関して
は、豊富な具体事例に基づいた内容である事が、読み取れる
のですが、慰安婦に関しては、それがありません。このとき
の主張が、「徴用工像を国会議事堂前に」設置すべき、との
考えであれば、筋の通る主張であったのに、何故「慰安婦像」
に触れてしまったのでしょうか。

日本の従軍慰安婦問題については、かつて戦中に日本陸軍に
所属していたと自称し、著書を刊行して「軍令で女性を強制
連行して慰安婦にした」との証言を「主張」した人物がいて、
それを朝日新聞が取り上げ報道した事が端緒とされています。

ところが2014年8月になって朝日新聞が、これまで従軍慰安婦
問題について行われてきた一連の報道は、虚偽であり、裏付
けの得られない内容であったと認め、記事を撤回する出来事
がありました。2014年9月には、朝日新聞の役員が、謝罪会見
まで行っているのです。

宇都宮健児氏は、2012年と2014年(2月)の東京都知事選挙に
出馬していますが、日韓で、国際問題となっているテーマに
関する発言は、2014年より前に集中している事が分かります。
これらについては、朝日新聞が虚偽、誤報を認める前の発言
でしたので宇都宮健児氏の責任を問う必要は無いと思います。

しかし、朝日新聞の謝罪会見の後である2019年に出たインタ
ビュー記事で「慰安婦像」に触れた事については説明が必要
だと思います。

日本の従軍慰安婦問題については、いまから40年と少し前に
日本の国家としての関わりを「主張」した人物がいて、新聞
で取り上げられて問題とされる様になって以降、多くの者が
真実の解明に取り組み、検証を繰り返した結果、虚偽であり、
裏付けの得られない内容であった、との結論が出て、新聞社
の役員が謝罪会見まで行っています。

慰安婦問題における、日本の国家としての関わりについては、
虚偽であり、裏付けの得られない内容であった、との結論は、
歴史の審判を受けた、極めて信頼性の高い、確度の高い結論
なのです。

宇都宮健児氏は、どう説明するのでしょうか。東京都知事と
言えば、多くの日本国民を抱える東京都を代表する存在です。
もし東京都の代表として信任するとするならば、その説明を
見極める事が、どうしても必要なのではないか、と思います。

――◆◇◆――

話はプログラミング講座に戻ります。

忘れないうちに、ここまでつくって来たプログラムを保存し
ましょう。ツールバー等にある「保存」をクリックします。

 
posted by miraclestar at 17:00 | Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2020年06月15日

10万円ではじめるプログラミング講座 3

全ての国民に10万円が行きわたると言う事で、様々な事情の
方がいらっしゃるかと思いますが、それが出来る人に向けて、
Excelを活用したプログラミング講座を執筆する事にしました。
「ゲームをやった時間を記録して集計出来るプログラム」を
自分で作れるようになる事を目標にしています。

早速ですが操作に慣れる意味がありますので、ちょっとした
プログラムをつくってみようと思います。始まります。

Excelを起動してください。「Alt+F11」を押します。
「Microsoft Visual Basic」の画面が出て来ると思います。
ツールバーにある「ユーザーフォームの挿入」をクリック。

「ウインドウ」(以下「フォーム」と呼びます)の編集画面
が出て来ると思います。「テキスト ボックス」を配置します。

ツールボックスにある「テキスト ボックス」を選んで、画面
の真ん中あたりをクリックします。すると、フォーム上に白
くて少し窪んだ様に見える長方形が現れると思います。

フォーム編集画面とは別の場所に「プロパティ」と書かれた
ウインドウ(左下にメインウィンドウの一部として表示され
ているかも知れません)があると思います。先程フォーム上
に現れた白い長方形をクリックして、選択した状態にすると
「プロパティ」画面に、情報(プロパティ)が表示されます。

白い長方形には、「TextBox1」と言う名前(オブジェクト名)
が付いている事が分かると思います。では、TextBox1の下に
もうひとつ「テキスト ボックス」を配置してみましょう。

今度は「TextBox2」と言うオブジェクト名が付いている事が
分かると思います。この様にして、フォーム上に配置すると
「TextBox」に加えて通し番号を付けたオブジェクト名が自動
でつけられていく事が分かると思います。

オブジェクト名は、プログラム中で「それの事」を示す時に
使う名前です。通し番号が自動で付けられていく事は、便利
ですが、数が多くなって来るとどれがどれだか分かりにくく
なって、扱う上で不便になります。そこで、オブジェクト名
は、通常、扱いやすい名前に変更して使います。

ではTextBox1のオブジェクト名を変更してみましょう。選択
した状態で「プロパティ」画面の「(オブジェクト名)」を
探してクリックします。編集可能な状態になったら、

「txtRatioA」

と入力します。TextBox2も「txtRatioP」に変更します。

次に縦に2つ並んだテキストボックスの右隣に、横2列縦2行に
4つ並んだテキストボックスを配置してみましょう。このとき、
左上、右上、左下、右下の順に配置する様にします。

それぞれ、順に「txtRatioAP」「txtRatioAE」「txtRatioPP」
「txtRatioPE」と言うオブジェクト名に変更します。

ここまでで、横3列縦2行に6つ並んだテキストボックスが配置
されていると思います。これらテキストボックスには、後で
数値を入力する事になるのですが、何の数値だかわかる様に
名前を表示出来る様にしておこうと思います。

ツールボックスにある「ラベル」を選んでテキストボックス
の左隣をクリックします。縦2行に並んだ1行目の左隣が良い
でしょう。「Label1」と表示されると思います。2行目の左隣
も同様にします。「Label2」と表示されると思います。これ
はしばらくこのままにしておきます。

同様に、横3列に並んだ2列目の上と3列目の上にも、ラベルを
配置します。「Label3」「Label4」と表示されると思います。

ここまで配置してきたテキストボックスは、数値を入力する
目的のテキストボックスでした。次に、計算結果を表示する
目的のテキストボックスを配置しようと思います。

横3列に並んだ2列目の下と3列目の下に、テキストボックスを
配置します。「プロパティ」画面の「Locked」を探してTrue
に変更します。これで、内容を編集出来なくなります。また、
「SpecialEffect」を「3 - fmSpecialEffectEtched」に変更
します。テキストボックスの見た目が少し変わります。

オブジェクト名は左から順に「txtAnsP」「txtAnsE」に変更
します。

次にフォームの右下の方に「コマンド ボタン」をひとつ配置
します。「プロパティ」画面の「Caption」を探してクリック
します。編集可能な状態になったら、

「閉じる」

と入力します。コマンドボタンの表示が「閉じる」に変わる
と思います。「閉じる」ボタンをダブルクリックすると表示
されるコード画面では「Unload UserForm1」と書き加えます。

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

次にフォームの左下の方に「コマンド ボタン」をひとつ配置
します。表示は、「計算」に変更します。「計算」ボタンを
ダブルクリックすると表示されるコード画面では以下の様に
コードを書き加えます。

Private Sub CommandButton2_Click()

Dim RatioA As Single, RatioP As Single
Dim RatioAP As Single, RatioAE As Single
Dim RatioPP As Single, RatioPE As Single

RatioA = CSng(txtRatioA.Text)
RatioP = CSng(txtRatioP.Text)
RatioAP = CSng(txtRatioAP.Text)
RatioAE = CSng(txtRatioAE.Text)
RatioPP = CSng(txtRatioPP.Text)
RatioPE = CSng(txtRatioPE.Text)

txtAnsP.Text = (RatioA / 100 * RatioAP / 100 + RatioP / 100 * RatioPP / 100) * 100
txtAnsE.Text = (RatioA / 100 * RatioAE / 100 + RatioP / 100 * RatioPE / 100) * 100

End Sub

――◇◆◇――

ここで、話は横道に逸れますが、プログラミング講座に関連
して、その先に広がるITの世界の話題に触れようと思います。

ITとは、Information Technology の略です。日本語に訳すと
「情報技術」と言う事になります。パソコンは、まさに情報
技術の結晶と言う事が出来、パソコンの中で動作するソフト
ウェアである Windows や Excel は情報技術のひとつと言う
事が出来ます。

かつて、情報技術を活用した「IT機器」ではなかった装置が、
いまや「IT機器」のひとつとして数えられる様になった事例
はたくさんありますが、そのうちのひとつが、ICレコーダー
でしょう。機械に音声を記録する技術と言えば、最初の技術
は蓄音機でした。当初は、筒状の媒体に記録していたものが、
円盤状になって「レコード」と呼ばれる様になり、技術進歩
により、磁気テープに記録出来る機械が登場しました。この
辺りまでは、「IT機器」とは言えない装置でしょう。その後、
音声をデジタルデータに変換する技術が開発され、その技術
を活用した製品として、「CDプレイヤー」が発売されました。
この「音声をデジタルデータに変換する技術」が鍵となって、
音声を記録する機械は「IT機器」のひとつとして数えられる
様になりました。

同様に、かつて磁気テープに映像を記録していた監視カメラ
は、「映像をデジタルデータに変換する技術」の発展により、
いまや「IT機器」のひとつとして数えられる様になりました。
近年は“AI”と結びついて、果てしなく高度な「IT機器」に
なっています。

街に監視カメラが出始めた頃は、ITとつながっていない監視
カメラだったのですが、それでも抗議の声をあげた人がいた
そうです。それがときとともに抗議の声はしぼみ、いつの間
にか当たり前の風景となり、何か言う人は誰もいなくなって
しまいました。これまで監視カメラの台数は、少しずつ増え
続けていましたが、いまここに来て独裁者が登場し、かつて
無い速度で、AI顔認識機能付き監視カメラの台数を増やして
います。2019年の初め頃からタクシーのドライブレコーダー
に偽装したAI顔認識機能付き監視カメラが登場していました
が、新しい元号に変わった頃から、街中の様々な場所でAI顔
認識機能付き監視カメラの台数が爆発的に増え、国民を監視
する様になりました。鉄道施設やバス等公共の場所に限らず、
民間の住宅、ビル、大手チェーンの飲食店などにもAI顔認識
カメラが配備され、国民生活の隅から隅までを監視する様に
なり始めています。この事を繰り返し訴えて来ましたが最近
ようやく訴えた内容に同調する懸念の声が少しずつ届く様に
なりました。

(前略)少なくない人がデジタル技術によって超監視社会が生まれるのではと不安に感じている。(中略)日本青年会議所(JC)は安倍改憲の応援団とみられてきた。しかし、昨年10月に「護憲・改憲の枠組みにとらわれない憲法論議」として「AI(人工知能)と人権」のテーマ設定を提言している。デジタル技術が民主主義をゆがめるかもしれないからだ。(後略)(筆者:専門編集委員 古賀 攻)

〈毎日新聞 6月3日 朝刊 2面〉

ところで、更に横道に逸れますが、間もなく公示日を迎えて、
激しい戦いが予想される、東京都知事選挙の構図が、固まり
つつある様です。主要な国政政党が後ろ盾に付く都知事候補
は、いまのところ三人いる様ですが、そのうち二人は、日本
の国家のあり様を破壊し日本を衰退と破滅に導く危険な革新
思想を拡げようとしている点で一致しています。

いまの日本に続く数十年の歴史の中で、この危険な革新思想
が日本に牙をむいた、記憶に残る大規模な挑戦は、国営事業
であった郵政事業を民営化した事でした。国民の共有財産で
あった、簡易保険と郵便貯金の収益が、海外に流出しました。

現職知事は、基本的にこの危険な革新思想の申し子と言える
でしょう。先日この危険な革新思想を推進してきた政治家が
集まって会食し、現職知事を応援する事で一致したとの旨を
明かしたと言う、新聞記事が出ていました。

小池支持で一致?(中略)
自民党の二階幹事長がきのう(9日)、東京・赤坂の日本料理店で、小泉純一郎元首相や、山崎拓元副総裁らと会食。都知事選直前の集まりだけに、「小池都知事の日程に合わせた」との話も流れたが結局、最後まで本人は会場に姿を見せなかった。(中略)会合後、二階は「選挙の話なんかしていない」と言葉少なだったものの、ホロ酔いで店から出てきた武部は「小池さんは、みんな応援団で。選対本部だよ」と上機嫌。席上、二階らが小池に激励の電話をかけていたという。(後略)


〈日刊ゲンダイ 6月11日(6月10日 夕刊) 3面〉

小泉純一郎氏が首相を務めていた時代に、まだ生まれていな
かったり、物心つく前だったりして、事情を良く知らない人
向けに解説すると、小泉純一郎氏は当時、郵政民営化を推進
していて、その爆発的な推進力を得る為、是非を国民に問う
として、解散総選挙に打って出ました。首相は自民党総裁を
兼任しており、自民党総裁が持つ各選挙区における公認権を
握っています。その公認権を利用して、郵政民営化に賛成の
現職議員・候補者のみを公認する事とし、自民党の現職議員
と候補者に賛成の選択を迫ったのです。郵政民営化に反対の
考えを持つ者は、公認してもらえず、現職で、選挙区に地盤
があったとしても、無所属で出馬せざるを得なくなりました。
しかも、同じ選挙区に郵政民営化に賛成の候補者が対抗馬と
して送り込まれ、地盤が脆弱だった現職議員は落選しました。
このとき、東京10区に対抗馬として送り込まれたのが、当時
別の選挙区で現職の自民党議員だった小池百合子氏なのです。

小泉純一郎元首相の元で、郵政民営化の推進を担当した人物
は、小泉純一郎氏が引退し、首相がアベに交代したいまもな
お政権に巣食い、日本の国家のあり様を破壊し続けています。
そして、その人物を中心にして広がる利権共同体の構成員は、
各方面で、権力を握り、独裁体制を強化し続けているのです。

――◇◆◇――

東京都知事選挙で、与党は現職を推す様ですが、野党は国民
民主党を中心として国政議員が三分裂し、分裂した勢力分布
の覇者を占う代理戦争の様相を呈しています。

注目は何と言っても国民民主党議員の支持者が誰に投票する
かでしょう。国民民主党は、世論調査では1%程度の支持しか
無いとの結果が出ていますが、選挙になると、ある程度まと
まった規模の票を集めて議席を獲得している様です。これは、
普段世論調査に支持政党なしと回答しているけれども保守的
な主張に共感する人で自民党には入れたくないと考える人が、
選挙になると国民民主党の候補者に投票しているのだろうと
思います。

国民民主党の前身政党のひとつである、旧・希望の党を創設
したのは、現職都知事の小池百合子氏であり、国民民主党の
中には、旧・希望の党創設者との縁を継承する集団がいると
言えるでしょう。国民民主党議員の支持者が納得できる野党
統一候補が登場しない限りこの縁を無碍に出来ないでしょう。

国民民主党は、立憲民主党との合流を模索している様ですが、
先日、立憲民主党の枝野幸男代表は現政権に代わる政権構想
の私案を公表し、立憲民主党を中心とする野党結集の機運が
高まっています。

ここに来て国民民主党の前原誠司氏は、日本維新の会の所属
議員と共同で勉強会を立ち上げる様です。国民民主党の前身
政党のひとつである、民進党は、民主党といまの日本維新の
会につながる議員も所属した、維新の党等を前身政党として
います。その様な背景もあり、国民民主党の中には、いまの
日本維新の会と考え方が近い議員も多く含まれている様です。

前原氏 維新と勉強会発足(中略)
国民民主党の前原誠司・元外相と日本維新の会の馬場幹事長らは8日、地方分権に関する勉強会の準備会合を国会内で開いた。(中略)勉強会では、新型コロナウイルスへの対応で顕在化した国と地方の役割分担の曖昧さや道州制などについて議論する。会合後、前原氏は記者団に「地方主権改革を進めることが『ポストコロナ』の大きな政策課題だ」と語った。(中略)前原氏は立民と国民の合流に否定的で、維新との接近は「野党の分裂を招く」(立民幹部)と警戒感が広がっている。(後略)


〈読売新聞 6月9日 朝刊 4面〉

前原誠司氏と言えば、枝野幸男氏と競った代表選挙で勝利し、
民進党代表に就任して間もなく、民進党のすべての現職議員
と公認予定候補を引き連れて、旧・希望の党への合流を画策
した事が、皆さまの記憶に残るところではないかと思います。

前原誠司氏は、その民進党の代表選挙が行われた際の演説に
おいて、苦労を重ねた上で政治家になった経緯を語り共感を
集めていた様ですが、その様な、前原氏の人生のごく一部に
焦点をあてた話に惑わされて前原氏の本当の姿を見失う事が
あってはならないと思います。

維新勉強会 その目的は?
国民民主党・前原誠司と日本維新の会幹事長・馬場伸幸ら維新所属議員が立ち上げた勉強会「新しい国のかたち(分権2.0)協議会」の準備会合が8日に開かれた。(中略)馬場は「地方は権限と財源という武器がない中で、新型コロナウイルスの感染拡大と闘ってきた。11月の大阪都構想を実現することで、改革の波を全国に広げていきたい」とあいさつしたが、目的がよくわからない。(後略)


〈日刊スポーツ 6月12日 (朝刊) 17面〉

現職都知事の立候補会見では具体的な政策に触れる事はあり
ませんでしたが、その代わりに出された言葉に含まれていた
数字と同じ数字が登場しているところが鍵かも知れませんね。

先日、国会にて、与党と一部野党の多数派による強行採決で
いわゆる“全権委任法”と呼ぶ事が出来る法律が、成立して
しまいましたが、その法律に規定された「ミニ地域政府」と
言うか「ミニ“独裁”政府」を育み、野に放つ、温床として
機能する事を目論んでいる可能性があると思います。

思い返せば前原氏は、民進党に関わるすべての人材の運命を、
小池氏との、密室の会談の場で決めてしまいました。そして、
すべてが準備されていたかの様に、あれよあれよという間に
合流の話が進み、小池氏が独断で任命した人間が間に入って、
不透明な基準による候補者の選別が始まりました。

都議会において自身が立ち上げた地域政党が躍進し、勢いに
のっていた小池氏が立ち上げた国政政党は、最初こそ勢いを
保っていたものの、具体的な政策が発表されると、メッキが
はがれ、失速していったので、勢いで押しきる当初の目論見
は果たされなかったのですけれども、もし、この試みが成功
していたら、いまどうなっていたのだろうかと思います。

もし、成功していたら、クーデターだったと言えるでしょう。

自分も当時、当初はその勢いに騙されて、期待を膨らませて
しまった人間の一人なのですが、具体的な政策を見て、おや、
と思う様になりました。いまこの記事で繰り返し述べている、
日本の国家のあり様を破壊し日本を衰退と破滅に導く危険な
革新思想、そのものを政策に落とし込んだ内容だったのです。

前原氏が画策した事は、結局何だったかと言えば、民進党に
関わる人材の中で、有用な人材を、危険な革新思想の推進に
協力する人間として仕立てあげようとする目論見の一部分を
構成するものだったと言えないでしょうか。

そう考えれば、前原氏はこの危険な革新思想の持ち主である
と言えるし、この危険な革新思想の協力者であると言えるし、
前原氏が立ち上げようとしている勉強会は、この危険な革新
思想の温床であると言えるのではないかと思います。

(とは言っても、勉強会の構成員が騙る「分権」「地方主権」
「改革」と言った言葉に筋が通ったものを感じてしまう人は
 多いのではないかと思います。ただ、やつらの言うこれら
「皆が飛びついてくれるような魅力的な物語」とは、ウソに
 ウソを重ねた虚構に過ぎない旨注意喚起したいと思います)

――◆◇◆――

先日、他の候補者より遅れて立候補会見を行った現職都知事、
小池百合子氏ですが、暴露本が出版され話題沸騰中の様です。

(前略)小池都知事はウソにウソを重ね魅力的な「物語」を作り上げた
(中略)約3年半にわたる取材で、先月29日に「女帝 小池百合子」(文芸春秋)を上梓した作家(ノンフィクション作家 石井妙子)に、小池百合子とは何者なのか語ってもらった。(中略)(小池さんの“第一印象”は)〔私はいつも、先入観を持たずに対象の人物を調べるのですが、資料を読み始めて早い段階で、何かがおかしいと気づきました。彼女の著書を読むだけでも非常に矛盾が多かった。〕(中略)――そんな中、かつて小池さんとカイロ市内で同居していた女性から情報提供があった。(中略)――本の中では、76年7月に落第し、卒業がかなわなくなった小池さんと同居女性の衝撃的なやりとりが描かれています。落ち込む小池さんは一時、日本に帰国。ところが、同年11月にカイロに戻ってきた際に手にしていた新聞に「カイロ大学を卒業した小池百合子さん」と書かれていた。(中略)小池さんは新聞社の取材に虚偽の説明をしたということになります。(後略)


〈日刊ゲンダイ 6月5日(6月4日 夕刊) 9面〉

この記事が出て以降、各新聞に連載枠を持つコラムニストが
相次いでこの話題を取り上げ、一気に注目度がうなぎのぼり
となりました。終盤の都議会でも取り上げられ、何回も質問
を受けてははぐらかす、を繰り返す場面があった様です。

(前略)〔日本の「タテ社会」の仕組みもよく分かっている。(中略)上とつながってしまえば、下は制することができる。実際に小池さんは今も自民党都連や都議は相手にせず、本部の実力者、二階幹事長を押さえています。そうすれば、自然と都連も都議も従わせることができる。(中略)ピラミッドの頂上の一人だけ落とせば、下の数十人、数百人は手にできるわけです。〕(後略)

〈日刊ゲンダイ 6月5日(6月4日 夕刊) 9面〉

多くの国民は、うまい嘘に騙されて、気づいていないのかも
知れませんが、危険な革新思想は、既に権力中枢の隅々に迄
染み渡っていて、いまもなおその勢力を拡大し続けています。

「タテ社会」の上とつながる習性のある小池百合子氏が危険
な革新思想とつながっている事は当然の流れであり、隠して
も隠しきれるものではありません。ある一部分について踏み
とどまっている以外は、基本的に、危険な革新思想の申し子
と言えるでしょう。

日本の政界には、危険な革新思想を拡げようと活動する議員
が、既に多く存在しており、既存の政党に所属して活動する
者もいれば、政党をつくって活動する者もいます。主流派と
して活動する者の他に、いくつかの別働隊が存在しているの
です。

暴露本でボロボロになりつつある現職知事に見切りをつけた
革新思想の別働隊は、今回の都知事選挙では、新しくて色の
ついていない候補を見つけ出し支援する動きを見せています。

その危険な革新思想の持ち主が、勢力を拡大する上で国民を
騙す方便として好んで使う嘘のひとつが、「IT化」なのです。

アフターコロナを利用する従来の国策と巨大IT資本
ウイルスは撲滅できない。我々は新型コロナウイルスと“戦う”のではなく、“共生”を目指すべきだ――。こんな認識が、多くの人々に共有されるようになってきた。(中略)ただし、“共生”の美名の下で相次いでいる提言や未来予測の評価には、慎重でありたい。(中略)問題は、それらの具体的な中身である。(中略)アフターコロナの形容とは裏腹に、状況は従前からの国策ないし、巨大IT資本の思惑通りに進行している。彼らが好んで口にする「人間中心の社会」という美辞麗句にだまされてはいけない。(後略)(筆者:斎藤貴男)


〈日刊ゲンダイ 6月10日(6月9日 夕刊) 5面〉

「IT化」を掲げてうまい嘘を騙る革新勢力が言う「人間中心」
とは、確かに、「人間中心」である事は間違いありませんが、
「自分中心」である事に注意が必要です。

権力に巣食い、うまい嘘で国民を騙して富を掠め取り、その
富を、自分を中心とする親しい仲間に分配する活動を通して
利権共同体をつくり、その利権共同体を中心とする独裁体制
を維持する為に、自分以外の他人が、その仕組みに気付いて
盾つく事の無い様に、その様な行動につながる考えを持つ者
を発見し、監視し、脅迫する装置として、果てしなく高度化
した「IT機器」を、街中に張り巡らせようとしているのです。

かつて磁気テープに映像を記録していた監視カメラは、技術
の発展により、いまや「IT機器」のひとつとして数えられる
様になりました。この様な「IT機器」を活用して、自分以外
の他人を監視し支配下に組み入れる事こそ、革新勢力の言う
「人間中心(自分中心)」の実態なのです。

――◆◇◆――

話はプログラミング講座に戻ります。

実は、先程までつくって来たプログラムは次の質問に自動で
答える事が出来る様になる為のプログラムでした。

ある小学校では全校児童を対象に、アップルとパイナップル
どちらが好きか、アンケート調査を行いました。アップルが
好きだと答えた児童は、全体の27%、パイナップルが好きだと
答えた児童は、全体の73%でした。アンケート調査は、どちら
が好きか、紙に書いて提出してもらうやり方で行われました。
紙を詳しく調べたところ、アップルが好きだと答えた児童の
73%がペンを使って答えており、21%がえんぴつを使って答え
ていました。パイナップルが好きだと答えた児童の38%がペン
を使って答えており、58%がえんぴつを使って答えていました。
全校児童のうち、ペンを使って答えた児童の割合はどれだけ
で、えんぴつを使って答えた児童の割合はどれだけで、どち
らを使って答えた児童の方が多かったのでしょうか。


先程までつくってきたプログラムを質問に合わせて改造しま
しょう。ラベルの表示を書き換えます。

横3列が縦2行に6つ並んだテキストボックスの、1行目の左隣
に配置したラベル(「Label1」と表示されていると思います)
を選択し「プロパティ」画面の「Caption」を探してクリック
します。編集可能な状態になったら、

「アップル」

と入力します。2行目の左隣(「Label2」と表示されていると
思います)も同様にして「パイナップル」と入力します。

同様に、横3列に並んだ2列目の上(「Label3」と表示されて
いると思います)は「ペン」に変更し、3列目の上(「Label4」
と表示されていると思います)は「えんぴつ」に変更します。

忘れないうちに、ここまでつくって来たプログラムを保存し
ましょう。ツールバー等にある「保存」をクリックします。

ここで、Excel2007以降ではファイル名の最後が「.xls」から
「.xlsx」に変わった事に伴い、プログラム(マクロ)を含む
Excelブックを保存する際は、「マクロ有効ブック(.xlsm)」
を選択する必要がある様です。

Excel2003では「.xls」で保存します。

ファイル名は、内容を表す相応しい名前をつけます。

「PEAP.xlsm / PEAP.xls」
(ペン、えんぴつ、アップル、パイナップルの略)

等が相応しいのではないでしょうか。

 
posted by miraclestar at 17:00 | Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2020年06月12日

10万円ではじめるプログラミング講座 2

先月5月25日から、自分が暮らす自治体でも、10万円給付金の
申請書類の発送が始まり、翌26日から受付開始された様です。
発送開始から間もなく自宅のポストに申請書類が届き、月末
には返送したので、いま10万円給付金の到着が、いつになる
のか首を長くして待っているところです。

幸いな事に、仕事が無くなる事は無かった為、収入に影響は
ありませんでしたが、10万円は、家計の足しになる予定です。
全ての国民に10万円が行きわたると言う事で、様々な事情の
方がいらっしゃるかと思いますが、これを機にいままで縁が
無かったと言う人も、パソコンを入手してみるのも良いかも
知れません。

この様な状況がある中で、それが出来る人に向けて、Excelで
「ゲームをやった時間を記録して集計出来るプログラム」を
自分で作れるようになる事を目標に、連続で記事を書こうと
しているところですが、そろそろ始めてみようかと思います。

早速、さわりだけ。既にパソコンを持っていて、Excelが動く
と言う人は、Excelを起動してみてください。「Alt+F11」を
押します。「Microsoft Visual Basic」の画面が出て来ると
思います。ツールバーにある「ユーザーフォームの挿入」を
探してクリックします。すると、Windowsで良く見るいわゆる
「ウィンドウ」(正確に言うと「ダイアログ」)の編集画面
が現れると思います。ここにボタンやチェックボックス等を
配置して、思い通りに動くウィンドウをつくる事が出来ます。

試しにボタンを配置してみましょう。ツールボックスにある
「コマンド ボタン」を選んで、フォーム上でクリックします。
すると、フォーム上に「CommandButton」が現れます。ボタン
の表示(キャプション)は変更出来ますが、それは後回しに
して、ボタンをダブルクリックします。すると、コード画面
が表示され自動で以下のコードが挿入されていると思うので、

Private Sub CommandButton1_Click()

End Sub

ここに「Unload UserForm1」と書き加えます。

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

ここで「F5」を押すと、編集したウィンドウが表示されます。
「CommandButton」が1つだけのウィンドウが表示されている
と思います。ボタンを押すと、元の画面に戻ります。

いかがでしょうか。この様な形で、進めていこうと思います。

Excelについて

2003以降のバージョンであれば充分だと思います。いま手元
にあるバージョンは2007です。実は2003辺りのバージョンで、
Excelの機能としては、ほぼ完成していて、それ以降のアップ
デートでは、見た目や、使い勝手の変更がほとんどなのです。
目立つところでは新しい数学関数が追加されたアップデート
もありましたが、普通に使う分には無くても問題ありません。

後々の事を考えれば、最新のパソコンを買う方が良いのかも
知れませんが、2003以降のバージョンのExcelが、元々入って
いる中古パソコンを入手する
のも、ひとつの手です。Excelが
元々入っているパソコンには、そのパソコンでしか使えない
Excelの正規ライセンスが1本付属しているはずなので、特別
な事をしていなければ、Excelが元々入っている中古パソコン
には、Excelの正規ライセンスが1本付属しているはずです。

様々な事情の方がいらっしゃると思いますが、中古パソコン
を使う場合、ソフトのサポート期限が切れている場合もある
でしょう。一般に「サポート期限の切れた古いソフトを使う
のは危険」と宣伝されています。ただ、もしネットワークに
つながなければ、誰からも攻撃を受ける心配はなく、危険な
目に遭う事もありません。
ファイルをやり取りするときだけ、
一時的にネットワークにつないで、すぐに外せば、まず問題
が起きる事は無いと思います。

逆に、最新バージョンに付属する“クラウド”機能には注意
が必要です。“クラウド”は便利な機能に見えますが、便利
さに誘われて使ってしまうと、大切な秘密を流出させてしま
う事になるからです。

Excelの最新バージョンで利用できる“クラウド”をたたえて
「世界レベルのセキュリティ」等と礼讃する宣伝もあります
が、ここで言う「セキュリティ」とは、他の利用者に対する
「セキュリティ」に過ぎず、警察等の他政府機関の関係者は
これら「セキュリティ」をいとも簡単に乗り越えて、すべて
の情報を盗み見る事が出来るのです。少なくとも大手“クラ
ウド”業者の提供する“クラウド”サービスの中に、為政者
が閲覧する事が出来ない情報はありません。中小“クラウド”
業者の中には、良心ある担当者が本当に「セキュリティ」を
保っているところもあるかも知れませんが、為政者にとって
良心ある担当者を辞めさせる事は、とても簡単な事です。

「“クラウド”に身を任せる選択」とは、すなわち「“内心
の自由”を放棄する選択」と等しい事なのです。

 
posted by miraclestar at 17:00 | Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする

2020年06月08日

いわゆる“全権委任法”が成立。体を張って止めなければ取り返しがつかなくなる

先日、国会にて、与党と一部野党の多数派による強行採決で
いわゆる“全権委任法”と呼ぶ事が出来る法律が、成立して
しまいました。新型コロナウィルスの混乱が続く中で、火事
場泥棒と批判された法律のうちの一つが、シレッと成立して
しまったのです。これは、他のどんな法律とも異質で、国の
権力構造を一変させてしまう、大変危険な法律だと思います。

この様な法律が、一応民主主義のプロセスに則って成立して
しまったのです。事前に予告していた事もあり、一部野党は
最後まで反対の立場に立って抵抗した事は記憶に留めておく
事が出来るでしょう。しかしながら、成立してしまった以上、
今後は、法律として独り歩きを始める事になります。

先日、この法律を主導的な立場に立って推進してきた人物の
地元である都市を訪れた際、街中には、警察が設置した監視
カメラの鉄柱があふれていました。もちろん、いまはAI顔認
識カメラのひとつひとつとして運用されているようでしたが、
スーパーシティとして、名乗りを上げた際には、市民を監視
する装置として機能するようになるのでしょう。

“全権委任法”に規定された「ミニ地域政府」には、地域で
活動する人間の代表が、参加する事になっています。しかし、
地域で活動すると言っても、住民の代表ではなく、外部から
やって来て、その地域で住民を相手に、経済活動を行おうと
目論む利権享受者の代表が務める事になるのでしょう。建前
上、地域の代表という事になっていても、事実上、住民代表
が入り込む余地なないのでしょう。その様にしてつくられた
「ミニ“独裁”政府」に対して、強行採決によって成立した
法律を根拠にして、首長とも議会とも地域行政とも独立した
意思決定権を、恣意的に与えてしまう仕組みなのです。

先日、訪れた都市を中心にして延びる鉄道路線は、いわゆる
都市路線ではなく、地方の通勤通学需要を支える路線である
にもかかわらず、最新型の車両が投入され、車内には路線に
不釣り合いな監視カメラが完備される様になりました。もち
ろん、監視カメラはAI顔認識カメラであり、認知対象を検知
したら、独裁者の元に通知と映像が送られる仕組みです。表
向きはワンマン列車の運転手が車内を確認する目的のカメラ
として偽装されていますが、別の目的が含まれているのです。

(別の目的を偽装して一般利用者を騙しておきながら実際は
 盗撮しているんだ。やり方が犯罪的。ストーカーが陰から
 こっそり盗撮する様な陰湿さがある。公共の役割を担う者
 がやる事じゃない。関係する全ての人間の中に恥を感じる
 者はいないのか。これがアベのやり方なのだ。)

スーパーシティとして名乗りを上げた際には、このカメラも、
「ミニ“独裁”政府」に疑問を持ち、盾つく活動をする市民
を監視し、発見し、脅迫する装置として活躍する事でしょう。

JR西日本の駅施設で「防犯カメラ」と言えば、ほぼ全てがAI
顔認識カメラであり、駅ホームの入口等、必ず通る場所には
物々しい数の全方位カメラが仕掛けられており、個人の移動
を、細かく監視しています。江戸時代で言うところの、関所
の様にして、民衆の移動の自由を奪い、アベに盾つく活動の
芽を「犯罪」として吊し上げるべく、呼び止める事はしない
けれども、移動の履歴を見逃さない様に見張っているのです。

(自宅の真上の部屋には工作員が入居し、盗撮・盗聴機器を
 仕掛けている様だ。これまで、至近距離から狙う、特別に
 高感度の赤外線カメラが仕掛けられた事もあったが、いま
 は超高感度の盗聴器が仕掛けられている様だ。人間の耳に
 は聞こえない小さな音も拾う。最小音量のイヤホンの音も
 聞き分けている様だ。パソコンからどんな音が出ているか、
 例えばパソコンでどんな動画を見ているか等漏れてしまう。

 やつらは、あらゆる生活音を個別に登録して記録している
 様だ。歯がぶつかり合う音、髪をかきむしる音、くしゃみ、
 鼻息がたてる音、つばを飲み込む音、おならも。あらゆる
 音を記録し、データの塊にして、おし固めようとしている)

政府はアイデアのある者からアイデアを窃盗し、身内の利権
共同体の構成員に横流ししています。権力を最大限利用して
情報の窃盗に励んでいる。こんな国で、何かに挑戦しようと
する者はバカです。他人の努力を泥棒して国民を騙し続ける
秩序破壊行為。そして未来世代が受け取るはずの豊さをいま
すり潰して延命を図ろうとする、未来世代に対する破壊攻撃。

これ程迄の不正義が、誰にも気づかれる事無く堂々とまかり
通っています。気付かれないから、声を上げる人がいません。
弱体化した国家に、盗賊が巣食い、ここぞとばかりに略奪を
実行に移している、略奪実行の速度を上げているところです。

民営化された鉄道会社は、公共の役割を担う者として、公平
や中立の立場を守る事を忘れ、独裁者の目と耳の役割に堕ち
ました。もはや、いまの世代がこのモンスターを止める事は
不可能でしょう。いまの世代が、窃盗を働く事で生き延びる
道を選んだのです。時代が生み出したモンスターだからです。

時代が変わる事だけが唯一の希望でしょう。

アベには恥の概念が通用しません。後世の歴史家に、バカに
されるかもしれませんが、アベには関係のない事です。いま
翼賛体制に加わらない分子を徹底排除すれば、自分をバカに
する後世が生まれて来ない様に出来るかも知れません。尊敬
する先代が、御巣鷹山で自衛隊を使って五百人を超える日本
国民を、火炎放射器で焼き殺した過去なんかも、決して掘り
返さない後世を育てる事が出来るかも知れません。

(御巣鷹山で焼かれた日本国民の中には、プラザ合意に反対
 していた経済人も含まれていました。このときから、抵抗
 する人間は暗殺して葬る事が伝統の様です。アベの時代に
 あからさまな暗殺はありませんが、選挙で得票数を書き換
 えて落選させると言う“社会的な暗殺”が行われています)

(落選後は、整備が進むAI顔認識カメラの監視網で、徹底的
 な監視下に置かれ、自由な政治活動等、望めないでしょう。
 監視網を支配する独裁者があらゆる個人の行動を先読みし、
 封殺する様になるからです。選挙では同じ独裁者が得票数
 を書き換えて、息のかかった人間を自由に当選させており、
 民意が「待った」をかける余地がありません。)

タクシーに据え付けられたAI顔認識カメラは、一部バスにも
搭載されていますが、これについても全国的な拡がりを続け
ている様です。アベに恥はありません。盾つく分子は徹底的
にすり潰す対象でしか無いのでしょう。

アベ政権になってから7年余り、国民生活を脅かす脅威は手を
変え品を変え、複雑多岐に及んでいます。安保法制や秘密保
護法が制定された際には、まだ国民生活から遠くて、実感が
湧かなかったかも知れません。その後制定された、いわゆる
“共謀罪法”は表向きには分からない様にして、国民生活の
隅々にまで、警察を介した監視の目が張り巡らされる根拠に
なりました。

(一見して、監視カメラが見当たらない住宅地にも、警察は
 無数のAI顔認識カメラを配備しています。民間住宅の中に
 は警察に協力して、警察直通のAI顔認識カメラを設置して
 いるところがあるからです。必ず、通らなければならない
 個所を封じる様にして、カメラの台数は増え続けています)

(交番の監視カメラの中には、赤外線カメラを兼用している
 ものがあり、そこから民間住宅の壁の中を盗撮しています。
 独裁者の言う通りにしない個人に圧力を加えて捕まらない
 警察とは、まるで、権力を持ったテロ組織の様なものです)

大手チェーンの飲食店には、監視カメラがAI顔認識カメラ化
していて、独裁者の監視下に加えられている場所があります。

大きくて比較的分かりやすい脅威として、TPPやEPA、そして
アベがTAGと称した日米協定は、いまは騒がれなくなりました
が、きちんと法律に書き込まれ、目に見えない様にして国民
生活を間違った方向へ縛りつけています。

(間違った政策を実行しているにもかかわらずその政策では
 不可能な事を口からの出まかせで「出来る」みたいな事を
 言って夢見させている。国民を迷走の淵に追い込んでいる。
 最終的に嘘だと明々白々になるまで何十年とかかるだろう。
 それだけの時間があれば利権を我が物に好きなだけ貪れる)

(アベの嘘が本当なのか嘘なのか、はっきりしないまま時間
 だけが流れ、最終的に嘘だったと、明々白々になったとき
 何十年か先の未来世代はいまの何十倍にも膨れ上がったツ
 ケを何かしら支払わされる事になるだろうが恥の概念がな
 いアベの知った話ではない。目の前の国民を騙せれば充分)

カジノを含むIRの計画は後退し、新型コロナの緊急事態宣言
は解除されましたが、それと入れ替わる様にして、スーパー
シティの「ミニ“独裁”政府」が野に放たれました。国民は
手を変え品を変え襲いかかる脅威に、惑わされる事無く立ち
向かう事が求められています。これら脅威は、ほぼある特定
の人物、集団からもたらされています。アベの背後に集団の
独裁者が控えているのです。本質を捉える力が必要でしょう。

中心に居座る人物は、過去、平成の時代を通して、数え切れ
ない程の日本人の命を、刺身の様にして頬張りながら、特に、
戦後日本の秩序を築いてきた、良心の大家でさえも、その命
をすり潰して、欲望の肥大化に邁進してきた罪を、闇に放り
ながら、いまもなお欲望を求める者達の中心で、犯罪を拡大
し続けているのです。

中心にいる集団は自分は直接手を下さないけれども、欲望を
求める者達の誰かが忖度して、暗殺等の工作活動を展開して
いる。だから、利権共同体としては捕まる事無く生き続けて
いるのです。

(平成の頃から、抵抗する良心の大家を殺害して葬りながら
 国家のあり様を破壊し続けている集団がいて、逃げ通して
 いる。いまもなお政権に巣食い、独裁体制を強化し続けて
 いる。悪魔が悪魔と結びついていて協力体制を敷いており、
 弱体化の兆しがない。日本の未来に暗い影を落としている)

(アベの嘘はそれを選好する狂信的支持者に支えられて今後
 長期間にわたって居座る膠着状態に入る可能性がある。数
 十年の期間に及ぶ事も有り得る。その体制を維持する為の
 超監視社会が準備されている。ほとんどの国民は気付いて
 いないが街中で独裁者の目と耳の配備が急速に進んでいる。

 この事がもたらす結果は古今東西繰り返し論じられている)

もし万が一、いわゆる“全権委任法”と呼べる法律の中身が
実行に移されれば、“監視網を支配する独裁者”に忖度する
事無しには生きられなくなるでしょう。それは生存権が脅か
される事態でしょう。想像力が働く事を祈るしかありません。

独裁者が暴走しています。いままさに暴走しています。国民
は独裁者の暴走に対して、あまりにも無防備でしかも能天気
です。法律に盗聴を制約する条文はあるけど、公共の場所に
マイクを設置してはいけない、と規定する条文はありません。
AI顔認識カメラを設置する迄もなく、声紋をはじめに個人を
特定出来る体の音はいくつかある様です。既に、街中に設置
されている監視カメラのマイクだけで、個人の居場所を特定
出来る様にする事は、可能です。いわゆる“全権委任法”と
呼べる法律が成立してしまった事は象徴でしょう。何もしな
ければ一年後には社会の空気は一変しています。いま独裁者
は窮していると舐めてかかってはいけません。国民を支配す
る手段は残っています。延命を図る事は間違いないでしょう。

 
posted by miraclestar at 16:00 | Comment(0) | 日記 | このブログの読者になる | 更新情報をチェックする