118コメント26KB

俺にプログラムを教えてみろ！！

■ このスレッドは過去ログ倉庫に格納されています

0001１

NGNG

Visual Basic とかなんとかの本を買って、プログラムを勉強しようかと思ったが、

馬鹿な俺にはさっぱりわからん。

俺にプログラムを教えてみろ！！

0068デフォルトの名無しさん

NGNG

>>66
辞書使え

0069１

NGNG

>>68
載ってない。

0070デフォルトの名無しさん

NGNG

いんかずだよ♪

0071デフォルトの名無しさん

NGNG

ちんかす

0072１

NGNG

>>70
その逆を取ってひきすうだろ。引数引数

0073１

NGNG

もう一つがわからん。

0074デフォルトの名無しさん

NGNG

ひかくえんざんし
ネタだとしても少しage過ぎ。
もうちょっと控え目にしてくれ。

0075１

NGNG

>>74
おーっ！　ｻﾝｸｽ！

0076１

NGNG

Sub hantei(ByVa1 Index As Integer, _
ByVa1 No As Integer, _
ByVa1 Fname As String)

本どうりに打ってたらなんかここでエラーが出る。本どうりのはずなのに。

なんでだ？

0077１

NGNG

Sub hantei(ByVa1 Index As Integer, _
　　　　　　ByVa1 No As Integer, _
　　　　　　ByVa1 Fname As String)

ん？

0078１

NGNG

半角スペースは省略されるのか？

0079デフォルトの名無しさん

NGNG

独り言やめい

0080デフォルトの名無しさん

NGNG

>>76　ネタ？
ValがVa1になってるぞ（エルがイチになってるぞ）

0081デフォルトの名無しさん

NGNG

ネタにしか見えん

0082１

NGNG

ネタじゃない・・・鬱だ氏のう・・・・・・

0083１

NGNG

とりあえずｻﾝｸｽ。

0084デフォルトの名無しさん

NGNG

なんとかミスってやつね。

0085デフォルトの名無しさん

NGNG

>>84
何で上げんの？

0086デフォルトの名無しさん

NGNG

「１０－２」は？「うーん。。。８！」
「正解！じゃあ１０ｃｍの紐から２ｃｍ切りとると残りの紐の長さは？」
「……。えっ！？ん？うーん…。５ｃｍ？」

0087デフォルトの名無しさん

NGNG

>>86
何で上げんの？

0088デフォルトの名無しさん

NGNG

次のネタに期待age

0089デフォルトの名無しさん

NGNG

>>85,>>87
なんでsageんの？

0090デフォルトの名無しさん

NGNG

VBよくしらんのだけど>>77みたいな関数プロトタイプだけで実行できんの？

0091仕様書無しさん

NGNG

VB厨発生の起源がここに！！

0092デフォルトの名無しさん

NGNG

>>86
1cm & 7cm
2ch & 6cm
3cm & 5cm
4cm & 4cm
....

009355

NGNG

ディレクトリに希望するファイルが保管されているかどうか調べたいんだけど
普通はどうするの？

Open file_path For Input As #file_id

って、やったらFileが存在しない場合エラーで処理終了…
いろいろ調べたんだけど、Fileが存在しない場合にエラーにしないで処理を続行
させる方法がわからない。
誰かヒントを下さい。

0094デフォルトの名無しさん

NGNG

ヒント：調べるだけならオープンしない

0095デフォルトの名無しさん

NGNG

♪日本を印度にし～てしまえっ！
俺にＶＢ教えろ～
俺にＶＢ教えろ～・・・

0096デフォルトの名無しさん

NGNG

>>92

>2ch & 6cm
ﾜﾗﾀ

0097デフォルトの名無しさん

NGNG

on error goto
(VBにあるのか？

0098デフォルトの名無しさん

NGNG

　　　　　　　　　　　　　　　　　　　　　　　　　　, ～～～～～～～～～～～～～､
　　　　　　　　　　　　　　　　　　　　　　　　　（　なんか事務的になったよなぁ…　）
　　　　　　　　　　　　　　　　　　　　　　　　　　` ～～～ｏ～～～～～～～～～'
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ﾟ　（（（　）））
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 u （´Д｀）
　　／￣￣￣￣￣￣￣￣￣＼　　　　　　　　　　　　　　　　 ./　　　ヽ
　（　まって～１さんＬＯＶＥ。　）　　　　　　　　　　　　　　　　し　　Ｊ
　　＼＿＿＿　＿＿＿＿＿／　　　　　　　　　　　　　　　:::::（＿）（＿）::::
　　　　　　　 .|／
　　　　　　　　　　　　┌──┬┐　　／￣￣￣￣￣￣￣￣￣￣￣＼
　　　　　　　　　　　　　||￣￣| |　|　　（　また騙されましたね１さん。　）
　　　 ∧＿∧. 　　　　||＿＿| |　|　　＼＿＿＿　＿＿＿＿＿＿＿／
　　　（　　　　）　　　　..|∞∞0 ||~|　　　　　　　　.＼|
　　 /　愛　.＼　　　|￣￣￣￣|￣|
　　.|　　　　|＼＼　　 ||￣￣￣||￣|　　　　　　　　 .∧＿∧ ))
　　|　　　　|/　＼)..　 ||======||＿|　　　　　 ./⌒（ ´Д｀）　ｱﾊﾊﾊ
　　|　　　　ヽ /　|　　ﾞﾞﾞ￣￣ﾞ￣ﾞﾞ　/⌒＼　　 |　|　　　　 (~冫
　　（　（　　　ﾉ(　つ　　　　　　　　/ /ヽ　ヽ - |　|　　　/.| |
　　￣￣￣￣￣￣　　　　i⌒ヽ__/＿,,,--──＼＼　 /.| | .|
　　　　　　　　　　　　　　　＼＿＿＿＿,,,＿＿,,-（_)⌒Y⌒～

009955

NGNG

>>94

ヒントありがとうね。
調べてみる、また1日くらいかかると思う。
分からなかったらまたくる。

>>97

Privaste sub File_open_sub()
on error goto File_open_sub_ERR:
　なんたら感たら処理
File_open_sub_ERR:
エラー時の処理
end sub

という感じ使ってる。
でも、これではうまくいかない

0100100

NGNG

100

0101１

NGNG

さて、勉強するかな。

010255

NGNG

うっひゃーかっこわる～

> Privaste → Private

ださくてスマソ、只今ディレクトリ内情報を取得するコマンドを
調査中。なかなか検索エンジンにひっかかりません。

>1

ここ借りててイイ？勉強の邪魔なら出て行くけど

0103１

NGNG

>>102
いいよ。

0104デフォルトの名無しさん

NGNG

>>102-103
二人とも出ていけ。
もしくはsageでやれ。

0105デフォルトの名無しさん

NGNG

>>93=55
Dir

0106（´ー`）

NGNG

　あんたらMSDN見てないのかい？
サンプルプログラムとか載ってるだろ。

010755

NGNG

見てるよ、でもうまく引けないよ。
Dirでやっと情報にたどり着けたよ。
File　List　Openじゃ情報はでてこなかったよ

>>105

感謝感激雨あられ、これで前に進めそうです。

0108１

NGNG

なんとなく解ってきた。　ﾑﾌﾌ・・・

0109１

NGNG

なんか眠くなってきた。　昼寝するわ。　

011055

NGNG

MSDNの↓ヘルプとFileListBoxのListCountプロパティを使って、やっと出来たよ。

-----
' 指定した拡張子を持つファイル名を返します。複数の *.INI ファイル
' が存在すると、最初に見つかったファイル名を返します。
MyFile = Dir("C:\WINDOWS\*.INI")

' 引数を指定せずに再度 Dir 関数を呼び出すと、
' 同じフォルダにある次の *.INIファイルを返します。
MyFile = Dir
-----

作ったソース、おかしな点を指摘してもらえるとうれしいです。

-----
Dim All_file()
Dim i
Dim j

'/ FileListBoxコントロールを使ってファイル数を求めてます /

FileList.Path = "c:\japamedia\cel_img"
j = FileList.ListCount

'/ ファイル数分の配列を宣言します /
ReDim All_file(j)

'/ ファイル名を保管 /

'/ 1つめのファイルだけ先に処理 /
All_file(0) = Dir("c:\japamedia\cel_img\*.*", vbNormal)

'/ ファイル名保管繰り返し /
i = 1
Do Until i > j
All_file(i) = Dir
i = i + 1
Loop

Dirではファイル総数が分からないので、FileListBoxのListCountを使用しました。

全部>>105さんのおかげです。ありがとうございました。

0111１

NGNG

なんかやる気でない。

0112デフォルトの名無しさん

NGNG

>1
目的は何だ？
ツールか？ゲームか？
漠然と覚えてもすぐ忘れるだけだと思うが。
どうだ？

＃脅迫してるわけではない...。

0113デフォルトの名無しさん

NGNG

>>112
いいかなお嬢さん
世の中には手段の為ならば目的を選ばないという様な
どうしようもない連中も確実に存在するのだ

0114デフォルトの名無しさん

NGNG

>113

いいから上げるな

0115デフォルトの名無しさん

NGNG

なんかageることに、やけにウルサイ奴がｲﾊﾟｰｲ！

別にいいじゃん・・・

0116デフォルトの名無しさん

NGNG

何がいいんだ？

0117デフォルトの名無しさん

NGNG

>>115
駄スレをあげると他のスレが沈む。
お分かりか？

0118デフォルトの名無しさん

NGNG

　　　| ＼
　　　|◎`｝　>>434　ｺｺﾆｲﾙﾉﾆｷﾂﾞｲﾃﾅｲﾅﾝﾃｿﾗﾈｰﾖ
　　　|⊂
　　　|

　　　　　♪　　Å
　　　♪　　　／＼　　　ｿﾗｿﾗ
　　　　　　ヽ{´◎`;}ﾉ　　ｿﾗｿﾗ
　　　　　　 (　へ) 　　　ｿﾗﾈｰ
　　　　　　く　　　　　　ﾖ

　　　♪　　　　Å
　　　　　♪　／＼　　　ﾉﾎﾞﾘｶﾞ
　　　　　　ヽ{;´◎`}ﾉ　　ﾂｲﾃﾈｰﾖ
　　　　　　 (へ　 ) 　　　ﾃﾇｷｶ
　　　　　　　　 >　　　　ﾖ

■ このスレッドは過去ログ倉庫に格納されています