画像処理　15枚目 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/22(金) 21:43:17.08

画像処理プログラミングについて質問、議論を行うスレッドです
・画像処理について素人同士で大激論
・初学者の質問に対してやさしく(的を外れた)解答を与える
・その道の玄人も大歓迎

**ランベル星人、霊能力で各人の呟き受信** · 2024/03/19(火) 16:11:44.36

🤡プロマネの呟き
　xspinは只今プロマネみずから
　PG改造中、バグがあるようだ
　てか、90度は異常系にしちゃーーえ
　そして、水平回転0度も異常系に
　しちゃーーえ、BUG潰すの面倒だ
　てか、文法エラーはバッチリなし

👤ランベルト星人
　π/4ラジアンで、ブラックアウトor
　オーバーフローバグ確率99％だ。
　ていうか、🤡は水平ゼロラジアンも、
　異常系へ変更した。ま、普通の地球人
　なら、直感的には完全に正常系だが、
　もしかすと🤡は宇宙人かもしれない

🥳発達障害テスター
　ちぇっ、PG修正まだやってるのかよ
　早く、異常データでブラックアウト
　のデータ沢山、テストしたい。
　はやく、今すぐ完成させろーーー

BY 👤　確かに逆変換、逆関数で
　芸術的虫食いというか黒点は消えた
　ま、予想外に、予想通りはなった

**プロマネの独り言** · 2024/03/19(火) 16:17:15.51

>>680　きっと👤ランベルト星人だな。
Wnはランベルトである確率は66.6%と言ってるが
Wnはランベルトのw関数である主観的確率は確率改訂され
ポク的には99%だ。ま、今回のPGの修正が失敗しても
とにかく、Wnはランベルトのw関数である主観的確率は99%

てか、あのお絵かきは👤がしたんたが、ま？マーク入ってか
BY 🤡

**ランベルト星人** · 2024/03/19(火) 16:18:54.12

>>653 のお絵かきのことか。？は入ってはねーーーよ
by 👤

**プロマネ 浮かれだしたの巻** · 2024/03/19(火) 20:27:37.99

🤡はプロマネ　👤はランベルト星人

🤡　はーーい。
　　本日朝は、プロトタイプPG修正と
　　テストとデバッグで機嫌最悪。
　　地球人の皆。なにかと八つ当たりして
　　ゴメン🙏　てかNow is I am Happy✌

👤　プロマネよ。なにうかれてる？

🤡　プロトタイプの改良版。作成完了
　黒い虫食いもなくなったぜぇーー
　プロトタイプでなく完成１版が完成だ
　てか早くテストさせよーーと
　てか正常系はバッチリ既にテスト消化✌

👤　π/4ラジアン　つまり90°もか？

🤡　90°❓　それは異常系。テスト無視
　　てか、ゲラゲラゲラ。
　　π/4ラジアンって90°なのか？

👤　んーんーんーしまった。こら脚本家
　お前、ランベルト星人の数学力は
　如何なる地球人より上の設定だろ

脚本家本人　: あっしまった。😅
いや、ランベルト星では、弧の長さが
直径と同じ角度が１ラジアンでいいかな❓
地球と異なる数学を築いたという設定

**684 脚本家本人** · 2024/03/19(火) 20:39:36.81

👤　ランベルト星人　　😅脚本家

👤　しらねーてか、ここをチェックしてる地球人は
　その件については、何もブー垂れてないし、
　＋と－がやっと解るレベルぽぃ。まっいいか

😅　ま、三角関数の引数の度数ラジアン変換の
　プログラムコードは正しいから、
　🤡がうかれてるとおり、とにかく、
　水平スピンの完成１版は、完成しました
　ま、これから、結合テストというか
　そうだ、それも飛ばして総合テストの脚本を
　只今考案中。てか直角ってπ/4ぢゃなくて
　π/8ラジアンか　一応ネットAIに確認します
　では、バイバイ(^^)/~~~

**ランベルト星人** · 2024/03/19(火) 20:52:07.95

👤　脚本家、かなり🐴🦌だ。分数もヤヴァイ
とりあえず、地球のインターネットで調べたら
直角は、π/2ラジアンと解釈できるような気がする。モチロン、ランベルト星人の数学偏差値は
モピロン、無限大なので、地球の数学と異なることがあるので、注意してくれ　😅😅😅

**内部レビューの巻** · 2024/03/20(水) 04:37:08.05

🤡プロマネ　👤ランベルト星人　😅脚本家

🤡
完成１版が完成した。
異常系テストは、不充分だが
正常系テストは、不充分に完了した
プロトタイプの修正は、
ワタクシ、マネージャーがやったから
不充分でも充分だ。てか超バッチリ✌
てか、ランベルト星人よ。
90°はπ/8ラジアンのようだ。

👤ランベルト星人
あ、それね、😅のバカが文字化けで
πとτ(タウ)が入れ替わったことにしろと
うるさい。いや、…
地球語に翻訳する際、τ/4　タウ分の4を
π/4に、誤動作しただけだ

😅
τ（タウ）はその値は 2π に等しいらしい
から、んーーー　直角は、んーーー
τ/4かτ/16か、んーーーーー
とにかく、ランベルト星人全て正解(⁠･⁠o⁠･⁠;⁠

🤡
完成１版が完成したから、
総合テストだ。テスター🥳がバグがでたと喜ぶなwww

**総合テストの巻フェーズ1** · 2024/03/20(水) 09:48:30.56

🤡プロマネ　🥳発達障害テスター

🤡　完成１版のPG完成∴総合テストだ。
🥳　バグが沢山でるとイイね　
🤡　水平回転90度完全ペチャンコ系だ

【テスト仕様書】90度完全ペチャンコ系
変換前File名［TEST.bmp　］　　　
変換後File名　　水平(度)　
[TEST01.bmp　]　 [89]°
[TEST02.bmp　]　 [90]°
[TEST03.bmp　]　[90.00001872]°

【確認事項】
89°では、上手く行くけど、
90°では、絶対BUGってゼロ割エラーてか
90°でも、上手く行っても
90.00001872°なら、絶対BUGるぜ～〜
ていうか、はやくテストさせろーーー

BY テスト仕様書も🥳ポクが作っちゃった

**総合テストの巻フェーズ1.1** · 2024/03/20(水) 13:27:12.22

90度完全ペチャンコ系　テスト結果

【テスト仕様書】90度完全ペチャンコ系
変換前File名［TEST.bmp　］　　　
変換後File名　　水平(度)　
[TEST01.bmp　]　 [89]°
[TEST02.bmp　]　 [90]°
[TEST03.bmp　]　[90.00001872]°

【テスト結果】
89°　かりなりペチャンコ、正常終了
90°　画像は黒１色、正常終了
90.00001872° 画像は黒１色、正常終了
90.0000187239696° 画像は黒１色、正常

【発達障害テスター🥳】
おかしいな。エラーならないから
90.0000187239696° でもやってみたが
エラーにならない。ヘンなの。多分絶対
Bugってるな。てかペチャンコの逆数
1/cos(90°) ってロジックでbugるハズ
てか、1/cos(90°)が実行されてないだろ
てか、画像は黒１色∴Blackoutだから正常
んーーーんーーー謎だから
プロマネには、この件は、ヒミツにしよっと。

by 🥳

**総合テストの巻フェーズ1.2** · 2024/03/20(水) 13:37:54.15

プロマネ🤡

総合テストの90度完全ペチャンコ系は、
異常系だからゼロ割発生だから、絶対
バグるはず。🥳が「バグ発見∴嬉しい」
なんて、速攻報告するハズ。

しかし、なんか🥳は今日は大人しい。
なんか、ヤナ予感がしてきた。
俺が、🥳の作ったテスト仕様書でテストするかな
バグるはずだ

BY 🤡んーーー　その内直ぐにテストしよっと

**総合テストの巻 フェーズ1.3** · 2024/03/20(水) 17:44:15.11

🤡オレ、プロマネだけど、
発達障害テスター🥳からのBUG報告が無い
俺が、90度完全ペチャンコ系
という、エラー系、テストやるぜ✌

【テスト仕様書】90度完全ペチャンコ系
変換前File名［TEST.bmp　］　　　
変換後File名　　水平(度)　
[TEST10.bmp　]　 [90]°
[TEST11.bmp　]　[90.00001872]°
[TEST12.bmp　]　[90.0000187239696]°

【テスト結果】
90°　正常終了
90.00001872° 正常終了
90.0000187239696° 正常終了

【プロマネ🤡】
x2 = x3 / COS(θ * 3.141592 / 180)
でバグるはずなのに、なんで❓❓❓
ランベルト👤も、バグるって
予言してたよな
オレは、このPGに90°近傍での
エラー回避のロジックはプログラミングは
してまん。　なんで❓❓❓❓❓❓❓

by 悩みだす🤡プロマネ

**総合テストの巻 フェーズ1.4** · 2024/03/20(水) 17:54:48.61

👤ランベルト星人

プロマネ🤡が頭抱えてるな。
確かに俺は予言は90°スナワチ、τ/4 ま、地球語に翻訳すると
π/8ラジアンでBUGると思ったが、微妙に外れた
COS(θ * 3.141592 / 180)=0の必要条件てか十分条件は
モチロン　θ≒90°∧θ≠90°だ
θ=90.0000187239696　は、モピロン事実上
COS(θ * 3.141592 / 180)=0の十分条件を満たす
と予言してのことだ。

ただ限りなく正しいが、微かに誤ってるのである。
モピロン、我が星、ランベルト星の数理論理は
モピロン、地球のそれとは真逆で
ただ限りなく正しい　⇒　誤り
リンゴの皮一枚の誤差も許さん

ま、バグると予言したときはそれを、失念してた
予言が外れたことは、悪かった

by 👤
限りなく

2024/03/20(水) 19:53:19.87

俺は👤(という設定ぢゃ)

【完成１版の抜粋のコード】
x2 = x3 / Cos(theta * 3.141592 / 180#) ✨🌟⭐🌟✨
y2 = y3 ''' COPYするだけ

「この辺りヤバイぜ」は、幻ぢゃ。

そして、幻の原因は、　
・零近傍∧零ならば、ゼロ割りエラーは起こるが、
・零近傍∧非零では、ゼロ割りエラーは起こらん.
これが、幻の原因ぢゃ

θ = 90.0000000000000 : Msgbox Cos(θ * 3.141592 / 180#)
θ = 90.0000187200000 : Msgbox Cos(θ * 3.141592 / 180#)
θ = 90.0000187239696 : Msgbox Cos(θ * 3.141592 / 180#)

テスト機でテストして、どれも零近傍∧非零　を確認。
これがランベルト星のテスト仕様書ぢゃ。

by 👤

**総合テストの巻フェーズ1.6 プロマネ** · 2024/03/20(水) 19:56:28.82

🤡んーーランベルトがプロマネのポクに霊的いや
ま、ゼロ、零的な値のテレパシーが飛んできた。確かに

3.27E-07 、6.93E-11 、4.58E-14 となった。　確かにどれも零近傍∧非零だ。
Thank Q for ランベルト星人
by 🤡

2024/03/20(水) 22:41:03.12

🤡プロマネ的には、下記の用に訂正とする
❌　90度完全ペチャンコ系は、異常系∵ゼロ割発生
⭕　90度完全ペチャンコ系は、限りなく正常系に近い異常系
モチロン、地球人的には、限りなく正常系に近い異常系は、
完全に正常系。🥳が90°近傍のデータを入れまくっても
ゼロ割エラーになる確率は天文学的に少ない
これで、総合テストも完了　バッチリ(⁠◠⁠‿⁠・⁠)⁠—⁠☆

by 🤡の呟き

**ランベルト星人の呟き** · 2024/03/20(水) 22:50:39.46

👤ランベルト星人
プロマネは、これでバグは完全に潰せたと思ってるな
普通のヤツだった。おそらく地球人の中では優秀だろが、たが

>>653 のお絵かきの数式　さて、ln(r)での割り算が出てくる
ln(r)=0 だと、まだ🤡は気づいてないようだな

ま、テレパシーで少しだけプロマネ🤡に、数学の大切な公式を
教えておくか。ま、ln(r)=0では無いというか・・・
今日は、プロマネは安心して熟睡できる安息日を
破壊したくはない。

by　👤　ランベルト星人の意味深な呟き

**熟睡中に、プロマネ、夢の中のお話** · 2024/03/20(水) 22:56:38.51

🤡　んー、夢を見てるのかな、へんな数学の数式を
スヤスヤ　zzzzzzzzzz

**697の続き プロマネ早朝覚醒** · 2024/03/21(木) 04:26:22.77

🤡　今は早朝am 4:25頃だな。ウトウト　ボーとしてるからストレスゼロ

　r＝1+0.3*SIN(θ°*π/180)　───①
ln(r) =　0　───②
をθで解く。なんか地球のAIと会話してるうちに
地球のAIと会話する　コミュニケーションがバッチリになつまた
それにしても、地球のリアルな人間とはコミュニケーションはヤダぜ
AIは自閉症と思ったが、

とにかく、①と②の連立方程式、θを解くてか、
地球のAIには、FOR θ　って話しかければ良さそうだ
てか、FOR の日本語の助詞の日本語訳　こそデタラメだな

スヤスヤ　また寝よーーーと

**ランベルト星人がθを解いてみた** · 2024/03/21(木) 04:35:53.90

👤　①のθ=0ラジアンなら②を満たすな
ま、AIなんかに聞いたら、多分無限個の解を回答しそうだ
θ＝0,±180,±360,±540,いっぱいあるから
AIがバグって自閉症なんかになっちゃたり

や、この霊感の霊的的中確率は25%だがな。まFAKEだ
BY 👤ランベルト星人www は地球のいかなるオブジェよりも
数学偏差値パワーは無限大倍ヤヴァイーーーーー

**ランベルト星人の呟き** · 2024/03/21(木) 06:42:32.17

x2 = x1 * POWER(SQRT(r),x1)　─①
の逆関数∧厳密でない解∧ランベルト関数は使用ない

ま、それは、数値解析的な方法なら
プロマネ🤡でも出来るぢゃないか
完成１版の中規模なPG改造だ
完成２版として緊急開発し、
現状の総合テストは中止という
方法もあろう。ま、その判断は、
プロマネの仕事だ。どうなるかは五分五分

by 👤

**プロマネ** · 2024/03/21(木) 06:50:55.07

🤡プロマネは、そうだポクはプロマネだ(とういう設定)
総合テスト中止権限も、あるよな。、てか、
総合テストしてるうちに、完成１版の改造を、思いついた＼(^o^)／

x2 = x1 * POWER(SQRT(r),x1)　─①の逆関数のロジックを
ランベルト関数的なのは使わずやろっと

数値解析的な方法で、いいぢゃーーーん。
厳密解不要ぢゃーーーん。バグっていい、よくないぢゃーん。

by 🤡　るんるん、

**ランベルト星人** · 2024/03/21(木) 06:54:56.26

プロマネよ。そのやり方。処理速度的にも
精度的にも、やや有利かつ、ロジックも見やすい
ま、ランベルト関数がロジックから消えるのは
👤としては残念だが、

by 👤

**プロマネ** · 2024/03/21(木) 08:51:34.61

🤡　プログラミングは楽しいな。完成第１版は近日中ぽぃーー
完成第２版が近日中完成。　ランベルト関数モドキのロジックも
無くなるけど、新たな関数モドキには、
コメント行には、「ランベルト関数トモギすらない関数」って入れておこう

そうだ、ランベルト星人よ。項目名は変更するの面倒だし、
DIM www(★) as double はそのまま wwww すげー解りやすい項目名だぜ
なお、コンデェーングルールには項目名wwwは禁止だ
∵プロマネの使用した項目名は使っては、いけない

これでモジュードの独立性もバッチリ＼(^o^)／
おれって、プロマネとしてもちょーーー天才

てか、総合テスト中止連絡しなきゃてか、
そのうち、直ぐ再開だけど　確率66.6%

by 🤡　第2版の机上debug中にしては機嫌が微妙に良いプロマネ

**発達障害テスター** · 2024/03/21(木) 08:59:02.48

🥳　90°ではエラー発見に失敗したけど、なんだよ
0°で、ln(r)がエラーってなった。
おまけに、ソースコードが丸見えだ。
これ絶対バグぢゃーーーん。そうだ
これプロマネさーーーーん。水平スピン0°でエラー
ま、水平スピン0°なら出力ファイルと入力ファイルは
同じにならなきゃいけないし、
ナイショで、手作業でコピーしようかなwww

🤡　テスターが元気だな。てかうるせーー
こっちは、テストは中止てかPG修正で話かけるなーーー

by 🥳は元気で🤡はやっぱり機嫌ワルイ

**発達障害テスター** · 2024/03/21(木) 09:05:08.79

🥳　え、総合テスト中止かよ。バグ発見できなくてつまんないの
てか、そういえば、総合テストとデバッグを平行してやるんだよな
ま、いいのか。てか総合テスタとデバッグを交互にやってるぢゃーーーん

by 🥳怒ってるのに楽しそう

**プロマネ、PG修正ブツブツ編** · 2024/03/21(木) 11:05:19.90

🤡　入念に机上チェックしてもまだ修正てかブツブツ、ヤヴァイ
てか、コメントで「ランベルトモドキ関数」とか記入したが
これ気に食わん。てか、俺が記入したんだ。ブツブツ。てか
「y=x*√r^x の逆関数」が一番正解だ。ブツブツ

きっとこの関数は、未来の地球の教科書に🤡関数
初等関数ぢゃない🤡関数って掲載される。ブツブツ
てか、初等関数てなんだろ。エクセル関数なら少し知ってる
ブツブツ　てか、机上debugしてたんだな。ブツブツ

by 🤡

**ランベルト星人の呟き** · 2024/03/21(木) 11:47:14.46

👤ランベルト星人

どうやら、オレの透視投影というか、霊的透視で
プロマネのPG修正は、終わったようだ。
タイプミスで文法エラーは一箇所か。
ま、静かにかつ、おれが昨夜テレパシーやって
精神的に安定させたからだぜ。ま、おそらく
自主的にプロマネが単体やりだすだろ。

透視投影してみるか。

by 👤てか脚本家😅
透視投影の意味理解してないのに使ってみた

**プロマネ** · 2024/03/21(木) 19:35:18.78

🤡　単体順調　そうだ完成２版、ファイル名は*spin4 だ
ま、おそらく、普通のデータ入れる限り、バグらんだろ
てか、順調過ぎて眠いな。
完成１版はバグってるし、削除だな、
寝ぼけてると、バグってる版を残し、修正版を削除
えーーと、これは、ヤヴァイ
てか、色々沢山、暫定版だらけ。ヤヴァイ
もっとも、最新バグなし版えーと　なんとかspin4が大切
総合テストは、明日にしよっと

今出来ないことは、今やる　なんてウタに釣られてはダメージ
明日出来ることは、今やらない。
明日出来ることは、いつかやる。
てか、spin4 バツクアップ　直ぐに後でやろっと　
寝ぼけてると、バッグ元と先、逆にしたらショックだから
後で直ぐやろーーーっと
テストの脚本は明日やろーーーーと

**プロマネ** · 2024/03/21(木) 19:49:30.20

🤡色々書き込んでる内に、極端な値(遠近効果というのに)
極端な値入れた　テストデータのが完了した。
設計基準の3倍の値。一応PG作成時は設計基準内では
バグらないようにコーティングするが設計基準を、大きく
超えると、想定外故に、結果の予測はできない
たとえ、設計者やコーダでも、どうなるかは
そこは面白い。ま、敢えて設計基準以外をハジクロジックは
意図的に入れてない。
ちなみに、画面用に、メモリは配列変数で、固定という
今のどきトーシローでもやらんコーティングなので
メモリ破壊や、バカデカイファイルが出来ることは無い。

画像がバグるだけ。で今はそれ見てる。確かにバグったが
なんかつまらんバグ方だ。芸術性は皆無。なるほどねって感じ

てか、ま、変なデータ入れてバグだけだし、ソロソロフィックス
バックアップ　そうSPIN4 SPIN4 SPIN4 4 4
第2版はSPIN4
B 🤡　バックアップ前の儀式でしたーーーー

**デフォルトの名無しさん** · 2024/03/21(木) 20:19:45.71

>>435 も確か昔の🤡だ
この頃は、水平回転をＶＢマクロでやったんだな。
マクロといっても、BASICプログラミング言語ぢゃないような
やたら、図形のオブジェとかをグラフのに貼り付けたのに
グラフをファイル出力するやつだ。

ま、色々、435前後、そのやり取りで右往左往してた自分がいるな

EXCELの図形オブジェやグラフのを活用してXSPIN
イロイロ、あって、最終的にボツって感じとした。

ま、ようやくその後のバージョンのSPIN4が出来た。
ま、実行速度は1/10の性能だが、品質は納得のできだ。

θ=0のテストしてみるか、ま、出力は入力とかなり同じの、はず
そして、出力をPNG変換でちゃんと圧縮できるか確認だな

最初バージョンのは(2月頃)はマクロって感じのコードであり
ときに、ディザとか余計なお世話なんだよな。

自作ツールは余計なことはやらないので1/10の性能でも
ウレイ。

BY 🤡総合テスト前なのに、既に編集後記を書いてみた

続き · 2024/03/21(木) 20:22:50.48

>>435 のコメント、準失敗作　となってる
そんなコメントを入れたのか。自分にありがとう
そう、435は準失敗作だ
今回のはバッチリだ。変なデータいれりゃバグ画像だが
普通に使う分にはいい。自作はいいもんだ。by 🤡

続き · 2024/03/21(木) 20:52:18.96

水平回転ゼロ度で、テストを再度やった
入力ファイルも出力ファイルも完全に同じに、見える
さらに両者ともPNGに変換してみた、
モチロン、そのPNG同士も同じサイズだ。

当たり前ってか？、マー、これは偽色が発生してないエビデンス
435だと、時に、見た目はそっくりなのに、
ディザ拡散ノイズのようなのが出力ファイルに反映されるこどがある
PNGの圧縮率は阻害される。

この様な事を気にするユーザは、余り居ないが自分以外に存在するのは確実
ニッチな要求として、入力の画像の使用数と出力の画像のそれは
同じにしてほしいというのもあろう。私もその一人。
自作ツールで対応するのは、そんな理由もある。
ちゃんと、この自作ツールは、その要件を満たしてると
予測される。素晴らしい(←自画自賛)
明日から、テストの脚本やって、
そしたら、今作成完了のツールを使って静止画を沢山作ろーーと
この大量の画像は動画として、クルクルさせる。
その目的。ニッチなツールなのです。　

**総合テストフェーズ2.1の巻** · 2024/03/22(金) 04:21:16.70

🥳、ちょう天才テスターのポクのとこに
テスト仕様書、届いぞ
テスト再開うれしいデス、プログラムは
完成２版にバージョンはアップだ
またバグるといいな。また楽しくなるぅぅ
─────────────
テスト仕様書
─────────────
変換前File名［✨✨✨　］　　　
変換後File名　　水平(度)　遠近効果
[TEST01.bmp　]　 [0]° 　［2.0］
[TEST02.bmp　]　 [90]° 　［2.0］
[TEST03.bmp　]　[30]° 　［15.0］

・テストコンセプト
　ヤヴァイデータ入力で、エラー誘発で
　ソース丸見えとなるか実験
　なお、on error goto はgotoだから
　🈲止∵カスタマー要件で仕方ない😵

・テストケース
　変換前File名は未入力にしたり
　とにかく、ヤバそうなデータ入力して
　ソース丸見え。やってみろーー

・補足:テスト結果報告、いつでも超OK

by 🥳発達障害テスター　にテスト書届く

**総合テストフェーズ2.2の巻** · 2024/03/22(金) 14:18:32.70

入力ファイル指定がされてません
ご指定の入力ファイルが見つかりません
かよ。

ちぇっ、ちぇちぇちぇのちぇっー

ファイルのチェック💥入れてるちぇっ、

そういえば、前回バグったとき
ソース丸見えになってたな
確か、
　x3 = x3/pers
　y3 = y3/pers
なんて、プログラムが丸見えだ
てか、全然バグらないから、眠い
勤務中だけど寝ちゃえーーおやすみーー

by 🥳発達障害テスター

**総合テストフェーズ2.3の巻** · 2024/03/22(金) 14:49:02.57

👤ラベンダー星人だけどさ、ヤツ🥳サボってるな
zzz寝てるぞ、テスト中なのにな。
きっとバグら無くて眠くなったのだろう。
そうだ、

👤　ランベルト星から、
Pers Pers てかperspective effect　の日本語訳が
【遠近効果】　であることを
テレパシーで🥳に送信トスル　ビビビーーー

**総合テストフェーズ2.5の巻** · 2024/03/22(金) 14:52:16.56

🥳　zzz.... なんか夢に変な文字が、青い文字が見える
zzzzz... テストしてバグらせたいけど眠い　zzzzzz....

**総合テストフェーズ2.6の真逆** · 2024/03/22(金) 16:20:29.67

よし、目かさめた。帰宅直前は
なんか、冴えてくるぜ。下記要領でテスト
─────────────
テスト仕様書　🥳作
─────────────
変換前File名［TEST.bmp　］　　　
変換後File名　　水平(度)　遠近効果
[TEST01.bmp　]　 [30]° 　［0.0］
[TEST02.bmp　]　 [30]° 　［=1E-10］
[TEST03.bmp　]　[30]° 　［=1E-100］

・テストコンセプト・事前予想
　ロジック　x3 = x3/pers　でバグらせ、
　ソース丸見えを実現しちゃうモノトスル
　てか、遠近効果ってExcelのセルぢゃん
　モチロン、=1E-100 って入力で、
　ゼロ割もしくはオバーフローするハズ

・テスト結果
　ソース丸見えは失敗　(;´д｀)ﾄﾎﾎ…でも
　TEST02.bmp、TEST03.bmpは
　画像がバグってる。＼(^o^)／
　まぁ、TEST01.bmpは
　「pers=1で処理します」コメントでて
　正常に完了しやがった。
　ちぇー少しつまんないのーーーーー
　ま、プロマネにこの結果報告しよっと
　ちゃんとテストしてる証拠として

by 🥳　テスターはソコソコ出来るヤツだった

**総合テスト総合テスト2.7の巻** · 2024/03/22(金) 16:45:23.46

🤡の元に馬鹿テスターからバグ報告ゲット
、んーー遠近効果に1のマイナス100乗を入力か
ま、それでも、オーバーフローしないのは
予想外だが、あの辺りのロジックの変数は、
型はdoubleにしてる。このオレの設計センスが
バッチリのエヴイデンスてかバッチリを示唆してるノダロ

ま、遠近効果は、0.5〜5及び未入力　を想定している
未入力は(意識しないコーティングで)ゼロとなる為
ゼロチェックいれ、１として計算してる
また、ゼロ入力はそもそも、そんなのを入力するのが
ヘンとみなし、考慮してない。これは仕様

ま、ゼロの場合も考慮したロジックは、実質
無限遠から無限大倍したアフィン変換的なものとなろう
が、ワザワザそんなコードは追加するつもりなし

てわけで、総合テスト終了＼(^o^)／

このツールは、バッチリ品質だ。完了　ちゃんちゃん
そうだ、気が向いたら、編集後記で
書き込むかもしれんが、とりあえず、
見事にxspinツール完了　＼(^o^)／

by 🤡およびその他多数出演者　てかぼぼ全員同一人物∵超自作自演

**デフォルトの名無しさん** · 2024/03/23(土) 09:32:33.40

プログラミングには「馴れ合い」」ができる要素がある
「誰かが作ったプログラム」が「自分の所でも動く」って共感できる部分だ
これで世界でもっとも有名なのが「Hello World!」でいろんな言語で最初にやるコードの代名詞にまでなった
逆に初心者でも一目見て「動くはずないなこれ」って見えるものはただの落書きでしかない
泥団子作って「これおいしいよ」って見せられても食べる人がいないのと同じ

**編集後記編 1.1** · 2024/03/25(月) 06:51:07.80

👤
>>718 の記述で「遠近効果に1のマイナス100乗を入力」
との記述あるな。「遠近効果に10のマイナス100乗を入力」だな

🤡　1E-100 って、1マイナス100乗だろ?
👤　ゲラゲラ、1マイナス100乗は、1だ。
🤡　あっいけなねぇ！　

**編集後記 1.2** · 2024/03/28(木) 05:25:52.08

👤　で、あれ、言語はなんで実装した？
　　画像処理系だし定跡的にC＋＋系か？
🤡　EXCEL VBAだ。UIの実装含めればコスト的には、有利
　　開発機はEXCEL付だからだ。
👤　プロマネらしい理由だな。てか必要条件をアピールし
　　、しかしそれは、十分条件でない。だろ？
🤡　褒めてくれてTHAN Q .HAHAHA.
👤　皮肉を言ったつもりはない。
　　4K静止画なら問題でそうだし、
　　てか、処理時間は、ヤヴァくないか
🤡　宣言の型は特に要注意だ。
　　てか、面倒だから、基本は、
　　全てDOUBLEで、例外的にLONG
　　但し、画像バッファ用のはBYTE宣言
　　時間は、1〜2min/File
　　開発機は約3年前ので性能は
　　普通。動画編集辛うじてイケるレベル
　　ま、画像バッファ用は二つで合計
　　1200万byte固定でメモリ的には
　　問題ない。
👤　1〜2min/Fileか、あのツールは
　　最大20FILEを扱うから、最大約30min
　　手作業なら手際よくても3hで、
　　疲労も半端ないから、休息いれて
　　8h ま、VBAでも実用的か
🤡　ツールとして割り切れば極めて実用的
　　なお、8hとか3h❓正確な地球語なら
　　ま、八人時間が参人時間に
　　生産コスト削減、そして、
　　疲労も激減だ。*⁠\⁠0⁠/⁠*
👤　地球人としては、やるな。THAN Q
🤡　3q very much

**編集後記1.3 兼 新規プログラミング** · 2024/04/02(火) 10:39:29.67

🥳　はーい。皆さん、お元気ですかーーー
てか、地球人のネットサーフィンみてたら、JPG2BMPの
ソースコードを閃きました。　こんな感じ

JPGtoBMP
'適当にユーザーフォームを作成し
'Imageオブジェクトを作成し
'フォーム名「ima」
'オブジェクト名「Image1」とすること

Public PP, FF,NN As String
Public LL As Long

Sub JPGtoBMP()
PP = ThisWorkbook.Path
FF = PP＆"\xxx.jpg"　'フルパス
NN= PP＆"\xxx.bmp"　'フルパス

ima.Image1.Picture = LoadPicture(FF)

SavePicture ima.Image1.Picture, NN
'ファイル名xxx.bmpでbmp形式で保存

End Sub
'*******

ま、机上もテストもマダだから、バグってると思うから
早く、テストしたいでーーーーす。
ていうか、JPG2BMP なんて意味ないけど、とにかく
早くJPG2BMPコーディングしよっーーーと

**プロマネてか自作自演** · 2024/04/02(火) 11:14:34.11

🤡　>>722 そのへんのネットに転がってるので
意味わからんが部分を、テキトーに削除したようコードだな
てか、🥳よ、

Public LL As Long　って不要ぢやねーー
削るなら、ちゃんと削りなさーーーい
て訳で、いきなり、机上でbug発見だ。ぢゃーーネーーー

**722 ∴自演** · 2024/04/02(火) 12:58:24.66

🥳　色々やったら、JPG2BMPは上手くいったぜ(^o^)v
でも、BMP2JPGはダメだーーー
ファイル名の拡張子はJPGなんだけど、ファイルサイズは
BMPのままぢゃーーーん。
BMP2PNGも同様。VBAでやるのは、あきらめーーーる。
いつか出来ることは、今できる　なんて歌があるが、
いつかまでも出来ない事は、今出来る訳ないし、
ヤーーーーメタ　by 🥳

**723 プロマネの呟きてかボヤき** · 2024/04/02(火) 13:07:38.06

VBAで、BMP2PNG は難しいようだ
VBAで、BMP2PNGが仮に実現できたなら
既存の色々な画像処理のVBAに
BMP2PNGの機能を組み込めれるけど、

仕方ない、BMP2PNGは、パワーシエルだ
既存の色々な画像処理のVBAに
パワーシエルは組み込めんだろう

ま、何かつまらないな。仕方ない　BY 🤡

**デフォルトの名無しさん** · 2024/04/02(火) 20:53:50.25

絵文字あぼーんのテストにちょうどいいわこのスレｗ

2024/04/06(土) 14:05:50.83

🤡　BMP2PNGは、パワーシエルで作成した
PNGは24BITつうか、24bpp(入力のbmpが24bppの時)
になるが、
そのPNGは24BITのやつをペイントで開いて
PNGで保存したら32BITなりやがった。
ま、チョイファイルサイズが増えるだけだし
キニシナイ。のが一番

**自称プロマネ 編集後記2.0** · 2024/04/07(日) 06:36:28.35

🤡　ま、なんだな。自作画像処理、とくに
動画系統がらみの、沢山の静止画を生成させるにあたり、
とにかく、以下のお絵描きのようなグラフの
関数を自作したくなる。

時間=0 で超ゆっくり
時間=0.25 では、加速度は、マックス
時間=0.5 　では、速度は、マックス
時間=0.75 では、加速度は、その絶対値は、マックス
時間=0 では、チョーゆっくりで、時間が止まる、
いや、違う、移動量が止まる　だ。

こら！地球人のアインシ○タインよ、
光速で移動すると、【時間が止まる】　とか言ってるけど
時間が止まるんじゃなくて、【移動量】が止まる。だろ
てか、相対○論ってデマぢゃねぇーーーー❓

👤　んー？、静止の観測者から、光速で移動してるハズの物体を
観測すりゃ、移動量も時間も止まってるけど、
静止の観測者の時計⌚は、時間は動いてるんぢゃねー？
てか、オレは、如何なる地球人の宇宙物理学の偏差値よりも
∞倍優秀な、ランベルト星人だって設定でいいよな

😅　はい、ランベルト星人は、如何なる学問も如何なる地球人より
無限大倍優秀なので、モチロン、地球の物理学と異なることも
あるので、地球人の、みんな、ランベルト星人の言動には
注意してね、(⁠・⁠_⁠・⁠;⁠)

**ランベルト星人 編集後記2.1** · 2024/04/07(日) 06:46:44.27

👤から🤡へ、
>>728 のコンセプトを満たす数式は、二次関数的だが
t>0.5とt≦0.5で、数式が変化しそうだし、やはりここは
数式一発で決めたい。arctan いやcosカーブでいいだろう
728のコンセプトとは微妙に異なるが、
728のコンセプトとは微妙しか異ならない、コサインcos関数だな

との、霊的テレパシーを、プロマネに今、テレパシーした。

**プロマネ(自称) 編集後記2.2** · 2024/04/07(日) 08:28:17.57

プロマネ(自称)のオレ🤡ッち、なんか幻聴が聴こえた。
声は、ランベルト👤星人の声だから、
きっとランベルト👤星人のテレパシーだろ
なに、△関数でやるのかよ。てか、オレッち、画像処理は
プログラミングは、好きだが、△関数とかラジアンとか嫌いです。
ていうか、
IF t＜0.5 THEN　x=t^2　ENDIF
IF t>=0.5 THEN　x=1-t^2　ENDIF
IF 0≦t and t≦1 THEN ELSE MSGBOX"変な値の入れるなᕙ⁠(⁠⇀⁠‸⁠↼⁠‶⁠)⁠ᕗ" ENDIF
ぢゃ、惜しいけどダメだしなーーーブツブツ

**発達障害テスター 編集後記2.x** · 2024/04/07(日) 08:36:49.24

🥳テスターです。チョー天才のテスターです。
ランベルト星人とかプロマネとかなんか
意味不明なこと呟いてるけど、>>728のブラフと
>>730の数式って、微妙にデマってるぢゃーーーん。
微妙でも、バグってるぢゃーーーん

730のをグラフ化ていうか、お絵描きしてみたーーーーあ
バグっていいぢゃーーーん　なんて
歌に釣られては、いけないぢゃーーーん

**ランベルト星人 呟く 編集後記2.xx版** · 2024/04/07(日) 14:51:36.59

👤　突然ですが、ワタシは、ランベルト星人だ(という設定)
地球人に、お絵描きをプレゼンだ
テレパシーで、5chラーにお絵描き、発信

**ランベルト星人 編集後記2.xxx版** · 2024/04/07(日) 15:26:28.74

>>732 のグラフは、何だな。もう少し　過激な動きがほしい
ていう訳で、改造だ。
ただし、地球人の数学で、マイナスの三乗根スナワチ、
マイナスの1/3乗は、実数解のはずだよな？
ま、僅かでも1/3からズレると、複素数とか虚数とかに
なるのが、地球人の開発した数学のようだ。
ま、地球の数学は、使えない可能は、微妙だが、

y=(1-(cos(x*π)^(1/3)))/2

が、とにかく、改造数式だ
xは時間で、yは移動量で、
とにかく、急々加速度と急々減速な、グラフだ

てか何だな、マイナスの0.33333乗はエラーで
だが、マイナスの1/3乗は正常終了になるなんて
ロジックは、不味いか？。

だとしたら、地球人の発明の数学ってバグってるぢゃーーーーん

by 冷静な👤星人が、今日は微妙にヤヴァイ

**プロマネ 編集後記2.xxxxxxxxxxx版** · 2024/04/07(日) 15:45:37.32

んー、>>733 はランベルト星人か。地球の数学より
優秀な宇宙人は地球の数学に苦戦してるようぢゃな

y=(1-(cos(x*π))^(0.3333333333333333333))/2　と
y=(1-(cos(x*π))^(1/3))/2
のグラフって、cos(x*π)が負になるときには
全く違う、その訳は、
地球の数学のバグっていうのはアリエルな。
ていうか、バグっていいじゃーーーーん。
あのAKB48か何かの曲のタイトルは、的を得てる

BY 🤡　バグっていいぢゃーーーーん

**発達障害テスター 編集後記2.z版** · 2024/04/07(日) 15:49:46.20

>>734 そのタイトルのは、
バグっていいじゃん　は、HKT48の曲ですよ。
AKBとHKTぢゃ三文字中三文字全て違います。
というか、この歌詞、なかなか素晴らしいな。

BY 🥳

**プロマネ 編集後記2.zz** · 2024/04/07(日) 21:43:37.31

🤡　オレッちは、地球人だし、地球の数学は多分絶対
マイナスの1/3乗は、んーーーこれは定義できる可能性大とはいえ
マイナスの1/3±ε乗は、限りなくεがゼロに近くても、
これは、地球の数学では未定義の可能性が無限大のはず。
てなわけで、
x=(1-(cos(t*π)^(1/3)))/2 は不採用とし、
x=(1-(cos(t*π))/2 を採用するものトスル。
そもそも、地球のコンピュータは内部処理は2進数の訳で
1/3を正確に2進数に表現できこっ無いぢゃーーーん。

ま、何故かexcel関数で負の1/3乗は計算出来るようだけど
きっと、1/3乗±εは1/3と見做して誤魔化してるハズ
ていうか、

x=(1-(cos(t*π))/2 を採用するものトスル。

by 🤡今は疑心暗鬼なプロマネでしたーーーー

**ランベルト星人 編集後記2.zz版** · 2024/04/07(日) 21:50:32.45

👤　地球の数学って使えねぇーーーー
その点ランベルト星の数学はバッチリです。
例えば　y=x^2のグラフは、ランベルト星で次の通り

**自作自演者本人 編集後記2.zzz** · 2024/04/07(日) 21:55:56.71

😅　ランベルト星(架空の星)の数学は、地球の数学より
無限大倍、スゴイので、地球人は、ランベルト星人の話しは
注意しなさーーい。

ちなみに、ランベルト星の数学では、
マイナス✕マイナスは、マイナスで良いかな❓

👤　いや、ランベルト星人の数学は、モピロン矛盾許容だ
従って、マイナス✕マイナスは地球と同様プラスでヨシとする。今は

**自称プロマネ 編集後記2.0x** · 2024/04/08(月) 11:05:30.49

🤡　結局、最初の案の
>>728 　で上手くいった。アレコレ考えてたのは無駄だったが
地球の数学が使えねぇのは理解出来たのは、成果だ。

てか、なかなか728のグラフ、ふつうにいいな。
スタート即ち、時間=0での移動量てか速度=0
ゴール即ち、時間=1での移動量てか速度=0 なのに
ちゃんと移動してるし、

多分、これは、無限回微分可能な関数だから、
滑らかさも、ちょーーーバッチリ
確かさ、cosって微分するとsinになってそれ微分ふるとさ
cosに戻るから、無限回微分しても、定数ゼロにはならないから
絶対に無限回、微分可能だから、ちょーーーなめらか

じじつ、これで生成した静止画を30FPSの動画で再生したら
なんか、60FPSって感じに滑らかだ。30なのに60ぽく感じられる
動画になっちゃった。やったーーーー✧⁠◝⁠(⁠⁰⁠▿⁠⁰⁠)⁠◜⁠✧
by 🤡

**プロマネ 編集後記の編集後記1.0版** · 2024/04/10(水) 09:38:06.57

>>735 は、🐴🦌テスターか
>AKBとHKTぢゃ三文字中三文字全て違います。
とか、書き込んでるけど、
三文字中一文字は、同じぢゃーーーーん。てか、
3と2の違いもわからないのかーーーーー🐴🦌テスター

by 🤡

**デフォルトの名無しさん** · 2024/04/10(水) 18:00:20.73

画像処理の本に詳しいひといるかな？
おすすめある？

**デフォルトの名無しさん** · 2024/04/10(水) 23:02:56.80

>>741
ディジタル画像処理

**デフォルトの名無しさん** · 2024/04/11(木) 05:37:31.16

>>742
ありがとう

**デフォルトの名無しさん** · 2024/04/13(土) 18:57:10.83

>>7⃣4⃣2⃣　素敵な情報ありがとう
VB＆VC++による
デジタル画像処理●門　CQ出版●　という本なら持ってる
2002年10月発行のなので、もう使えねぇと思ったが、
なんだよ、excel vbaで、少しなら、コード改造すりゃ
動く感触あり

❌ Picture1.picture =　LoadPicture("🌟🌟🌟.bmp")
⭕ image1.picture =　LoadPicture("🌟🌟🌟.bmp")
なんて感じで改造したら、
画像は、image1オブジェクトに表示されました＼(^o^)／

さてと、まだ、超初歩段階だけど、やったぜー
てか、EXCEL VBA がLoadpictureというヤツをサポートしてるなんてラッキー✌
もう、画像処理に、c#、c+，VBも、πソンも、とにかくアセンブラも
要らないぢゃねーーーー❓

てか未だ初歩段階だけどさ、イロイロ、やってみよーーーっと

**デフォルトの名無しさん** · 2024/04/13(土) 19:07:52.26

あっそうだ、9点のメディアンとか早くする方法❓

9点の合計から最大値と最小値は異常と見なし差し引く─①
①を7で割る、コレを、バッチリ平均　──②
7点の中から②に一番近いのを採用とする
これで、色数も変わらない。
メディアンぢゃない可能性もあるが、ま、これでいいんぢゃなーーい

**744 ∴自己スレ** · 2024/04/13(土) 21:27:27.84

>>744 よ、こいつは、2時間半前のオレッちだな。
>excel vbaで、少しなら、コード改造すりゃ動く感触あり
と、エラソーにほざいてるけど、デマぽいじゃーーーーん。
Loadpicture　はサポートしてるけと、
その本に載ってる　Picture1.Point(🌟,🌟)とか、
Picture1.Pset(🌟,🌟)とか、
Picture1をimage1に置き換えたけど、なんかダメぽぃ。
ちぇ、744 2時間半前の自分に嵌まった。

**745 自分に返信** · 2024/04/14(日) 06:51:02.04

>>745 9点メディアンより5点メディアンでいいんぢゃなーーい
というかさ、中央の画素が異常値か判断して、
異常値⇒灰色(160,160,160)に置換えて誤魔化す
正常値⇒そのままトスル

で、上手くいく。　　　ワケないな。

てか、EXCEL VBA ってどうもPUCTURE BOX 見つからんし
Picture1.Point(🌟,🌟)とか、Picture1.Pset(🌟,🌟)とか、
Image1.Point(🌟,🌟)とか、Image1.Pset(🌟,🌟)とか、
も。見つからんし、とにかく、>>744よ
VB＆VC++による
デジタル画像処理●門　CQ出版●　という本なら持ってる
2002年10月発行のなので、もう使えねぇので
ステなさーーーーーい。

てか、744って12時間前の自分ぢゃーーーん
やっぱ、捨てるのはや～メタ

**ランベルト星人の呟き (ホントは自演)** · 2024/04/14(日) 12:40:02.95

👤　地球人の作成したネットをイロイロ、ネットサーフィンしたらさ
とにかく、VBAなのにPowerShellが起動させれるみたい

'* PowerShellのコマンドを実行するVBA*
Function runPS(ppp As String)
　Dim ooo As Object
　Set ooo =CreateObject("WScript.Shell")
　 ooo.Run "powershell -NoLogo 　-ExecutionPolicy RemoteSigned 　-Command " & ppp, 0, True
End Function

これが、VBAなのにPOWER SHELLが動いちゃうFunctionだ
引数pppはmax 260文字という制限あるが
モピロン、このFuctionを無限回コールすりゃ無限大の
power shellが動かせる。　　わけないけど、とにかく、
pppに、ファイルコピーするpowershellを代入すると
ちゃんとファイルコピー　できるようだ。

by 👤の呟き

**発達障害テスター (ホントは自演)** · 2024/04/14(日) 12:49:03.99

🥳　>>748はランベルト星人なのかな
なんか幻聴が聴こえちゃった。その幻聴とは
Step1) VBAで画像処理でBMPファイルを書き込む
Step2) PowerShellでBMP2PNGやる。
で、STEP2はVBAから起動する。
だって、VBAからPOWER SHELL動くんだよな？
だからさ、VBAでBMPファイルを出力させ
それをそのVBAでPNGファイルにCOPYすりゃ
即ち、とにかく
VBAで、入力も出力もPNGの画像処理可能だ＼(^o^)／
ま、一時ファイルでBMPが出力されるが
ソレは仕方ない。てか、VBAで、入力も出力もPNGの画像処理可能だ＼(^o^)／

by 🥳

**プロマネ (実は自演)** · 2024/04/14(日) 12:55:04.86

🤡　バカテスターが何かはしゃいでるな
ま、そんなに上手くいくわけないだろう。けど
まずは、BMP2PNGをVBAでやってみるか
もっとも、>>748の、ロジックでやってみる。無限大日以内に。
それが成功してから、イロイロ紆余曲折をへて、
VBAで、入力も出力もPNGの画像処理可能　にチャレンジかな

てか、今は動画編集の作業でプログラミングなんてやってられね
てか、バカテスターって安易な思考してるな。
上手くいく可能性は、10%もないだろうに

by 🤡

**749の続き** · 2024/04/14(日) 15:08:19.37

🥳　なんだか、今日は、ポクは、ハッピーです。
ていうか、パワシェは、何でもできるポイです。
パワポというかパワシェは、さいこーーーー。
ネットで調べたら、
Remove-Itemコマンドレットというコマンドレットが
あって、ファイルの削除も、バッチリだから、
一時ファイルとかの削除も、バッチリだと思うから、
一時ファイルでBMPが出力されるとか、749が気にしてたけど
一時ファイルでBMPが出力されても、そのコマンドレット
というコマンドなのかな。
Remove-Itemコマンドレットという、コマンドで
パワシェに命令すれば、
一時ファイルは出力されても出力されません。
てか、749って自分ぢやーーーん。
自己レビューも、バッチリだし、ポクって天才ぢゃーーーん

by 🥳(発達障害という設定)

**751の続き** · 2024/04/14(日) 15:37:47.32

🥳　そういえば、プロマネが、
「既存の色々な画像処理のVBAにパワーシエルは組み込めん」
って書き込んでるけど、多分、デマぢゃーーん。
>>725 の書込み、多分、デマだと思う。
てか、これも、バグだーーーー。バグ発見嬉しいデス。

by 🥳　テスターはバグが大好き。

**750プロマネ 続き** · 2024/04/14(日) 17:48:22.00

🤡　バカテスターがオレッちを🐴🦌してるけど
とにかく、VBAでBMP2PNG にチャレンジはしては、みる
というか、VBAでパワチェでBMPのファイルコピーなら
上手くいったぜ。４ファイル、コピーするやつだ

Sub 四角形角度付き1_Click()

Dim ps As String

Dim ob As Object
ps = "Copy-Item E:\work\P5000.bmp E:\work\P6000.bmp " & vbLf
ps = ps & "Copy-Item E:\work\P5000.bmp E:\work\P6001.bmp " & vbLf
ps = ps & "Copy-Item E:\work\P5000.bmp E:\work\P6002.bmp " & vbLf
ps = ps & "Copy-Item E:\work\P5000.bmp E:\work\P6003.bmp "

ob.Run "powershell -NoLogo -ExecutionPolicy RemoteSigned -Command " & ps, 1, True

End Sub

因みに、vbLfを省略すると上手くいかん。理由はわかんないけど
何となく、改行てかvbLfいれたら上手くbmpファイルコピーに成功＼(^o^)／

by 🤡　bmp2pngは未だ先たが、まずまずだぜ✌

**753の続き プロマネ(自称∧自演)** · 2024/04/14(日) 20:16:16.60

🤡　さっきさ、753の時点では、
「bmp2pngは未だ先」と書き込んだけど、
Excel VBA 「bmp2pngはもうすぐ完成の見込」
に改定だぜ。

ま、VBAにPOWER SHELLのコードを埋め込んだ
からVBAぢゃないけど、VBAだぜ
VBAでBMP2PNG が、あとすぐできるので、
すぐ、ココに公開しちゃいます。

＼(^o^)／　って感じ

by 🤡　ルンルン

**754の続き∴自称プロマネ兼自作自演** · 2024/04/14(日) 20:25:12.06

超暫定版 VBAでBMP2PNG完成　＼(^o^)／
P5005.bmp をVBAでP5005.png に圧縮かつ多分無劣化だぜ✌

Sub 四角形角度付き1_Click()
Dim ps As String
Dim oo As Object
Set oo = CreateObject("WScript.Shell")
ps = ""
ps = ps & "Add-Type -AssemblyName System.Drawing " & vbLf
ps = ps & "$f1 = 'E:\work\P5005.bmp' " & vbLf
ps = ps & "$f2 = 'E:\work\P5005.png' " & vbLf
ps = ps & "$im =[System.Drawing.Image]::FromFile($f1) " & vbLf
ps = ps & "$im.Save($f2, [System.Drawing.Imaging.ImageFormat]::Png) " & vbLf

oo.Run "powershell -NoLogo -ExecutionPolicy RemoteSigned -Command " & ps, 1, True

End Sub

**デフォルトの名無しさん** · 2024/04/14(日) 20:28:41.90

帰納法とは順序集合においてある命題がある番号まで成立としたとき次の番号の命題が成立することである

**752 テスター** · 2024/04/14(日) 20:30:41.19

🥳　>>755 マジかよ。VBAでBMP2PNGのソースコードぢゃーーん
てかさ、
そういえば、プロマネが、
「既存の色々な画像処理のVBAにパワーシエルは組み込めん」
って書き込んでるけど、絶対、デマぢゃーーん。
>>725 の書込み、絶対、デマですね。

by 🥳発達障害テスターの嫌味

**突然ですがランベルト星人の呟き** · 2024/04/14(日) 20:52:22.43

ちなみに、>>755のコードで
Dim ps As String が　おそらく約200文字を超えると
それを実行する

oo.Run なんたらかんたら & ps, 1, True

は、バグると思う。200文字位なら大丈夫だが300文字位ならアウト
ま、1fileのBMP2PNGならこのソースコードで良いが
数fileなら工夫する必要があるだろう、
とはいえ、ホントにちゃんとBMP2PNGが実現ならば、
99点の出来だ。モピロン、100点ではないが

by 👤

**テスターvsプロマネ レビューの巻** · 2024/04/14(日) 21:54:18.24

プロマネ　───　🤡　とおく　∧
発達障害テスター　───　🥳　とおく

🤡　VBAでBMP2PNG完成　暫定版だけどさコードは>>755だ
🥳　で出力されたPNGは32bppなのかな❓モチロンだよね。
🤡　オマエ、判ってて質問してるな。24bppだ
　　実質power shellだ
🥳　32bppぢゃないといやでーーーす。
🤡　24bppの方がファイルサイズ小さいし、そもそも
　　入力のBMPは24bppだから、これでヨイのだ。
🥳　ちぇっバグぢゃないのかよーーー
🤡　バグっていいワケないぢゃーーーん。てか
　　このロジックを改造して、
　　複数ファイル(数十ファイル)のBMPをPNGに変換するのを
　　作る計画を企画中だ。ま、多少はバグるだろうから
　　その時、愉しみしてなさーーーーい。
🥳　早く、そのプログラミング作りなさいーーー。
　　バグを沢山見つけて、デバッグしたいでーーーす。

BY 🤡　ま、このツールは企画中、何時完成かは未定だが
作る気になれば、今すぐだな。
でも、今できる事は、いつかやることにしますぅぅぅ　👋👋👋

**プロマネの呟き兼ボヤキ 755の続き** · 2024/04/15(月) 22:47:07.66

超暫定版 VBAでBMP2PNG完成　＼(^o^)／
と喜んで見たものの、よくテストしてみると
四角形角度付き1_Click()　を実行中に
四角形角度付き1をクリックしまくると
ま、ダブルクリックとかトリプルクリックとか
複数回クリックしまくると、
それが処理中でも、
それが重複して処理されるようだ。
ま、ファイル書込み中は排他制御は
OS側でやるとは思うが、何か心配だな

一応、排他制御的な短時間重複起動阻止の
ロジックは入れておいた。

んーーーー。ちょっと参った。
ロジックが排他制御的なので、汚くなった
仕方ない。

BY 🤡のボヤキ　てか排他制御ってなんか掴みどころない
し、嫌な思い出しかない。😅😅😅

**760の続き** · 2024/04/16(火) 00:17:57.68

>>760でも記載したが
四角形角度付き1_Click()　を実行中に
四角形角度付き1をクリックしまくると
ま、ダブルクリックとかトリプルクリックとか
複数回クリックしまくると、
それが処理中でも、
それが重複して処理されるようだ。

と、喚いたところで、上手く躱されるだけか
話題をすり替えられるだけだ。
おそらく、触れてはいけない疑問なのだろう。
ま、ある程度予想通りのいいワケだった。

さて、
oo.Run なんたらかんたら & ps, 1, True　で
第4パラメータはtrueにしてるので
oo.Runが処理中でも先の処理に進むことはない。が
だから、重複しないハズ　とかは甘いバスだな。
oo.Runが処理中でも先の処理には進まないが
oo.Runが処理中に、新たなるoo.Runが処理か発生する場合が
あるだろ。それを阻止するためには、
四角形角度付き1_Click()の先頭に重複防止ロジックを
入れるべきだ。

ま、入れなくても、90〜99%位の確率で上手いくだろうが
ま、処理時間が倍になる予感
さらに、1〜10%の確率でファイル破損もあり得るかな
杞憂かも知れん。排他制御はそれなりに難しい

by 🤡のボヤキ　┐(´д｀)┌ﾔﾚﾔﾚ

**ランベルト星人(実は他所の記載)** · 2024/04/16(火) 06:35:10.29

👤　なんかプロマネ761にボヤキを書き込んでるな
排他制御❓　んーーー不要かどうかなんて、知らんけど・・・
ま、実行ボタン.enable =　False　的にやり
実行完了で、実行ボタン.enable =　True 的な
そんな感じで、地球人はやってると憶測される。

てか、プロマネの実行ボタンって、ActiveX、ぢゃなくて
単なる、図形(オートシェイプ？)のようだな。

ま、カラフルかつデザイン性重視
とにかく、排他制御を実装した方がよさそう。かも？！

by 👤

**プロマネ 排他制御ロジックを語る** · 2024/04/16(火) 09:33:48.60

🤡　排他制御は、以下のコードでキマーーーリ

Private TT As String '前回起動時刻

Sub 四角形角度付き1_Click()
　Dim WT As Long '待ち時間(秒)
　Dim SS as String

　'''重複起動チェック
　If TT = "" Then '初回はチェックなし
　Else
　　WT = 60-Abs(DateDiff("s", Time, TT))
　　If WT > 0 Then '''重複起動チェック
　　　SS = CStr(WT) & "秒クリック待て"
　　　MsgBox SS
　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If
　End If
　TT = Time
　
　'''本処理
　～ファイル書込み処理60秒位かかる～
　
End Sub

by 🤡　多分これでゼッタイ完璧てか、自作ツールだし失敗しても怖くない

2024/04/16(火) 09:48:08.55

🥳　クリックまて、"59秒クリック待て"と表示されたので
　　MSGBOXの[OK]ボタンなら5時間クリックしてない
　　てか、本処理が全然おわないーーー。バグってるぢゃん
🤡　59秒かよ、1秒位で、RUNボタン(図形SHAPEの意)をクリック
　　したんだろ。てかMSGBOXの[OK]はすぐ押しなさい
　　そしたら、60秒ぐらいで本処理終わりますよーー
🥳　そんなの聞いてないもんねーー　バグです。ーーー
🤡　テスタなら騙し騙しで良いから使いこなせーーー
　　てか、デバッグは保留てかドンドン先にGoしようかな

**プロマネのプログラ厶｡ボロ糞の巻** · 2024/04/16(火) 15:16:33.01

🤡、とにかくオレッちのプログラミングレビュー💩のようだ
てか、ダブルクリックでの二重起動だけ避けれれば、それで構わんバージョンだっ。

Private TT As String '前回起動時刻
Sub 四角形角度付き1_Click()
　Dim WT As Long '待ち時間(秒)
　Dim SS as String

　'''ダブルクリックでの重複起動回避
　If TT = "" Then '初回はチェックなし
　Else
　　WT = 3-Abs(DateDiff("s", Time, TT))
　　If WT > 0 Then '''3秒内はタブルクリックだよな
　　　SS = CStr(WT) & "秒クリック待て"
　　　cells(1,"a")= SS　'''debug monitor
　　　doevents:doevents:doevents:doevents:doevents
　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　End If　End If
　TT = Time
　
　'''本処理　～ファイル処理60秒位かかる～
　Call B2P("b1.bmp","p1.png")
　Call B2P("b2.bmp","p2.png")
　Call B2P("b3.bmp","p3.png")
　Call B2P("b4.bmp","p4.png")
　Call B2P("b5.bmp","p5.png")
　
End Sub

by 🤡叩き台なので、これでヨイのだ版

**765の続き** · 2024/04/16(火) 18:45:54.32

🤡自分で言うのも何だが、いろいろ暫定的にテストしたら

If TT = "" Then '初回はチェックなし
　Else
　　WT = 3-Abs(DateDiff("s", Time, TT))
　　If WT > 0 Then '''3秒内はタブルクリックだ。　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If　
　End If
　TT = Time

なお、TTは別のプロシジャーというか
グローバル変数というか(←適切な言葉を知らない)
とにかく、宣言する場所はモジュール外だ

とにかく、これにキーーメタ。
排他制御はキニシナイ。
ダブルクリックによる二重起動だけ
キニすれば、なんか上手くいく感触だ。

てな訳で、プログラミングドンドン進める

by 🤡ほぼ完全はしてるが作り込みに時間は掛かる

**766の続き** · 2024/04/16(火) 18:51:47.62

ていうか、
　　WT = 3-Abs(DateDiff("s", Time, TT))
　　If WT > 0 Then '''3秒内はタブルクリックだ。　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If

は、微かに改定して

　　If Abs(DateDiff("s", Time, TT)) ＜ 3 Then '''3秒未満はタブルクリックだ。　　　　　
　　　Exit Sub　'''本処理回避
　　　　
　　End If

にしよっと。ま、実質おなしだけど
少し、短くした。

by 🤡修正してる内にコードが腐るから綺麗にしなきゃー

**発達障害テスターの巻** · 2024/04/16(火) 19:08:18.87

🥳　プロマネが>>767にダブルクリック判定
ロジックを書き込んでるけど、コレバグてるぢゃーーん。

4月16日の19時19分19秒に　クリックしてさ
24＋α時間パソコンの電源は切らないでさ
4月16日の19時19分20秒に　クリックしたら
タブルクリックと判断して
4月16日の19時19分20秒のクリックは処理は無視だぜ
バグってますねーーー

🤡バグってるのはテスターの頭ですネ
てか、パソコンは１日一回位は再起動とかシャットダウンしなさい
てか、19時19分22秒以降か、19時19分18秒以前に
クリックすればよい。てか
頑張ってテストしてみてねーーーー
多分、テスターの予想どおりになるけど
テスト頑張ってねwww ゲラゲラ

**自作自演の作者本人** · 2024/04/16(火) 19:12:45.22

>>768 の物語、ミスった
❌　4月16日の19時19分20秒
⭕　4月17日の19時19分20秒
by 😅

**766 767** · 2024/04/16(火) 21:44:33.35

🤡自分で言うのも何だが、さらに暫定的にテストしたけど、
766というか767のロジック。素晴らしい
処理実行ボタン(実は図形だが)
ヤケクソで一秒間に5回を処理が終わるまで
クリックしても、処理は初回の一回だ。＼(^o^)／
モチロン、処理が完了すると、
２回目の処理が走るが、ま、当然だ。
とにかく、排他制御が超完璧＼(^o^)／
ていうか、排他制御キニシナイで
ダブルクリックによる２回起動　を　阻止
そんなロジックにしたたけなんだけど

多分さ、地球人でこんなロジックにするのは
皆無だろ。世界初ぢゃないかなーーー

by 🤡上手くいっただけでウカレてしまうプロマネでした。＼(^o^)／

**768 実は自演** · 2024/04/16(火) 21:51:40.52

🥳　一秒間に5回か。でもさ、一秒間に無限回CLICKすりゃ
いや、机上では、二重起動阻止されるな
でも、CLICKのタイミング微妙に増やしたり減らしたり
すれば、二重起動するかも知れん。てか
そうなっても、処理時間が２倍になる程度だな。
んーーーん。ちぇっつまんないのーーーー
by 🥳

**768の続き** · 2024/04/16(火) 21:58:05.05

🥳　あっそうだ。本処理(BMP2PNG)で
ファイルサイズが小さいファイルを
1ファイルだけ処理するなら、
3秒かからんだろ。でさ
にも、関わらす、そのロジック
3秒以内に二度処理しようとしたくても
無理ぢゃーーーーん。バグぢゃねーーー❓

🤡３秒以内に２度以上処理出来ないのはバグぢゃありませんが
ていうか、３秒以内に２度以上処理出来ないという仕様ですよーーー

🥳仕様？。ちぇっバグぢゃないのかよーーーつまんないの

**デフォルトの名無しさん** · 2024/04/16(火) 22:08:18.52

条件式　Abs(DateDiff("s", Time, TT)) ＜ 3
これが実質　排他制御フラグみたいもので
そらに、初回起動時は、条件式　TT=""　が真となる関係で
TT=""の時(初回起動時の意)で、タブルクリックチェックは
せず、本処理やるという、この超能力的発想が
巧くいった秘訣だぜ＼(^o^)／

てか、ま、タブルクリックするヤツがいけないんだけどさ、
でも、処理実行で、シングルクリックにすべきか
タブルクリックするかなんて、ヒトそれぞれだしよーーー　
なんたら、かんたら、ぺちゃくちゃーーーーーー

BY 🤡巧く行き過ぎて、話しが長文

**とにかく、続き** · 2024/04/16(火) 22:25:05.87

🥳　てかさ、図形クリックしたら図形非表示にし、
　　処理が完了(エラーで完了も含む)図形を再表示でいいぢゃーーーん。
　　何やってる❓　世界初とか病気ぢゃねーーー❓

🤡、ま、誇大妄想って病気らしいけど治す気はしねーーー
　てかさ、図形を非表示にするロジックで
シェイプのvisable？をfalseにするロジックやったけど
文法エラーにはならないのに、実行時「サポートしてません」
とかいうエラーでダメだった。
文法エラーにならないのに実行時エラーなので
ハマる予感を霊的に感じたから、そのロジックは諦めた

🥳プロマネって霊感でプログラミングしてるの❓天才ぢゃーーーんポクと同じダネ

**755の続き∴自称プロマネ兼自作自演** · 2024/04/16(火) 23:52:52.73

🤡
BMP2PNGのVBA それの暫定版は>>755 だが
一気に24FILEやって、かっこよいUIにして
ちゃんとした版のが完成した。ゼ
755は4/14だから、2日で完成。
多少の紆余曲折はあったが順調だ
テストは不十分だが、ほぼ完成だ
VBAでBMP2PNGが完成しちゃいました
🥳テストはしないの？　バグとりしたーい
🤡軽くテストは程々、さっさと運用とする
　運用とデバッグを並行てか平行てか
　とにかく、いくつかあるBMPをPNGにする
🥳運用でバグるとイイネ(≧∇≦)b
🤡ま、バグったらVBAでなくPOWER SHELLでやる　
　てか既に、POWER SHELLで運用してる
🥳ちぇっつまんないの。てか
　VBAでBMP2PNG作ったて自慢してるけど
　VBAでPOWER SHELLのコード？を実行してるだけぢゃーーん
🤡ま、いいぢゃーーーん。
　BMP2PNGなんか、そんなズルしなきゃ作れん
　てか、作成されたPNGは24bppだ
　てか、運用上問題なし。
　ま、ちゃんとしたテストはこれからだけど
　既にこれが編集後記だな。www

**ランベルト星人の呟き** · 2024/04/17(水) 06:21:13.18

👤　プロマネは、今回のVBAでのBMP2PNGでは、
今回初めて、
条件式　Abs(DateDiff("s", Time, TT)) ＜ 3
をやって、「タブルクリックによる二重起動」の防止
を実装した。
今回以前の全てのツールで
「タブルクリックによる二重起動」の防止
のロジックは入れてない。
何でだろう。奇妙だ
また、今回は、
条件式　Abs(DateDiff("s", Time, TT)) ＜ 3
を入れたとはいえ、
２回目クリックは、一回目クリックの3秒以上後　且つ
２回目クリックは、一回目の本処理が完了前
では、
　２回目クリックによる二重起動は、
　　　起こらない

そ、そんな、二重起動防止ロジックは実装してないのに
ま、OSというかVBAというかイベントドリブンは
そういうモノなのだろうが、それにしても解せぬ🤔
DOEVENTを入れまくるとヤヴァイというハナシは
よく耳にはするが、DOEVENTを入れまくった方が
「応答してません」という応答がでなくなるし
まったく、地球人の言ってる言語は意味不明ぢゃ
というか、パソコンの調子が時々オカシイ時に
二重起動しやすくなる傾向がある。
待てよ。🤔　この文の論理学的な裏が真なのか
いや、多分違う。プロマネ🤡はオペレーションは
苦手とはいえ、有能なITエンジニアの中では
苦手なだけで、普通にオペレーションも、こなせるハズだが

**発達障害テスター** · 2024/04/17(水) 06:24:01.42

🥳　ボクはテスター、ランベルトが何か呟いてるな

そういえば、プロマネは、タブルクリック防止の
ロジック版のテストで一秒間に数回クリックを
永遠に繰り返すなんて、ハッカーみたいなことする
テストしてたよーーー。
なんか、結果バッチリとか喜んでた。ソースは
>>770 で、とにかく喜んでた。
by 🥳

**ランベルト星人 また呟く** · 2024/04/17(水) 06:25:26.95

んーーーオマエもプロマネも、地球人って全員ヘンだ
by 👤

2024/04/17(水) 09:41:26.50

👤
>>435 のソースコードみてみろよ。
言語は、EXCEL VBA''' 画像変換　BmpToPng (準失敗作)　
ソースコードだ。2ヶ月程前は、
VBAでのBMP2PNGは完成してたとはいえ、準失敗作だった
しかし、ソレは昔、2ヶ月昔のハナシ
とうとうらVBAでのBMP2PNGが完成したのは、素晴らしい👏👏👏
ま、24bpp PNGなのは於いておいて、
生成されたPNGの画質って、おそらくドッドバイドッドぽぃぞ
完璧だね。
多分地球上のネット上のプログに公開されてる如何なる
ソースのBMP2PNGより、もしかして画質上かも
てか、多分地球上のネット上のプログに公開されてる
BMP2PNGのソースって準失敗作だらけ。

その点、ピミ🤡のVBAのそれは素晴らしいすぎ。
てか、2ヶ月前にもBMP2PNGにチャレンジして失敗か
今振り返れば、そんな準失敗435も懐かし思い出だ。

🤡　ランベルト星人が地球人の、オレっちを褒めてる
　んーーー　へんな感じた。
今回、成功したBMP2PNGも、ちょっと気になる部分はある。
というか、Doeventsを多用し、ダブルクリック二重起動阻止ロジック
したんだけど、何か今日は、そのツール
滑らかに動いてる。んーーー　不思議たが、ま、よい。かなりヨシ

2024/04/17(水) 21:42:23.62

🤡　そういえは、タブルクリック二重起動阻止ロジックは
今回、産まれて初めて実装したな。
PNG2BMPは、以前はBATファイルをダブルクリックだった
BATファイルは、シングルクリックだと、単に選択するだけでRUNしない
∴
BATファイルで(POWER SHELLをRUNで)BMP2PNGやる時はダブルクリックだ
VBAで図形クリックでやるなら、図形はシングルクリックが、
そうだ、シングルクリックが正解だ。

んーいつもの癖でBMP2PNGはタブルクリックというのが
条件反射として、小脳か中脳に記憶されたからだろう。
自分で言うのも、変なハナシだが、人間という生物は
大脳が発達してるから、出来るヒトは、
ダブルクリックとシングルクリックを使いわけれるが
オレッちの様な動物的直感でオペレーションするモノには
苦手な事である。

👤　ま、地球人は我々ランベルト星人からみりゃ
大脳は普通だ。その点、我々ランベルト星人の大脳は
無限大の質量を有しており、で、で、で、地球人より無限大倍スゴイ
プロマネがトチるのは止む得ない。とはいえ、
ま、タブルクリック2重起動阻止ロジックを開発したのは
驚くべきことだ。

きっと、動物的直感が他の地球人より優れてるのだろうか
とにかく、地球人はナゾの生命体だ。
by 👤ランベルト星人

画像処理 15枚目 [転載禁止]©2ch.net

画像処理　15枚目 [転載禁止]©2ch.net