BASICの宿題はお前にまかせた

■ このスレッドは過去ログ倉庫に格納されています
1BASIC
垢版 |
2006/01/09(月) 15:35:00
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
2010/08/17(火) 18:52:08
あ、でもこの方法だと、任意の角度での断面をとるのは厳しいな～

処理速度はX 255×Y 255×Z 255のネストよりは圧倒的に早くなるんだがね。
なにしろ、（A 255×B 255）×6面で済むからね。

255→128へ間引いて、PSET→CIRCLEやLINE/BFしてやるだけでもだいぶ早くなると思うけど。
471460
垢版 |
2010/08/18(水) 11:52:01
>>469


処理がとても速くなりました。
陰線処理も、平行する二面の前後判定だけですむので非常に簡潔になりました。
確かに内部は表示されないので、外周だけ処理すれば良かったんですね！！

回転もロール・ピッチ・ヨー方式での連続回転と、各軸周りの単回回転を実装しました。

あとは任意断面を切り取る機能が欲しいのですが、外周だけの処理だと切り口の辺しか描画されず、面になりません。
任意平面で立体の断層面を描画する方法を教えて下さい。
2010/08/18(水) 20:29:57
X 255×Y 255×Z 255のネストで内部も含めた全座標（X,Y,Z）をバッファ
　↓
各座標点を指定角度だけ回転させて変更後の座標（X',Y',Z'）にリフレッシュ
　↓
回転後の任意Z'座標のみ抜き出して、平面（X',Y'）を描画

やればできそうですが、物凄い処理になって遅そうな印象が・・・
473デフォルトの名無しさん
垢版 |
2010/08/18(水) 21:05:00
逆の考えで、点集合P（x,y,z）に対して、z=Z0の平面である点集合Pz0（ｘ,y,Z0）を考える。

その平面を任意の角度（α,β,γ）に回転させて、色立体との交差判定を行う方法はどうか？？

立方体と平面の交差判定をどうするか・・・
474デフォルトの名無しさん
垢版 |
2010/08/18(水) 21:10:43
もしかして、回転後の平面の点集合Pz0'（x',y',z'）の各座標を、色関数RGB（r,g,b）に代入すれば・・・いける？？

Pz0'（x',y',z'）,RGB(x',y',z')　　ただし、0<=x',y',z'<=255の範囲にクリップしてから
475デフォルトの名無しさん
垢版 |
2010/08/19(木) 20:06:23
>>468
フォーカスアウトイベントがあるはず
共通処理を行う関数を作り、時間と給料のテキストボックスからフォーカスが離れたら呼び出す。
イベントが来たボックスと別のボックスに表示させかたはわかる？
476460
垢版 |
2010/08/20(金) 19:20:48
断層面を指定してから回転させる方法も試させてもらいました。

Z軸回りに45度回転させると断面が八角形になるのでおかしいと思ったら、
斜めだと√2倍になるせいで、断面が元の立体と同じ大きさの面だと足りなくなるようです。

X，Yのネストを0～255でなく、0～255×√2倍にしてみました。
Z軸回りの回転では角が切れなくなりましたが、立方体の対角断面を取ろうとするとまだ足りない気もする・・・。

今のところは、立方体の回転後の全座標を計算後に、Z値指定で描画が一番遅いですが、一番確実のようです。
477460
垢版 |
2010/08/20(金) 19:24:10
回転についてですが、現在の座標をもとに回転させていくと、
誤差の蓄積のためか、どんどん図形が小さくなって、数回転させると1つの点に収束してつぶれてしまいます。

現在は、角度だけを累積して、常に初回の座標を元に計算させ直すことで対応させています。

回転後の座標を利用して次の回転後の座標を計算する場合に、潰れない方法はありますか？
回転時に大きさを正規化する必要がありそうなのですが・・・
2010/08/22(日) 15:46:47
色立体をRGB式の直方体で作成していますが、球や円柱、円錐、六角形のモデルも作成できるでしょうか？

RGB式ではなく、やはりHSL（HSB）式でないと難しいでしょうか？
2010/08/23(月) 00:20:34
回転前に絶対値をとって、原点からの距離を計算しておく

回転後にも絶対値をとって、回転前の絶対値で割ってから、それを回転後の座標にかける
480デフォルトの名無しさん
垢版 |
2010/08/23(月) 09:56:28
RGB方式　→　HSL/HSB（HSV）方式への変換
0<= R,G,B =<1

H：色相（0<= H =<360，H=H+360×n）　主波長
360度モデル）
　H=60*(G-B)/(MAX(R,G,B)-MIN(R,GB))+0　if MAX(R,G,B)=R
　H=60*(B-R)/(MAX(R,G,B)-MIN(R,GB))+120　if MAX(R,G,B)=G
　H=60*(R-G)/(MAX(R,G,B)-MIN(R,GB))+240　if MAX(R,G,B)=B
　　H=0　赤　　H=120　緑　　H=240　黄

S：彩度（0<= S <=1）　主波長の頻度分布
円柱モデル）
　S=（MAX(R,G,B)-MIN(R,G,B)）/MAX(R,G,B)
　　S=0　無彩色　　0< S =< 1　有彩色　　S=1　純色
円錐モデル）
　S=MAX(R,G,B)-MIN(R,G,B)
　　S=0　無彩色　　　0< S =< 1　有彩色　　　S=1　純色

V：明度・強度（0<= V =<1）　総スペクトルパワー・最大振幅
逆円錐）
　V=max(R,G,B)
　V=1　純色　　0< V <1　通常色　　V=0　黒

L：明度・輝度（0<= L =<1）　色覚総刺激値
双円錐）
　L=average(R,G,B)=(R+G+B)/3=(ｒR+gG+bB)/3
　L=1　白　　L=2/3　CMY原色　　L=1/2　純色　　0< L <1　通常色　　L=1/3　RGB原色　　L=0　黒
481480
垢版 |
2010/08/23(月) 10:09:29
>>478
アルゴリズムからBASICで組むのであれば、>>480の方法で
HLS方式でよければ、API関数：ColorRGBToHLS()やColorHLSToRGB()を利用する方法もある
あと、英語のWikipedia（http://en.wikipedia.org/wiki/HSL_and_HSV）であなたのやりたいことがすでに行われているかも・・・

>>480で訂正箇所
誤）H=240　黄
正）H=240　青
2010/08/24(火) 22:38:06
English版のwikipediaの解説すごい！！

RBGモデルの格子を変形してHSL/HSBモデルにする過程が、図式化・計算式化されていて驚いた

RGB立方体→双六角錐→双円錐→円柱（HSL）
RGB立方体→単六角錐→単円錐→円柱（HSB）

これをアニメーションするようなプログラムアルゴリズムが欲しいね
2010/08/24(火) 22:47:49
メモのエラーについて、
出現の予測が不能・けっこう頻度が無視できない・修復不能の三拍子がそろっており、
我が身に降りかかると愕然としてしまいます。

メモのエラー対策に対する暫定案として、
救済可能なように今後は別ファイル（txtデータやcsv）で保存する形式にしたらどうでしょう？

①SBでスクリプトにメモを記載
②カレントフォルダに別ファイルを作成し、どのスクリプトのどのパネル位置に何と書かれているかを、保存時に自動書き出し
③SBでメモを見る際はそのファイルにアクセスする
④仮にソフト側でエラーが出て落ちても、ファイル自体は生き残るので、テキストエディタで中身を確認可能
⑤そのファイルを再インポートすると、修復・復帰したソフトで読み込める
2010/08/25(水) 21:32:13
>>483
誤爆！！
2010/08/26(木) 14:42:57
そのモーフィングアニメをソフトで再現してみてくれ～

RGB　　　HLS　　　　　　　　　　　　　　　　　　　　　　　　　　　　　HSB　　　　RGB
立方体→双六角錐→六角柱→円柱→球→円柱→六角柱→単六角錐→立方体
立方体→双六角錐→双円錐→円柱→球→円柱→単円錐→単六角錐→立方体
2010/08/27(金) 00:51:33
立方体はx,y,zをPSETで順次代入していくだけで簡単に描画できるけど、
球とか、円柱とか、円錐とかはどうやって描画するの？？
2010/08/29(日) 09:15:45
むしろ

HLS　　　　　　　　　　　　　　　　　　　　　　　　RGB　　　　　　　　　　　　　　　　　　　　　　　　　　　HSV（HSB）
球→双円錐→円柱→六角柱→双六角錐→立方体→単六角錐→六角柱→円柱→単円錐→半球

球は明度を表面に沿わせるか、高さに沿わせるかで2通りできそう
2010/08/29(日) 18:42:24
>>486
媒介変数θを0度→360度で変化させ、X＝r*cosθ，Y＝r*sinθで描画
一定半径r（彩度S＝255）で明度Zを0→255へ変化させると、円柱

上記で、
明度Zを0→255へ変化させる間に、半径rも線形的に増加させると、単円錐

上記で、
明度Zを0→128まで線形的に半径を増加させ、128→255で線形的に半径を減少させると、双円錐

上記で、
明度Zを0→255へ変化させる間に、半径r＝sqr（128^2-z^2）で変化させると、球（高さ明度）

上記で、
明度Z=128を中心として、媒介変数φを0度→180度へ変化させ、Z＝128*cosφ，r＝128*sinφで変化させると、球（表面明度）
2010/08/29(日) 18:53:41
媒介変数θを0度→60度，60→120度，120度→180度，180度→210度，210度→240度，240度→300度，300度→360度で場合分けして、
Y＝－√3*X＋√3，Y＝＋√3，Y＝＋√3*X＋√3，Y＝－√3*X－√3，Y＝－√3，Y＝－√3*X＋√3，で描画
彩度S＝255の固定で、明度Zを0→255へ変化させると、六角柱

上記で、
彩度S＝255の固定で、明度Zを0→255へ変化させながら、切片絶対値を線形減少させると、六角錐
2010/08/29(日) 19:26:29
HSLやHSB（V）では明度軸があり、色相環がそれを囲んでいるので、
外表面は彩度255に固定して、色相環を任意に回転させるようにアニメーションさせれば良い

明度軸を0度から90度（または-90度から+90度）だけ手前に傾けるアニメーション、
彩度を任意値にスライドさせるアニメーション、明度軸に沿った平面で断層をとるアニメーションもあると良いかな
2010/08/31(火) 12:55:46
立方体の対角線を軸にして、垂直断面をとった場合の断層と、水平断面を軸の高さに応じて何枚かとった断層をみたい
2010/09/02(木) 00:53:40
夏休み終わったから、ヴィジュアル系ベーシックが使える様になって女子にモテモテと企んで、マヌアル読んでみたが、ベーシックって帳票印刷の機能がない？
やっぱりジャヴァを使えないと帳票印刷は無理？
おまいら帳票印刷どうしてるの？　諦め？

あと、ベーショック使えて女子に持てた事有る？
2010/09/02(木) 14:19:13
>>492
＞帳票印刷
やろうと思ったことさえないので、わからん
標準ではできないかもしれんが、APIとかDLLでできるくなるんでは？

＞ベーショック使えて女子に持てた事有る？
ま、使えようが使えまいが、モテはしないが・・・
SEがBASIC使えても、あまり興味持たれないだろうが

学生や普通職なら、簡単な処理をするソフト作ったりして重宝がられたり、話すきっかけ作りになることはあるな
2010/09/02(木) 17:12:43
>>492
帳票は、Excel組込みのBASICを使う。VBと同じだ。
Excel使いの間では、関数が使えれば先生、VBAが使えれば神様と呼ばれる。
2010/09/02(木) 17:29:10
Excel系BASICの住民もいたんだな

CG系住民だけかと思ってた
496デフォルトの名無しさん
垢版 |
2010/09/09(木) 22:07:48
BASICで立体座標を扱うと処理遅いんだけど、BASICでDirectXとか使って処理を高速化する方法ないの？
2010/09/10(金) 01:04:12
>>496 DarkBASIC
2010/09/10(金) 13:00:15
directxのためにc覚えたほうが前向き。

http://hibari.2ch.net/test/read.cgi/tech/1278214135/
【C++】 DirectX初心者質問ｽﾚ Part30 【C】
http://hibari.2ch.net/test/read.cgi/tech/1178285897/
【PureVideo】DirectX Video Acceleration【AVIVO】
http://hibari.2ch.net/test/read.cgi/tech/1061285378/
Managed DirectX vol.2
499デフォルトの名無しさん
垢版 |
2010/09/10(金) 22:15:24
Visual Basicでの質問なんですが、

今給料明細のプログラミングをしてまして、
1日目の就業時間　8時間30分
2日目の就業時間　8時間30分
3日目～～
4日目～～

総労働時間123時間30分
などという用に作りたいのですが、
timeserial関数を使って計算したところ24時間以降はまた1になってしまいます。
何かいい方法はないでしょうか？
500デフォルトの名無しさん
垢版 |
2010/09/11(土) 00:28:19
↑　解決しました。すいません
dim t as date
dim c as double

c=CLng(textbox1.text)+CLng(textbox3.text)+････
t=Timeserial(0,CLng(textbox2.text)+CLng(textbox4.text)+････,0)

textbox10.text=c+minute(t)

で解決することができました。
501デフォルトの名無しさん
垢版 |
2010/09/11(土) 00:33:17
↑何回もすいません
textbox10.text=c+hour(t)

でした、
2010/09/11(土) 11:47:33
最近のユーザー解析

3DCG系＞2DCG系＞事務処理系＞教育系（宿題）＞答えてくれるSE
2010/09/13(月) 21:20:07
Dimいっぱいすると、「メモリが足りません」が出るのですが・・・？
504デフォルトの名無しさん
垢版 |
2010/09/13(月) 21:21:05
開発ソフトからテスト実行するのと、コンパイルしてexe化したものを実行するのは、速度が違うの？
2010/09/13(月) 21:44:33
>>503
多次元配列を使うとメモリ消費が多い。思った以上に使いますよ
2010/09/13(月) 21:48:00
>>504
開発環境にもよりますが、
一般的に開発環境からの起動はデバッグモードだと思うので遅くなる。
コンパイル時にも、最適化などのオプション設定で違ってくる。
2010/09/13(月) 21:57:09
>>505
>>506

なるほどです。
ありがとうございます。
2010/09/16(木) 15:44:01
開発時と運用でコンパイル条件変えると不具合が出る事はよくあるけどね。
運用時の解析用にデバック機能月でコンパイルも有り。
2010/09/17(金) 20:27:22
基本的な質問ですみません。
Visual Basic 6.0の質問でも良いですか？

同じ処理をまとめてしまって、そのブロックを呼び出して使用する際に、
①GOTO >> GOTO
②GOSUB >> RETURN
③Subの呼び出し
④Functionの呼び出し
・・・などがありますが、

②のGOSUBで呼び出すサブルーチンブロックはどこへ記載しておけばよいのか？
（呼び出さない限り実行されない場所で、きちんと有効に呼び出せる場所はどこ？）

③と④の違いや実際の使い方について教えて欲しいです。
2010/09/18(土) 03:51:24
>>509
> ②のGOSUBで呼び出すサブルーチンブロックはどこへ記載しておけばよいのか？ 
> (呼び出さない限り実行されない場所で、きちんと有効に呼び出せる場所はどこ？） 
そういう場所は無いので exit sub / exit function の後に作る
もしくはそもそも gosub を使わずにプロシージャで分離

> ③Subの呼び出し 
> ④Functionの呼び出し
呼び出し方はほぼ一緒
Subは戻り値が無いため、Let 式や Set 式の右辺には置けない
使い方とか言われてもVB中学校でも見てれば良いとしか…
2010/09/18(土) 14:22:32
Sub......
　
　...............
　Gosub A
　..............
　Exit Sub
　
A：
　...............
　Return

End Sub
----------------------------------------------------------------
End Subより手前に書かなければ、有効な範囲でなくなるため呼び出せません。
Exit Subで区切っておかないと、最後にサブルーチンが実行されてしまいます。
2010/09/18(土) 14:43:14
サブルーチンをプロシージャに独立させてしまい、callで呼び出す方法
（サブルーチンで共通処理だけさせる）
--------------------------------
Sub......
　
　...............
　Call A
　..............

End Sub
-----------------
Sub A
　
　..............

End Sub
2010/09/18(土) 15:02:38
Sub A（ByVal 引数）と指定しておけば、Call A（引数）を使用することで、
プロシージャ（サブルーチン）に引数を送って処理の際に利用できます。
By ValとBy Refでは、呼び出し元の値を変更できないのかできるのかが異なります。

Function Aは、何らかの引数をもらって処理を行い、何らかの戻り値を返します。
Functionでは戻り値を直接式に代入できます。
----------------------------------
Sub......
　
　C=A(10)

End Sub
-----------------
Function A（ByVal B）

　A=B*3.14
　Exit Function

End Function
----------------------------------
関数Aのルーチンでは、引数（B=10）に3.14を乗算する処理をしていますので、Cには戻り値（計算結果の31.4）が代入されます。
2010/09/18(土) 18:17:10
Functionの使い方は何となくわかりましたが、SubのBy ValとBy Refの違いがよくわかりません。

Subでなぜ引数が必要なのですか？
（関数はXを入れたらYにしてくれるもの・・・という認識ですけど）
By ValとBy Refの使い分けは、どこにあるのですか？
2010/09/19(日) 03:07:15
なぜマニュアルを読まない？
2010/09/19(日) 03:10:09
vbで帳票印刷させられそうに成ってたが、結局エクセルで作ってデータだけインポートする業務フローに援交した。
エクセルだと事務員や営業でも抵抗無いし、basic知らなくても使えるからいいよ。


エクセルのサーバ版みたいなのが有れば、basicでシステム組む必要も無いよなw
2010/09/19(日) 03:55:56
付属のマニュアルはわかりにくいからね
特にMSDNなんかは、わからない人が読んで理解できるようには書いてない

というかMSDNのSD以外にマニュアルついてたかな？
俺はリファレンスまで注文して揃えたが
2010/09/19(日) 18:06:10
なぜマニュアルしか読まない？
2010/09/19(日) 21:05:30
だから、ここに相談来てるんじゃないの？

スレタイみてから書き込んだら？
2010/09/19(日) 21:21:46
このスレは応える側が圧倒的に不足してるからね
2010/09/19(日) 21:37:34
あんたのしてることは「相談」なんかじゃ無い。

えっ？GOTO、GOSUB、Sub、Functionの違いだ？

あんたのしてることは、ちいさい子供が「海はなぜ広いの？」「空はどうして青いの？」
「パパはどうして大きいの？」「チョコレートはなぜ甘いの？」「信号はなぜ3色なの？」と
くだらん質問を矢継ぎ早にしまくって大人を困らせてるようなもんだ。

まずきちんとマニュアルなり入門書なり参考書なり読みなさい。
本来ならコンピュータ専門学校や情報系大学、あるいはパソコン教室などに通って
時間とカネをかけて苦労して勉強すべきことを、２ちゃんねるの掲示板で済まそうってか？
2010/09/19(日) 21:42:49
このスレは、質問者がいて、回答者がいる。それ良い。
2010/09/19(日) 21:52:07
>>521
なんか勘違いしてないかい？

ここは"まかせる"スレだぜ？？

まかせるヤツとまかされるヤツがいるだけさ
2010/09/19(日) 21:56:47
>２ちゃんねるの掲示板で済まそうってか？

スレタイをどう見ても、そういうヤツが来るところだろ？？

まるで、コンビニ店員が弁当買って行く客に対して、「本来は手間と暇をかけて作るべき弁当をコンビニ弁当で済ます気か？！」と言っているのと同じレベルだな
2010/09/19(日) 22:21:14
書籍を買って、読みたいのはたった１ページだけ。　よくある事です。
2010/09/19(日) 22:41:10
そこでMSDNです
ページ毎にリンクが張っているため縦横しつつ欲しい情報を手に入れさせません
2010/09/19(日) 23:02:26
>>526
同感
MSDNはリンク・リンクで飛ばされて、説明に一貫性がない
なんというか新聞の切り抜きスクラップ集の状態

かといって書籍も、自分の欲しい情報が体系的に書いてあるかというと、そうでもない
日経BPだかのVBのリファレンスマニュアルとプログラミングマニュアル（ともに書籍版）は、
中身はＭＳＤＮとほぼ一緒だけど、用例とかも載っていて読みやすかった気がする

>>512
コンピュータ専門学校や情報系大学に入って勉強しようってやつは2ch来ないだろ

今時BASICのパソコン教室とか・・・
その地域にあるかもわからんし、どの程度まで教えてくれるレベルかもわからんし、そんなの聞くためだけに教室通うのもアホ過ぎだろ
2010/09/20(月) 15:56:54
そんな教室の講師のスキルなんてしれてるしねえ。
ホントにプログラム組めるなら講師遣るより稼げるだろうに。

記事描きのスタッフは、プログラム経験無いから実務に必要な情報が把握出来てないよな。
プログラム組めるなら、記事描きなんて稼げない仕事しないしw
2011/07/02(土) 15:55:18.15
これ ； デリミタっていうんだけどさ、よく打ち忘れるよね
Rubyだとつけなくてよくなるんだけど


ゴミが何いってもゴミ
2011/07/02(土) 15:57:11.12
PHPerなのでよく使います。
2011/07/04(月) 15:49:51.20
>>527
＞ その地域にあるかもわからんし、どの程度まで教えてくれるレベルかもわからんし、そんなの聞くためだけに教室通うのもアホ過ぎだろ
ハッァァアァアアアアァァアァァァァァァァァァアアァァァァァァァァァァァァアァァ？？？？？
自覚のないゴミ
ゴミ量産機？

ゴミが散らかってる
532デフォルトの名無しさん
垢版 |
2011/07/05(火) 22:56:33.45
天使さん
どうしちゃったの？？
533デフォルトの名無しさん
垢版 |
2011/12/21(水) 11:58:14.48
VB.NETの宿題が全然わからんので教えてください
http://www1.axfc.net/uploader/File/so/72946
ここに問題上げました
2011/12/21(水) 12:01:32.23
中国漁船が韓国海洋警察官を殺害～原因は韓国の低姿勢外交？またもや起きてしまった
ご機嫌を伺って低姿勢でいるわけにはいかないだろう
http://business.nikkeibp.co.jp/article/world/20111219/225327/?top_updt&rt=nocnt
2011/12/21(水) 21:19:43.70
>>533
vb2010でいいの？
536535
垢版 |
2011/12/21(水) 21:22:13.74
間違った。.NETのバージョンは4でいいの？
537535
垢版 |
2011/12/21(水) 22:40:30.18
>>533
ttp://www1.axfc.net/uploader/File/so/72970
2011/12/22(木) 12:24:07.33
>>532 天使さまはボットだよ。
2011/12/23(金) 10:05:59.53
丶丶丶丶丶丶温幽籬櫑櫑櫑櫑櫑幽厶雌櫑幽岱垉厶丶丶丶丶丶丶
丶丶丶当櫑欟欟櫑欟欟欟欟欟欟欟櫑欟櫑櫑翻麗謝叱丶丶丶丶丶
丶丶丶覇竃櫑櫑欟欟欟欟欟欟欟櫑欟櫑欟欟欟層櫑艶旨丶丶丶丶
丶丶丶層櫑欟欟欟欟欟欟欟欟欟嬲竃嬲竃竃欟櫑竃覇覇丶丶丶丶
丶丶丶灑嬲欟欟嬲嬲嬲嬲嬲鬻辧卻眉贈幗層欟欟櫑竃櫑廴丶丶丶
丶勹僧層櫑欟鬱綴綴局悦局局拇狐綴綴鋼幗幗竃欟竃櫑廬丶丶丶
丶湘嬲嬲櫑欟辧綴仰災欠災沼卻局綴綴掴綱幗櫑嬲幗櫑廳丶丶丶
丶勺覇欟櫑鬱即卻仰災災沿己卻凹句郊塀獅幗櫑櫑欟櫑勳丶丶丶
丶丶濁幗欟圓扼卻仰災災沱災可沼笳鏑櫑雌彌幗櫑欟櫑欟眦丶丶
丶丶層櫑櫑鬱狐猖旛幽迫己旧卻獅嬲嬲幗幗幗幗櫑欟櫑覇眇丶丶
丶丶櫑欟欟鬱掴嚴憫笥局仰可局綮当踏審綱燒幗層欟櫑欟廴丶丶
丶丶層覇櫑欟即尚旛籬籬枢叫猖鬱幣憫牒憫椹禰幗欟欟欟杉丶丶
丶丶層欟櫑欟抓儕凹沼珱卻旧塀簡紹笳綴僻綴掴幗欟欟鬱丶丶丶
丶丶丶層櫑欟仰卻旧突句己沒笵綴囹卻仰加仰塀禰層欟欟企丶丶
丶丶丶瀰欟欟仰旧句災沼卻卻卻獅雌扼卻卻狐綴綱層欟欟歡丶丶
丶丶丶湧欟欟紀凹句巡卻仰似局綴獅雌卻卻綴掴綱幗嬲覇黙丶丶
丶丶丶丶層眼眼句旧卻卻鍵輔禰層嬲幗囹卻綴掴囃幗櫑歉丶丶丶
丶丶丶丶勺龝圄句沒卻卻卻卻沺禰幗幗雌歳狐掴囃彌欟默丶丶丶
丶丶丶丶丶丶丶句沒卻笳僻把洞雄櫺櫑顧綴鋼囃讃幗嚶丶丶丶丶　
丶丶丶丶丶丶丶勺句卻譲嬲霸嫻嬲幗難掴獅幗幗幗嬲艶二丶丶丶
丶丶丶丶丶丶丶丶句旧卻卻綴掴燒辧辧讃幗幗幗幗杉欟欟幽丶丶
丶丶丶丶丶丶丶丶丶刈皿狐卻仰瀉囃雌幗幗幗覇歉勺欟欟欟櫑幽
丶丶丶丶丶丶丶丶丶丶勺牋綴燒雌幗幗幗幗幗鬱三儲欟欟欟櫑櫑
丶丶丶丶丶丶丶丶二旛櫑封贈簡幗難幗幗櫑鬱災三灑欟欟欟櫑欟
丶丶丶丶丶丶澁櫑櫑櫑櫑歡兆卻塀綱幗幗黙冖三消欟欟欟欟欟覇
丶丶丶澁籬櫑櫑櫑櫑櫑櫑置丶筍綴綴諜冖丶丶三瀰欟欟欟欟欟覇
丶誕櫑櫑櫑櫑櫑櫑櫑欟櫑置丶勺朔薪丶丶丶丶勺欟欟欟欟欟櫑櫑
灑櫑櫑櫑櫑櫑櫑櫑櫑欟欟置丶俎幗雛止丶丶丶儲欟欟欟欟欟櫑櫑
欟櫑櫑櫑櫑櫑櫑櫑櫑櫑欟置丶欟攜層櫑幽丶丶灑欟欟欟欟欟櫑櫑
2011/12/30(金) 08:02:01.32
財務大臣の『おちび』さん？
2011/12/30(金) 08:48:36.78
ライオンハートだろ
542デフォルトの名無しさん
垢版 |
2012/01/17(火) 00:41:58.11
10 INPUT "D";FE
20 INPUT "ε";E
30 INPUT "ΔT";DT
40 T1=1273.15'(K)
45 T2=293.15'(K)
50 T=0
60 WHILE T1>T2
70 T1=T1-((2*5.67*10^-8*E*DT)/(419*7270*FE)*T1^4)+((2*5.67*80^-8*E*DT)/(419*7270*FE)*T2^4)
80 T=T+DT
110 WEND

ってなかんじで出てきたをT1次々と出力したいんだがさっぱりわかんないです。
DIMを使うんだとは思うんですが、ぜんぜんわかんない・・・・
詳しい人いたら教えてください。
2012/01/17(火) 20:12:13.01
65行目辺りに
「print "t1=";t1」
みたいに追加すればいいだけじゃない？
2012/01/18(水) 14:53:35.29
Ｈｕ－ＢＡＳＩＣ
ttp://togetter.com/li/243347
545デフォルトの名無しさん
垢版 |
2012/02/20(月) 16:06:23.88
覆面算（かけ算）のアルゴリズム教えてください。
2012/02/20(月) 20:19:35.85
総当りでいいんじゃない？
547デフォルトの名無しさん
垢版 |
2012/02/20(月) 22:18:33.34
計算数がはんぱねぇっす
2012/02/25(土) 02:15:19.17
会話型言語じゃないBASICは、basicと表記するべき。
549デフォルトの名無しさん
垢版 |
2012/02/25(土) 20:17:40.38
n88互換basicで連番のbmpファイルを読み込み、put@で連続表示させる動画プレイヤーもどきを作っているのですが、dim a(20, 50)のように配列を確保した時、a(1, 49)まではアクセスできるのですが、a(2, 0)の所で定義されてないエラーがでます。
118 bload "C:/ch/s_0098.bmp", a(1, 48)
119 bload "C:/ch/s_0099.bmp", a(1, 49)
120 bload "C:/ch/s_0100.bmp", a(2, 0)
121 bload "C:/ch/s_0101.bmp", a(2, 1)
122 bload "C:/ch/s_0102.bmp", a(2, 2)
ソースコードはこのような感じです。
エラーが出ないようにするにはどうすればよいでしょうか？
2012/02/26(日) 12:38:21.33
OPTION BASE とか？
2012/07/21(土) 20:59:44.94
初心者で申し訳ありません。
basicを使って簡単なプログラミングをしなくてはいけなくなり
簡単なクリックまたは特定のキーで動くスロットをつくりたいのですが、ほとんどわかりません。
どなたかサンプルなどを載せて頂けないでしょうか。お願いします。
2012/08/16(木) 22:42:40.42
どのBASIC環境なんだよ
553デフォルトの名無しさん
垢版 |
2013/01/23(水) 19:04:04.95
agepoyo
http://toro.2ch.net/test/read.cgi/tech/1358572977/
554デフォルトの名無しさん
垢版 |
2013/11/19(火) 18:10:05.66
保守
2013/11/19(火) 20:30:18.56
GOTO 1
2013/11/19(火) 21:59:17.27
How many files(0-15)?
2013/11/21(木) 21:16:47.84
10 rem スロットマシン：サンプル
50 a1=0 : a2=0 : a3=0
80 cls : print "スロットマシーン　1-key を押してください"
100 rem
150 locate 10,10 : print a1
160 if inkey$="1" then goto 200
170 a1=a1+1 : if a1=10 then a1=0
190 goto 100
200 rem
250 locate 20,10 : print a2
260 if inkey$="1" then goto 300
270 a2=a2+1 : if a2=10 then a2=0
290 goto 200
300 rem
350 locate 30,10 : print a3
360 if inkey$="1" then goto 400
370 a3=a3+1 : if a3=10 then a3=0
390 goto 300
400 rem
420 if a1=a2 then if a1=a3 then print "全部一致" : goto 490
430 print "不一致",a1;a2;a3
490 end
558デフォルトの名無しさん
垢版 |
2014/08/30(土) 11:17:32.90ID:VPRxFQ97
プログラムの知識がHuBASICどまりの俺には
変数の型の宣言がなんだか高い壁に感じられる
2014/09/28(日) 11:18:00.95ID:2vXJK/xe
HuBASICだって数値変数と文字変数の違いくらいならあったんじゃない？
2015/03/31(火) 08:35:17.13ID:Xlc+IG5P
Sharp ガラパゴスストアにてMZ-80用BASIC解説書が復刻
BASIC言語の勉強にオススメです！
http://galapagosstore.com/resource/browser/v2/index.html#
cid=229183&pid=sh&title=MZ%2d80%20SERIES%20BASIC%E8%A
7%A3%E8%AA%AC%E3%80%90%E9%AB%98%E8%A7%A3%E5%83%8F%
E5%BA%A6%E7%89%88%E3%80%91&url=http%3A%2F%2Fgalapagosst
ore.com%2Fweb%2Fbook%2Fdetail%2Fsstb-B215-1215000-BASIC_MZ-80SERIES&sample=true
561デフォルトの名無しさん
垢版 |
2015/07/30(木) 08:28:45.96ID:lmYoHGut
rem
562デフォルトの名無しさん
垢版 |
2018/05/23(水) 22:56:22.22ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

R4YKO
563デフォルトの名無しさん
垢版 |
2018/07/04(水) 23:12:15.33ID:gFgZc5FG
7KX
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況