今日からブロガーとなる。

1.PCケース：NZXT H7 Flow ミドルタワーPCケース [White&Black] CM-H71FG-01 CS8453

こりゃあ〜NZXTケースが格安になっている。通常は安くても16,000-程度なので余っても買ってしまうおバカさん。。。
現行ではブラックを2台使用中で、組立は楽ちん。
敢えてデメリットを探すと、机下に入れるとちょっとデカい〜というぐらい。。。まぁその分でも言ったように組立は楽ちん。ATXマザー標準で使う人でファンは前後、簡易水冷で上という人には、かなりオススメ。




2.モニター27インチ：日本エイサー Acer Nitro ゲーミングモニター 27インチ IPS 非光沢 WQHD 180Hz 0.5ms HDMI 2.0 DisplayPort VESAマウント対応 スピーカー内蔵 ヘッドホン端子 AMD FreeSync Premium HDR10 VG271UM3bmiipx

既に4台稼働中で、なかなか画面が綺麗なのでiiyamaのモニター2台と交換する。Dellの4Kと悩んだが6台お揃いの方が綺麗なのかな？といった適当な選択理由ｗま・ま・定価4万が3万強でWQHDで既設なので使ってないDellのモニターを購入するよりも同価格帯なら良いと判断した。




3.ロジクール マウス キーボード セット MK245nWH 無線 ワイヤレス コンボ ホワイト MK245 国内正規品

これも既に黒青が2台、白が1台稼働している。テンキーがないのに慣れてきたので多少でもスペースが確保できるキーボード＆マウスセットを2台（白）追加してみた。


4.Arteck 2.4Gワイヤレス キーボード 無線 軽量 フルサイズ メディア機能 ホットキー コンピューター、デスクトップ、PC、ラップトップ、Surface、スマートテレビ、Windows10/8/7との交換性あり

こちらは黒のロジクールを追加1台と考えていたが、先行で安くなっていたので余っているロジのマウスと合わせ技で使ってみようと思って購入。衝動買い的な感じかな〜


5.マキタ(Makita) 充電式ブロワ集じん機 18V バッテリ・充電器別売 MUB187DZ

在庫はないようだが、注文できるので18V充電はインパクト、掃除機、レシプロソー、ブロワー、充電式生垣バリカンと既に汎用的に使っているので、ブロワー＆集じん機というのが気に入って今回ようやく注文できたというもの。ある意味これが一番楽しみかな〜といった感じｗ


今週末の皆様のブラックフライデー購買の参考になれば幸いです



それでは、またね〜(￣▽￣)

ExcelVBAやAccessVBA,VBでは、ほぼほぼローカル変数Dimを使って十分だったが、やはりUWSCを使って画面コピペを主にしていることもあり、テキスト主体＆固定された処理順を無視したキャンペーンなどが発生すると、グローバル変数でモジュール全体での数値格納が必要になってくる！というもの。

変数渡しに
function sub01(x,y)
result=0
〜処理
result=1
fend

function sub02(var x,var y)
result=0
〜処理
result=1
fend

数値の受け渡しだけでいうなら[var]を付ければサブルーチンで数値変化してもメインに戻り変更が反映される。更にresultでサブルーチンの条件を0、1で判定するといったことを同時に行えるわけだ。
　が、
Web画面の追加で初期画面にあれば、新しく作ればよい。
　が、
既存のページの追加とか期間限定とか時間限定とかになってくると。。。「トップページに戻らないと、その数値ないがな〜泣」とか出てきてしまう。

まぁ普通にモジュール追加とかそんな感じでもなく、通常では通り過ぎたページ（サブルーチン処理している場合）メインにはその変数は今まで必要なかったが、既にサブルーチンで計算している場合など。そこでグローバル変数に入れるだけで、新規に作らなくとも簡単に対応できたりする。

う〜ん！プログラム組んで40年！初めてグローバル変数が役にたったよ。

//mainルーチン
処理1
if SP計算=0 then exitexit
処理2

repeat
〜
until ret<>""
if SP計算=0 then exitexit
処理3
//main-end

function SP計算()
result=0
〜処理
ifb SP<30 and length(SP)=2 then
result=1
endif
fend

簡単に書くとこんな感じの処理の流れ〜
んで、処理2の後にSPが50ポイント以上の追加処理が必要になったが、既に画面はキャンペーン画面に飛んでSPの数値を再取得できる状態ではない！といった感じでは前の画面で計算したSPをそのまま使うことで、ほぼほぼ対応できそうだぁ〜といった感じのプログラム修正！

//mainルーチン
public SP=0
処理1
if SP計算=0 then exitexit
処理2
if SP<50 and length(SP)=2 then exitexit
//※ここでサブルーチンでしか使っていないSPが使える！

repeat
〜
until ret<>""
if SP計算=0 then exitexit
処理3
//main-end


こんな感じｗ

＜近況報告＞
最近は、あまり積極的にプログ更新はしていない〜というか、ほぼやってない！
パソコン弄るのもそこそこ環境は整ってきたので、急ぎでやるほどのことはない。
・電源入替850w→1250w（メイン機）
・外した850wをサブ機に載せてRyzen7 8700f（＋RTX4060ti）
この程度のことは残っているが、マザボを新しく購入するぐらいのテンションアップがないとコレだけやる？って選択にはならずに、最近はもっぱらUWSC600行程度のまぁまぁ長文のモジュールをいくつかテスト実行していたところだ。

カネになれば一番良いのだが…自分用の時短なので直接的にはカネは生まない。。。
が、空き時間は多少できるｗ

Windows+Chrome+Excel+Access+SQLexpress+UWSC
さて後何年続くのか？20年後もUWSC動かしていそうな予感はあるが？どうかな？

それでは、またね〜(￣▽￣)