Notitle

ゲームのレビュー、PCについての雑記

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

ActiveBasicについて

学校の授業でActivebasicを使うのですが旧バージョンはネットではなかなか見つからないことが判明。

授業では旧バージョンを使うのですが新しいのを使うことに

新しいバージョンでは最初に

#console

がひつようなんですね。

最初エラーを吐き出したときはびっくりしました。

とりあえず現時点での自分のソースは続きからに書いてあります。

ソースコードにアドバイスできる人いたら教えてください。

それと旧バージョン見つけたのでとりあえずこちらでダウンロードできるようにしておきますね。

ActiveBasic2.6.2


ActiveBasic3.1.3


事前に書いておきますがこのソースをコピーしてレポート等で使用することは禁止します。

私は誰かにコピーさせるつもりなんてありません。

これをレポートとして提出なんてしないでくださいね。



-----------------------------------------------------------------------------------------------

'クロソイド曲線
#console
'宣言
Dim A As Single
Dim R As Single
Dim L As Single
Dim X As Single
Dim Y As Single
'度宣言
Dim I As Single
Dim ID As Single
Dim IM As Single
Dim IS As Single

'τ宣言
Dim TAU As Single
Dim TAUB As Single
Dim TD As Long
Dim TM As Long
Dim TS As Long

'σ宣言
Dim SG As Single
Dim SGB As Single
Dim SGD As Single
Dim SGM As Single
Dim SGS As Single

Dim DR As Single
Dim W As Single
Dim XM As Single
Dim D As Single
Dim AL As Single
Dim LC As Single
Dim CL As Single

Dim KUI As Long

'入力部分
input "R=",R
input "L=",L
input "度=",ID
input "分=",IM
input "秒=",IS
input "杭の間隔",KUI

'計算部分その1
A=Sqr(R*L)
I=(ID+IM/60+IS/3600)*3.141592/180

'τの計算
TAU=L/(2*R)
TAUB=TAU*180/3.141592
TD=Fix(TAUB)
TM=Fix((TAUB-TD)*60)
TS=Fix(((TAUB-TD)*60-TM)*60)

X=L*(1-L^2/(40*R^2)+L^4/(3456*R^4))
Y=L^2/(6*R)*(1-L^2/(40*R^2)-L^4/(7040*R^4))
DR=Y+R*Cos(TAU)-R
W=(R+DR)*Tan(I/2)
XM=X-R*Sin(TAU)

'σの計算
SG=Atn(Y/X)
SGB=SG*180/3.141592
SGD=Fix(SGB)
SGM=Fix((SGB-SGD)*60)
SGS=Fix(((SGB-SGD)*60-SGM)*60)

D=XM+W
AL=I-2*TAU
LC=R*AL
CL=2*L+LC

'出力
PRINT USING "X= ###.###";X
PRINT USING "Y= ###.###";Y
PRINT SG
PRINT "τ";TD;"°";TM;"′";TS;"″"
PRINT "σ";SGD;"°";SGM;"′";SGS;"″"
Sleep(3000)
END
---------------------------------------------------------------------------

宣言のあたりがかなり汚いですね。

それに宣言のところのコメントも適当だし・・・・

修正しなくては

これからの予定としては

do-loop文とif文を使って曲線部分の計算と表の作成をさせる予定です。

これを作成したあとにはマクロを作らなければいけません。

マクロは触ったことないので大変です。
スポンサーサイト
  1. 2009/01/27(火) 00:17:26|
  2. 学校
  3. | トラックバック:0
  4. | コメント:0
<<ActiveBasicについて 2回目 | ホーム | ツクモのこと>>

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://nomame0delete.blog33.fc2.com/tb.php/20-80178a90
この記事にトラックバックする(FC2ブログユーザー)

プロフィール

e3jp

Author:e3jp
たまにしか更新しませんがいろいろと書いていけたらと思っています。

リンクフリーです

最新記事

最新コメント

最新トラックバック

月別アーカイブ

カテゴリ

東方人形劇 (5)
製品紹介? (2)
PC (8)
未分類 (10)
学校 (3)
雑記 (3)
ギター (2)
txt (1)

アクセスカウンター

アクセスカウンター

現在の閲覧者数
:

フリーエリア

Firefox ブラウザ無料ダウンロード

検索フォーム

RSSリンクの表示

リンク

このブログをリンクに追加する

QRコード

QRコード

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