Notitle

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

スポンサーサイト

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

ActiveBasicについて 3回目(一応最終回)

プログラム完成しました。

一応ですけどね。

前回おかしかったのは

RIとLIが逆になってました。

よくあるミスですが気付きにくいミスです。

こういうのには気をつけないと・・・・

それとLongで宣言していたのをすべてDoubleに変更しました。

なんとなくです。なんとなく・・・・


それではプログラムは続きから、どうぞ。
[ActiveBasicについて 3回目(一応最終回)]の続きを読む
スポンサーサイト
  1. 2009/02/05(木) 00:41:33|
  2. 学校
  3. | トラックバック:0
  4. | コメント:0

ActiveBasicについて 2回目

今回は前回のコードにこんなのを追加しました。

'Loop文用
Dim KUI As Double
Dim LI As Double
Dim XI As Double
Dim YI As Double
Dim RI As Double



'表
do
if RI>100 Then RI=100
LI=A^2/RI
XI=LI*(1-LI^2/(40*RI^2)+LI^4/(3456*RI^4))
YI=LI^2/(6*RI)*(1-LI^2/(40*RI^2)-LI^4/(7040*RI^4))
PRINT USING "R=###.### L=######.## X= ######.### Y= ######.###";RI,LI,XI,YI
if RI>=100 then exit do
RI=RI+KUI
loop

です。


なぜかXIとYIが正しい値にならない・・・・
Lもおかしいかも知れないし・・・・


まだまだ改良が必要です。
  1. 2009/01/30(金) 21:20:58|
  2. 学校
  3. | トラックバック:0
  4. | コメント:0

ActiveBasicについて

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

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

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

#console

がひつようなんですね。

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

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

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

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

ActiveBasic2.6.2


ActiveBasic3.1.3

[ActiveBasicについて]の続きを読む
  1. 2009/01/27(火) 00:17:26|
  2. 学校
  3. | トラックバック:0
  4. | コメント:0

プロフィール

e3jp

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

リンクフリーです

最新記事

最新コメント

最新トラックバック

月別アーカイブ

カテゴリ

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

アクセスカウンター

アクセスカウンター

現在の閲覧者数
:

フリーエリア

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

検索フォーム

RSSリンクの表示

リンク

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

QRコード

QRコード

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