VBプログラマ質問スレ（6.0以前） Part52

1 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:33:37 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 85 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 21:54:06 ] ちょっと調べ物があって、古い参考書開いたら、 ランダムファイル処理のサンプル画面で、 「ZARD 永遠 5:13」 って出てきた。 歌手・曲名・演奏時間を１レコードとして扱う例だった。 少しせつなくなった。 86 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:21:21 ] visual basic 6.0でリストボックスに表示されている数値をクリックして選択したものだけの最大値を調べるプログラムを作りたいのですが全く方法がわかりません。 誰か教えて下さい。 87 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:37:35 ] >>86 リストボックスの1つだけを選択してその値をとることができるようにしてみよう まずはそれからだ 88 名前：８６ mailto:sage [2007/06/04(月) 22:51:21 ] Private Sub List1_Click() Dim i As Double 　　List2.Clear For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) End If Next i End Sub こんな感じでList2に加えていく事はできるんですけど、何か別の配列みたいなのに格納していきたいのですが… 89 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:54:24 ] 86に便乗する形で質問したいのですがよろしいでしょうか？ 86と似たようなプログラムを作っているのですが、listboxの要素を関数に渡す方法がわかりません。 選択した物を合計する等は作れたのですが、これを関数を用いて作れとお達しを受けまして。 とりあえずAverage(1,2,3)で２が出てくるような関数は作れたのですが、どうすればlistboxの中の不定数の要素を関数に引き渡すのかがわかりません。 このような質問の仕方で伝わるものかとも思いますが、先輩方の御知恵を拝借したく… どうぞよろしくおねがいします。 90 名前：８６ mailto:sage [2007/06/04(月) 22:57:04 ] >>89 ああ私もそんな感じの物が作りたいんです。要素数が不定だからできないんですよね。 91 名前：89 mailto:sage [2007/06/04(月) 23:01:03 ] >>90 配列変数を宣言してlistboxの値をloopで回して格納していって、それを直接関数に渡せばいけるんじゃ？ とかも考えましたがうまく動かず。 それ以前に配列に要素を足す方法すら合ってるのかが謎で。 私ごときにはお手上げです。 92 名前：８６ mailto:sage [2007/06/04(月) 23:44:43 ] >>91 > 配列変数を宣言してlistboxの値をloopで回して格納していって、それを直接関数に渡せばいけるんじゃ？ > とかも考えましたがうまく動かず。 ちなみにそれはどんな文ですか？ 93 名前：デフォルトの名無しさん [2007/06/05(火) 00:33:11 ] 94 名前：デフォルトの名無しさん [2007/06/05(火) 01:02:26 ] VB6はあまり配列が上手でないというか、使いやすいものではないと聞いたけど…。 選択した数値を文字列に変換して、カンマで区切って、最後にSplit関数で 配列にして、その関数に配列を渡して計算させるとか？ 95 名前：デフォルトの名無しさん [2007/06/05(火) 01:15:20 ] Collectionを使えばいいと思うけど…。 リストボックスの中は数値で、選択したものを配列（コレクション）に入れて 例えば、合計とかさせればいいんでしょ？ 96 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 01:26:21 ] 94と95は、どっちが86、89なんだ？ 97 名前：８６ [2007/06/05(火) 06:16:22 ] どっちも私ではありません 98 名前：８６ mailto:sage [2007/06/05(火) 06:46:27 ] というか6.0ではCollectionどうやってつかうのかいまいち分からないんですけど 99 名前：デフォルトの名無しさん [2007/06/05(火) 08:48:32 ] >>88 動的配列変数を宣言して、 ループの直前かもしくは中でReDim使って要素数足してけばおｋ 100 名前：デフォルトの名無しさん [2007/06/05(火) 09:38:09 ] リストの選択要素の合計を求めるのだったらこんな感じかな？ 横槍だけど。 Private Sub Command2_Click() Dim a As Integer　 Dim b() As Integer　'配列 Dim c As Integer　　'要素数 Dim sum As Integer　 For a = 0 To List1.ListCount - 1 　If List1.Selected(a) = True Then 　ReDim Preserve b(c) 　b(c) = List1.List(a) 　c = c + 1 　End If Next sum = SumCalc(b)　’配列を渡して要素数の合計を返す End Sub Private Function SumCalc(ByRef b() As Integer) As Integer Dim f As Integer Dim sum As Integer For f = 0 To UBound(b) 　sum = sum + b(f) Next SumCalc = sum End Function 101 名前：デフォルトの名無しさん [2007/06/05(火) 09:55:08 ] グリッドについての質問です。 グリッドのセルをクリックした時にその行がすべて選択状態（色が変わる状態）に するにはどうしたらよいでしょうか？ 102 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 10:27:33 ] グリッドにも色々種類がある訳だが。 103 名前：デフォルトの名無しさん [2007/06/05(火) 11:15:49 ] >>101 エスパーレス クリックしたRowの位置がわかるからFor文で 104 名前：８６ [2007/06/05(火) 18:05:23 ] >>100 ありがとうございました。何とかできそうなので参考にさせてもらいます。 105 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 00:20:09 ] 6.0でコマンドボタンをクリックした時に、任意のキーを押す動作をさせることはできますか？ コマンドボタンをクリックしたらＥＳＣキーが押されて、それによってＥＳＣキーのキープレスイベントが起きてくれるような動作をさせたいのですが。 106 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 00:25:17 ] キーを送ればいいしイベントを呼んでもいいんじゃない？ 107 名前：105 mailto:sage [2007/06/06(水) 00:33:33 ] 『キーを送る』が、まずよくわからず コマンドボタンを押した時にkeyAsciiに任意の値を入れて、 それを何に渡せばいいのかがわからなかったのです。 あと、仮にＥＳＣキープレスの下に動作をを書いてあったとして それをどう呼び出すのかもわかりません。 最近ＶＢ始めたもので何をどうすればいいのか。 コンピュータに日本語通じて欲しいです・・・ 108 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 00:39:49 ] そのままなんだがな キーを送る SendKeys イベントを呼び出す Call Hoge_KeyPress( 109 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 01:15:30 ] >>108 頭固いな 自分自身にキー送る必要なんて、そもそもないだろ キーダウンのイベントハンドラを呼びだせばいいじゃんｗ 110 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 01:21:50 ] >>109 何で俺に言うんだよ 質問に答えただけだろ 111 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 01:37:21 ] >>109 なにそのオナニー そもそも、イベントが発生される以外で”呼び出される”のはイベントハンドラって言わないんじゃないの？ もっと別の言い方があるでしょ で、元質問者にヒント 「コマンドボタンを押したら、コマンドボタンにフォーカスが移る」のを忘れないように。 112 名前：デフォルトの名無しさん [2007/06/06(水) 01:53:45 ] >>111 別の言い方について詳しく 113 名前：デフォルトの名無しさん [2007/06/06(水) 10:08:38 ] ハンドラじゃねぇってことだろｗ 114 名前：デフォルトの名無しさん [2007/06/06(水) 10:25:03 ] ちょいとどこに質問したらいいかわからなくって聞きたいことがあるんですが、エクセルで画像を挿入したときにあらかじめ挿入する画像の原稿サイズで表示するんじゃなくてこっちで設定したサイズにして挿入する方法はありますか？ 教えてください。すごくお願いします。 115 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 10:36:27 ] 断る 116 名前：デフォルトの名無しさん [2007/06/06(水) 10:38:02 ] >>114 モーグってサイト見ろ 117 名前：デフォルトの名無しさん [2007/06/06(水) 12:12:19 ] >>116さん いい情報をありがとうございました。 >>115は亀梨和也とアナルｾｯｸｽをして死ねばいいのさ。 118 名前：デフォルトの名無しさん [2007/06/06(水) 12:49:58 ] >>117 むしろお前がｼﾈﾖ？カス せめてググってからこい　無能者が 119 名前：デフォルトの名無しさん [2007/06/06(水) 13:04:53 ] >>118 m9(^Д^)ｶｯｺﾜﾙｗｗｗｗｗ 120 名前：デフォルトの名無しさん [2007/06/06(水) 13:12:31 ] Private Sub MSFlexGrid1_Click() MSFlexGrid1.SelectionMode = flexSelectionByRow End Sub これでどこのセルをクリックしても行全体が反転されるはずなのですが 一番最初の行が反転されません。 一番最初の行も反転させるためにはどうしたらよいでしょうか？ 121 名前：デフォルトの名無しさん [2007/06/06(水) 13:56:34 ] 一番最初がヘッダーの事だったら死なす 122 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:13:28 ] エスパーレス (´･ω･`)つ【FocusRect】 123 名前：デフォルトの名無しさん [2007/06/06(水) 14:28:13 ] >>122 ありがとうございます .FocusRect = flexFocusNone を追加すると クリックしたときには綺麗に一行反転するのですが クリックしていない状態でも 左上のセルが一つ反転してしまいます。 初期状態で反転させない方法はありますか？ 124 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:42:29 ] >>123 その様子だと次々と出てきそうだから先に言っておくけど MSFlexGridのプロパティと動作ぐらいは自分でテストしな なぜ初期状態で反転してるか考えれば答えが出るでしょ 125 名前：デフォルトの名無しさん [2007/06/06(水) 21:01:53 ] VB6.0で暗算を行なうシステムを作りたいんですが 全く初心者なため勝手が全然分からなくて、ネットで 調べてもそれらしきものが見当たりませんでした・・・ 例えば、一つ計算式がでてきたら自分でその答えを入力し 正誤に関らず次の式が表示されまた答えを入力する・・・ というのを繰り返すようなものを作りたいのですが もし可能ならばヒントでも頂けると助かります よろしくお願いします 126 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 21:14:18 ] >>125 その与えられる数式を解析すれば行けるだろうけど どのレベルまでを求めるかによると思うけどなぁ…・ 単純な四則演算レベルならまぁ…・　小数点とかはいると少し難しいんじゃないかな？ とりあえずどんな数式が出てきて　どんな動きすればいいかを 自分の求めるレベルでサンプルを書き込んでみては？ いっちゃん簡単なので行けば ****** ●＋１＝５ という数式があり　●には数字が入る 最終てきに ●=４という答えがほしい ***** こんな感じで 127 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 00:48:57 ] >>125 時間がある人なら、とりあえずテキストエディタとか作ってみるといいんじゃない？ システムの設計の方法とか方針とか少しは見えてくると思うよ 逆に設計についてサッパリな状況なら何も作れないってことが分かるだろうし 128 名前：デフォルトの名無しさん [2007/06/07(木) 06:22:20 ] Rnd関数か何かを使って任意の計算式を創出できるようにしたらいいかも。 VBの達人なら、この程度のプログラミングなど簡単すぎて興味も湧かないでしょうが、 いかに、短くてエレガントなコードを書くかには興味を持つかも知れん。 129 名前：デフォルトの名無しさん [2007/06/07(木) 09:47:53 ] >>128 確かにアルゴリズムは考えるのが楽しい が・・・・ある程度いったら飽きるんだよorz 130 名前：デフォルトの名無しさん [2007/06/07(木) 10:14:13 ] ESCキーで終了させるにはどうしたらよいですか？ 131 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:15:39 ] ほんの一瞬、「VBで暗算を行う」の意味がわからんかったわ。 132 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:35:32 ] >>130 よく知らんが フォームにでもKey Pressのせて if key asciiがEsc End 'Unload me end if じゃだめですか 133 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:51:55 ] >>125 式作成部分だけ造ったが、こんな感じか？ 134 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:53:09 ] 張リ 忘レタ ヨー ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/joyful.cgi?mode=thr&no=3606 135 名前：デフォルトの名無しさん [2007/06/07(木) 12:02:30 ] >>133 おまっ・・・・Cかよｗｗｗｗ 式は自動作成なのかな? 俺が予想してるのはこんな流れ 前提：式のリストがある（いわゆる算数の穴埋め問題集的な） X＋２＝５　Xを求めよ　みたいな 流れ １．式のリストから式を取得（あとはユーザが選択したりとか） ↓ ２．その式を分析して解を求めるような値を算出（方程式解くような感じで） 　　（例だと：X=5-2　X=3） ↓ 1に戻る 136 名前：デフォルトの名無しさん [2007/06/07(木) 19:42:07 ] >>135 予め式のリストが用意されてるんなら、 リストインデックスから解を出力すりゃいいだけじゃね？ 解も配列で内部的に持っとけばいいだけだし。 137 名前：デフォルトの名無しさん [2007/06/07(木) 22:04:08 ] >>135 >125を見た感じ、延々と繰り返すってことは、 有限な感じがするその前提は使えないんじゃね？ つか、式を自動生成する時ついでに、 内部的に解を求めとけばいい気がする。 暗算すんのはユーザなんだろ？ システム的にはただ淡々と計算してけばいいだけ。 悩む点は特に無さげ。 138 名前：125 [2007/06/08(金) 00:01:50 ] 遅くなってすいません 134をコピーしてみたんですが、エラーが出まくって上手くいきません 多分フォーム内に全部直接貼り付けただけで、変数を宣言する場所とか が自分でよく分かってないからだと思いますが・・・ 全く素人すぎてすいません・・・ 139 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 00:17:32 ] >>138 Ｃでもいいわけか？ ＶＢじゃなくって？ あのソースはＶＢではないぞ・・・・・ 140 名前：125 [2007/06/08(金) 00:23:13 ] >>139 そうなんですか？ 自分はVB作りたいです 今日乱数を発生させてどうのこうのとかやってたけど 全く上手くいきませんでした・・・ 141 名前：デフォルトの名無しさん [2007/06/08(金) 00:28:25 ] Ｃを全く知らない俺が変換してみたｗ Private Function fmotome(n As Integer) As Integer Dim Res As Integer Select Case n Case 0 Res = 0 Case 1 Res = 1 Case Else Res = fmotome(n - 1) + fmotome(n - 2) End Select fmotome = Res End Function Private Sub Form_Load() Dim Temp As String Temp = InputBox("Ｎの値を(　ﾟдﾟ)ｸﾚ", "数値入力") If IsNumeric(Temp) = False Then MsgBox "数値入れろ", "カス" Unload Me End If Dim Res As Integer Res = fmotome(CInt(Temp)) MsgBox "Fnの値は'" & CStr(Res) & "'" End Sub もすこしやりたいことを具体的におしえてはくれんか？ 乱数を発生させるのは簡単だがそれを使ってどうするのか　とかさ 142 名前：デフォルトの名無しさん [2007/06/08(金) 00:35:52 ] ちなみに上限と下限決めて乱数作る場合こんな感じだったとおもう 使い方はあってると思うけど… 下限1　上限10 dim hi as integer dim Lo as integer Hi = 10 Lo = 1 Ransuu = Int((hi - Lo + 1) * Rnd + Lo) 143 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 00:38:06 ] ていうか、いまさらVB6〜を始めるな。 せめてC#かVB.NETにしろ。 144 名前：125 [2007/06/08(金) 09:12:07 ] >>141 ありがとうございます 実は具体的に実現したい機能としては 画面上に2桁の加算を行なう数式が2つ表示されて、ユーザー側が計算して値が大きい方の式を選ぶと その正誤がすぐに画面上でフィードバックされ、すぐにまた同じような暗算課題が画面上に表示され 同じことを30分とか決められた時間ひたすら繰り返されていくようなものです 考えて作ろうとはしてるんですが、まだ暗算機能されまともに作れなくてやばいと いった状況ですね・・・ 145 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 09:15:40 ] hp.vector.co.jp/authors/VA009756/prog/lab/ ここの十字カーソルのように、デスクトップ（というかスクリーン）の最前面に 文字や画像を描画するにはどうすればいいのでしょうか？ 146 名前：133 mailto:sage [2007/06/08(金) 09:21:42 ] 勘違いさせてしまった様だが、俺が創ったのは ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/joyful.cgi?mode=thr&no=3606 のレス21な 147 名前：デフォルトの名無しさん [2007/06/08(金) 09:47:19 ] >>145 見てないから分からんのだが、 ひょっとしてAPIのSetWindowPosのことか？ 148 名前：デフォルトの名無しさん [2007/06/08(金) 13:28:14 ] >>144 ふむふむ・・・ 俺設計力とかはあんまないから今一歩かもしれんけどさ １．　2桁の（+-の）数値の和・差の式をランダムで自動生成して ２．　その自動生成された式を自分の内部で計算して　大きいほうの数を持つ式を選べば正解として処理 １．２を決められた時間ないひらすら繰り返す で点数とか正誤率表示するような感じなのかな？ 149 名前：デフォルトの名無しさん [2007/06/08(金) 13:47:37 ] >>146 ここまで作ってあげてる優しさに俺は脱帽した 質問者が理解できるかどうかはしらんがｗ 150 名前：145 mailto:sage [2007/06/08(金) 14:54:37 ] >>147 SetWindowPosはウィンドウの位置やサイズを変更するAPIですよね。 もしかして常に最前面にしてウィンドウを完全に透明にすればできるということでしょうか？ やりたいことは、↓これと同じようなことなのですが… www.forest.impress.co.jp/article/2007/04/10/crosshair.html 151 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 15:21:40 ] そのソフトの事は知らないが、簡単に作るのであれば、 ・二つウインドウを作り最前線にもってくる ・一つは縦が1ドットx横がデスクトップの横サイズで。もう一つは(ry ・マウスカーソルの位置に二つのウインドウを位置合わせ こんな感じでできるべ？ 152 名前：125 [2007/06/08(金) 19:59:32 ] >>148 だいたいそんな感じですね 正確には １．　2桁の正の数のみの数値の和の式をランダムで二つ自動生成して ２．　その自動生成された式を自分の内部で計算して　大きいほうの数を持つ式を選べば正解として処理 １．２を決められた時間ないひらすら繰り返す で一回1ポイントとして終了後に合計得点と正答率を示す ついでに可能だったら合計得点の今までチャレンジした人の中でのランキングも示す というところまで作りたいんですが、プログラムの基礎もさっぱりな段階なので 全くダメといった感じです・・・ 可能ならばどなたかに参考になりそうなアドバイスを頂きたいです よろしくお願いします 153 名前：デフォルトの名無しさん [2007/06/08(金) 20:01:14 ] >>152 まずは>>133 が作ってくれてるのうごかしてみ？ 154 名前：125 [2007/06/08(金) 20:11:54 ] >>153 やってみたんですけどエラーが出て実効できないです・・・ 多分自分が変数を宣言する場所とかを間違ってるのがいけないと思うんですが・・・ 155 名前：デフォルトの名無しさん [2007/06/08(金) 22:07:20 ] >>154 ＶＢ６環境ないんでEXCEL2003のＶＢＡでやってみたがちゃんと動いてくれたぞ？ あれをモジュールにはっつけて Private Sub CommandButton1_Click() Call Eq_Sample1 End Sub Private Sub CommandButton2_Click() Call Eq_Sample2 End Sub これでちゃんと数式ができてるいいサンプルだと思うけどなぁ？ どんなエラーがでてどこでエラーが起きてるか出来るだけｋｗｓｋ書いて ちょっとそっちで動かないソースここにはりつけてみないか？ 貼り付けたのはもちろん>>146の言うとおり21レス目のVBソースが直書きしてあるやつだよな？ 156 名前：125 [2007/06/08(金) 23:05:39 ] 今146のやつを標準モジュールに全部貼り付けて 実行するフォームにコマンド１，２を用意して155のソースを書いて実行したら エラーは出なくなりましたが、画面に何の変化もないといった感じです・・・ 標準モジュールに貼り付けるのが何か間違ってますか？ 157 名前：デフォルトの名無しさん [2007/06/09(土) 00:04:57 ] >>156 なにも表示されないよ ヒント　Debug.Print 適当にラベルにでも表示してみれば？ 158 名前：125 [2007/06/09(土) 07:34:35 ] >>157 Debug.Print というものを調べてみたらファイル操作というもので色々なことに 使われてるみたいだってことは分かったんですが 146のソースにどういう役割で導入すればいいかというのは分からないです・・・ 可能ならばもう少しヒントを頂きたいです 159 名前：デフォルトの名無しさん [2007/06/09(土) 09:23:11 ] >>158 根本的に基礎を勉強しなきゃ話にならないとは思うけど ”イミディエイトウィンドウ”という所に文字を表示する機能がDebug.Print >>146のソースの中にDebugPrintてあるのは確認用で実際のフォーム内には表示されない なので表示するためにはラベルやテキストボックスに表示させる必要がある ぶっちゃけどれ位かけるの？ ボタン押してラベルの文字と色を変更することくらいはできるの？ 160 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 11:19:36 ] むしろ今からVB6を「基礎から」勉強してどうする。 161 名前：デフォルトの名無しさん [2007/06/09(土) 14:50:50 ] >>160 会社によっては未だにVB5使ってるところもあるんだし、 勉強するのに時代遅れもなにもないんじゃない？ 必要だから習得する。 必要なければ習得しない。 こんなもんでしょ？ 162 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 15:13:25 ] むしろこのスレの住人なら もうバージョンアップしない「　完　成　さ　れ　た　」この言語を 一生使い続けるぐらいの気持ちで 163 名前：デフォルトの名無しさん [2007/06/09(土) 15:22:47 ] >>162 そこまでは愛せない俺ガイル 164 名前：125 [2007/06/09(土) 15:36:26 ] >>159 遅くなってすいません 下の二行に書かれていることはできると思います 本当に簡単なことは多分できるのですが、例えば Option Explicit Public Enum ELEVEL LV_PLS = 1 LV_MIN = 2 LV_MUL = 3 LV_DIV = 4 End Enum Public Type TMATH Level As ELEVEL Max As Long Min As Long Length As Integer Brackets As Byte End Type などのソースはいきなり見たことない書き方の連続で 何が何を意味してるとかが全く分からない状況です・・・ 165 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 15:49:48 ] >>164 そんな事すらいちいち教えなきゃいけないのか？ 自分で調べる気は毛頭ないのか？ トイレまで他人が手伝ってもらわないといけないのか？ ふざけんなこの野郎 166 名前：デフォルトの名無しさん [2007/06/09(土) 15:51:25 ] >>164 基礎を勉強してからアプリなり何なり作るといいと思うよ。 処理云々以前の問題。 167 名前：デフォルトの名無しさん [2007/06/09(土) 15:58:10 ] EnumもTypeも調べられない程度の人間にプログラムは向いてないんだってばっちゃが言ってた！ 168 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 18:09:57 ] >正誤に関らず ・・ という部分が非常に気持ちわりいな 誰か、正誤判定出来るよう修正キボンヌ 169 名前：デフォルトの名無しさん [2007/06/10(日) 01:04:18 ] >>168 正誤判定はしてるんだろ？ 指定された時間が経過したら正解率出すんだし。 答える度に毎回ヴィジュアル的に軽く表現させる程度なら 普通にやるもんだろーと思うが。 質問者が言ってるのは、 正解でも不正解でも次々と問題が表示されていくってことだと思うんだが。 170 名前：デフォルトの名無しさん [2007/06/10(日) 11:31:53 ] ＳＭＴＰでメール受信するプログラムをＶＢで作成しようとかんがえているのですが、受信したメールをポップアップで表示するのは可能ですか？ 171 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 11:42:18 ] >>170 ＳＭＴＰでメールを受信とは、サーバを作りたいと言ってるの？ 172 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 11:50:28 ] >>170 受信したメールは貴方がメールだと思っているだけで、実はタダの文字列なんじゃないか？ 173 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 12:00:44 ] いい感じに荒れてきた 174 名前：デフォルトの名無しさん [2007/06/10(日) 12:50:39 ] BSMTPの話？ 175 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 12:53:29 ] >>173 つ　アロエ 　　肌にいいらしいぞ 176 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 13:14:50 ] このスレにSMTPは送信用のプロトコルだと勘違いしてるやつがいる。 177 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 14:03:02 ] あげあしとり出現ｗ 178 名前：１２５ [2007/06/10(日) 16:15:19 ] 取りあえず今自分なりの書き方でプログラムを作っていて 一個一個順を追って１５２に書いたことに近づけていっている感じなんですが 取りあえずフォームが開いたらランダムで一つの数式を表示しようということを やろうとしていて Randomize Dim a As Integer Dim b As Integer a = 99 b = 10 Label1.Caption = CInt(Rnd(a) * 100) Label1.Caption = CInt(Rnd(b) * 100) Label1.Caption = CStr(a) & "+" & CStr(b) と書いたんですが、これだとaとbの値が変化せずに９９＋１０と表示されてしまい 値が固定化されてしまいます・・・ ランダムの効果を利かせるには何かソースが足りないんでしょうか？ 179 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 16:24:35 ] ﾜﾗﾀ なんかこうなってくると釣りｸｻｲよなwww 180 名前：デフォルトの名無しさん [2007/06/10(日) 17:08:23 ] 初心者の俺でも分かる。 1行ずつ追っていけよww 181 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:10:27 ] 相手にするから付け上がる 182 名前：１２５ [2007/06/10(日) 17:23:20 ] いや１４２さんのをヒントにやってみたつもりだったんですが・・・ ２桁同士の加算にしたいから上限９９、加減１０に設定して その値をランダムかしてa+bのところに表示 みたなイメージで書いたつもりです 183 名前：デフォルトの名無しさん [2007/06/10(日) 17:29:48 ] うるさい だまれ 184 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:35:17 ] （´・ω・） 185 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:42:30 ] >その値をランダムかして ってランダム化表示してるだけだろ？aとbは元の値のままぢゃん

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef