■■■VB初心者質問スレ■■■
■ このスレッドは過去ログ倉庫に格納されています
0001VB初心者代表
NGNG0002VB初心者代表
NGNGオブジェクトの使い方を教えてください。具体的には
VBスクリプトでASPを作っていたんですが、その一
部をVBのDLLにすることになったんです。そこで、
ASPの組み込みオブジェクト Session("userid")の
ような構文が使えなくなってしまいました。(コンパ
イルエラーになります)参照設定はMicrosoft Active
Server Pages Object Liblaryにしてあり、オブジェク
トブラウザにも表示されるんですが。
上級者の皆様、ぜひお願いします。
0003名無しさん＠お腹いっぱい。
NGNG初心者なら初心者らしいプログラム作ってください！
0004名無しさん＠お腹いっぱい。
NGNG探しても見つかりませんでした。
0005名無しさん＠お腹いっぱい。
NGNGもっといっしょうけんめいさがしてください
さがしかたがたりないだけです
00064
NGNGわかりました。夢精するほどのレベルで探してみます。
0007名無しさん＠お腹いっぱい。
NGNG何もテクニカルな話が出てこないなあ・・・
もう終わってるのか？
0008名無しさん＠ぎこぎこのり
NGNGをなんとかVBで使いたいのですが
なんかいい方法は無いでしょうか・・
サポートされないとか出るんです
0009四流プログラマー
NGNGオフコンのデータをコード上でＰＣのオラクルに移す方法を教えてください。
(FDで受け渡しする方法以外で)できるなら、必要な機材(ﾂｰﾙも)も教えてください。
環境
PCとｵﾌｺﾝの間は、LANのようなローカル接続です。
0010名無しさん＠お腹いっぱい。
NGNGマジレスする。あんたには無理だ。上司にそう言え。
だがあんまりにも哀れなので、少し書いておく。
まず、PCからオフコンがどのように見えているのかを書け。
見えてないならその時点で無理だ。
多分PCは端末エミュなのだと思うが、そうするとオフコンのOSの
オペレーションが分からないとどうにもならん。
そのオフコンのマニュアルを手に入れろ。これも無理だろうが。
オフコンの開発連中はOSやハードの知識がほとんどない。
運用部門が別にあるからな。だから聞いても無駄だ。
（このあたりは個人的な知識なので実情は知らん。まわりのCOBOLerはそうだった）
次にそのオフコンの文字コードをShift-jisに変換できるかどうか。
普通は端末エミュの機能としてあるか、ソフトが売っている。
無論ソフトはメーカー製でばかみたいな値段をつける。
ようするに、Winのファイルに落とした後でないとあんたの出番はない。
固定長のファイルが得られたら、あとはVBでもなんでもつかえ。
いくらなんでもSQLぐらいは知ってるんだろ？
もし少しでもこの書き込みが役に立ってありがたいと思うなら、
よそのスレで書き込むのはもうやめろ。
そして、もう少し細かい状況を書け。
このスレとは関係ないが、このスレも半分終わってるから勘弁してやってほしい。
一番よいと思うことを再度書く。
あんたには無理だ。上司にそう言え。
言ったら忘れずに「上司に言いました」と書き込めよ。
0011ビル・ジョブス
NGNG電源は入ってますか？じゃなくてオフコンメーカーに
ちゃんと相談しましたか？えっ、保守入ってないから
聞いてくれないって？だったらメーカーのHPから質問
しましょう！なにかミドルウェアあれば直接オフコン
からSQLで表ごと抜けるかも？
オフコン側のユーティリティーを作るのは無理だから
無かったらFDでシコシコ抜くしかないな。
以上、逝ってよし。
0012名無しさん＠お腹いっぱい。
NGNGどうする９ってドキュンだよ。。。
http://piza.2ch.net/test/read.cgi?bbs=tech&key=965916840&st=389
0013abu
NGNG①サーバ(unix)
②クライアント(Win95/DOS)
①から指示を出し、②に有るバッチを②上で実行したいのです。
NTや、unixなら、rshや、rexecがあるので、これを利用すれば、と思ったのですが
WIN95ではrsh.exe、rexec.exeは無いようです。
ソケットを扱えばどうにかなるらしいのですが、、、
どなたか良い方法を教えていただけないでしょうか？
又、どこか参考になるLINKを教えていただけないでしょうか？
0014abu
NGNG①クライアント
②サーバ
です。
0015名無しさん＠お腹いっぱい。
NGNG>ソケットを扱えばどうにかなるらしいのですが、、、
その通りです。以上
0016ビル・ジョブス
NGNG0017>13
NGNGprogram.BAT ファイルがあればそれを実行して実行後削除する
というバッチを無限ループで走らせておいて
別のパソコンから program.BATを作るというような仕掛けで
時間のかかるコンパイルをさせたりしてた。
0018ビル・ジョブス
NGNGおれは人を騙すより、騙されたほうがいい...
ちょっと無理か...
0019四流プログラマー
NGNGレスありがとうございます。
上司は三日前から、連絡途絶状態のため、報告ができません。
0020名無しさん＠お腹いっぱい。
NGNG詳しく書けといっただろ。
連絡ぐらい何とかしろ。遊んでるんじゃないんだろ。
それともネタなのか？ やっぱりネタなんだな？
今後も同じようなわけ分からん書き込みするんだったら
じゃまだからとっとと消えてくれ。たのむ。
0021名無しさん＠お腹いっぱい。
NGNG貴方の貴重な時間をこんなタコスケにかけるのは勿体無い。
もう相手をしないほうがいい。
ドキュンは次の一行を読んだら、前の行に書いてあった事を忘れるんだ。
＞言ったら忘れずに「上司に言いました」と書き込めよ。
に答えただけさ。
0022名無しさん＠お腹いっぱい。
NGNGDim lngTime1 As Long
Dim lngTime2 As Long
lngTime1 = timeGettime()
For i =1 To 10000
･･････････
Next
lngTime2 = timeGettime()
MsgBox lngTime2 - lngTime1
としているんですが,まだ正確に測定できる方法はあるでしょうか?
0023>２２
NGNGさあVBで出来るかなあ？
というか、キャッシュの内容によって違って来るから正確になんて意味ないよ
0024>22
NGNGDim lngTime3 As Long
Dim lngTime4 As Long
lngTime3 = timeGettime()
lngTime4 = timeGettime()
または１：１回ループさせたときと、10000回ループさせたときの差から計測
または２：
For i=1 To 10000
hoge ←最適化回避の命令
hoga ←測定したい処理
Next
と
For i=1 To 10000
hoge ←最適化回避の命令
Next
の差から計測
002522
NGNGDim lpperformancecount As LARGE_INTEGER
Dim lpfrequency As LARGE_INTEGER
Call QueryPerformanceCounter(lpperformancecount)
Call QueryPerformanceFrequency(lpfrequency)
lngTime1 = lpperformancecount.lowpart
Call Sleep(10秒眠れ)
Call QueryPerformanceCounter(lpperformancecount)
Call QueryPerformanceFrequency(lpfrequency)
lngTime2 = lpperformancecount.lowpart
MsgBox (lngTime2 - lngTime1) / lpfrequency.lowpart
で10秒近い値が出たのであっていると思うのですが。
002622
NGNGPublic Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type
のhighpartのほうが何を意味しているのかわからないです。
>24
今夜か明日にでも挑戦してみます。
昨日VB6を買ってきて勉強し始めたのですが,最適化回避のしかたとかなんとかは,入門書に載ってないので,この頭で理解するのに少し時間が必要のようです
0027通りすがり
NGNGNow関数工夫すれば同じく眠れるぞ。
あまりAPIに頼るとVBのレベルも上がらなくなることを逝っておく。
0028>27
NGNG強制的にシステム改定を行わせるレベル。
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=967480158
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=965932785
0029abu
NGNGtelnetは対人間用仕様なので、コマンドの指示はかなり不向きだというのを
どこかで見ました。SHELLポートをたたけば、サーバ側でrshdが立ち上がって、
というところで挫折中です。(これも当たっているやら)
>15
WIN95ではだめなのでは？と、動くかどうかすら分からないオタコ状態なものだったので、
希望が持てました。ソケットを使用すればどうにかなるらしいのでがむばります。
参考になるLINKありましたら引き続きお教えください。
0030>>26
NGNG0031>abu
NGNGだったら >>17の方法でいいんじゃないの？
0032>31
NGNGhttp://www.vector.co.jp/soft/win95/net/se037305.html?g
場合によってはお金払って買った方がいいよ
0033abu
NGNGサーバ：ｕｎｉｘ
クライアント：ｗｉｎ95
です。デーモンはunix側です。
(ぐーー私が理解出来てないのでしょうか？)
あと、17の方法結構良いとおもいます。早速検討させていただきます。
てっきり他の方へのレスだと思い込んでました。
ありがとうございます。
0034名無しさん＠お腹いっぱい。
NGNGマジ初心者の質問ですまん。
0035名無しさん＠お腹いっぱい。
NGNG0036>33
NGNG>①サーバ(unix)
>②クライアント(Win95/DOS)
>①から指示を出し、②に有るバッチを②上で実行したいのです。
ってあるけど、 という事はWin95からunixアプリを操作させたいのね？
>>15で訂正入ってるけど余計判らんぞ
0037名無しさん＠お腹いっぱい。
NGNGセキュリティを無視していいみたいなのでサーバ上でWebサーバを
立ち上げてCGIでコマンド実行させれば、telnetをしゃべるより楽だよ
0038名無しさん＠お腹いっぱい。
NGNGオブジェクト指向なら、クラス変数にするでしょ？
でも、ＶＢやってると、何時までも初心者で、オブジェクト指向に辿り着けないそう
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=968585064
0039名無しさん＠お腹いっぱい。
NGNG何も知らないまま、ＣナントカやＪナントカ使ってオブジェクト指向気取り
してる人より将来性は有りますよ。
0040名無しさん＠お腹いっぱい。
NGNGstrHoge(1) = txtHoge(1).text
strHoge(2) = txtHoge(2).text
などの処理は,配列が何個くらいから
For～NEXT使った方がいいのでしょうか?
少ない回数位なら上記でかまわないと個人的には思うんですけど,配列何個くらいから,FOR～NEXTの方が処理速度が優勢になるんでしょうか？
0041>40
NGNGところで、定数回数のループだよね？（可変回数のループは展開できないし）
004241>40
NGNG記述が面倒になったら。（藁
0043名無しさん＠お腹いっぱい。
NGNGループの方が速いんじゃなかったっけ？
0044名無しさん＠お腹いっぱい。
NGNG俺もそうしてる
端数ループ、定数回ループ、端数回ループとやるのが基本
004544
NGNG0046abu
NGNGはは、本当だ。とても分かりづらい。上手く書けてなくてすみません。
>37
はい。セキュリティは無視できます。
CGIも考えたのですが、webサーバが無く、又、サーバーの内部構成を変えたくないとの事した。
0047名無しさん＠お腹いっぱい。
NGNG0048名無しさん＠お腹いっぱい。
NGNG0049名無しさん＠お腹いっぱい。
NGNG0050名無しさん＠お腹いっぱい。
NGNG0051名無しさん＠お腹いっぱい。
NGNGデータベースと連結して使用するとき皆さんはどうしてますか？
Nullを使用しないといけないときは使用しませんか？
でも同様にTextboxも弾かれるんですけど
Nullは使うなってことなのかな？
でもNullが無いと困りませんかね
0052マジレス
NGNG①ISDN回線の2回線をパソコンの画面で制御できる。
②TAのリダイアル規制をはずして1分間に50回以上リダイアルできる
③1つの番号が混んでいたら他の予備に登録した番号をどんどんかけていく。
④つながったら、電話機で話ができる
このようなプログラムがわかる人いますか？
わかる人がいたら教えてください
0053名無しさん＠お腹いっぱい。
NGNGボタンを押したらそのフォームを閉じて別のフォームを画面上に開くようにしたいのですが、
どのようなコードを書けば良いでしょう。
dim なんとかだとタスクバーに入って不便です。
0054名無しさん＠お腹いっぱい。
NGNG#MainなのにSubとはこれいかに。
005553
NGNG0056名無しさん＠お腹いっぱい。
NGNGsub command1_click()
form2.show
unload me
end sub
でだめ？
005753
NGNGありがとうございます。これで問題解決です！ 感謝！
0058名無しさん＠お腹いっぱい。
NGNGPUBLIC G_GAMEN_ID AS STRING
PUBLIC SUB MAIN
SELECT CASE GAMEN_ID
CASE "GAMEN01"
FORM1.SHOW
CASE "GAMEN02"
FORM2.SHOW
END SELECT
END SUB
'FORM1.FRM
SUB COMMAND1_CLICK()
G_GAMEN_ID = "GAMEN02"
ME.HIDE
END SUB
0059名無しさん＠お腹いっぱい。
NGNG0060名無しさん＠お腹いっぱい。
NGNGオリジナルのプレイヤーを作る方法がわかりません。
どっかに情報があるらしいけど みつからない･･･
サンプルプログラムのソース、知りませんか
0061名無しさん＠お腹いっぱい。
NGNG0062名無しさん＠お腹いっぱい。
NGNG0063(ﾟ∀ﾟ)
NGNG0064名無しさん＠お腹いっぱい。
NGNG0065魁！名無しさん
NGNG0066名無しさん＠お腹いっぱい。
NGNG0067名無しさん＠お腹いっぱい。
NGNG・条件Ａが真の時、かつ条件Ｂが真の時には、処理Ｘを行う。
・それ以外の条件の時は、処理Ｙを行う。
・どちらの場合も、そのあと処理Ｚを行う。
・どの処理も関数化が困難である。
（大量のプロシージャ内のスコープを持つ変数を使用するなど）
・但し条件Ｂは条件Ａが真の場合のみ評価できる。
（If 条件Ａ And 条件Ｂ Then →例外が発生する）
どのような構造でコーディングするのが最も良いと思いますか？
処理Ｘ、処理Ｙともに数行のコーディングの場合は？
処理Ｘ、処理Ｙともに数十行のコーディングの場合は？
処理Ｘ、処理Ｙともに数百行のコーディングの場合は？
参考１）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
処理Ｘ
Else
処理Ｙ
End If
Else
処理Ｙ
End If
処理Ｚ
参考２）－－－－－－－－－－－－－－－
Dim blnX As Boolean
blnX = False
If 条件Ａ Then
If 条件Ｂ Then
blnX = True
End If
End If
If blnX Then
処理Ｘ
Else
処理Ｙ
End If
処理Ｚ
参考３）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
Goto X_P
End If
End If
処理Ｙ
Goto Exit_P
X_P:
処理Ｘ
Exit_P:
処理Ｚ
参考４）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
Gosub X_SUB
Else
Gosub Y_SUB
End If
Else
Gosub Y_SUB
End If
処理Ｚ
---------------Exit
X_SUB:
処理Ｘ
Return
Y_SUB:
処理Ｙ
Return
0068名無しさん＠お腹いっぱい。
NGNG0069゜Д゜メ
NGNG0070>68
NGNG0071名無しさん＠お腹いっぱい。
NGNG0073＞７２
NGNG0074>72
NGNGRubyよりVBのがまだましって気がする。
mule+gdb+いろいろがVisual Studioより
開発しやすいとはとても思えないんだけど。
早くKylixでないかな。
0075>69
NGNG0076>74
NGNG007776
NGNG0078名無しさんi486
NGNGなんもいいがこれは納得できん。
PerlがVBに勝てるとこを逝ってくれ。
0079名無しさんiAPX432
NGNG0080名無しさん＠お腹いっぱい。
NGNGプログラマー人口が多いので取りあえず人がかき集められる
とこ。＜ほとんど初心者の域を出ない者ばかりだが
0081>79
NGNG0082名無しさん＠お腹いっぱい。
NGNGCGIぐらいしかまともに作れないRubyに比べて、VBはちゃんとした
アプリケーションを作れますよ。
0083名無しさん＠お腹いっぱい。
NGNG￣￣￣￣￣￣
意義有り。
0084名無しさん＠お腹いっぱい。
NGNGＶＢは作れる、が作れないＶＢ厨房が多すぎるだけである。
0085名無しさん＠お腹いっぱい。
NGNG0086＞85
NGNG0087名無しさん＠お腹いっぱい。
NGNG0088ぎこるび
NGNG開発環境とWindowsGUIアプリの作りやすさはVBがはるかに上です。
で、ちゃんとしたアプリが作れるかは製作者によります。
何がちゃんとしているかは知りませんが。
まあ、VBとRubyでは開発対象とするソフトウェアの性質が違いますね。
0089名無しさん＠お腹いっぱい。
NGNGそれいっちゃあ、VCもDelphiも存在意義が違うから秤にかけれないってことになっちゃうよ
>ちゃんとしたアプリが作れるかは製作者によります
製作者が成長しにくい言語のような気がする。
普通にwinアプリの基本を知っていて欲しい、文法なんて知らんでいいから。
0090名無しさん＠お腹いっぱい。
NGNGRubyとくらべてみよう。
Ａ．ＶＢは作れる、が作れないＶＢ厨房が多すぎるだけである。
Ｂ．Rubyは作れる、が作れないRuby厨房が多すぎるだけである。
Ａに異議アリか？
0091名無しさん＠お腹いっぱい。
NGNGを？ Ａ．だけ取り出して、Rubyと比べてるって？
ううむ、おれは日本語が苦手なようだ…
0092名無しさん＠お腹いっぱい。
NGNG0093名無しさん＠お腹いっぱい。
NGNG0094名無しさんi486
NGNGアレが無きゃいい言語だと思う。
0095名無しさん＠お腹いっぱい。
NGNG0096名無しさん＠お腹いっぱい。
NGNGなんだかさっぱりわからないもんで
どなたかよろしくお願いいたします
0097名無しさん＠お腹いっぱい。
NGNG住所、氏名、年齢、性別、電話番号をここに書いたら、教えなくない。
ってゆーか、市んで。
0098名無しさん＠お腹いっぱい。
NGNGなぜ？
0099月刊能力不足
NGNGCプログラムのスパゲティー化を防ぐには、
どうしたよいでしょうか？
0100９９
NGNG0101初心者代表
NGNG---
(hoge.mdb)
テーブル名：Tbl_Syurui(商品のジャンル)
フィールド：syurui_code(オートナンバー) , syurui_mei(名称)
テーブル名：Tbl_Syouhin(商品)
フィールド：syouhin_code(オートナンバー) , syouhin_mei(名称) , syurui_code
-----
・データコントロール(dtaSyurui,dtaSyouhin)
・DBグリッド(dbgSyurui,dbgSyouhin)
-----
※dbgSyuruiから目的のジャンルを選択すると、dbgSyouhinに該当の商品が表示
-----
Private Sub Form_Load()
dtaSyurui.RecordSource = "SELECT syurui_code, syurui_mei FROM Tbl_syurui ORDER BY syurui_mei"
End Sub
Private Sub dtaSyurui_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim strSyuruiCode As String
'種類名のコード番号を取得して代入
strSyuruiCode = Str(dtaSyurui.Recordset("syurui_code"))
'データコントロールのRecordSourceプロパティにSQL文を設定
dtaSyouhin.RecordSource = "SELECT syouhin_code , syouhin_mei , syurui_code FROM Tbl_syouhin WHERE syurui_code = " + strSyuruiCode + " ORDER BY syouhin_mei"
'リフレッシュ
dtaSyouhin.Refresh
End Sub
で、dtaSyouhin.Refreshの段階で"パラメータが少なすぎます。1を指定してください。"と怒られます。
どこで勘違いをしているのでしょうか？
■ このスレッドは過去ログ倉庫に格納されています