比較サイト 適正体重表示ソフト: いつか帰るところ

2011年10月04日

適正体重表示ソフト

というわけで作ったプログラムを紹介したいがためにブログ引っ越ししました\(^o^)/

せっかく移動したことだし紹介がてらに一つ実用的なソフト作って見ました!


適正体重計算ソフト.exe
↑からダウンロードして試してもらえると喜びます

いかんせん.exeなだけにダウンロードしようとするとこれやばくね?って聞かれまくると思います(´・ω・`)

まー私にウイルスなんて作る技術ないのでご安心を


BMI&適正体重表示ソフト

体重と身長を入力すると様々なデータが表示されます
できること

・身長にあった適正体重を表示
・BMIを表示
・あと何キロ痩せるべきか&あと何カロリー消費するべきか表示
・1日に必要な摂取カロリーを表示
・有名人の適正体重を表示


これまでもいくつかプログラムは作ってきてるんですが

実用性あるものは初めてだと思います。


しょぼっちい機能しかありませんが初心者なもんで4時間程度は作成時間かかりました



ちなみにソースコードはこんな感じ


Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim X As Decimal = TextBox1.Text
Dim Y As Decimal = TextBox2.Text / 100
Dim Z As Decimal = Y ^ 2


Label3.Text = "あなたの適正体重は " & (Fix(((Y ^ 2 * 22) * 10) / 10)) & "kg です。"
Dim tai As Decimal = (Fix(((Y ^ 2 * 22) * 10) / 10))
Label4.Text = "BMI値は " & (Fix((X / Z) * 10) / 10) & " です。"

If X - tai > 0 Then
Label7.Text = "あなたは太っています、あと " & (Fix((X - tai) * 10) / 10) & "kg 痩せましょう。"
Else
Label7.Text = "あなたは痩せています、あと " & (Fix(0 - (X - tai))) & "kg 太っても適正体重です。"
End If

If X - tai > 0 Then
Label9.Text = "あと " & (X - tai) * 7000 & "kcal 消費すれば適正体重になります。"
Else
Label9.Text = "あと " & (Fix(((0 - (X - tai)) * 7000) * 100) / 100) & "kcal 余分に摂取しても適正体重です。"
End If

Label8.Text = "一日の必要摂取カロリーは " & tai * 25 & "〜" & tai * 30 & "kcal です。"


End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
TextBox1.Text = 41
TextBox2.Text = 160
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
TextBox1.Text = 147
TextBox2.Text = 184
End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
TextBox1.Text = 70
TextBox2.Text = 175
End Sub
End Class



慣れた人ならもっと綺麗に書けるんだろうなぁ、どうにも見づらい



まぁせっかく作ったんで誰か使ってやってくださいな\(^o^)/
posted by ちきん at 23:14| Comment(3) | プログラム | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
いつの間にかブログ引越ししてたんですね!!
Posted by イモグ at 2011年10月06日 07:05
知らない間にブログ引っ越しされてたよー\(^o^)/
Posted by E at 2011年10月13日 03:15
>芋さん
>容疑者

そろそろブログも固定化したいところなんだけどね/(^o^)\
ここが定着化するといいな、シンプルな感じでいいしseesaa

またご贔屓に〜
Posted by ちきん at 2011年10月14日 02:53
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

×

この広告は1年以上新しい記事の投稿がないブログに表示されております。