プログラミングのfanction一生使えないかも

1 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:39:17.907 ID:cJfy/88D0
10年前からつまづいてて今もつまづいてる
2 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:40:04.571 ID:GazhA7+D0
functionだからね
3 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:40:07.197
ば~か
4 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:40:24.805 ID:Z4UpdHAd0
俺だっていまだに脳内の配列がぐちゃぐちゃになることある
5 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:40:35.418 ID:WxPThU0E0
使えなくてもやりたいこと実現できてるならよし
6 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:41:05.354 ID:cJfy/88D0
>>5
実現出来てないから困ってる
7 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:42:17.964 ID:GazhA7+D0
逆に何で躓いてんの?
8 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:43:40.593 ID:cJfy/88D0
型の問題と組み方の問題とサブの呼び出しと()の使い方
やればやるほどわからなくなるよ
9 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:43:58.512 ID:cMZSupzH0
俺もstream使いこなせなくてハゲる
10 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:44:05.828 ID:8TbglQ8a0
釣り針
12 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:47:09.555 ID:cJfy/88D0
>>10
てへ////
11 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:46:26.777 ID:cJfy/88D0
vbs全ソースよ。Functionで構文エラー吐いてるんよ

Option Explicit
'テキストファイルに書き出す

Dim Input

Input = InputBox("開始数字を入力してください")
MsgBox (Input & "を入力しました。")

Do

Do Until Input > 1
If Input Mod 2 = 0 Then
Input = Input / 2

ElseIf Input Mod 2 = 1 Then
Input = ( 3 * Input ) + 1

ElseIf Input = 1 Then
Exit Do

OutputText Input
'テキストファイルへ出力
End if
Loop

Dim objFSO
Dim objText

Function OutputText(ByVal strMessage As String)
'ファイルシステムオブジェクト
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'テキストファイルを開く
Set objText = objFSO.OpenTextFile("C:\Users\n\Desktop\コラッツマクロ\★結果★.txt", 8, True)

objText.write strMsg
objText.write vbCrLf

objText.close

'オブジェクト変数をクリア
Set objFSO = Nothing
Set objText = Nothing

End Function

13 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:48:18.594 ID:WEnLI4Uwp
中出しじゃん
15 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:50:15.585 ID:cJfy/88D0
>>13
誰か翻訳
14 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:50:04.653 ID:cMZSupzH0
vba分からないけど変数名は統一した方がいいよ
strMsgとstrMessageとか自動で補完してくれる高機能言語なのかもしれないけど読みにくい
16 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 04:52:11.193 ID:cJfy/88D0
>>14
そうだな統一しとくわ
脳ミソ高性能だから知らない間に勝手に指が使い分けちゃった/////
17 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 05:43:32.102 ID:cJfy/88D0
これならできるのに

Option Explicit
'テキストファイルに書き出す
Dim Input
Input = InputBox("開始数字を入力してください")
MsgBox (Input & "を入力しました。")

OutputText "テキストファイルに書き出すテストです"

'テキストファイルへ出力
Function OutputText(ByVal strMsg)

Dim objFSO
Dim objText

'ファイルシステムオブジェクト
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'テキストファイルを開く
Set objText = objFSO.OpenTextFile("C:\Users\n\Desktop\コラッツマクロ\出力テスト.txt", 8, True)

objText.write strMsg
objText.write vbCrLf

objText.close

'オブジェクト変数をクリア
Set objFSO = Nothing
Set objText = Nothing

End Function

18 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:02:10.033 ID:cMZSupzH0
まだやってんのか
言語仕様わからんから
★とかいうふざけたの辞めるくらいしか思いつかんな
20 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:11:36.840 ID:cJfy/88D0
>>18
★は良いだろ
19 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:07:40.971 ID:W5uOkBEM0
As Stringで型指定してるにも関わらず数値型渡してるからじゃないの
構文エラーじゃないと思う
21 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:11:51.652 ID:cMZSupzH0
>>19
コレか
22 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:14:26.711 ID:cJfy/88D0
>>19
As Integerにしてもかわりましぇん
23 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:19:05.033 ID:W5uOkBEM0
>>22
そうじゃない
引数を文字列に変換しないとダメじゃないの
OutputText Cstr(Input) でいけるやろ
24 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:24:05.933 ID:cJfy/88D0
>>23
ごめんどこかわからんかったんよ
どこの行?
26 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:25:59.322 ID:W5uOkBEM0
>>24

何行目かわからけどここ↓

OutputText Input
'テキストファイルへ出力

28 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:30:48.505 ID:cJfy/88D0
>>26
ここその通り書き替えたんだけどまた構文エラー出る
29 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:32:00.591 ID:W5uOkBEM0
>>28
エラーの内容ぐらい貼れば
25 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:25:50.406 ID:cJfy/88D0
あーわかったわかった
テキストファイルの出力け?
27 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:27:58.767 ID:W5uOkBEM0
Variant型ならよしなに暗黙変換やってくれるけど型指定したら面倒見てやらないとダメでしょ
30 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:35:56.577 ID:W5uOkBEM0
あーsも大文字か
CstrじゃなくてCStrだ
31 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:38:49.146 ID:cJfy/88D0
よいしょ!
レス31番の画像サムネイル
32 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:40:14.246 ID:cJfy/88D0
またfunction差してる…
大文字とかにするまで追い付いてるよ
33 名前:ひみつの名無しさん 投稿日時:2020/11/07(土) 06:41:46.317 ID:cJfy/88D0
ByValがなんとなく使ってるんだけど
みんなから見て大丈夫だよね?

コメント

タイトルとURLをコピーしました