その他（プログラミング・開発）

scratchで人狼の司会を代わりにやってもらいたいです。良い方法ないですか？(power pointも可)

画面表示されてから人が反応するまでの時間の傾向に関するデータを取得したくて、MATLABで以下のようなプログラムを作ったのですが、20回繰り返すようプログラムを作ったつもりが、3～4回で止まってしまうのです。恐らくプログラムに誤りがあるんだと思うのですが、何度見ても問題点が見つからず、困っております。どなたか修正が必要な点についてアドバイスいただけないでしょうか？ よろしくお願い致します。 try Screen('Preference', 'SkipSyncTests', 1); DisableKeysForKbCheck(232:256); [w, wr]=Screen('OpenWindow',0 , 255 ,[]);%白色全画面表示 %一旦固視点を呈示 fx=wr(3)/2; fy=wr(4)/2; Screen('DrawLine', w, 0, fx, fy-10, fx, fy+10);%固視点【二】 Screen('DrawLine', w, 0, fx-10, fy, fx+10, fy);%固視点【二】 Screen('Flip',w); WaitSecs(0.5); %ここまで完璧 for i=1:20%20回繰り返したいです a=randperm(20);%20をランダムにします if rem(a(i),2)==0%私の大好きなやつです。 word1='X'; elseif rem(a(i),2)==1 word1='T'; end b=randperm(35);%1から35までをランダムに並べた1列の行列 for stm=1:15%15回繰り返したいです num=b(stm);%1から35のランダム列左14個が順番に入ります if stm==1 else word1='O'; end x=rem(num-1,7)*wr(3)/7; %選んだ箱の左にいくつの箱があるかを求めて、それに箱の幅をかける y=floor((num-1)/7)*wr(4)/5; %上にいくつの箱があるかを求め、それに箱の高さをかける tb=Screen('TextBounds',w, num2str(stm));%これは一旦気にしなくて良い Screen('DrawText', w, word1, x-25, y-25, 0); end Screen('Flip', w);%呈示する瞬間は1回でいいです。 KbWait;%何かキーが押されるまで待ちましょう。 end Screen('CloseAll'); catch Screen('CloseAll'); psychrethrow(psychlasterror); end

powershellで複数のexcelファイルを各々一つの既存excelファイルの各ワークシトに書き込む方法として下記のコードで実行するとワークシート名にファイル名と同じシート名がある場合「sheet1(2)」となって追加されます。結果自体問題ないのですが、powershellの方に次のメッセージが出ます。このメッセージは、無視していいのかあるいは出ないようにする対処方法があるのかお教えください。 発生したエラーメッセージ OperationStopped: Line | 7 | $Workbook.Sheets.Item($Worksheet.Index - 1).Name = $Everyexcel.Name.R … | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | この名前は既に使用されています。別の名前を入力してください。 実行コード $ExcelObject=New-Object -ComObject excel.application $ExcelObject.visible=$false $ExcelObject.DisplayAlerts=$false #$ExcelFiles=Get-ChildItem -Path D:\test_data\data\*.xlsx $ExcelFiles=Get-ChildItem -Path @("D:\test\test\book1.xlsx","D:\test\test\book2.xlsx") $outputFile = "D:\test_data\AAE.xlsx" $Workbook=$ExcelObject.Workbooks.Open($outputFile) $Worksheet=$Workbook.Sheets.Item(1) foreach($ExcelFile in $ExcelFiles){ $Everyexcel=$ExcelObject.Workbooks.Open($ExcelFile.FullName) $Everysheet=$Everyexcel.sheets.item(1) $Everysheet.Copy($Worksheet) $range = $Workbook.Sheets.Item($Worksheet.Index - 1).usedRange $range.EntireColumn.AutoFit() | out-null $Workbook.Sheets.Item($Worksheet.Index - 1).Name = $Everyexcel.Name.Replace(".xlsx", "") $Everyexcel.Close() } $Workbook.SaveAs($outputFile) $Workbook.Close($true) $ExcelObject.Quit() [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Worksheet) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($ExcelObject) > $null [gc]::Collect() [GC]::WaitForPendingFinalizers() よろしくお願いいたします。

vscodeのrunボタンをクリックした際、terminalが自動で起動してくれなく困っています。 状態としては、outputに出力は問題なくできています。terminal自体もcdコマンドでファイルの場所まで移動、実行することで動いています。どなたかご教授ください。

powershellで複数のexcelファイルを各々一つのexcelファイルの各ワークシトに書き込む方法として下記コードで実行できますが、ワークシート名が「sheet1(2)」となります、これをファイル名「book1」に自動で変更できるようにする方法を教えください。 $ExcelObject=New-Object -ComObject excel.application $ExcelObject.visible=$true $ExcelFiles=Get-ChildItem -Path @("D:\test\test\book1.xlsx","D:\test\test\book2.xlsx") $outputFile = "D:\test_data\AAE.xlsx" $Workbook=$ExcelObject.Workbooks.Open($outputFile) $Worksheet=$Workbook.Sheets.Item(1) foreach($ExcelFile in $ExcelFiles){ $Everyexcel=$ExcelObject.Workbooks.Open($ExcelFile.FullName) $Everysheet=$Everyexcel.sheets.item(1) $Everysheet.Copy($Worksheet) $Everyexcel.Close() } #$Workbook.SaveAs("D:\test\test100.xlsx") #$ExcelObject.Quit() [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Worksheet) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($ExcelObject) > $null [gc]::Collect() [GC]::WaitForPendingFinalizers() なおコピー元のファイルは $ExcelFiles=Get-ChildItem -Path D:\test\test\*.xlsx の方が便利ですがexcelファイルが多数あるため敢えて個別に記入しています。 よろしくお願いいたします。

プログラム経験者にお聞きします。 プログラミング未経験の人が未知の言語を書籍で勉強するとき、本の中身すべてを読んでおかないといけないのでしょうか？

プログラミングを学習するうえで、プログラミングの実務経験がなくほぼ初学者レベルでもとっつきやすい言語は何ですか？

仕事内容をどこか効率化するところはありますか？？ 今のところファイル名変更、入力順に印刷、で、まとめて順に確認できるようなマクロを作り、少しは、処理しやすくなりました。ですが複数のpdfファイルの扱いに時間がかかっている気がします。 仕事は、pdf注文書（複数の会社から色んなフォームあり）が、フォルダに入ります→ 注文には納期が決められており、優先順位をつけるため、全てのpdfファイルに目をとおす （AdobeAcrobatproを使用してるが重いため、全てに目を通す時間が勿体無い。50件くらいある。時間があればファイル名に納期をつけたりする。なければひたすら開いて事務処理して、、をとにかく急いでする。） ファイルを開きpdf注文書内容をパソコンに打ち込み商品を発注する　 →pdf注文書は客先に返信するため、スタンプを押し納期を知らせる（pdfを少し編集） →ファイル名に採番することで処理済→ で、一連の受注事務処理が終わるのですが、何か短縮できるマクロやプログラム、効率化案ありますでしょうか？ Windows10使用

コードプレップというプログラミングサイトは、何の言語が学べるのでしょうか?全種類挙げて頂けると幸いです。

次のような規則性に則って自動で数値を、最終的にテキストデータ(.txt)へ入力させたいです。 まず規則性がわかる部分を明記しておきます。 0|1 20|1 20|0 50|0 50|1 70|1 70|0 100|0 100|1 120|1 （中略） 86350|0 86350|1 86370|1 86370|0 86400|0 ……と続いていき、86400|0 まで続きます。 規則性を説明しますと…… まず０のとき右は１、左を２０足して右はひとつまえと同じく１。 ２０で０に切り替わり、左を３０足して（５０）右はひとつ前と同じく０。 ５０で１に切り替わり、左を２０足して右はひとつ前と同じく１。 ……という具合に加算されていきます。これを自動で入力させたいのですが、方法が分かりません。なにぶん「86400」まで（あるいはその近似値まで）入力しなくてはいけないので、手入力だと比喩じゃなく実際に丸一日かかってしまいます。 なお、左に加算していく数は変える可能性があるので、それを加味して対応できる方法を教えていただけますと幸いです。スプレットシートなどを利用してできるでしょうか？ ちなみに状況を把握してもらいやすいように数字の意味を説明しますと、左は秒数、右はとあるプログラムのオンオフ。１がオンで０がオフ。 0～20秒まではオンにして20～50秒はオフ、そしてまた50秒から20秒間オンになり70秒から30秒間オフ……という20秒・30秒周期でオンオフを繰り返すような規則性に則った動きとなっています。

いつもお世話になっております。 タスクマネージャーを使用して、午前1時ぐらいに、更新日が前日のファイルを前日の日付になったフォルダにコピーしようと思ってます。 VBSで前日のフォルダを作成するは出来たのですが、更新日が前日の分だけコピーってどうやるの？で躓いております。ネットで調べたのですが、チンプンカンプンで焦っております。教えて頂けると助かります。よろしくお願いします。

前回powershellを使い複数のcsvをそれぞれのシートに分けて新規Excelファイルとして書き込む方法についてお教え頂きましたが、既存ファイルの場合下記の下記のコードのようにすると既存シートがある場合既存のシートにシート名を変え書き加えられることになります。既存シートをそのままにして新規シートとして追加するような方法をお教えください。 $csvFiles = @("D:\test_data\test_data1.csv", "D:\test_data\test_data2.csv") # Excelファイルのパス $excelPath = (Get-ChildItem "D:\test_data\AAA.xlsx").FullName $excel = New-Object -ComObject Excel.Application $excel.Visible = $true $book = $excel.Workbooks.Open($excelPath) foreach ($index in 0..($csvFiles.Length - 1)) { if ($index -eq 0) { $sheet = $book.Sheets.Item(1) } else { $sheet = $book.Sheets.Add() } $sheet.Name = "data" + ($index + 1) $startRange = "C2" $QueryTable = $sheet.QueryTables.Add("TEXT;"+$csvFiles[$index], $sheet.Range($startRange)) $QueryTable.TextFileCommaDelimiter = $True $QueryTable.TextFilePlatform = 65001 $QueryTable.TextFileStartRow = 1 $QueryTable.Refresh($false) $QueryTable.Name = "仮テーブル" $QueryTable.Delete() } [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($book) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) > $null Remove-Variable sheet, book, excel [gc]::Collect() [GC]::WaitForPendingFinalizers() なお、csvファイルの指定方法は違います（ファイル名で指定する方が分からないのでコピペのコードそのままに近い）がExport-Excelを使った下記コード場合同じシート名がある場合は、そのシートに書き込まれますがそれ以外は新規シート名（csvファイル名)として付け加えられます。 $csvs = Get-ChildItem .\* -Include *.csv $csvCount = $csvs.Count Write-Host "Detected the following CSV files: ($csvCount)" foreach ($csv in $csvs) { Write-Host " -"$csv.Name } $excelFileName = "D:\test_data\AAD.xlsx." Write-Host "Creating: $excelFileName" foreach ($csv in $csvs) { $csvPath = ".\" + $csv.Name $worksheetName = $csv.Name.Replace(".csv","") Write-Host " - Adding $worksheetName to $excelFileName" Import-Csv -Path $csvPath | Export-Excel -Path $excelFileName -WorkSheetname $worksheetName -StartRow 2 -StartColumn 3 } しかしならこの方法では大きなデータの場合処理時間を要することになります。処理時間で言うなら下記コードの方が一番速いですがやはり新規シートに置き換えられる問題があります。 $sourceFiles = @("D:\test_data\test_data1.csv", "D:\test_data\test_data2.csv") $outputFile = "D:\test_data\AAE.xlsx" $excel = New-Object -ComObject Excel.Application $excel.Visible = $false $excel.DisplayAlerts = $false $outputWorkbook = $excel.Workbooks.Add() $index=1; foreach ($sourceFile in $sourceFiles) { $workbook = $excel.Workbooks.Open($sourceFile) foreach ($sheet in $workbook.Sheets) { $sheet.Copy([ref]$outputWorkbook.Sheets.Item($outputWorkbook.Sheets.Count)) } $index=$outputWorkbook.Sheets.Count $workbook.Close($false); } $outputWorkbook.Sheets.Item($index).Delete() $outputWorkbook.SaveAs($outputFile); $excel.Quit(); [System.Runtime.InteropServices.Marshal]::ReleaseComObject($outputWorkbook) | Out-Null; [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel) | Out-Null; Write-Output "Sheets have been combined into $outputFile"; 私のコピペ能力ではここまでです。シート名が同じの場合は上書きされそれ以外は新規シートとして追加される方法になれば幸いです。よろしくお願いいたします。

Asteriaを勉強しています。 Zファイルを展開したいのですが、アーカイブコンポーネントにはzip.GZ.TARしかありません。 FTPスクリプトでやろうかと思いましたが、umcompressはサポートされていませんでした。 なにか方法ありませんでしょうか？

複数のCSVファイルを各々一つのexcelファイルの各ワークシトに書き込む方法のコードを下記のようにQueryTableを使った形にしてみました。 $csvFile1 = "D:\test_data\test_data1.csv" $csvFile2 = "D:\test_data\test_data2.csv" $excel = New-Object -ComObject Excel.Application $excel.Visible = $true $book = $excel.Workbooks.Add() $Book.Worksheets.Add() $sheet1 = $excel.Worksheets.Item(2) $sheet2 = $excel.Worksheets.Item(1) $startRange = "C2" $outputColumn = $sheet1.Range($startRange).Column $outputRow = $sheet1.Range($startRange).Row $QueryTable = $sheet1.QueryTables.Add("TEXT;$csvFile1",$sheet1.cells($outputRow,$outputColumn)) $QueryTable.TextFileCommaDelimiter = $True $QueryTable.TextFilePlatform = 65001 $QueryTable.TextFileStartRow = 1 $QueryTable.Refresh($false) $QueryTable.Name = "仮テーブル" $QueryTable.Delete() $startRange = "C2" $outputColumn = $sheet2.Range($startRange).Column $outputRow = $sheet2.Range($startRange).Row $QueryTable = $sheet2.QueryTables.Add("TEXT;$csvFile2",$sheet2.cells($outputRow,$outputColumn)) $QueryTable.TextFileCommaDelimiter = $True $QueryTable.TextFilePlatform = 65001 $QueryTable.TextFileStartRow = 1 $QueryTable.Refresh($false) $QueryTable.Name = "仮テーブル" $QueryTable.Delete() [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) > $null [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) > $null [gc]::Collect() これは2個のcsvファイルだから何とかなっていますがファイルが増えた場合これではとても面倒なことになります。私の能力ではコンパクトにコードを纏めることが出来ません。コンパクトな方法をお教えください。別にExport-Excel等使う方法でもかまいません。

https://codersforkids.com/%e4%b8%ad%e5%ad%a6%e7%94%9f%e5%90%91%e3%81%91%e3%81%8a%e3%81%99%e3%81%99%e3%82%81%e7%84%a1%e6%96%99%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%9f%e3%83%b3%e3%82%b0%e5%ad%a6/ 以下のURLのサイトで、C#とC＋＋があるサイトは、ありますでしょうか?教えて頂けると幸いです。

Unity2Dでマリオ風のゲームを作っています。 操作、当たり判定等は作れるのですが、実際のスーパーマリオと比較するとプレイキャラクターと地面の接触がガタガタしているように感じます。 おそらくプレイキャラクターと地面の当たり判定が重なる瞬間があることが原因だとおもうのですが、それらを防ぐ処理や設定というのがわかりません。 おすすめの当たり判定……みたいなものってありますでしょうか？

今、Minecraftのパクリみたいな(改良はします。そこんとこ了承ください)ゲームを作っています。画面、プレイヤーの右側に木があるとおもいますが、その木の下部のブロックと上部のブロックで、ズレがありますよね。これってバグなのでしょうか？ 　必要だと思うので、仕組みを書いておきます。 [仕組み] ①プレイヤーは動くと変数 "Xズレ" を動きに合わせて増減させる。 (右に動くと+1、左に動くと-1) ②ブロックたちは、"Xズレ" の5倍(プレイヤーの移動速度)のX座標にいる。 この動きの中でなぜかズレが発生しています。

数階層のあるフォルダのコピーを 簡単にするVBAのプログラムについての ご質問です たとえばフォルダがみっつ、フォルダA フォルダB、フォルダCとあるとします これらのなかには人物のIDと対応するフォルダがあり それぞれのフォルダには、そのIDの人物に関する書類pdfが 入っています たとえばフォルダAにそのサブフォルダとして サブフォルダ1があり、そのなかにpdfファイルがいくつかあります サブフォルダ2も同様です サブフォルダ3，4，・・・・ フォルダBではサブフォルダがサブフォルダ_あ　サブフォルダ_い,,, とあり、さらにサブフォルダ_あのなかにIDに対応するサブサブフォルダ11， 12.13とあり　それぞれに多種のpdfファイルが入っています なかには例えばですが、サブフォルダ_いのなかにも、さきほどのフォルダAのなかにあったID2に対応するサブフォルダ2が入っています。 これらをすべて統括するような総合フォルダにIDに対応するフォルダだけで まとめあげたいという目的なのですが、 上記のフォルダ2のように別の上層階のフォルダから移動するときに、上書きをするか、別名で保存するか問われますが、フォルダ2で統一して、そのかなのpdfファイルに同名のファイルがあれば、片方をそのまま　もう一方を---（1）のような ファイル名に変換して上書きされないようにしたく思います 数百のフォルダがあるので、なんとかコードで作れないか お尋ねしたく思います わかりにくい説明ですみません 簡単な図示を添付致します すみません 宜しくお願い致します 言い方を変えますと、 個人それぞれがID番号を持っていて、ID番号が名称の フォルダがあり、そのなかにｐｄｆファイルが任意の数、格納されており、 そのID対応のフォルダが、いくつかのフォルダのなかに分散されていて、 その階層は一定ではないですが、IDフォルダは各フォルダの最下層にあるものであり、 最終的にはすべてのIDgフォルダをひとつの統合フォルダにまとめあげたい。 なかには別フォルダのなかに重複して、あるIDフォルダによっては分散しているので 統合するときに上書きを問われてしまう それを　ひとつのIDフォルダに統合し、そのなかのpdfファイルも上書きはしないで 別名保存で　そのIDフォルダに保存したい というわけです かえってわかりにくくなったかもしれません 宜しくお願い致します

プログラミングについてですが、 プログラミング言語というのが色々とあるそうですが、 プログラミングってソフトか何かで行うのですか？ 色々なプログラミング言語をソフトか何かに書くのですか？ プログラミング言語ごとにソフトがある感じですか？ プログラミング言語ごとにソフトが違うのですか？ 初心者でも分かる感じでお願いします。

エクセルでは作動しているVBAマクロがあります。 これをlibreで動くマクロに作り変えたい。 コードはむやみに開示しないことを条件にいただいたものなので、ここでは提示は控えます。 作りたいのはリネームアプリになりますが、Libreは初めてなので独学でやるとかなり遠回りになりそうなのでお教え願いたいです。 以下の流れのコードを作るのに、このサイトを参考にしろと教えていただきたいのです。 1　シート上のボタン１を押すとダイアログ1が現れる 2　ダイアログ1上の参照ボタンを押すと、リネームしたいファイルがあるフォルダを選ぶエクスプローラのような画面が現れる。 3　選んだフォルダのパスをダイアログ１のテキストboxに表示 1はここを見ろ　2はここを見ろ　3はここを見ろ と教えてください。