Road Bike's Log

40歳からロードバイクを始めてPBP完走を目指すナウでヤングなお父さんのブログ

 

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

リース計算機

まだまだ暑いですが、少しずつマシな気候になってきました。
朝晩は窓を開けていると寒くなるぐらいの感じですね、そろそろサイクリングに良い季節になるし、ツールド西美濃の日も迫ってきているのでいっちょ100kmばかりウォーミングアップで走っておきたいところです。


IMG_1515.jpg
先日思い出したように4月18日の金沢ブルベのメダルが届きました。


IMG_1516.jpg
おフランスからブルベカードに認定シールが貼られて返送されてきます。
11時間9分だったんですよね、もうちょっと頑張れば11時間切れるので平地主体のブルベがあったら時間短縮に挑戦してみることにしましょう。


さて、マイナンバーだの予算だのと仕事ネタがあって暇を持て余すことがなく1日が短く感じる日々が続いていますが、リースの金額やら料率やらを計算機をぴこぴこして計算するのをプログラムで簡単にできないかと思って今度はリース計算プログラムを作ってみました。

今回は条件分岐が多いのと設定項目が多いのでわりと行数の多いプログラムになりました。
物件価格、リース期間は必須で、そこから料率をいれると月額、月額をいれるとリース料率を計算するように作りました。
見積書に月額が書いてあるけどリース料率が書いてないのが多いんですよね。イランと言われればイランのですが、予算説明するときに料率聞かれる事があるから情報としては押さえておきたいです。


ではまずはプログラムから。
パートごとに見やすくするために空白行を入れました。


0→P ←とりあえず変数を全部0リセット。(物件価格)
0→T ←(期間
0→R ←(料率)
0→M ←(月額)

Lbl H
ClrHome
Menu("SELECT MENU","PROPERTY PRICE",1,"LEASE TERM",2,"LEASE RATE (EITHER 1)",3,"MONTHLY FEE (EITHER 1)",4,"CALCULATE",5,"STATUS",6,"QUIT",7 ←メニューは最大7個までみたいです。

Lbl 1 ←こっから物件価格をセットするパート
Disp "ENTER PRICE"
Disp "
Disp "(CURRENT VALUE)",P ←現在セットされている金額を表示
Input ":",P
Output(8,2,"PRICE STORED"
Output(10,8,"PRESS ENTER"
Pause
Goto H

Lbl 2 ←こっから期間をセットするパート
Disp "ENTER LEASE TERM"
Disp "
Disp "(CURRENT VALUE)",T
Disp "(YEARS)"
Input ":",T
T*12→T ←入力された年数を月数に変更
Output(8,2,"TERM STORED"
Output(10,8,"PRESS ENTER"
Pause
Goto H

Lbl 3 ←ここから料率をセットするパート
Disp "ENTER LEASE RATE"
Disp "
Disp "(CURRENT VALUE)",R
Disp "(PERCENT)"
Input ":",R
R/100→R ←%で入力された料率を少数表記に変更
Output(8,2,"RATE STORED"
Output(10,8,"PRESS ENTER"
Pause
Goto H

Lbl 4 ←ここから月額をセットするパート
Disp "ENTER MONTHLY FEE"
Disp "
Disp "(CURRENT VALUE)",M
Input ":",M
Output(8,2,"FEE STORED"
Output(10,8,"PRESS ENTER"
Pause
Goto H

Lbl 5 ←ここから計算パート
If P=0 ←物件価格がセットされていない場合警告表示
Then
Output(3,2,"SET PROPERTY PRICE"
Output(9,8,"PRESS ENTER"
Pause
Goto H
Else
If M=0 and R≠0 ←料率がセットされていて月額がセットされていない場合
Then
ClrHome
Disp "LEASE RATE",R
Disp "MONTHRY FEE",P*R
Disp "NUMBER OF PAYMENT",T
Disp "TOTAL PRICE",P*R*T
Output(10,8,"PRESS ENTER"
Pause
Goto H
Else
If R=0 and M≠0 ←月額がセットされていて料率がセットされていない場合
Then
ClrHome
Disp "LEASE RATE",M/P
Disp "MONTHRY FEE",M
Disp "NUMBER OF PAYMENT",T
Disp "TOTAL PRICE",M*T
Output(10,8,"PRESS ENTER"
Pause
Goto H
Else ←料率と月額が両方セットされているか、どちらもセットされていない場合は警告
Output(3,2,"YOU SHOULD ENTER"
Output(5,3,"RATE OR MONTHLY FEE"
Output(9,8,"PRESS ENTER"
Pause
Goto H

Lbl 6 ←現在セットされている数値を一覧表示するパート
Disp "PROPEPTY PRICE",P
Disp "LEASE TERM",T
Disp "LEASE RATE",R
Disp "MONTHLY FEE",M
Output(10,8,"PRESS ENTER"
Pause
Goto H

Lbl 7 ←プログラム終了のパート
ClrHome
Stop



とこんな感じで、長いけど単純な作業の繰り返しになっています。
最初、変数をリセットするパートも作りましたがメニュー関数は7個までしか扱えないようで使えませんでした。
その代わり、それぞれのセットパートで現在の設定値を表示できるようにしました。
リセットを入れたい場合は設定値の一覧表示部分と入れ替えれば良いかと思います。その場合は、先頭にラベル(Lbl Tとか)を入れて、ClrHomeしてからGotoすれば良いと思います。

計算部分はIF関数をネストしています。うまく動いているのかわかりませんが、今の所試算の状態ではきちんと条件分岐しているようです。実地でのサンプリングが集まってくると修正が必要になってくるかもしれません。

Lbl 5パートを分かりやすく且つ美しくビジュアル化するとこうなります。
IMG_1517.jpg
まあ、今の所想定通りに動いています。


Capture 1_20150828
起動後の画面。
料率と月額はどっちか1個ねと表示してあります。毎度のことながら日本語が使えないのでそれっぽい英語にしてありますが、正しい表現方法知ってる方いましたらコメントなどで教えて下さい(^^)/


Capture 2_20150828
物件価格の入力画面。現在設定されている金額を表示しつつ金額入力を促します。


Capture 3_20150828
これはメニュー番号6の一覧表示画面。ここで今セットしてある数値を確認できるようにしてあります。


Capture 4_20150828
計算結果画面。
この計算の場合は料率がセットされていたので月額を計算して表示しています。

ということで、なんとなく動いています。
途中の計算をまだしっかり検証していませが、これからたくさんリースの実地資料が来るので検算しながら調整していきます。
あと、総額がセットされていない場合は警告を出しますが期間がセットされていなくても何事もなかったように0で計算しています。こいつは時間があるときに機能を追加して、まだ他にも警告関係で修正したい部分もあるので、完成したらまた追記します。


さて、今日もまた家に帰ってくるのは明日かな(^^;
なんとか駐輪場は今日のうちに出庫したいと思います。



Comments
 
メダル来ましたか。私は、購入しなかったので、カードだけもう少し前に届きました。
が、まだ正月のが来てません(;^ω^)

パソコンだと、立ち上がりを持っていないといけないので、ちょいちょいっと計算できて便利そうですね。
 
>tenyuさん

メダルもこのデザインのやつはもうそろそろいらないですね〜。
新デザインになったらまたコレクションですね。

グラフ関数電卓、思いのほか便利でいいです。ポケコンだと重いけどこれは胸ポケにも入ります
TI-BASICも分かりやすいし、計算機にこんな機能があればな〜と思ったら数時間で作れるから結構病みつきになってます(^^)

Body
プロフィール

ゆあんこカロとー

Author:ゆあんこカロとー
自転車
 Cinelli Pro ESTRADA 
 Cannondale CAAD8 5 105
 RALEIGH Carlton N

イベント参加記録
2014
 AR中部 BRM315 200km 12h25m
 完走 (CAAD8)
 AR中部 BRM412 300km 18h21m
 完走 (CAAD8)
 ツール・ド・西美濃 120km
 完走 (ESTRADA)
 AUDAX近畿 BRM1004 200km 11h38m
 完走 (ESTRADA)
 鈴鹿エンデューロ 2014/11/15
 4Hロード 146位 (ESTRADA)
2015
 AUDAX近畿 BRM418 200km 11h09m
 完走(ESTRADA)

年別アーカイブ
検索フォーム
ブロとも申請フォーム
QRコード
QR
ランキング

12345678910111213141516171819202122232425262728293031 10
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。