nsytyu50のプロフィール

こちらは現在実施中の 「今だから互い助け合い！キャンペーン http://project.okwave.jp/202007_12campaign/ 」 第3弾 9月1日～9月30日の企画、OKWAVEからの質問9月1日分です。 ▼質問 ーーーーーーーー 現在キャンペーンの景品はAmazonギフト券となっていますが他にもらえるとしたら何がいいですか？ 数字でお答えください。複数選択可能です。 (1)PayPal (2)「PayPay」「LINE Pay」「d払い」「楽天ペイ」など (3)Amazonギフト券でよい (4)その他（フリーワード） ーーーーーーーー 皆さんからのたくさんのご回答お待ちしています！ ※質問は9/1(火)、9/10(木)、9/23(水)にokwstf01というアカウント名でアンケートカテゴリに合計3件投稿します。 ※当質問は、OKWAVEのオフィシャル企画として通常とは異なる主旨で投稿しています。 ※ベストアンサーは選定いたしませんので予めご了承ください。

DELLのデスクトップPCにて　立ち上げたとき　すぐに次のエラー表示が出ます。 　Drive　4　not found: Parallel ATA, PATA-0(PRI IED Master) Strike the F1 key to continue,F2 to ran the setup utility F1キーにて、スタート画面になるので、そのまま使用していますが、直す方法を教えてください、 utilty画面での、設定変更で直るのでしょうか？

三菱のシーケンサMELSEC-Qシリーズのシーケンサ「QJ71C24N」にエクセルVBAで 通信したいと考えています。なかなかうまくいかず、困り果てています・・・。 下記、進めてきた経緯と組んだプログラムを書きます。 どこがおかしいか、どなたか教えてください・・・ ■ゴール シーケンサ内部のM300という変数に格納されている値を、VBAで作成した テキストボックスに表示させたい。 １．使用するエクセルのバージョンは2003です。 MSCOMMが入ってなかったため、「vb6sp6rt4.exe」というランタイムを用いて MSCOMMはインストールできました。 ２．以下プログラム Dim R As String Private Sub CommandButton1_Click() Sheets("Sheet1").Select MSComm1.DTREnable = True MSComm1.RTSEnable = True MSComm1.inputLen = 0 'Input プロパティ使用時に、バッファ全体を読み取る。 MSComm1.commport = 1 'これは必要かと考え、テキストにはないが追加。 MSComm1.Settings = "9600,N,8,1" MSComm1.portopen = True MSComm1.inbuffercount = 0 ' 0文字受信するまで待機 MSComm1.output = Chr$(H5) + "F90000FF0004010000D*0010200050" + Chr$(H31) + Chr$(H43) End Sub +でいいのでしょうか？＆というのも見ましたが・・・。 一応下記の通りだと取扱説明書をみながら、進めました。 'chr$(H5)：制御コードENQuiry（問合せ）:ヘッダ 'F900：識別番号＋フレーム＋局番号 '00FF：ネットワーク番号＋PC番号 '00：自局番号 '0401：コマンド(一括読み出し) '0000：サブコマンド(モニタ条件指定無し、デバイスメモリ拡張指定無し) 'D*：デバイスコード '001020:先頭デバイス '50:デバイス点数 ' Chr$(H31) + Chr$(H43):サムチェックコード ↓ここからが、テキストボックスへの表示になりますが・・・。これもうまくいかず。 Private Sub CommandButton2_Click() R = MSComm1.input text1.Text = R text2.Text = Mid$(R, 6, 4) End Sub そして、ポートオープン。これは、エラーが出ず、うまくいったと考えています。 Private Sub Form_Load() Sheets("Sheet1").Select MSComm1.DTREnable = True MSComm1.RTSEnable = True MSComm1.inputLen = 0 'Input プロパティ使用時に、バッファ全体を読み取る。 MSComm1.commport = 1 'これは必要かと考え、テキストにはないが追加。 MSComm1.Settings = "9600,N,8,1" MSComm1.portopen = True End Sub そして、ポートクローズ。こちらも、エラーが出ず、うまくいったと考えています。 Private Sub CommandButton3_Click() MSComm1.portopen = False End Sub 最大の問題は、しっかりとコードが送信できているのかというところです。 解らないところも多々あるため不明な点も多いですが、なにとぞ、教えてください。