C# と VB.NET の質問掲示板

■No44893 (1323 さん) に返信

> If (InpB(&H378 = 512)) Then

         ↓
  If (InpB(&H378) = 512) Then

とか？

■No44893 (1323 さん) に返信
> プリンタポートの９ピン目をbusyに使いたいと思います。
> 
> そこでもし他のピンの状態に関わらず９ピンに電圧を感じたらビジー状態であるというプログラムはどうしたらいいでしょうか？
>  
>  
> 以下のように自分でつくってみたんですが
>  
> 
>         If (InpB(&H378 = 512)) Then
>              i = 0
>             While (i < 10000000)
>                  OutB(&H378, 1)
>                  OutB(&H378, 0)
>                 i = i + 1
>             End While
>         Else
>            '別の処理
>         End If
>  
> ９ピンに電圧がきていてもきていなくても繰り返しの部分を行ってしまいます。
> 
> 何か入力設定など必要なことがあるのでしょうか？
> 
> 入力を受けるプログラム、ifの中身の書き方とかアドバイスあればお願いします。

回答の前に、とりあえずいくつか。

(1) ソースコードを載せるときは、投稿モードに「図表モード (ソースコードを貼る場合はこちらを使用)」というのを選びましょう。
(2) 分類は「.NET 全般」ではないですよね。たぶん「VB6 以前」だと思いますが、回答をもらうためには正しい分類にしましょう。
(3) Webサイトに入力したサイトは、そのサイトを参考にしたということですよね？本文中にちゃんと書いた方がいいかと思います。

それをふまえた上で。

>         If (InpB(&H378 = 512)) Then

ここが

>         If (InpB(&H378) And &H80) <> 0 Then

なんじゃないかしらん？と思いますが、どうでしょう。
まずはビット演算について調べた方がいいかもですね。

>>If (InpB(&H378 = 512)) Then
> 
>          ↓
>   If (InpB(&H378) = 512) Then
> 
> とか？

しまった。。。
「=」 のわけないですね。「&」だっけ？「AND」？？

■No44924 (1323 さん) に返信
>  .SHOさん　 ぽぴ王子さん　へ
> 
> そのプログラムでやったけどできませんでした。
> ありがとうございます。

「できませんでした」だけでは「どういう風にできなかったのか」がわかりません。
回答を求めているのであれば、キチンと書きましょう。
最初の投稿もそうですが、説明不足ですよ。

>  オショウさん　へ
> 
> OSはxpです。
> 
> .netを使っています。
> 
> DLLを読み込んでI/Oを操作しようというものです。

参考にした（と思われる）サイトで紹介されていた「VBIOSCM」を使ったということですか？
あれはVB6用で.NET用ではないと思いますが……
# なので「VB6の間違いでは？」と指摘しました

OutBというメソッドは.NET標準のライブラリにはないはずなので、おそらくなんらかの
「DLLを読み込んでI/Oを操作」しているのだと思いますが、それが何かを書いていただかないと
わからないのです。回答者はエスパーではありません。

> パソコンからプリンタポートを介してマイコンを制御しようということをしたいと思っています。
> 
> そこでマイコンからの信号をパソコンが受け取る作業が必要になりました。
> 
> だから"9ピンに電圧が来たら"というプログラムがほしいというわけです。
> 
> そしてそれを感じたらパソコンから出力命令（outB）を出すという構成になっています。

個人的には774RRさんの発言をよく読んでみた方がいいと思います。
どうもビット演算どころか、その前になにかいろいろと勉強しなければいけないところが
あるように思います。
私も方向転換に一票追加しておきます。