おやじプログラマー日記

【ふく割】のアプリをスマホに入れて新規登録を行ったのですが、
仮登録メールが届かない現象が発生しました。

メールは「gmail」と「docomoメール」で試したのですが、 どちらとも届きませんでした。

そこで公式サイトの Youtube の説明を見ても上の不具合については言及がありませんでした。
画面をよく見るとなんと「Yahooメール」が推奨されていました。

そこで再度メール入力を「Yahooメール」にしたところ、やっと仮登録メールが届きました。
「Yahooメール」以外ではどこがOKなのでしょうか？

しかし、「Yahooメール」を推奨とはIDを持っていない方はどうすればいいのでしょうか...

後このアプリですが、非常に使い勝手が悪いです。

・最初の新規登録の場所が分かりにくい。
・最初の登録画面で都道府県の入力で「福井県」デフォルトになっていない。
・アプリのログイン後が本当にログインしているかの表示が無い。


やっている施策は良いのですから、もう少し、使い勝手が良いと有難いのですが。

最近昔のソフトの改修で触ったのですが【ActiveReports 2.0J】(これ結構古いですが)を使って 2個のレポートを1個に合体させて1個のレポートにする要請がありました。

ActiveReports 2.0J も古いですが、BASICもVisualBasic6.0(SP-5)なのでこちらもかなりなものです。
そこでネットに転がっているかなと思ったので調べたら、以下の様な方法で出来るようです。


以下にソースでは ActiveReports1 と ActiveReports2 と宣言したアクティブレポートが存在するものとし、 ActiveReports1 の後ろに ActiveReports21 のレポートを追加することを想定しています。 また、2個のアクティブレポートとも紙の大きさは同じものとします。
Dim i As Integer 'レポートオブジェクトの生成 Dim rpt1 As New ActiveReports1 Dim rpt2 As New ActiveReports2 'レポート1の実行 'rpt1.DataControl1.Source = "SELECT ..." 'rpt1.DataControl1.ConnectionString = "Provider=SQLOLEDB;Data Source=XXX;Initial CatalogYYYY;User Id=ZZZ;Password=zzzz;" rpt1.Run False 'レポート2の実行 'rpt1.DataControl1.Source = "SELECT ..." 'rpt1.DataControl1.ConnectionString = "Provider=SQLOLEDB;Data Source=XXX;Initial CatalogYYYY;User Id=ZZZ;Password=zzzz;" rpt2.Run False 'レポートの追加 For i = 0 To rpt2.Pages.Count - 1 rpt1.Pages.Insert rpt1.Pages.Count, rpt2.Pages(i) Next i '印刷の設定 rpt1.Printer.FromPage = 1 rpt1.Printer.ToPage = rpt1.Pages.Count rpt1.Printer.MaxPage = rpt1.Pages.Count 'ページコミット rpt1.Pages.Commit 'レポートやビューワは最新のPagesコレクションで満たされます。 '印刷の実行 rpt1.PrintReport False
尚、各レポートの DataControl1 はデータベースへのアクセスがある場合の例です。

最近「ゆうちょ銀行」からのメール案内で「ゆうちょダイレクト」における、 ゆうちょ銀行(自行)宛の振替手数料が値引される件が案内されていました。
尚、そのメールからの引用ですが以下の通りです。

=============================================
●ゆうちょダイレクトを利用したゆうちょ銀行あて振替（電信振替）の料金
（3月31日まで）月5回まで無料、月6回目以降115円
（4月01日から）月5回まで無料、月6回目以降100円
=============================================


それで「ゆうちょダイレクト」のサイトで確認してみました。 「ゆうちょダイレクト」からの振替手数料は値下げですが、 ゆうちょATMでの月1回の振替手数料の無料が無くなり、件数に関わらず100円掛かります。
3月31日までは月1回が無料で、2件目以降125円掛かっていました。 一月に何件も振込をする人はいないと思いますので、月1回が無料でなくなるのは痛いですよね。

100円払うのもしゃくなので、ここは「ゆうちょダイレクト」にするしかないですね。 私しは数年前から「ゆうちょダイレクト」にしていますし、また最近、通帳もいらない様にしました。


「ゆうちょ銀行」もですが他の銀行も低金利時代なのでどこの銀行も苦しい為、 取れるところから手数料を取ろうとしている様です。 今回のATMの手数料の件は、明らかにATMの数を減らす方向に持って行っている様です。

このまま進んでいくとどうなるのでしょうか？ そのうち自分のお金を引き出すために手数料を取られるのでしょうか。 その為に電子マネーを推進しているのだとは思いますが、どうしたものでしょう。

Windows10で FTP.EXE を起動して外部のＦＴＰサーバに接続してみたのですが、 ログインは出来るのですが、ファイルの一覧を取得する LSコマンド を行ってみると ハングアップ。

「200 PORT Command successful」が表示されたまま、ハングアップしたかのようでしばらくたってエラーが返ってきた。
「425 Unable to build data connection: Connection timed out」

Windows10でファイアウオールのポート設定などをいろいろやったのですが、 解決しませんでした。 それで、フリーソフトの FFFTP で試しにと思ってやってみたところ、 何も問題無く接続でき、ファイル一覧が表示されました。

何が原因か分からなかったのですが、どうもパッシブモード(PASV)で処理するとできる様なのです。 FFFTP では「PASVモードを使う」がデフォルトでチェックされていました。

FTP.EXE ではパッシブモードではできない様なので、今回の様な現象が出ている場合は FFFTP 等のパッシブモード設定ができるソフトで実行してはどうでしょうか。

余談ですが、VB.NET のプログラムでFTP処理を行う場合にも、 パッシブモードのフラグがありますのでそれをTrueにして行う様です。

企業向けIT製品／キーマンズネット

この件ですが、「J-Castニュース」をみて面白いなと思って、熊本電鉄のホームページを見てみました。 熊本電鉄の募集のページの中で、求人条件のひとつとして「簡単なパソコン操作」ができることをあげているようですが、 その条件の書き方が「簡単なパソコン操作（右クリック等の意味が分かる程度）が出来る方」 と募集要項の資格欄に載っています。

まあ、確かに「右クリック」を理解していれば、パソコンでコピペ等をやったことがある人で、 少なからず、パソコンは使えるのではないかと思えます。 しかし、「右クリック等の意味が分かる程度」とは面白い表現だなと感じました。

私の仕事であるソフト開発の場合でも同じようなことを経験してきました。 「プログラミングができる」「ソフトが作れる」と言っても、それぞれ人によって千差万別です。 パソコン上のプログラムにしたところで、会社の業務ソフトの開発だったり、 制御機器の管理業務だったり、WEB系であれば内容が全然ちがってきます。

「できる」という内容がそれぞれのしてきた仕事の内容で異なってきます。 そのため「プログラミングができる」からと言っても、それぞれの仕事の現場では使えるかどうかは やってみなければ分かりません。 プログラマーに要求されるスキルはいろいろありますので、 それぞれの仕事に関する必要な人を募集する時には、なかなか難しいものです。

この熊本電鉄に倣って、プログラマの場合なら「オブジェクト、クラス等の意味が分かる程度」 の様な感じでしょうか？
しかし、プログラマはプログラミングができるだけでは仕事になりません。 データベースの知識、WEBに関する知識、拾い上げれば切がありません。 これを読んでいる方で、プログラマになりたいなと思っている方は、 ちょっと尻込みしているかもしれませんが、いろんなことは順次仕事の上で 覚えていくものですので、気にされずに目指してください。

最後に、プログラマの募集であれば、「データベース等の意味が理解出て説明できる程度」 の様な感じでしょうか。

リクナビNEXT

Yahoo！のポイント、Tポイントですが、いろんなことで少しずつたまっていきます。
Yahooショッピングで何か買おうと思っても、数百ポイント（1000ポイント未満）のもので買えるものもあまりありません。 送料も結構かかるので、なおさらです。

そこで、ポイントの解消方法ですが、ヤフオクで切手が出品されていますのでこれに入札します。 送料も０円のものがあったり、62円～82円が多いようですが。

私自身、郵便物を割と出しますので、切手があれば重宝します。
以下にヤフオクのリンクを貼っておきます。

アンティーク、コレクションの「ポイント+消化+切手」指定リンク


郵便物を多く出す方は、一度ヤフオクで解消してみては如何でしょうか。

冬の季節、朝のパソコンの机が冷たくて手が冷えてつらい。
指が冷たくなると、テンションが下がってキーボードを叩くにも作業効率が落ちて、 プログラミングもやる気が失せていきます。

机の冷たさをカバーするものがないかとネットで調べたのですが、 知らなかったのですが、パソコン用の大型マウスパッドがあるのですね。
（以下の様な商品です。）

超特大 マウスパッド 【マウスパッド】 マウスを広く操作できるビッグサイズ 超大型マウスパッド『800mm×500mm』サイズ パソコン PC 面積 広い 大きい でかい デスク 机 価格： 1,499円 （2018/01/11 20:49時点 ）

でも結構高いし、頼むのも面倒くさいなと思っていました。

ふと、パソコンの机が冷えて辛いと妻に言ったところ
「こんなのがあるけど使える？」
と出してきたのが、食器棚に敷いているクロスです。

自宅の食器棚の中に敷いて、食器が滑らない様にするクロスです。 クロスなので、厚さは薄いですが、実際に机に敷いてみたら結構冷たさが防げました。 敷くだけでクロス自体は動かないし、厚さがないので、違和感がありません。

家の備品なのでこれでお金を使わずにすみました。

東和産業 食器棚クロススタイル ナチュラルホワイト 価格： 792円 （2018/01/11 20:39時点 ）

BHT-BASICのシステムで処理の実行を行うかどうかを、 [BS／C][ENT]キーで処理を行っているのですが、 もちろん[BS／C]キーは処理中断で、[ENT]キーは処理続行としています。

処理を中断しようとして[BS／C]キーを押すのですが、中断できない場合があるとの現象が発生しました。

ソース的には以下の様な組み方で、[BS／C][ENT]キーのどちらかのキーのみの反応行う様にしています。

'--------------------------------------- '定数宣言:共通⇒(これは別ファイルにすべき) '--------------------------------------- Global GcTrue% : GcTrue% = -1 Global GcFalse% : GcFalse% = 0 Global GcKeyENT$ : GcKeyENT$ = Chr$(&H0d) Global GcKeyBS$ : GcKeyBS$ = Chr$(&H08) Global GcKeyC$ : GcKeyC$ = Chr$(&H18) '--------------------------------------- '処理の続行のYES/NO入力関数 '--------------------------------------- 'Function GsKeyTest% '戻り値: ' GsKeyTest% :続行OK(GcTrue%),NG(GcFalse%) '--------------------------------------- Function GsKeyTest% GsKeyTest% = GcFalse% 'エラー処理宣言 On Error Goto GsKeyTest.ErrProc Private intLoop%, intRet%, strBuff$ Print "GsKeyTestの実行" Print "[ENT]開始 [BS／C]中止" intLoop% = GcTrue% While intLoop% = GcTrue% '--- キー取得 Wait 0, &h01 'キー入力待ち strBuff$ = Input$(1) '入力されたキーを取得して戻す。 intRet% = ASC(strBuff$) Select strBuff$ Case GcKeyENT$ '開始 Print "処理中…" GsKeyTest% = GcTrue% intLoop% = GcFalse% Case GcKeyBS$ '中止 Print "...中止" intLoop% = GcFalse% End Select WEnd GsKeyTest.Return '関数戻り On Error Goto 0 Exit Function 'エラー処理 GsKeyTest.ErrProc Resume GsKeyTest.Return End Function '----- '実行はここから処理 '----- Main SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 DIM nRet% nRet% = GsKeyTest% If nRet% = GcTrue% Then Call GsPrintFull("処理戻り") Else Call GsPrintFull("中断戻り") Endif WAIT 0, &H1 END
DENSOさんのサンプルプログラムを見ても、 処理の中断の判定は「バックスペース(&H08)」のみで処理しているので、 深く考えずに「BS」のみで中断処理をしていました。

しかし、たまに「BS」が利かない場合があるとのことで、 バグの連絡を受けたので、少し調べてみました。 なんと、「BHT1300_Programmers_Manual_J1.pdf」にはちゃんと説明がされていました。 「付録Ｅキーボードとキー番号」のページからの引用ですが、以下の通りです。

==========================
[BS／C] *1 *2

*1 BSはバックスペース(08h）、CRはキャリッジリターン(0Dh）、Cはキャンセル(18h）、SPはスペース(20h)コードを表します。

*2 一定時間(デフォルト500ms)以上長押しでキャンセル(18h)コードを返します。
==========================
[BS／C]キーの長押しだとキャンセル(18h)コードが返ってくるのでした。

そこで、中止の判定をキャンセル(18h)コードでも行う様に変更し、バグを解消しました。

'--------------------------------------- '処理の続行のYES/NO入力関数 '--------------------------------------- 'Function GsKeyTest% '戻り値: ' GsKeyTest% :続行OK(GcTrue%),NG(GcFalse%) '--------------------------------------- Function GsKeyTest% GsKeyTest% = GcFalse% 'エラー処理宣言 On Error Goto GsKeyTest.ErrProc Private intLoop%, intRet%, strBuff$ Print "GsKeyTestの実行" Print "[ENT]開始 [BS/C]中止" intLoop% = GcTrue% While intLoop% = GcTrue% '--- キー取得 Wait 0, &h01 'キー入力待ち strBuff$ = Input$(1) '入力されたキーを取得して戻す。 intRet% = ASC(strBuff$) Select strBuff$ Case GcKeyENT$ '開始 Print "処理中…" GsKeyTest% = GcTrue% intLoop% = GcFalse% Case GcKeyBS$ '中止 Print "...中止" intLoop% = GcFalse% '*** この部分が最初は無かった↓ Case GcKeyC$ '中止2 Print "...中止2" intLoop% = GcFalse% '*** この部分が最初は無かった↑ End Select WEnd GsKeyTest.Return '関数戻り On Error Goto 0 Exit Function 'エラー処理 GsKeyTest.ErrProc Resume GsKeyTest.Return End Function

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

最近、VisualBasic6.0（VB6.0）で動作しているシステムをWindows10に載せる物件が発生しました。 VB6.0といえば、15年ぐらい前からの古い開発環境です。
昔はVB6で結構システムを作成したものですが、大部分は「.NET」への移行が終わっています。

ただし、VB6で作られていてもシステムのプログラム本数が多い場合には「.NET」への移行には 大変な費用が掛かってしまいます。

そのため、客先ではそのままのソースでWindows10に載せ替えができないかということになります。 お客にしてみれば、以前と同じ動作をさせたい場合には「.NET」への移行は必要ないことになります。 VB6で作成したEXEがそのままWindows10で動作すれば何も問題無いことになります。

そこでWindows10へのVB6のインストールを行い、使用しているコントロールの検証を行うことになりました。 先ずはVB6のインストールなのですが、以下の様に少し引っ掛かった部分がありましたので、注意が必要です。

• VB6の「SETUP.EXE」を「管理者として実行」で起動します。
• インストールの手順に従って進めていきます。
• しかし、最後のところで「システム設定を更新しています」で止まってしまいました。

　（いくら待ってもインストールは終了しません）

• インストールを強制終了し、再度インストール開始します。
• 再度のインストールでも最後の「システム設定を更新しています」で時間が掛かっている模様でした。
• 仕方なく再度のインストールで、カスタム設定のところの「データアクセス」をOFF設定でインストールがOKになりました。
• 更に「VB6.0 Service Pack 6」をインストールします。

（今回のシステムのデータベースはOracleなので、アクセス用には「oo4o」を使うので、 VBの「データアクセス」は特に必要ありませんでした）


さらに使用している市販のコントロール類の検証です。 GrapeCityによれば SPREAD7.0J  ActiveReport2.0 はWindows10での動作は補償対象外ですが 動作させてみると特に問題無く動く様です。

あと、 ActiveComm 1.0 の検証も行いましたが、特に問題無く動作する様です。 RS232Cポートを持っているWindows10のPCと、WindowsXPのPCとをクロスケーブルで接続し、 データの送受信が行えることを確認しました。

これらのコントロールは、GrapeCityでは動作を保証していないので、 自己責任 となりますが。



次のシステム改変時期には、VB6から「.NET」への移行が必要になるかと思います。
その時には、「.NET」から別の物になっていたりして…

中古パソコン 【Windows7】 [T14B] 東芝 dynabook R731/B Core i5 2520M 2.5GHz 2GB 250GB 13.3ワイド DVD Multi Win7 Pro 【中古ノートパソコン】【ノートパソコン】【PC】【アウトレット】【中古】【1ヶ月保証】【RCP】【おすすめ】 価格： 20,800円 （2016/11/24 11:57時点 ） 感想：1件

ASP.NETでグローバル変数を使う場合には、注意が必要です。 ASPは1個のプロセスとして動作するため、グローバル変数として宣言された変数は1カ所にしか存在しません。

そのため、複数のユーザから同時にアクセスが在った場合、そのグローバル変数を上書きする様な ことがあれば、問題が発生します。

この問題を解決するためには、 ThreadStatic を用いて、 その変数をスレッドで静的と宣言すれば、各ユーザ毎には別のグローバル変数が対応付けられます。
'--------------------------------------- 'グローバルモジュール '--------------------------------------- Public Module GlobalModule <ThreadStatic()> _ Public TestVar As String 'グローバルな文字列 End Module
ASP.NETではアクセスが在ったときには、スレッドを生成し、 使い終わった時にはそれを廃棄せずにプールする様です。 次のアクセス時にはプールされたものが使われる可能性があるので、 上記のグローバル変数を使う前には必ず初期化が必要だと思います。