(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

>>374
だよな。HTMLソース自体にパスワードが書いてあるものを、
ページ見たからといって不正アクセスだと言われても困る。

**デフォルトの名無しさん** · NG

>>372
Seek ステートメント使って読みたい位置まで移動すればいいじゃん。

**デフォルトの名無しさん** · NG

フォルダの判定とか、"\"で判定しています。
でも英語のソフトとかだと"/"のが多いですよね。
英語版Windowsで動かすとこの辺の仕様とか変わってくるのでしょうか？

**デフォルトの名無しさん** · NG

FileSystemObject使えよ

**355** · NG

CreateThreadを使えばできるようなことを聞いたのですが、
ＶＢでCreateThreadは使えるのでしょうか？

**デフォルトの名無しさん** · NG

>>379
CreateThreadできることはできるのだが、スレッド内で何か操作すると
途端にアプリが落ちる(w
他モジュールやフォームをいじると落ちるんだっけかな。
よって、実際は使えない。VB6の場合ね。
VB5の場合は一応使いようによってはOKらしい。

**355** · NG

>>380
返答ありがとうございます。
スレッドではORACLEへのストアドコールを行います。
数分返答がないようなストアドをコールします。

スレッドが処理中（ストアドコール中）にGetExitCodeThread,
ExitThread等を行うとやはりエラーとなるのでしょうか？

自分で作成したＤＬＬ内部でスレッド生成を行いたいのですが、
重い処理をしてもＥＸＥが返答待ち（固まらない）しない事を
実現したいと思っております。

**デフォルトの名無しさん** · NG

>>381
スレッドを使わなくてもストアドコールとかは非同期で実行できるんじゃないか？

**355** · NG

>>382
本当ですか！
よろしければ実現方法を教えて頂けないでしょうか。

**デフォルトの名無しさん** · NG

>>355

VBでマルチスレッドにするならActiveX DLLにするしかないかと思います。

http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0008/com/

**382** · NG

>>383
すまん。しらないんだ。ADOとかで非同期で実行するという引数やらなんやら
あって常識的に考えれば出来そうだなぁと思っているだけ。
今までやったこと無い。個人的にはやりたいんだがなんで要望でないかなぁ(w

**デフォルトの名無しさん** · NG

>>383
ADO をつかっているなら、 execute メソッドの options に adAsyncExecute
を指定すれば出来ると思います。

やったことないので、外してたらゴメン。

**デフォルトの名無しさん** · NG

すいません、超初歩的な質問なんですが…
ランダム関数で、1～100までの乱数を発生させるのは

Int(Rnd() * 100) + 1

ですが、50～100までの乱数が必要な場合はどの様に求めればいいのですか？

**ふなはすです（ＱＯＯ）** · NG

横スクロールのシューティングゲームのソース
（ＶＢ）　があるサイト教えて♪

**デフォルトの名無しさん** · NG

>>387
おまえのレスの
> Int(Rnd() * 100) + 1

Int(Rnd() * 100) 　は乱数の範囲：０～９９
1　は乱数の最低値

あとは自分で考えてみ。

**デフォルトの名無しさん** · NG

>>389
あ！

Int(Rnd() * 100) + 50

ですよね!?
どうもありがとうございました！

**デフォルトの名無しさん** · NG

>>390
・・・自信満々で間違うなよｗ
ネタだよな？
焦っただけだよな？
そうだと言ってくれ！

**デフォルトの名無しさん** · NG

>>391
え!!
違うの…

かなり自身満々だったのに
ｳﾁｭ

**デフォルトの名無しさん** · NG

>>392

>>389の乱数の範囲：０～９９てのを０～５０にしないとな。

**デフォルトの名無しさん** · NG

>>392
次も自信満々で
Int(Rnd() * 50) + 50
とかやってくるんだろーなー

**デフォルトの名無しさん** · NG

>>393,394
まんまと394の様にしようと思ってたよ…。
（'･ε･`）ｼｮﾎﾞｰﾝ

**デフォルトの名無しさん** · NG

+ 激しく偏り +
　　　　　　　　　　　+ 激しく失敗 +

Int((Rnd() + Rnd()) * 51 / 2) + 50

**デフォルトの名無しさん** · NG

ゲッ！
俺Rnd関数、０～１が返ると思ってた。

**デフォルトの名無しさん** · NG

>>396
これが正解なんですか？
ありがとうございます。
使ってみます！

**秋山蓮** · NG

>>390
はしゃぐな！！

**デフォルトの名無しさん** · NG

Rnd 関数は 0 以上、1 未満の範囲の値を返します。
引数 number の値によって、Rnd 関数が返す乱数が決まります。
初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。
これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数を
それぞれ生成するためです。
システムタイマーから取得した新しいシード値を使って、乱数ジェネレータを初期化するには、
Rnd 関数を呼び出す前に、引数を指定せずに Randomize ステートメントを実行してください。
任意の範囲の整数の乱数を生成するには、次の式を使ってください。

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

この式では、変数 upperbound には範囲の上限の値を指定し、変数 lowerbound には
範囲の下限の値を指定します。

**デフォルトの名無しさん** · NG

>>387
おれならこうするな
do while true
r=int(rnd()*200)
if r>=50 and r<=100 then exit do
loop

**デフォルトの名無しさん** · NG

>>398

+ 激しく違う +

**デフォルトの名無しさん** · NG

>>400、401
どうもありがとうございます。
今、Accessでﾃｽﾄﾃﾞｰﾀを1万件作るためのﾐﾆｱﾌﾟﾘ作成中なのです。
　 For i = 1 To 10000
rs.AddNew
rs("Key") = Format(Int(Rnd() * 1000) + 1)
rs.Update
Next i

↑こんな感じでにRnd()はﾙｰﾌﾟの中にあるのでﾙｰﾌﾟはあまり使いたくなくて
質問しました。でも>>394の方法で上手くいきましたけど…
間違ってるのかな??ｳｰﾝ､ﾜｶﾗﾝ。

**デフォルトの名無しさん** · NG

>>403
任意の範囲の整数の乱数を生成するには、次の式を使ってください。

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

この式では、変数 upperbound には範囲の上限の値を指定し、変数 lowerbound には
範囲の下限の値を指定します。

**デフォルトの名無しさん** · NG

これでも分かんなきゃ人間やめたほうがいいよ。マジで。

**デフォルトの名無しさん** · NG

>>404
ありがとうございます。
今、その方法で取組中です。
たくさんｱﾄﾞﾊﾞｲｽいただけてﾎﾝﾄ感謝です。

>>405
大丈夫です！何とか理解できました(,,ﾟДﾟ)ｷﾞﾘｷﾞｾｰﾌ

すいません、入社したばかりのﾍﾀﾚ女性ﾌﾟﾛｸﾞﾗﾏです。
どうもｱﾘｶﾞﾄございました。

**デフォルトの名無しさん** · NG

>>406
(*´д`*)

NG

>>406

これぐらいカンタンだとレスはたくさんくるよ（ｗ
しかも突込みどころ満載だったし。

**デフォルトの名無しさん** · NG

　ＶＢ初めて３日の初心者です。
　過去スレで一応調べてみたのですが、訊かせてください。
　どうかよろしくお願いします。
　環境はVB7.0です。

　Module1.vbに構造体を以下のように定義したのですが、

Public Structure data
{
Public x As Double
Public y As Double
}
　
　ビルドすると、
「Public class 'Form1' の外にある Friend 型を公開できません。」
　のようなコンパイルエラーが出てしまうのです。」

　構造体を別モジュールで定義したくてこんなことをしているのですが、
外部Moduleで宣言されている構造体を使うには、どのようにしたら良いの
でしょうか？

**デフォルトの名無しさん** · NG

>>409
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50

**デフォルトの名無しさん** · NG

でもさ、Rnd使ってると、な～んかいまいちランダムじゃないなぁと思うんだけども
どうでほ。

**デフォルトの名無しさん** · NG

カウントしてみ。ランダムさがよくわかる。
４００回くらいまでは偏るけどね。（０から９までのとき）

**デフォルトの名無しさん** · NG

Randomizeしてないだけとか言うなよ。

**デフォルトの名無しさん** · NG

>>411
Randomizeしても同じ数値が連続したことがあった

**409** · NG

>410
　ごめんなさいわかんないっす…
　（：Ａ；）ハウー

　「作成したモジュールに、フォームのインスタンスを渡す」
　ってところなのでしょうか？

**デフォルトの名無しさん** · NG

shell関数とOpenProcess関数ではどちらの方が
起動時間がはやいんですか？

**デフォルトの名無しさん** · NG

自分でやってみるのもオツなものです

**デフォルトの名無しさん** · NG

>>414 何度もRandomizeしたとか言わないでね。

**デフォルトの名無しさん** · NG

>>414
100回振って、一度も同じ目が連続して出ないサイコロはイカサマです。

**デフォルトの名無しさん** · NG

美容室向けの予約システムを作っているのですが、
どうしてもスケジュール表(時間割)部分の作り方がわかりません。
Gridのコントロールだと時間軸の上に｢10:00｣というような表示ができないのでこまっています。
横が時間軸で縦にスタッフの名前でただ該当の時間がいろで塗りつぶせて
その上にお客さんの情報を書きたいのですが、
どなたかいいやり方教えていただけませんでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · NG

今どき
VB6で動作想定環境をWIN98にして開発するのは
VBSのHPを作るようなものでしょうか？ｗ

**デフォルトの名無しさん** · NG

>>420
いろいろ方法がありすぎて、、、

>>421
VB6でWin98の何がおかしいのか？

.netでだったら問い詰めても良いけどね。

NG

>>420
表示部は、ラベルを貼りまくってやれ。
表示する中身を管理して表示しまくれ。

もしくは、文化オなんとか社が出してるスプレッドを使うんだな。

**デフォルトの名無しさん** · NG

ドラッグ＆ドロップで質問したいです。
今、ファイル名を指定してそこにあるデータを配列に落としているんですが、
これをドラッグ＆ドロップが行われた時にドロップされたファイルを
配列に落とすにはどうしたらいいんでしょうか？今、使っている命令は
こんな感じです。
Open "D:\data\all.txt" For Input As #1
For i = 1 To Ypixel
For j = 1 To Xpixel
Input #1, MOT(i, j)
Next
Next
Close #1

お願いします。

**デフォルトの名無しさん** · NG

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Open Data.Files(1) For Input As #1
...
Close #1
End Sub

但しFormのOLEDropModeプロパティを1-手動にしとく。

**４２４** · NG

ありがとうございます。試してみます。

**デフォルトの名無しさん** · NG

>>423
そういったOCX等使うと、msiインストーラー作るとき、
OCXやらDLLやらがたくさんアプリケーションフォルダにいれられてごっちゃになるんですがいいほうほうはないでしょうか？

**お茶丸** · NG

じつはiMode用のメール保存閲覧ソフトを作りたいと思うのですが、
有効な情報がなかなか得られません。
もしよろしかったら少しでも結構ですので作成のヒント、
関連する情報など教えていただけないでしょうか？
一方的ですみませんが何卒よろしくお願いします。

**デフォルトの名無しさん** · NG

>>428
一方的もなにも、わけわからんぞ。

・必要と思われる機能の定義
・利用しようと思っているOS、開発環境、アプリ

ぐらいは書け。なるべく具体的に。

**598** · NG

まいった

**デフォルトの名無しさん** · NG

教えて下さい

double型の変数の小数点以下を切り捨てたいのですが
「￥」を使うと、以下の様な場合答えが４になってしまいます。

a=3.99
b = a \ 1

何か方法はありませんか？

**デフォルトの名無しさん** · NG

IntかFix

**デフォルトの名無しさん** · NG

>>432
たすかりました
ありがとうございます

**デフォルトの名無しさん** · NG

VB6 で、フォームの width と height をiniファイルに保存しておいて、
フォームを開くときに保存されていた値を読んでその値にフォームのサイズを変更しておこうとおもって、
Form_Load でiniファイルの値を読んでセットしているんですがうまくいきません。
なにか足りないことでもあるのでしょうか？

**434** · NG

できた。

**デフォルトの名無しさん** · NG

>>432
Int(1.15*100) ではまる罠

**お茶丸** · NG

大変失礼しました(汗)
☆必要な機能
　携帯電話とＰＣをＵＳＢにて接続し、ウインドウズアプリより携帯に対し、メールを送受信したい

☆希望する動作OS
　WindowsＸＰ

☆開発環境
　Ｍｉｃｒｏｓｏｆｔ　ＶｉｓｕａｌＳｔｕｄｉｏ　6.0　のＶＢまたはＶＣ、ＶＪ

☆アプリ
　外部アプリは使用しない

以上です。すみません初投稿なもんで(汗)もしご存知でしたらよろしくおねがいします<(_ _)>

**お茶丸** · NG

追加です
現状として、携帯電話になんらかのコマンドを送出すると、対応した情報
(電話帳データ等)が返ってくるのはわかっています。
どんなコマンドを送出するとメール内容が取得できるのか、またクラスやＡＰＩ
が提供されているのか、当方では力不足で調べられませんでした。

**デフォルトの名無しさん** · NG

>>438
ここは初心者の館だよ。

**デフォルトの名無しさん** · NG

>>438
そんなの機種によって違うんじゃないの？一緒なの？

**４２４** · NG

>>425
うまく取り込めました。ありがとうございました。

**デフォルトの名無しさん** · NG

ヘルプなんですけど、HTMLヘルプ使ってます。
FormとかにHelpContextIDってプロパティーがありますが、この項目は従来のヘルプにしかつかえないんでしょうか？

**デフォルトの名無しさん** · NG

ここってクリスタルレポートとかの質問もありですか？

**デフォルトの名無しさん** · NG

>>443
ありです。

**443** · NG

それではすいません、質問させてもらいます。
詳細に10行だけ出力して改ページしたいんですが、
どこでどういう風にすればよいのかわからないんですが･･･。
ちなみにverは8.5です。

**445** · NG

すいません何に関しての質問か抜けました。
クリスタルレポートに関してです。

**デフォルトの名無しさん** · NG

>>438
そいうものが公開されてないのにはそれなりの理由がある。
ネタじゃなければ今後気をつけなよ。

**デフォルトの名無しさん** · NG

MOVEFILE_WRITE_THROUGHという定数って値なんでしょう？
手持ちのAPI Viewerにのっていないんですが・・

**デフォルトの名無しさん** · NG

>>445
１．明細にサブレポートを使う。
２．10行印刷されるとちょうどページの縦の幅がなくなるように、ページヘッダ、ページフッタなどの高さを調節する。
３．印刷する前のレコードに、10件づつインクリメントする番号を振っておいて、それでグループ化。
など思いつきました。

**デフォルトの名無しさん** · NG

>>448
#define MOVEFILE_WRITE_THROUGH 0x00000008

WINBASE.Hにあった。

**４４８** · NG

お、ありがとございます。
これってようするに8のことですよね？

**デフォルトの名無しさん** · NG

>>448
>手持ちのAPI Viewerにのっていないんですが・・
アホを晒してはいけない....載っていない定数なんていくらでもある
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/movefileex.asp

英語が読めない場合、首を括るなり辞書を引くなりしてくれ

**４４８** · NG

>>452
おうっと。
ありがと。（ｗ

**デフォルトの名無しさん** · NG

すごく大きな数（倍精度浮動小数点数型）が見にくいので
1.23456E+8
というような表示にして出力したいんですがどうしたらいいですか？

**デフォルトの名無しさん** · NG

>>454
Format関数で第二引数"Scientific"指定とかどうかね。

**４５４** · NG

ＭＳＤＮで調べたんですが
Format関数というのがどういうものかわかりませんでした。
具体的な使い方を教えてくれるとありがたいです。
使っているのはVB6.0です。

**デフォルトの名無しさん** · NG

>ＭＳＤＮで調べたんですが
どんな風に調べたんさ。Format関数に辿り着けなかったのかい？
そんなあほな。

イミディエイトウィンドウで下のように打ってみ。
? Format(123.456789, "Scientific")

**４５４** · NG

イミディエイトウィンドウでは確かにできましたが、
プログラムで出そうとしたらエラーが出てしまいました。
double型が入ったsumという変数の値を
Label2.caption = sum
で出したいんですがどうでしょう？

format関数は出てきたんですがｃ言語とか書いてあったので違うかなーと
思っちゃったんです。

**デフォルトの名無しさん** · NG

>>454
どうやったらエラーになるねん。
ヘルプには使用例まで載ってるのに
それでわからん奴にどうやって教えたらええんや？

**デフォルトの名無しさん** · NG

おいおい…

**デフォルトの名無しさん** · NG

>>458
エラーメッセージを正確に引用する。
必要最低限のコードは見せる。
変数に入れた値を示す。
これ質問者の基本。

**454** · NG

エラーメッセージはコンパイル時にでて
　　コンパイルエラー
　　修正候補：式
関係しているコードは
　　sum = ?Format(sum, "Scientific")
　　Label2.Caption = sum
sum　は変数で、整数部分が７～８桁のdouble型が入っています
例えば　70840747.888806　が得られます。

コードの？部分をなくすとコンパイルはできるんですが
有効数字が3桁になっただけで指数表記にはなってくれません。
例えば　70800000　というようにです。

**デフォルトの名無しさん** · NG

>>462
format(num,"0.00E+00")
0の数は自分で好きなように。?ってなんだ？何を読んだ？

**463** · NG

それからformatは文字列を返すんだからね。
気をつけて。

**デフォルトの名無しさん** · NG

うんこ

**454** · NG

チェックのためにsumを一定にしました。コードは
　　sum = 12345678.999999
　　sum = Format(sum, "0.00E+01")
　　Label2.Caption = sum
こんな感じです。

ここで""の中を"0.00E+00"とすると12300000が得られ
""の中を"0.00E+01"とすると1.23E+71が
""の中を"0.00E+03"とすると1.23E+73が
""の中を"0.00E+10"とすると「オーバーフローしました」とでます。
期待している数字は1.23E+07なんですけどどうしたら得られますか？

**デフォルトの名無しさん** · NG

>>466
だからformatは文字列を返すんだって。
dim sumStr as string
sumStr = Format(sum, "0.00E+00")
とかすればいい。
"0.00E+00"　の0は桁数を表しているので
01とか10とかやっても意味がない。

**デフォルトの名無しさん** · NG

sum = Format$(sum, "#.##E+")
だと思う

D · NG

>>462
>sum = Format(sum, "Scientific")
このsumは両方ともDouble型なのでFormat関数で整形してもほぼ同じ値が入るだけです。
この場合左辺はString型で宣言された変数に代入した方がいいと思われます。
あとSumはSQLとData Reportでの予約語なので変数名に使うのもどうかと。
試しに新規のプロジェクトでDim sum as Doubleの宣言をせずに同じｺｰﾄﾞを
入力すると小文字で入力したはずの"s"が"S"に置換されるはずです。

Dim Total As Double
Dim sTotal As String

Total = 70840747.888806
sTotal = Format$(Total, "0.000000000000E+")
Label2.Caption = sTotal
こんなかんじで。
あ、ヘルプの”プロシージャの引数”でSum関数作ってますね。

**454** · NG

>>467
デキターーーーー！！！
ありがとうございます！ものわかりが悪くてすいませんでした。

**デフォルトの名無しさん** · NG

●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず」祭り●●●●●●●
／|　　　　　　　 |　 |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
　 |　　　　　　　 |　 |￣￣￣／|　　　　　　　　　　　　 ||
　 |　　　　　　　 |　 |　　　／／|TTTTTT　　 TTTTTTTTTT||TTTTT
　 |　　　　／＼　|　／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
　 |　　　／　／　|／／／／|
　 |　　　／　／ |＿|／|／|／|／|
　 |　／　／　　|文|／／／／
　 |／　／.　＿.|￣|／|／|／　　　　　　　　　Λ＿Λ
／|＼／　／　／　|／／　　　　　　　　　　（＿＿_）
／|　　／　／　／ヽ　　　　　　　　　　　　/〔非OO 〕〕つ
　 |　　　|￣|　 |　|ヽ／l　　　　　　　　　　　｀/二二ヽ
　 |　　　|　 |／|　|__|／　　　Λ＿Λ　　　　 /　/（＿）
　 |　　　|／|　 |／　　　　　（　´∀｀）　　　（＿）　　　 Λ＿Λ
　 |　　　|　 |／　　　　　／/ /　 ^￣］ﾟ　　　　　　　　（｀　　　）
　 |　　　|／　　　　　　　ﾟ/￣￣_ヽ　　　　　　　　　⊂〔〔非OO 〕

**454** · NG

>>468　>>469
いろいろありがとうございます。助かりました。

D · NG

あ、ぼやっとしてたら答えてたのね。
遅すぎました

**445** · NG

>449
返信遅れてすいません、ありがとうございました。
とりあえず今教えていただいたのを実行中です。

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15