[もくじへトップページへ前ページへ次ページへ]

                                       


 ●フォントサイズと配置

   テキストボックス1〜4の、フォントサイズと配置を次のようにします。これ

  は、プロパティーボックスで設定します。

   font size = 14

   Alignment = 1−右揃え

   MultiLine = true

  Alignmentは配置のプロパティーです。しかし、これを有効にするには次の

  MultiLineをtrueに設定しなければ、うまく動きません。



   この状態で実行させてみましょう。

   あれ?入力したデータが消えてしまいましたね。なんかプログラミングという

  のは疲れますね。時間ばかりかかって・・・。

   でも、ここでやめてしまってはもったいない。がんばりましょう。



   実は、Enter キーが押されたときキーコードがのこっているために、このよう

  な現象になるのです。次のように、KeyAscii=0 を付け加えてください。

   If KeyAscii = 13 Then
     
KeyAscii=0
     
Text2.SetFocus
   
End If


   今度はどうですか?

   最初はなかなか思ったとおりに動いてくれません。プロパティーの設定をいろ

  いろ変えたりして、だんだんとプログラムが仕上げていくのです。



 ●距離の四捨五入

   計算された距離を四捨五入しましょう。ここでは、小数第4位を四捨五入して、

  小数第3位に丸めます。

   四捨五入の考え方を次に示します。



       例えば、234.3456を四捨五入するには

             234.3456

                ↓ ×1000

             234345.6

                ↓ +0.5(ここがポイント)

             234346.1

                ↓ 整数部をとる(INT関数)

             234346

                ↓ ÷1000

             234.346



       もうひとつ、123.2343の場合は

             123.2343

                ↓ ×1000

             123234.3

                ↓ +0.5

             123234.8

                ↓ 整数部をとる(INT関数)

             123234

                ↓ ÷1000

             123.234



   どうですか?うまくいくでしょう。こんなうまい方法を誰が考えたんでしょう

  か?



    この考えをプログラムにすると、次のようになります。

             x = 234.3456

             r = INT( x*1000 + 0.5)/1000

  xのデータの小数第4位を四捨五入した値が、rに代入されます。



  この例題の距離Sを四捨五入するには、次のようにSの計算の後に1行加えます。



 0130   
DY = Y2 - Y1
 0140
 0150   
S = Sqr(DX ^ 2 + DY ^ 2)

      
S = INT(S*1000 + 0.5)/1000   ←追加

 0160
 0170   
Text5.Text = Str(S)



 ●スタート時のフォームの位置

   スタート時のフォームの位置は、フォームレイアウトウインドーでディスプレ

  イの絵をドラッグすれば設定できますが、画面サイズが異なるとうまくいきませ

  ん。

   これを解決するには、フォームをダブルクリックして、次のようなプログラム

  を記述します。これは覚えておくと便利です。



 0600 Private Sub Form_Load()
 0610   Screen.MousePointer = 0
 0620   Me.Left = (Screen.Width - Me.Width) / 2
 0630   Me.Top = (Screen.Height - Me.Height) / 2
 0640 End Sub



   Form_Load()は、プログラムがロードされて1番目に実行されるプロシージャ

  です。通常、初期設定をこのプロシージャで行います。



  次回は、方向角のプログラムです。

  ここまでのソースプログラムは、次をクリックすればダウンロードできます。

ソースプログラムのダウンロード 

圧縮されていますので、解凍してから使ってください。


質問や感想をお聞かせ下さい。

■お名前(未記入可)

■メールアドレス(未記入可)

■質問


■このページの印象はいかがでしたか?


        

 これでおわります。              


[もくじへトップページへ前ページへ次ページへ]