CSVデータを追加・修正します

データ表を使ってCSVデータを追加・修正します。CSV型データはエクセルや売上、会計などのソフトでそのまま読み込めるので使えると便利です。

プロデルではデータ表という表形式のコンポーネントが用意されているのでそのままデータを追加したり修正することが出来るようになります。前回作成したプログラムの画面に保存するためのボタンを追加します。

前今回はメイン画面にボタンを追加してデータを追加して保存できるようにします。

-----ここから

データというデータ表を作る
データに{「名前」、「年齢」 、「住所」 、「メモ」}という列を加える
データへ「年齢表.CSV」から読み込む

メイン画面を表示する
待機する

メイン画面とは
  ウィンドウを継承する
  
  はじめの手順
    初期化する
    表部品1のデータ表をデータに変える
  終わり
  初期化する手順
ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
この実質大きさを{477,329}に変える
この内容を「表部品のテスト」に変える
このドラッグドロップを○に変える
初期化開始する
ボタン1というボタンを作る
その位置と大きさを{404,293,61,24}に変える
その内容を「ボタン1」に変える
その移動順を3に変える
表部品1という表部品を作る
表部品1を初期化開始する
その位置と大きさを{12,12,453,271}に変える
その移動順を2に変える
その位置固定方向を「右+左+下+上」に変える
表部品1を初期化終了する
初期化終了する
終わり

  開いた時の手順
    行一覧は、表部品1の行一覧
    番号を1から表部品1の行数まで増やしながら繰り返す
      もし行一覧(番号)の新しいなら、繰り返しを続ける
      行一覧(番号)の見出しは、番号
    繰り返し終わり
  終わり

ボタン1がクリックされた時の手順
データを「年齢表.CSV」へ保存する
終わり

終わり

-----ここまで

今回作成したサンプルを鵜退かしてみました。

CSVファイルを部品表に読み込む

プロデルの表部品の中にある表部品のサンプルプログラムに手を加えて CSVファイルの内容を読み込むように変えます。読み込むファイルは前回使用した 「年齢表.CSV」 です。

プロデルのサンプルにある表部品のサンプルをファイル読み込みに変更します。

---ここから

データというデータ表を作る
データに{「名前」、「年齢」 、「住所」 、「メモ」}という列を加える
データへ「年齢表.CSV」から読み込む

メイン画面を表示する
待機する

メイン画面とは
  ウィンドウを継承する
  
  はじめの手順
    初期化する
    表部品1のデータ表をデータに変える
  終わり
  初期化する手順
ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
この内部領域大きさを{442、258}に変える
この内容を「表部品のテスト」に変える
このドラッグドロップを○に変える
表部品1という表部品を作る
表部品1を初期化開始する
その位置と大きさを{12、12、418、234}に変える
その移動順を2に変える
その位置固定方向を「右+左+下+上」に変える
表部品1を初期化終了する
  終わり

  開いた時の手順
    行一覧は、表部品1の行一覧
    番号を1から表部品1の行数まで増やしながら繰り返す
      もし行一覧(番号)の新しいなら、繰り返しを続ける
      行一覧(番号)の見出しは、番号
    繰り返し終わり
  終わり
終わり

―--ここまで

実行するとこんな感じになります。

プロデル入門01

先日、2回に分けて書いたプロデル入門ゼロに「終了」ボタンを付けなかったことに後悔が残っている。そこで、今回は趣向を変えてプロデルの画面デザインについて少し書いてみようかと考えている。相変わらずその場しのぎで読みづらい文章で申し訳ない。

 前回作成したプログラムにはテキストが3か所、それに「ボタン1」という名前のボタンが画面にあるだけで、作った人にしか意味が分からないものになっている。

このままでは分かりづらいので改良していく。

まずは前回作成したプログラムファイルを開く。

 前回作成したプログラムを開く。右側にある「メイン画面」をクリックする

 「メイン画面」のタグが追加され画面が表示されました。

ここから改造を始めます。ボタンの名前を変更します。

画面上の「ボタン1」をクリックし画面の右下の固有(プロパティ)の一番下の方にある「内容」があるので、そこを「ボタン1」から「登録する」に変更します。

改行すると画面上のボタン名が変更されます。

次に、テキスト蘭の前に何も書かれていないと判らないので、テキスト蘭の前にラベルを入れます。現行のテキスト蘭を右寄りに変えます。

文字で説明すると分かりづらいので動画を入れます。

テキスト蘭を移動し終えたら、次にラベルをテキスト蘭の前に入れます。

こんな感じになります。

先ほどの「ボタン」の名前の変更と同様に表示する文字を変更してください。

プログラムを終了させるためのボタンを追加します。

画面上の「終了ボタン」をクリックしプログラムを追加します。

終了する。と入力してください。

これで「終了」ボタンが追加されました。

 

プロデル入門ゼロに、書込みを追加する

今回作るもので、こんな感じで動作するようになります。ボタンでファイルに書き込みをします。終了ボタンが無いので右上の×で終了させてください。

プロデル入門・ゼロで書いたものでは画面を作るだけなのでファイルを保存することが出来ない
そこで今回はファイルを書き込むことにする。
プロデルリファレンス「CSVファイルで読み書きする」を開くとこのようなサンプルがある。

データ表を作ってデータとする
データに{「たろう」、「abc@xxx.com」、「http://www.xxx.com/」}を加える
データに{「はなこ」、「def@xxx.com」、「http://www.xxx.com/」}を加える
データを「data.csv」へ保存する

前回作成した画面にファイルを書き込むプログラムを書き足します。

サンプルプログラムフォルダにあるものを使った方が使い勝ってが良さそうなので今回はそちらを使います。

開くファイルは「CSVファイルの操作.rdr」

ファイル名の上でマウスの左ボタンをクリックした編集を選びます。(プロデルにドラッグでも良い)

こんな感じになると思います。

リファレンスとはちょっと異なりますが、内容はほぼ同じです。

新しいウィンドウを追加します。

こんな画面になるはずです。

前回書いたプロデル入門ゼロで書いたものを追加します。

タグ「CSVファイルの操作.rdr」を選択した見てください。この段階でプログラムに画面の作成が追加されています。

このままプログラムとして動作すれば良いのですが、継ぎ足しなので現状では2つのプログラムが独立して存在しています。

ここで画面に入れた内容を書き込むようにする方法を考えます。

画面に入れたテキスト(入力した文字)は画面に書き込んだ段階でPCに存在しています。今回の画面では入力する場所を3か所作りました。それを取り出すことを考えましょう。

「メイン画面」のタグを選択して、「ボタン1」をダブルクリックします。

プログラムに「ボタン1がクリックされた時の手順」が追加されます。

何にどのような名前を付ければ良いのか?という事ですが画面上に作成したテキスト蘭には自動的に名前が付けられています。(変更できます)

画面の右下にあるプロパティの一番下のほうを見てください。名前が書いてあります。

その名前を「ボタン1がクリックされた時の手順」の中に書き入れていきます。

その際、ファイルに渡す際に使う変数名を用意します。

今回使用する書き込むデータは、「名前01」「名前02」「名前03」を今回使う変数名にします。

こんな感じで変数にセットします。

セットするのは「テキスト1の内容」です。「テキスト1」だけだと違うものがセットされるようになってしまいます。

元にしたプログラムを2つに分けてファイルに書く部分をその下に追加します。

元プログラム

データ表を作ってデータとする -—– この部分で分ける

この下のプログラムを「ボタン1がクリックされた時の手順」に移動します。

もし「data.csv」というファイルが存在するなら、データへ「data.csv」から読み込む

データを「data.csv」へ保存する
データの一覧を表示する

ここまで作ったプログラムを見てみましょう

————————ここから

データ表を作ってデータとする
メイン画面を表示する
待機する

メイン画面とは
ウィンドウを継承する
はじめの手順
初期化する
ーー貼り付けた部品に対する操作をここに書きます
終わり
初期化する手順
ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
この内容を「メイン画面」に変える
ボタン1というボタンを作る
その位置と大きさを{184,199,50,25}に変える
その内容を「ボタン1」に変える
その移動順を3に変える
テキスト1というテキストを作る
その位置と大きさを{32,51,157,19}に変える
その移動順を4に変える
テキスト2というテキストを作る
その位置と大きさを{32,93,157,19}に変える
その移動順を1に変える
テキスト3というテキストを作る
その位置と大きさを{32,137,157,19}に変える
その移動順を2に変える
終わり

ボタン1がクリックされた時の手順
名前01=テキスト1の内容
名前02=テキスト2の内容
名前03=テキスト3の内容

もし「data.csv」というファイルが存在するなら、データへ「data.csv」から読み込む

データに{今、[名前01]、[名前02]、[名前03]}を追加する
データを「data.csv」へ保存する
データの一覧を表示する

終わり
終わり

————————ここまで

 

 

 

 

 

 

 

 

 

ちょいと思う事があって

パソコンを使ってプログラムを作るとき、古い時代のおじさん世代としては画面が気になる。
その中で入力画面が簡単に作れる言語を手に入れようと思うとVisual系になってしまう。
ここで突然Visual系と言われてもパソコン言語に縁の無い人にとっては何のことか分からない。そんなものだ、Visual系とは画面を、イメージのままに作れる種類の言語(主にパソコン)で主にC#とかBasic等がある。言語使うためには色々な設定(プラットフォーム)が必要で正直に言えば設定で挫折する人も少なくない。(マイクロソフト「Visual Studio 2017 Community」は無料です)。初心者がプログラムを始めようにも敷居が高い。
そんな中で異色を放っているのが「日本語プログラム」で、「なでしこ」・「プロデル」は画面が簡単に作れるだけでなく。インストールするだけで簡単に始めることが出来る。それでいてプログラム言語としての要所はきちんと押さえているのでプログラムの基礎を付けることが出来る。日本語だから簡単とは言わないが、書き間違いを探しやすいのは事実。逆に、人によっては日本語だから曖昧さゆえの壁に当たるかもしれない。
入力画面が簡単に作れて、入力ができる、これは事務系のプログラムには必須事項なので利用しないのはもったいない。しかも、エクセル・ワード等との連携が得意なので使い方によっては時短が可能になる。

ちょいと思う事があって、今日はそんなことを節操なく書いている。

もしも、興味を持った人がいれば、言語の名前で検索していただければ簡単に見つかる。

インフルエンザで寝込んでました

しばらく更新していなかったのですが、B型インフルエンザに罹って寝込んでました。
ようやく何とかなってきたので、そろそろ再開します。

プロデルの最新版も公開されたので、とりあえずプロデルのバージョンアップもしてみようかと考えています。

日本のバブルの原因と破滅まで

日本のバブル崩壊に至る経緯が分かりやすく出ていたので転載

出典はこちら

5: 以下、5ちゃんねるからVIPがお送りします 2017/12/17(日) 23:43:23.057 ID:MIPbrLsq0
じゃあ日本のバブルの原因と破滅までほそぼそ語っていきます

ブラックマンデーという世界株価大暴落事件が起きる

日本「やばいから証券会社のみなさん、なんとか株価維持するようお願いします」

野村証券、山一證券、日興証券、大和証券「わかりました」

証券会社「みんなーすげえ金融商品できたぞー」

特金
簡単に言うと、企業の代わりに株とか買って資産運用します
すくなくとも銀行の金利は絶対保証します
→要は最低でも銀行の金利と同じ、儲かればそれ以上絶対に払うと言う保証付きのもの

金利保証は違法だったが政府は黙認

日本企業「マジかよ。買います買います!」

こうして日本企業は本業以外での株や不動産なんかの投資による利益が爆上げする

当時は「財テク」と呼ばれ、めちゃくちゃ流行した

日本企業「もっと特金買いてえ」

証券会社「ワラント債やりましょう(ボソッ」

ワラント債
お金を返してもらう権利プラス利子(ここまでは普通の債権)
プラス株を安く買う権利

※厳密には違うけど簡単のためこんな感じの説明で

日本企業「ワラント債やってます!みんな買ってください!」

海外「利子だけじゃなくて株ももらえんのかよ!買います!買います!」

こうして世界のお金が日本企業に集まりだす

ワラント債の売り方も工夫してて、日本円で買ってもらうんじゃなくてドルで買ってもらってた

当時は円が大人気だったので

例えばワラント債を100ドルで買ってもらう(たとえばこの時点で1ドル = 100円とする)

ドルのまま持っとく

時間経つとたとえば1ドル = 120円になる

最初は
100円*100ドル = 1万円
だったのが
120円*100ドル = 1.2万円
になる

つまりお金借りてるのに逆にお金受け取ってるみたいな状態になってた

ワラント債を発行すればするほど儲かる自体に

日本企業「どんどん売りますよー」

海外「買います買います!」

日本企業「金集まったから特金にどんどんつぎ込みます」

証券会社「特金で集めた金で株に投資しまくります」

こうして日本の株価は高騰する

金が儲かりまくると企業は不動産を買いまくり、地価がどんどん高騰する

不動産価値がどんどん上がるので銀行が企業に融資するとき本来は
会社の業績だったり、利益だったりを見るものなんだけど
「その会社がどのくらい不動産を持っているか」が基準になり始める

つまり本業がどれだけ調子悪くても不動産持ってれば金が借りれる状態になる

世界「日本の銀行金貸しすぎだろ。不公平だからいじめるか」

1987年に「バーゼル合意」に参加
ここでBIS規制というものが作られる

BIS規制は簡単に言うと、

「銀行が自分で持ってるお金の12.5倍までしか貸しちゃダメです」
(自己資本最低でも8%もっとけ)

っていう規制

日本「それじゃ今の好景気終わっちまうよ。なんとか頼む」

世界「しょうがないな。じゃあ日本だけ特別に持ってる株の含み益の半分を自己資本(自分の持ってるお金)としてカウントしていいよ」

日本「どうも」

まあややこしいので簡単に言うと

「日本の株価が上がり続ければ、日本の銀行は今まで通りの感じで貸付ができる」

「裏を返すと株価が下がりだしたら銀行即潰れます」

まあそんなこんなで日本は儲かり続け>>1で書いたようなとんでもないことが起こり続けます

海外の証券会社からは「日本の市場は政府によって操縦されている」と揶揄されまくった

それでも日本の株価は伸び続けた

ところが当時のリクルートが政治家に賄賂としてこっそり自社の株を配りまくったのがバレ(リクルートコスモス未公開株事件)、日本全体に政治家に対する不信感が強まる

当時の日銀の総裁は大蔵省(いまの財務省)から選ぶのが通例(政府がコントロールしやすいため)がだったんだが、

政治家への不信感から、大蔵省と全く関係のない日銀の中から叩き上げでのし上がった三重野康が日銀の総裁として君臨する

これを機にバブルは崩壊し始める

三重野総裁は「株は一度も買ったことない」「いまのバブルは日本をダメにする」「長期的にみてバブルは日本経済へ悪影響である」と公言しまくっていた

そこで三重野総裁はバブルを鎮圧するべく策を講じる

日本は好景気で給料も上がってはいたんだけど、
それを上回る勢いで地価も爆上げしていた

なので普通のサラリーマンは家を買うことは不可能に近い状態になったりしていた

三重野総裁はバブルを鎮めるため、金利を引き上げた

金利を引き上げることで、株や不動産への投資をやめささ、預金するよう促した
みんなの目を覚まさせようとしていた

しかしヒートアップしていた日本企業はそんなのには目もくれず株への投資をやめなかった
そんなこんなで株価はやっぱり上がり続け、当時の日経株価は市場最高の38915円にまで達していた(比較のために現在は22500円)

そこで次に三重野総裁は「不動産向け融資を減らす」という作戦に出た

つまり今まで盛んに行われていた「不動産買って儲けるんで金貸してください!」っていう企業に金を貸さないようにし始めた

ても実はこれには抜け穴があった

銀行が貸すのはダメだけど、住宅金融専門会社、通称「住専」は今まで通りでOK

つまり規制はされたけど本音では不動産に投資したかった銀行は、住専に肩代わりさせることで今まで通りの融資を続けようとした

まあでも不動産向け融資の規制は一定の効果があった

金利引き上げ、不動産向け融資の規制

これだけしてもバブルはなかなか収まらなかった

そこで、日銀はどんどん金利あげる
最終的には定期預金の金利は6%になる

日銀の金利の話がどんどん広まっていくと

「普通に貯金してても2%、定期なら6%金利もらえるし、わざわざ株に投資しなくてよくね?」

という風潮になっていく。

これが浸透していき、株式市場は崩壊し始める

バブル期は銀行の預金金利が5%とかだったもんなぁ

大蔵省はなんとか株価を維持するために証券会社に圧力をかけ株をみんなに買わせようとした

しかしうまくいかず株価はどんどん暴落

日本企業、日本人が買い漁った海外の高級ビルなんかは軒並み売りに出されるように……

これにより不動産価格も暴落

株、不動産が暴落すると借金を返済できない企業が続出する
企業に貸付を行っていた銀行たちは不良債権(返してもらえないお金)がどんどん増えていく

お金返してもらえない

仕方ないのでその分は自分が持ってるお金から捻出

自己資本の比率が下がっていく

>>37 BIS規制に引っかかっちゃう

こうして企業はどんどん破産、倒産

銀行もやばい

国民「銀行にお金預けといたらやばくね?」

国民「だよな。引き出しとこうぜ」

こうして取り付け騒ぎが起きる

銀行「取り付けが増えて預金がどんどん引き出されると銀行全部潰れちゃう…」

日本「やばいやばい。とりあえずペイオフ制度(預金額の1000万までしか保証しない)を一時的に変更して政府が全額保証することにしよう」

しかし間に合わず銀行、証券会社はどんどん潰れる

1996年
阪和銀行破綻
1997年
三洋証券破綻
北海道拓殖銀行破綻
山一證券破綻

バブル崩壊で有名な個人投資家も次々破産

尾上縫(おのうえぬい) 破産
累計借金額 1兆1975億円
ピーク時は借金の利子だけで1日1億7000万あったもよう

その後日本は世界各国が成長を続ける中デフレ時代を過ごすことになる

通称「失われた20年」

63: 以下、5ちゃんねるからVIPがお送りします 2017/12/18(月) 00:45:58.035 ID:tuzHMqBr0
終わり

最近色々本読んでつけただけの知識で付け焼き刃だからいろいろボロあると思う

大筋はこんな感じです

出典: world-fusigi.net

字を教えて欲しいといってきたので

4歳になる娘が、字を教えてほしいといってきたので、
どうせすぐ飽きるだろうと思いつつも、毎晩教えていた。

ある日、娘の通っている保育園の先生から電話があった。
「○○ちゃんから、神様に手紙を届けてほしいって言われたんです」
こっそりと中を読んでみたら、
「いいこにするので、ぱぱをかえしてください。おねがいします」
と書いてあったそうだ。
旦那は去年、交通事故で他界した。
字を覚えたかったのは、神様に手紙を書くためだったんだ・・・
受話器を持ったまま、私も先生も泣いてしまった。

「もう少ししたら、パパ戻って来るんだよ~」
最近、娘が明るい声を出す意味がこれでやっとつながった。

娘の心と、写真にしか残っていない旦那を思って涙が止まらない

VIPPERな俺 : たまには感動するコピペを貼らないか? (via picapixels)