VB6,VB.NET,C#何でも掲示板。

ホームページに対する感想、意見やVB6,VB.NET,C#に関する質問など、
お気軽にどうぞ。

	[ 板情報 \| コンピュータ ]

スレッド作成：

1 : あめぞうのことを知ってほしいです(1) / 2 : SerialPort1_DataReceived　エラーについて(5) / 3 : PICのプログラムについて(27) / 4 : RS232Cでバイナリファイルの終わりの検出について(21) / 5 : 「C#、VB2005 でSocket通信」について(24) / 6 : SerialPort.Readについて(15) / 7 : C#、Vb2005 でSocket通信(2) / 8 : C#、Vb2005 でSocket通信(5) / 9 : VBの実力に驚きました。(2) / 10 : ねこの行動について(2) / 11 : VB2010でRS232C.(8) / 12 : C#、Vb2005 でSocket通信(15) / 13 : 「RS-232C 送信モジュールの作成」について(8) / 14 : ＶＢ６でＩｎｅｔを使いサーバにファイルを書き込みたい(13) / 15 : Socketサーバの複数ポート機動(9) / 16 : VB2005のSocket通信サーバーの複数クライアントについて(21) / 17 : VB2005　Muduleについて(7) / 18 : 「RS-232C　Hex表示モニタ」(6) / 19 : VB2005のSocket通信の複数クライアントの非同期処理(11) / 20 : デリゲートについて（VB2005)(21)

21 : ユーザーコントロールを使う時のプログラム構成(8) / 22 : 通信サーバーの複数クライアントの非同期処理について(お礼)(5) / 23 : ＶＢ．ＮＥＴでＲＳ２３２Ｃ、ありがとうございます。(6) / 24 : VB2005でDelay（Wait)タイマーを作るには(19) / 25 : ユーザ定義関数の不具合(16) / 26 : 画像処理(6) / 27 : VB2005のSocket通信の複数クライアントの非同期処理(12) / 28 : ソフト画面のクリア(6) / 29 : VB2005　グラフについて(3) / 30 : ＴＩＦＦの圧縮形式を調べる(1) / 31 : コントロールモジュールでのデータ継承(4) / 32 : RS-232C Hex表示モニタの作成(3) / 33 : プロパティの使い方について(7) / 34 : RS-232CでPIC操作(7) / 35 : HTML忠太(3) / 36 : テキストボックスやボタンの3D表示ができない(6) / 37 : USBでデバイス制御することについて(4) / 38 : RS232Cで計測器との通信のシーケンスについて(3) / 39 : AVIファイルの再生(5) / 40 : RS232Cで計測器への要求の仕方(5) / 41 : 「C#、VB2005 でSocket通信」について(9) / 42 : コントロールの配列(5) / 43 : デバイス操作のレジスタの管理方法について(2) / 44 : RS232での切断処理について(3) / 45 : EmuKeyについて(4) / 46 : USB-IOでモーターを回転させるため(6) / 47 : 「C#、VB2005 でSocket通信」のプロジェクトのDLについて(3) / 48 : FTP忠太について(2) / 49 : デリゲート入門のサンプルコードで質問(3) / 50 : VB.NETとC#どちらが良いか(2) / 51 : 掲示板を作成しました(2) (全部で51のスレッドがあります)

掲示板の使い方 / 新着をメールで受信 / 過去ログ倉庫 / スレッド一覧 / リロード

▲1▼ あめぞうのことを知ってほしいです (Res:1)

All First100 Last50 SubjectList ReLoad ▲1▼

1 ：a ：2021/03/11(木) 05:17:21: 下のURLにあめぞうの情報がありますのでそれを見て知ってください
あめぞうさんという方のためにもどうかお願いします
ttp://resistance333.web.fc2.com/newpage1.htm
ttp://tiyu.to/1ch_08.html

↓私の掲示板です
ttps://9207.teacup.com/aaaa/bbs
ttp://jbbs.shitaraba.net/internet/25518/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲2▼ SerialPort1_DataReceived　エラーについて (Res:5)

All First100 Last50 SubjectList ReLoad ▲2▼

1 ：名無しさん ：2020/07/02(木) 15:37:02: お世話になります。

vb2008でサンプルプログラムそのままでR232Cの受信処理を行っています。
文字列をデリゲートとInvokeを使用して、メインスレッドのテキストボックスに書き込む。
Me.Invoke(New dlgAddText(AddressOf AddText), New Object() {uniString})
のところで　”入力文字列の形式が正しくありません。”とエラーになります。
受信文字列は"2930,1732,1"と読むことができます。

何処に原因があるかご指導をお願い致します。
2 ：igoten ：2020/07/03(金) 09:33:48: New Object() {uniString}
書き込む文字列が指定されていない気がしますが。
3 ：名無しさん ：2020/07/05(日) 09:23:42: igoten 様
回答ありがとうございます。
原因箇所がわかりました。受信文字をテキストに代入する
Private Sub AddText(ByVal strGetText As String)
TextBox3.Text=strGetText
*****************
End Sub
受信後の処理を******この部分に記述するとエラーになり、テキストボックスのみ
ではエラーが起こりません。とりあえずテキストボックスのTextChangedに処理を書き込む
ようにしました。何か影響しているのでしょうか、
4 ：igoten ：2020/07/06(月) 08:29:20: >>受信後の処理を******この部分に記述するとエラーになり
どんなコードなのか分からないと何とも...
5 ：名無しさん ：2020/07/08(水) 22:14:09: igoten 様
　お世話になります。
　機器より縦、横位置をPCに返してくるので受信後の結果判定の為、
　Functionｺｰﾄﾞにゆくようにしていました。　明日、もう一度、エラーを
　起こして、確認します。

全部読む最新50 1-100 メール受信掲示板トップリロード

▲3▼ PICのプログラムについて (Res:27)

All First100 Last50 SubjectList ReLoad ▲3▼

1 ：よさく ：2013/02/28(木) 10:08:20: igotenさん、ご返事ありがとうございます。
内容はメールにて連絡の通り、PIC12F683で２入力ＶＲと1出力で
ＰＷＭ調光と点滅周期を行いたいと思っています。
統合した時にうまく動作しないので、ご相談させて頂きたいと思いました。
お手数をお掛けしますが、宜しくお願いします。以下内容貼り付けます。

// LED 点滅調光プログラム
// PIC 12F683 LED 点滅,調光プログラム
// タイマー割り込みを使用せず、ディレータイムを使用する。
//
// A/D 入力ポート： GP0,1
// LED 出力ポート： GP2
//
// HI-TECH C Compiler for PIC10/12/16 MCUs (Lite Mode) V9.83
//

#define _LEGACY_HEADERS
#include <htc.h>
#define _XTAL_FREQ 4000000
//delay タイムを使うので、動作周波数 4Mhzにセットする。

__CONFIG ( INTIO & WDTDIS & PWRTEN & MCLRDIS );

void tenmetu_timer ( unsigned char tm ) { // 点滅時間 Time = 200ms * (A/D 変換データ)
while ( tm-- ) {
__delay_ms (200);
}
}
unsigned int value; //A/D　読値　１０ビット
unsigned int adc_read(unsigned char ch){
//右詰め、電源基準、A/D有効化　
ADCON0 = 0b10000101 ; //GP1
GODONE = 1;
while(GODONE);
return ((ADRESH << 8) + ADRESL) ;
}
main () {

ANSEL = 0b00010011; // ADCS:8 Tosc, ANS3=0, ANS2=0, ANS1=1, ANS0=1
TRISIO = 0b00000011; // I/O ポート GP0,1:input, GP2,3,4,5:output
GPIO = 0;

unsigned int value; //A/D　読値　１０ビット
unsigned char count;

while(1){

if(count == 255)
value = (adc_read(3)) >> 2; // A/Dの読み込み

if(count < value)
GPIO2 = 1;
else
GPIO2 = 0;

count++;
}//ここまで調光

ADCON0 = 0b00000001; // GP0
GPIO = 0;

int i;

for(i=0; i<=1; ++i){
__delay_us (25); // A/D 充電待ち
GODONE = 1; // A/D 変換開始
while(1){
if ( !GODONE ) {
GPIO2 = 1; // LED 点灯
tenmetu_timer ( ADRESH );

GPIO2 = 0; // LED 消灯
tenmetu_timer ( ADRESH );

break;
}
}
}
while(1){
GPIO2 = 1; // LED 点灯
}

}//ここまで点滅周期（仮にＯＮ／ＯＦＦ2回その後ＯＮで終了）
7 ：igoten ：2013/02/28(木) 13:56:58: 点滅もさせたいと言うことですか。
点滅の周期はどの位変化させたいのでしょうか？
8 ：よさく ：2013/02/28(木) 14:06:55: 10ｋΩのＶＲで0.2ms~3mins 位です。
現状点滅周期は大体max.100sくらいにはなっています。
9 ：igoten ：2013/02/28(木) 15:22:07: 色々方法はあると思いますが、割り込みで処理するのが
一番簡単でしょう。
割り込みのルーチンの中で、点滅用のＡＤを読んで、
フラグを立て、そのフラグに従って、調光のルーチンで
出力をＯＮ/OFFさせます。

ＰＩＣのプログラムには割り込みは必須ですから、
挑戦してみるのも良いと思います。
10 ：よさく ：2013/02/28(木) 22:27:13: igotenさん、度々ありがとうございます。
読んでから大分色々自分で考えてみました。
割込みの場合はこの場合内部割込みでいいんですよね？
11 ：igoten ：2013/03/01(金) 07:53:26: タイマー割り込みです。
この場合はTMR0が良いと思います。
12 ：よさく ：2013/03/01(金) 10:40:04: おはようございます。
割込みの時間が永いような気もしますが、何となくで書いて見ました。
宜しくお願いします。
// LED 点滅調光プログラム
// PIC 12F683 LED 点滅,調光プログラム
// タイマー割り込みを使用せず、ディレータイムを使用する。
//
// A/D 入力ポート： GP0,1
// LED 出力ポート： GP2
//
// HI-TECH C Compiler for PIC10/12/16 MCUs (Lite Mode) V9.83
//

#define _LEGACY_HEADERS
#include <htc.h>
#define _XTAL_FREQ 4000000
//delay タイムを使うので、動作周波数 4Mhzにセットする。

__CONFIG ( INTIO & WDTDIS & PWRTEN & MCLRDIS );

void tenmetu_timer ( unsigned char tm ) { // 点滅時間 Time = 200ms * (A/D 変換データ)
while ( tm-- ) {
__delay_ms (200);
}
}
unsigned int counter = 0;
unsigned int value; //A/D　読値　１０ビット
unsigned int adc_read(unsigned char ch){
//右詰め、電源基準、A/D有効化　
ADCON0 = 0b10000101 ; //GP1
（省略されました・・全てを読むにはここを押してください）
13 ：よさく ：2013/03/01(金) 10:56:12: 見直しましたが、これだと１秒毎に点滅動作するってなってますね。
色々すみません。
14 ：よさく ：2013/03/01(金) 12:50:33: 自分自身いまいち内容を理解していないと思ってます。
簡単だと思ってたんですが、ロジックを考えるって難しいですね。
引き出しがない分結構行き詰りました。
15 ：igoten ：2013/03/01(金) 13:51:59: 先ず
mainの外で
char flg = 0;
宣言する。

mainの初めで
//タイマを20msecに設定
TMR0 = 0x64; //１００を設定
OPTION = 0x07; //内部クロック, 1/256
　　T0IE = 1;//タイマー０割り込み許可
　　GIE = 1;//全体割り込み許可

タイマー０を20msecに設定する

更に
if((count < value) && (flg == 1) )
GPIO2 = 1;
else
　 GPIO2 = 0;

として調光と点滅をさせる

割り込みの中は
interrupt timer0()
{
int value;
static char tcount = 0;
ADCON0 = 0x81 + (0 << 2 ); //ADチャンネル選択
__delay_us (25);
（省略されました・・全てを読むにはここを押してください）
16 ：よさく ：2013/03/02(土) 09:19:04: おはようございます。igotenさん、ソースありがとうございます。
少しずつですが、理解しているつもりです。
ただ、最終的にはまだ？？で書いてますが、これでいいのでしょうか？
一応デバッグは通ってますが、やはりチャンネルの切り替えが理解していません。

//

#define _LEGACY_HEADERS
#include <htc.h>
#define _XTAL_FREQ 4000000
//delay タイムを使うので、動作周波数 4Mhzにセットする。

__CONFIG ( INTIO & WDTDIS & PWRTEN & MCLRDIS );

char flg = 0;

void tenmetu_timer ( unsigned char tm ) { // 点滅時間 Time = 200ms * (A/D 変換データ)
while ( tm-- ) {
__delay_ms (200);
}
}
unsigned int counter = 0;
unsigned int value; //A/D　読値　１０ビット
unsigned int adc_read(unsigned char ch){
//右詰め、電源基準、A/D有効化　
ADCON0 = 0b10000101 ; //GP1
GODONE = 1;
while(GODONE);
return ((ADRESH << 8) + ADRESL) ;
}
（省略されました・・全てを読むにはここを押してください）
17 ：よさく ：2013/03/03(日) 18:11:14: 何度もすみません。色々調べながらやっていますが、flagをどう使っていいのかが想像できなくて、
色々書き込んでは悩んでいます。
一個前のソースは間違いに気付いたので、こういう内容かな？ってことでまた書いてみました。
教えて頂いたので、何とか完成したいと思ってます。
宜しくお願いします。

#define _LEGACY_HEADERS
#include <htc.h>
#define _XTAL_FREQ 4000000
//delay タイムを使うので、動作周波数 4Mhzにセットする。

__CONFIG ( INTIO & WDTDIS & PWRTEN & MCLRDIS );

char flg = 0;

void tenmetu_timer ( unsigned char tm ) { // 点滅時間 Time = 200ms * (A/D 変換データ)
while ( tm-- ) {
__delay_ms (200);
}
}

unsigned int value; //A/D　読値　１０ビット

unsigned int adc_read(unsigned char ch){
//右詰め、電源基準、A/D有効化　
ADCON0 = 0b10000101 ; //GP1
GODONE = 1;
while(GODONE);
return ((ADRESH << 8) + ADRESL) ;
（省略されました・・全てを読むにはここを押してください）
18 ：igoten ：2013/03/04(月) 17:34:21: 申し訳ない。
ただ今出張中ですので回答はもう少し待ってください。
私が書いたソースは割り込みを用いたもので、割り込みの中で
フラグを設定してそれに応じてＬＥＤのＯＮ/ＯＦＦをしています。
19 ：よさく ：2013/03/04(月) 18:02:36: いえいえ、こちらこそ申し訳ないです。
ご面倒をお掛けしているのは私ですので。
ただ、自分自身あまり知識がないので、少し込み入った変更を加えると
？？になってデバッグ通せないので・・
20 ：igoten ：2013/03/11(月) 10:12:03: さてどこから行きましょうか。
私のお勧めは、まず一冊私と同じ参考書を購入してはどうかと言うことです。
技術評論社
「８ピンＰＩＣマイコンの使い方が良くわかる本」
私はbookOffOnLineで買いました。
又は「Ｃ言語で始めるＰＩＣマイコン」　Ohmusha
これなら５００円で売ってます。
私と同じ本があればどこを読めばいいのかアドバイスが
し易いのですが。
いかがでしょうか？
21 ：よさく ：2013/03/11(月) 10:29:41: igotenさん、おはようございます。
実は「ＰＩＣマイコンの基礎」というのは図書館で借りてまして、
それ見ながらやっています。ほぼ「8ピン～」の内容と同じみたいです。
一度は目を通してみようと思っていますが、まだ貸し出し中で。

プログラムの方はあれから色々調べてやっていますが、なかなか・・
デバッグは通るんですけど、思った動作しないので。
困りました（笑
22 ：よさく ：2013/03/20(水) 13:05:35: igotenさん、こんにちわ。
未だに格闘しています（笑
仰っていた「８ピンＰＩＣマイコンの使い方が良くわかる本」
を借りてきて、ざっくり読んでいます。
また、お時間があれば相談に乗ってください。
23 ：igoten ：2013/03/20(水) 13:14:49: 良いですよ。^^
先ずその本の３章「タイマ割り込みの使い方」を
読んで下さい。
出来れば3-4-1の「点滅制御の仕方」をそのままやってみてください。
24 ：＜削除＞ ：＜削除＞: ＜削除＞
25 ：＜削除＞ ：＜削除＞: ＜削除＞
27 ：スーパーコピー日本時計 ：2019/05/15(水) 16:49:20: スーパーコピー - スーパーコピー
※お写真ではわかりにくい点が御座いまし
たらお気軽にお問い合わせくださいませ。
■実物写真、付属品を完備しております。
■迅速、確実にお客様の手元にお届け致します。
■低価格を提供すると共に、品質を絶対保証しております。
■商品の交換と返品ができます。

全部読む最新50 1-100 メール受信掲示板トップリロード

▲4▼ RS232Cでバイナリファイルの終わりの検出について (Res:21)

All First100 Last50 SubjectList ReLoad ▲4▼

1 ：タカミ ：2008/10/24(金) 07:26:22: 初めまして、タカミと申します。
２台のコンピューターでバイナリデータの通信プログラムを作成しています。
データの送受信は出来たのですが、受信データの終わりを検出することが出来ません。
何か良い方法は無いでしょうか。
環境は　VS2005 C#　WIndows xp　です。
宜しくお願いします。
2 ：igoten ：2008/10/24(金) 11:30:34: おお！　記念すべき初めての質問ですね、丁寧に説明しちゃおうかな。

バイナリデータの終わりの検出ですね。
幾つかの考え方があります。
１、通信時間を見て判断する。
２、データ長のヘッダーを付ける。
３、エンドマークを付ける。
４、ピンチェンジを利用する。

１、DataRecievedの中でタイマーを設定し有る時間に次のデータが
来ない場合は、さっきのデータが最後のデータだったんだなと判断する方法です。
送る方で連続でデータを送らない制御が必要になります。
タイマーは500mSec(0.5秒）位に設定すればよいでしょう。
この方法が一番簡単です。

２、あらかじめ送るデータ長がわかっている場合は、４バイト程度の固定のヘッダーに
長さを書き込んで送る方法が有ります。
受信側はこのヘッダーを読み込んでデータの終わりを判断します。
この方法が一番お奨めです。
データの長さを先ず送り、100mSec位してデータを送ると、受信側は
データのByte配列の大きさをあらかじめ設定できますので、受信処理が簡単になります。

３、バイナリデータにエンドマーク！と驚かれるかもしれませんが、出来ます。
「￥￥」などのエスケープキャラクタを思い出して下さい。
２バイト又は４倍とのエンドマークを付けます。
データにエンドマークと同じデータが出現した場合はエスケープで同じマークを重ねます。
受信側ではエンドマークを監視する必要が有ります。
２バイトですと同じデータの出現確立が1/65536になります。
エンドマークは0x0とか0xFF等は止めたほうがいいです。
（省略されました・・全てを読むにはここを押してください）
3 ：タカミ ：2008/10/25(土) 15:59:20: 丁寧な説明ありがとうございます。
２番目の方法に挑戦してみます。
わからないことが有ったらまたお願いします。
4 ：ナカガワ ：2008/11/30(日) 01:19:42: バイナリファイルをコピーしたいのですがファイルの終わりの検出方法がわかりません。
例えばバイナリエディタやＤＯＳ窓のＣＯＰＹコマンド等はどうしているのでしょうね？
ご存じならご教示ください。
5 ：＜削除＞ ：＜削除＞: ＜削除＞
6 ：igoten ：2008/12/01(月) 08:21:28: 基本的にRS-232Cの場合はデータは垂れ流しで、バイナリファイルでの終わりの
検出は出来ません。
エディターやCopyコマンドはあらかじめFileのサイズが判っていますので、終わりの
検出は出来ます。

受送信とも自作の場合お奨めの方法は４バイトのデータ長のヘッダーを付ける方法です。
へーダーと言っても送る側は先ず４バイトのデータを送り、続いてファイルデータを送れば良いのです。
受信側は最初の４バイトは長さのデータと解釈して、受信すれば良い事になります。
7 ：igoten ：2008/12/01(月) 13:48:35: とりあえずタイマーを使用したサンプルです。
ヘッダー方式を推奨してタイマーのサンプルとは少し変ですが.....
受信は0.2秒以上の送信が来なければ自動的に現在のファイルを閉じます。
再び来れば新しいファイルを自動的に作成して書き込みます。
送信側はファイルとファイルの送信時間間隔を0.2秒以上にします。

送信側
http://www.geocities.jp/hatanero/lzh/rs232cfilesendc.lzh
受信側
http://www.geocities.jp/hatanero/lzh/rs232cfilereadc.lzh
8 ：ナカガワ ：2008/12/02(火) 22:17:38: C#のサンプルありがとうございます。
Cの feof(),ferror()にこだわって無駄な時間を費やしていました。
ファイルサイズを見て決める。時間を空ける。
なるほど。。。それしかありませんか。。。
感謝！
10 ：＜削除＞ ：＜削除＞: ＜削除＞
11 ：こじら ：2010/03/05(金) 02:01:39: どうもです。
私も同じRS232Cでバイナリデータの最後も検出に悪戦苦闘しています。
No2で、答えておられる3番の方法でエンドマーク(2byte)で終了にトライ
しています。
　作成しているGUIのボタンを押したとき、機器にコマンドを送り、それに
対しデータが送信され、この送信が全て完了してから表示を行うといった
仕様なのですが
、ボタンを押して、データを数バイト受信するのですが、全データを取るまで
に　データを分割受信しているのか、受信割込みを何度か発生するような感じで、
うまく受信できず、エンドマークを検出することができません。
　途中でハングするか、予期せぬ値が表示されて終了します。

①全データ（エンドマーク）取得後まで表示処理に移らないようにするには
　どのようにすればよいのか
②SerialPort.Read(inByte, 0、ByteToRead）としたとき
　　　inByte.LengthとByteToReadの数値の意味と、関係を教えて頂きたいです。
　　（上記の仕様でReadした時MessageBoxで数値を表示すると、全データを
　　　取得するまでに、発生するReadData割り込み（？）の度にインクリメント
　　　されています。バッファのアドレスポインタでも示しているのでしょうか）
③また、②のinByte.LengthとByteToReadは、GUIのボタンを押す度にも
　　　　インクリメントされていく。
　　　　私のイメージでは、ボタンを押すたびに、クリアされ、データを取得
　　　　（バッファもクリア、０からスタート）と考えていたので。
　　　　データ数や、配列は起動時に作成された値で固定なのでしょうか。
　　　　受信のたびにクリアされるものと思っていたので。
④最後に　上記とは全く別なのですが、受信したバイナリをASCII文字
　に変更したいのですがこれもできれば教えて頂けないでしょうか。
すみませんが、宜しくお願いします。
12 ：igoten ：2010/03/05(金) 08:16:30: １、受信するデータの長さは固定ですか？
固定ならSerialPort1.ReceivedBytesThresholdをその長さに
設定しておくと設定したバイト毎にDataReceivedイベントが発生します。
固定出ない場合は、DataReceivedイベントがいつかかるかは未定ですので
受け取ったデータの中にエンドマークがあるか否かその都度チェックします。

２、第一引数はデータをストアーするバッファです。
　　第二引数は上のバッファのどこから書き込むかのオフセットです。
　　第三引数はその時受け取ったデータの数です。

３、inByte.Lengthは読み込んだデータをストアするバッファの長さです。
　　ByteToReadはSerialPort1.ReceivedBytesThresholdに何も設定していない
　　状態ですと、その時受け取ったデータの数でマシンに依存します。
　　
４、VB.NETでしたよね。
　　TextBox1.Text = Chr(65)　　Ａを表示
13 ：こじら ：2010/03/06(土) 12:18:15: ありがとうございます。
１については固定ではないので、エンドマークを使います。

教えて頂いた内容でトライしてみます。有難うございました。
16 ：＜削除＞ ：＜削除＞: ＜削除＞
20 ：スーパーコピー ：2018/08/25(土) 04:53:43: スーパーコピー
*当店の信用の第一
*商品の品質第一
*在庫情報随時更新!
*新品種類がそろっています。
*品質がよい、価格が低い、実物写真！
*100%品質保証！
*全品送料無料
21 ：スーパーコピーおすすめ店 ：2019/04/14(日) 03:12:26: スーパーは専売店をコピーします
日本の最高級のスーパーマーケットはブランド時計超特便宜通信販売専売店をコピーして、品質よくコピーを表して、2019最も新作、国際ブランドの腕時計はコピーして、業界は唯一ただ2全くありません．世界の1流の高い品質のブランドは時計をコピーして、当店のスーパーは時計専売店をコピーして、以下の世界の1流のブランドを販売して時計をコピーします：ロレックスはコピーして、ウブロはコピーして、オメガはコピーして、シャネルはコピーします...なぜかというと最高な品質のスーパーマーケットはN級の品物をコピーして新作を表して最も商品に新しく着いて、第1を使いを信じて、安心してください、全国の運賃が無料です！
新旧(の程度)の顧客がお願いするのを歓迎します

全部読む最新50 1-100 メール受信掲示板トップリロード

▲5▼ 「C#、VB2005 でSocket通信」について (Res:24)

All First100 Last50 SubjectList ReLoad ▲5▼

1 ：コーヒーブレイク ：2009/02/26(木) 11:06:29: はじめまして、コーヒーブレイクといいます。

VB2005でのSocket通信が理解出来ず、本やらマイクロソフトのマイグレーションTips
やら各HPやらいろいろ見たり自分で試行錯誤したりしたのですが、
いまだ完成しない状態でこちらのサイトを見つけました。

コメントもいっぱい書いていただいているので非常にわかりやすくてほんとうに
ほんとうに助かっています（どこの情報もシングルスレッドでの接続待機で記載
されているものばかりでしたので）。
是非一通り完成させたいと考えているのですが、何点か質問があります。

　質問１．自分でも一からコーディングしつつ勉強もしているのですが、
　　　　　ダウンロードさせていただいたそのままのソースでもデバッグを
　　　　　実行すると終了出来ていないみたいです。
　　　　　うまく終了する手法を教えていただけると助かります。
　　　　　※ちなみにダウンロードしたままの状態でFormClosingの前の
　　　　　　From名のみ修正しています。

　　　　　[手順]
　　　　　　　サーバを選択しStartした後にStopを押して×ボタンを押す。
　　　　　　　あるいはStartした後に×ボタンを押す。

　質問２．最終的には１（サーバ）対ｎ（クライアント）をやりたいと
　　　　　思っています。
　　　　　どの部分を修正すれば良いでしょうか？

自分なりにやってはみたのですが、完全に手詰まりになってしまった
ので書かせていただきました。
お手数おかけして申し訳ないのですが、回答よろしくお願いいたします。
5 ：igoten ：2009/02/27(金) 09:01:43: 私が見たのはこの本でした
「プログラミングC# 第5版」
http://www.oreilly.co.jp/books/9784873113968/
ここの「複数コネクションの扱い」と言う箇所です。
ここに非常に良く書かれています。
私も時間が有れば作って見たいと思うのですが。
ソースはここからダウンロード出来
http://www.oreilly.co.jp/books/4873112648
「AsynchNetworkServer」
の項目が「複数コネクションの扱い」のサンプルコードとなっています。
6 ：コーヒーブレイク ：2009/02/27(金) 10:49:13: igotenさんへ

>CloseServer()メソドの先頭に
>listener.Stop()
>の一行を入れて下さい。

下記コードをcloseServerの中の先頭に入れてみました。
If listener IsNot Nothing Then
listener.Stop()
End If

そうすると例外エラーが処理出来ていないようでしたので
ServerListen全体を下記コードでくくる形にしてみました。
Try
Catch e As ThreadAbortException
Return
Catch ex As Exception
Return
End Try

結果イミディエイトウィンドウに下記内容が表示されますが
Catch e As ThreadAbortExceptionのReturnを通って終了しているようです。

'System.Threading.ThreadAbortException' の初回例外が System.dll で発生しました。
'System.Threading.ThreadAbortException' の初回例外が WinsocVb.exe で発生しました。

こんな感じですが、あっていますでしょうか？

「AsynchNetworkServer」
（省略されました・・全てを読むにはここを押してください）
7 ：igoten ：2009/02/27(金) 14:29:24: 終了は結構厄介ですね。
TcpListener のCloseまで時間がかかる為、一度閉じたスレッドが
再び立ち上がってしまう感じですかね。

'//サーバーのクローズ
Private Sub CloseServer()
listener.Stop()
listener = Nothing
この２行を入れて

Private Sub ServerListen()
If server Is Nothing Then
Return
End If
この処理の頭で listenerが無い場合は強制的に排除したら
良いと思われます。
コーヒーブレイクさんのコードでも良いと思いますが、上のコードだとエラーが
報告されません。

「AsynchNetworkServer」
VB2005でしたね、非同期処理に関しては興味が有りますので
時間が空いた時に試して出来ればコードをUpします。
8 ：コーヒーブレイク ：2009/02/27(金) 15:36:34: igotenさんへ
　　教えていただいたコードを追加したところ見事にエラーもなく終了出来ました。
　　エラーが出るより出ない方が絶対良いですね。

>VB2005でしたね、非同期処理に関しては興味が有りますので
>時間が空いた時に試して出来ればコードをUpします。
期待しています。
自分でも教えていただいたコードをベースに試行錯誤してみたいと思います。

こんなド素人に最後まで丁寧におつきあいいただけたこと、ほんとうに
感謝しています。
他のコンテンツも非常に魅力的なものばかりで時間があれば随時見ていきたい
と思っています。
socketの非同期も含め、また何かありましたら今後ともよろしくお願い
いたします。
ほんとうにありがとうございました。　m(_ _)m
9 ：igoten ：2009/03/12(木) 18:04:56: とりあえず複数接続非同期のプログラムは出来ましたのでUpしました。
不具合が有ると思いますが追々詰めていきます。
http://www.geocities.jp/hatanero/socket2.html
10 ：コーヒーブレイク ：2009/03/16(月) 19:18:07: igotenさん、先日はお世話になりました。

複数接続非同期のアップお疲れ様です。
じっくり腰を据えて読ませていただこうと思ってます。
11 ：いくいく ：2009/04/24(金) 02:02:11: 複数接続非同期のソース拝見しました。
NetworkStream.BeginRead
のコールバックメソッドは、非同期ＩＯ用の別スレッド上で、
読み込みが開始した時点で呼ばれるのでは？
12 ：igoten ：2009/04/24(金) 08:34:01: NetworkStream.BeginReadのコールバックメソッドはBeginRead の完了時に実行されます。
http://msdn.microsoft.com/ja-jp/library/system.net.sockets.networkstream.beginread(VS.80).aspx

問題はNetworkStream.BeginReadの完了時は何時かということですが、
「非同期ＩＯ用の別スレッド上で、読み込みが開始した時点で呼ばれるのでは？」
でないことだけは確かです。
読み込みを開始した時点、読み込みが開始された時点？
があるパケットを受信した時点ということであればそうかもしれません。

私の説明は本文の方は「受信が終了すると」となっていて、コードの中の説明は「読み込み完了時」と
なっています。
あるパケットの受信が終了した時点、あるパケットの読み込みが完了した時と言うようなつもりで
書いたのですが、それも正しくないかもしれません。
正しくは「NetworkStreamが読み込み終了と判断した時」といことですか。
掘り下げると、TCP/IPのドライバーが一区切りのデータを受信したとNetworkStreamに報告
した時ということでしょうか。
13 ：いくいく ：2009/04/25(土) 00:01:35: 〇どのスレッドでコールバックが実行されるか

英文のnetworkstream.endreadのページにbeginreadの説明がありますが、
callback method executes in a separate thread and is called by the system after BeginRead returns
とあります。
スレッドのハッシュコードを調べましたが、呼び出し元と違うスレッドでした。
コールバックメソッドという名前なので元のスレッドに戻るような
印象を受けますが、元ではなく別のスレッドだと思います。
サイトの図ではコールバックをサーバー用スレッド上に書かれてましたが、
誤解を招くのではないでしょうか。

〇いつ実行されるか

クライアントが接続してまだデータを送信していない時、
非同期ＩＯ用のスレッドはbeginreadのところで止まって、
コールバックはさらに別スレッドで動いているようです。
非同期ＩＯスレッドはnetworkストリームが利用可能になるかエラーになるまで
ブロックし、コールバック用スレッドはbeginreadの呼び出しが完了した
時点で別スレッドで動きだすということではないでしょうか。
OnReadCompleteというメソッド名はよくないのではないでしょうか。
14 ：igoten ：2009/04/25(土) 11:07:58: 　説明を原文で読むことは良いことですね。(^^
callback method executes in a separate thread and is called by the system after BeginRead retuns
「コールバックメソドは別のスレッドで実行され、BeginReadが戻った時に呼ばれます。」と言うことですね。
クライアントから接続要求があると、メインフォームは新しいClientHandlerのクラスのインスタンスを
作成して、StartRead()を実行する、StartRead()の中身はnetworkStream.BeginRead()でこの処理は
別スレッドで行われ、終了時には引数で渡したcallbackReadが呼ばれる。
callbackReadはClientHandlerクラスのコンストラクタで作成した下のメソドである。
callbackRead = new AsyncCallback(this.OnReadComplete)
>サイトの図ではコールバックをサーバー用スレッド上に書かれてましたが、
図はすべてサーバー上のスレッドです。
概念図に突っ込まれるとちょっとドキドキしますが、この場合は特に不具合は無いと思います。
>非同期ＩＯ用のスレッドはbeginreadのところで止まって、
これはその通りです。
>コールバックはさらに別スレッドで動いているようです。
この意味がわかりません。
>コールバック用スレッドはbeginreadの呼び出しが完了した
>時点で別スレッドで動きだすということではないでしょうか。
すみませんこの意味もわかりません。
>OnReadCompleteというメソッド名はよくないのではないでしょうか
名前ですか^^; 結構適当です、ただしこのOnReadComplete名ですが、最後に書きましたがオライリー・ジャパンの
「プログラミング　C#」と同じ名前にしてます、私にはこんな名前を付けるセンスはありません。
15 ：いくいく ：2009/04/25(土) 13:57:26: 丁寧にお答えいただき、ありがとうございます。
コールバックがさらに別スレッドで動くというのは、
呼び出し元スレッドを[beginread戻り値].waitone()を使ってブロックした際、
コールバックメソッドの終了を待つことができなかったからです。
呼び出し元と、非同期ＩＯと、コールバックはすべて別の
スレッドなのかなあと疑問を持ちました。

コールバックの動き出すタイミングについては、igotenさんの
おっしゃった
「TCP/IPのドライバーが一区切りのデータを受信したとNetworkStreamに報告
した時」というのどうやって確認すればいいのかわからなかったのですが、
そちらのほうが正しいと思います。
ということは、その時点が原文のいうafter BeginRead returns
なのでしょうか。混乱してしまってすみません。
16 ：igoten ：2009/04/25(土) 15:37:44: コールバックから呼ばれるOnReadCompleteメソドはクライアントが接続してきた時に
作成したクライアント毎のClientHandlerクラスのインスタンスで、これはメインスレッドとは別の
a separate thread です。
これを呼び出すメソドは上記のClientHandlerクラスのインスタンスのStartReadで作成された
別のスレッドですね。
正確に言うと、「is called by the system」という事なので、systemが呼び出すのでしょう。
WaitOne(Mutex)に関しては試してないのでわかりません。

>...一区切りのデータを受信したと...
これは私の勝手な想像で正確なところはわかりません。

>その時点が原文のいうafter BeginRead returnsなのでしょうか
そのとおりだと思います。
after BeginRead returnsの時にcallbackRead = new AsyncCallback(this.OnReadComplete)
で登録されたOnReadCompleteのアドレスがis called されるという事でしょう。
17 ：バーバリーバッグ一覧 ：2012/11/01(木) 00:14:30: こんにちは、またブログ覗かせていただきました。また、遊びに来ま～す。よろしくお願いします
バーバリーバッグ一覧 http://www.burberryfactory.com/バーバリー-バッグ-c-24.html
18 ：モンクレールダウン店舗 ：2012/11/16(金) 06:13:08: 今日は　よろしくお願いしますね^^すごいですね＾＾
モンクレールダウン店舗 http://www.middleeastmanagers.com/
19 ：air max skyline ：2013/05/29(水) 20:34:45: This webpage has so a lot great details on it, I verify on it everyday. I wish other websites spent as a lot work as this one does generating data legible to readers like myself. I recommend this write-up to all of my facebook friends. This webpage will make some massive passive profit I’m positive. I hope my site does along with this one, it refers to jewelry consumers houston. air max skyline http://air-max-skyline2.webnode.fr/
20 ：フェラガモサンダル ：2013/06/25(火) 18:51:02: しっかりとした作りで、デザイン性にも優れていたのですが、何せ重くて結局手放すことになりました。フェラガモサンダル http://ferragamo.atukan.com/
21 ：ルイヴィトンアウトレット ：2013/07/06(土) 05:38:57: 匿名なのに、私には誰だか分かる・・・(^_^;)ありがとう。。。ルイヴィトンアウトレット http://www.kfsmtv.net/Vuitton/
22 ：モンクレール ：2013/10/09(水) 00:37:34: 超人気モンクレールダウン、専門店モンクレール新作、モンクレール伊勢丹熱い販売、モンクレール池袋特価【最大80％OFF】、モンモンクレール http://moncler-outlet.jp/
23 ：クロエバッグ ：2013/10/22(火) 16:18:07: Ahaa, its good conversation about this article here at this weblog, I have read all that, so at this time me also commenting here.
クロエバッグ http://www.myindyareahome.com/
24 ：日本最高級激安高品質スーパーコピーN級品 ：2019/04/11(木) 02:40:56: 大SALEが開催中

◆ブラントコピー人気通販店の大SALEが開催中◆
弊社は長年の豊富な経験と実績を持ち、
ブラントブランドコピー品の完壁な品質を維持するために、
一流の素材を選択し、精巧な作り方でまるで本物のようなな製品を造ります。
また、お客様のご注文商品を責任を持ってお届けいたします。
シャネルコピー、ルイヴィトンブランドコピー、プラダコピー、ボッテガ・ヴェネタコピーやグッチコピー

全部読む最新50 1-100 メール受信掲示板トップリロード

▲6▼ SerialPort.Readについて (Res:15)

All First100 Last50 SubjectList ReLoad ▲6▼

1 ：たか：2010/02/16(火) 11:27:38: お世話になります。

WEB（VB2005）で調べたソースをお借りして
シリアル通信のプログラムを作成しています。
受信することは出来たのですが
数十回に一度、以下のような異常が発生しています。
何か良い対処方法を教えていただきたいです。

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object,
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived

Dim dlgData As ReceiveDataDelegate = New

ReceiveDataDelegate(AddressOf DataAnalyze)

Dim ReadBuff(SerialPort1.BytesToRead - 1) As Byte

SerialPort1.Read(ReadBuff, 0, SerialPort1.BytesToRead) ←①

For i As Integer = 0 To ReadBuff.Length - 1
Me.Invoke(dlgData, CInt(ReadBuff(i)))
Next
End Sub

　①の部分で ArgumentException
配列のオフセットおよび長さが範囲を超えているか、カウンターがソースコレクションのイ
　　ンデックスから最後までの要素の数より大きい値です。

　ReadBuff{Length=1}
(0)0

宜しくお願いします。
2 ：igoten ：2010/02/16(火) 12:54:12: 今日は
SerialPort1_DataReceivedの処理中に次のSerialPort1_DataReceived割り込みがかかっている
可能性がありますね。
Static又はSerialPort1_DataReceivedイベントの外側でFlgを設定して
処理中は次の割り込みがかからないようにしてみて下さい。

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived
Static flg As Boolean
If flg = True Then
Exit Sub
End If
flg = True
'処理
flg = False
End Sub
3 ：たか：2010/02/16(火) 14:50:47: 回答ありがとうございます。

最初に書き込んだプログラムと少し異なるのですが
flg　を Static や
SerialPort1_DataReceivedイベントの外側(Public)で指定したのですが
①の部分で、同じ異常が発生します。

受信データに改行が見つからないので
②のようにしているのですが
その操作が、悪影響を与えているのでしょうか？

宜しくお願いします。

Private Sub SerialPort2_DataReceived(ByVal sender As Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort2.DataReceived

If flg = True Then
Exit Sub
End If

flg = True

'データ受信用のバイト配列
Dim inByte2(SerialPort2.BytesToRead - 1) As Byte

'データの読み込み
SerialPort2.Read(inByte2, 0, SerialPort2.BytesToRead)　←①

（省略されました・・全てを読むにはここを押してください）
4 ：igoten ：2010/02/16(火) 15:09:32: Byteで取得していますから改行は関係ないかと。
配列を宣言した時と実際に使う時で長さが変わってきているのかも。
読み込みの長さの取得は一回としてみましょう。

Dim LenBytesToRead As Integer = SerialPort1.BytesToRead - 1
Dim ReadBuff(LenBytesToRead) As Byte
SerialPort1.Read(ReadBuff, 0, LenBytesToRead)
5 ：たか：2010/02/16(火) 16:13:33: 　変更してみたのですが
　何回か受信しただけでも
　以下の部分で異常が起きてしまいます。

　FormatExceptionはハンドルされませんでした。
【入力文字列の形式が正しくありません。】

'メインスレッドのテキストに追加する
Me.Invoke(New dlgAddText2(AddressOf AddText2), New Object() {uniString2})
6 ：igoten ：2010/02/16(火) 16:45:05: 2回目の投稿の時隠れた部分を読み込みませんでした。(^^;
私のサンプルは改行の後少し間があって次の送信が来る
サンプルです。
多分改行の後続けて文字送信が有るのでしょう。
その場合はそのコードでは無理です。
受信バッファからジェネリクスに移す時に
Chr(10)が来たら改行とみなしてそこまでジェネリクスに足しこんで
別な配列に移して文字変換を行います。
7 ：たか：2010/02/16(火) 23:41:11: VBがよく分かっていないので
変な質問になるかもしれませんが…

>Chr(10)が来たら改行とみなしてそこまで
②では条件不足になるのでしょうか？
これでも同じように異常が上がっています。

'改行が有った
'If lByte2.Count > 2 AndAlso lByte2(lByte2.Count - 2) = 13 AndAlso lByte2(lByte2.Count - 1) = 10 Then
If lByte2.Count > 2 AndAlso lByte2.Count = 8 Then　←②
8 ：igoten ：2010/02/17(水) 07:50:10: 少し話を整理してみましょう。
一番最初の質問で確保した配列とそれに入れようとした時に
配列がオーバーフローしてしまうトラブルは解決されたのでしょうか？
データ変換や表示を止めて、データを単に取得するプログラムでエラーが
出ないことを確認する必要があります。

２番目の問題は文字を変換する際に正しい文字の配列が渡されなエラーです。
文字の終わりはChr(10)で改行で有ることは間違いないなら、文字の初めが
間違っていることになります。
そこで「AndAlso lByte2.Count = 8」が問題になります、いつも送られて来る
データが改行も含めて8Byte単位ならこれでも良いわけですが、その辺は
仕様が判らないので私には判断できません。

それと
>受信データに改行が見つからないので
>②のようにしているのですが
の意味が良く分からないのですが、もう少し詳しく説明してください。
Tyr Catch等は使っていませんよね。
ここではエラー処理をしてはいけません。
9 ：たか：2010/02/17(水) 09:53:54: お世話になります。

現在は、３回目に問い合わせしました（投稿日： 2010/02/16(火) 14:50:47 ）
ソースで進めようと考えています。

一番最初のオーバーフローしてしまうトラブルは未解決です。
　【配列のオフセットおよび長さが範囲を超えているか、カウンターがソースコレクションのイ
　　ンデックスから最後までの要素の数より大きい値です。】←FormatException

これまで、２通りのアドバイスをいただきました。

　①Static flg As Booleanを使った方法
　　
　②4 名前：igoten 投稿日： 2010/02/16(火) 15:09:32
　　Dim LenBytesToRead As Integer = SerialPort1.BytesToRead - 1
　　Dim ReadBuff(LenBytesToRead) As Byte
　　SerialPort1.Read(ReadBuff, 0, LenBytesToRead)

　※②の方法で処理行ったときに別なトラブルが発生したので
　　その部分は元に戻しています。
　【入力文字列の形式が正しくありません。】←FormatException

初めて、igotenさんの作成したソースで受信したときに
データを受信することができませんでした。
どこがおかしいのかと、msgboxで値を確認していたところ
どのデータも　8Byte単位で受信していることが分かり、
If lByte2.Count > 2 AndAlso lByte2.Count = 8 Then　←②
のように、修正したところ Text3.AppendText(strGetText)へ
値を渡すことができました。

（省略されました・・全てを読むにはここを押してください）
10 ：igoten ：2010/02/17(水) 10:09:55: おっと、申し訳ない２番目のコード間違ってます。
これだと最後の一文字をとりません。　
　　Dim LenBytesToRead As Integer = SerialPort1.BytesToRead - 1
　　Dim ReadBuff(LenBytesToRead) As Byte
　　SerialPort1.Read(ReadBuff, 0, LenBytesToRead + 1)
としなければいけませんでした。
これでもう一度チェックしてみて下さい。
11 ：たか：2010/02/17(水) 11:18:09: 有難うございます。
上手くいきました。SerialPort1.Readメソドついても
ようやく理解できました。

＞Tyr Catch等は使っていませんよね。
＞ここではエラー処理をしてはいけません。
最後になりますが、
こちらを行った場合はどうなるのか
教えていただけないでしょうか。
12 ：igoten ：2010/02/17(水) 12:28:34: OKになりましたか。
ちょっとまとめておきますね。
先ず最初のトラブルはSerialPort2_DataReceived内で配列を確保した後、
受信データ処理中に再度受信が起り、確保した配列の大きさとデータ
の大きさが異なってエラーになった。
それを避ける為に、受信データのサイズの採取を１回にした。
これで上のエラーは回避されたのだが、その際私が提示した
コードに間違いが有って、受信コードの最後のデータを取らないでいた為に、
文字変換でエラーが起きた。
と言うことですか。
（なぜ間違えたかと言う言い訳ですが実はVBとC#で配列確保の仕様が
異なっていて、C#の仕様でVBのコードを書いてしまいました。）

エラー処理の件ですが結論から言いますとTry Catchを必ず入れて
下さい。
私がちょっと気になったのは、Try CatchのCatchの中に何も
書かないでエラーを抜けていたのでは無いかと思ったのです。
自分のコードに間違いがあると気付かなかったので、文字が欠落する
理由をあれこれ考えている中で、唯一可能性があるのは
Catchの中に何も書かないでエラーを抜ける方法かなと思った訳です。
13 ：たか：2010/02/17(水) 16:09:16: はい。
まとめていただいた通りです。

Try Catchを入れて起動できるように修正します。
何から何まで
本当に有難うございました。
14 ：コーチ財布 ：2013/10/23(水) 19:41:33: continuously i used to read smaller articles or reviews that as well clear their motive, and that is also happening with this post which I am reading at this time.
コーチ財布 http://www.sedeinc.com/
15 ：その他の世界一流スーパーコピー ：2018/10/23(火) 07:28:26: 【2018新作】爆安通販!
2018超人気【即日発送】
在庫一掃販売中信用ある!
【２０１5人気殺到】激安通販!
大人気本物保証!
2018【品質保証書】
Japan送料無料☆正規販売店
大量入サイト!
発送で送料無料です!
限定セール中市場!
高級品本物保証!
人気新作、ピンクの最新アイテムを海外通販!
新品入荷定番!
激安通販Japan即日発送!
2018【品質保証書】

全部読む最新50 1-100 メール受信掲示板トップリロード

▲7▼ C#、Vb2005 でSocket通信 (Res:2)

All First100 Last50 SubjectList ReLoad ▲7▼

1 ：ikeke ：2016/12/07(水) 22:16:07: はじめまして、波田様
「C#、VB2005 でSocket通信」のプログラムそのまま使用させて頂いておりました。
当方、まったくの素人なのですが、受信データを１６進で表示させるには
どのようなコードに変更すればよろしいのでしょうか。
vb2015を使用してます
2 ：igoten ：2016/12/09(金) 14:17:38: 「RS-232C　Hex表示モニタ」のコードを見てください。

全部読む最新50 1-100 メール受信掲示板トップリロード

▲8▼ C#、Vb2005 でSocket通信 (Res:5)

All First100 Last50 SubjectList ReLoad ▲8▼

1 ：yos ：2015/04/29(水) 04:48:51: ダウンロードしたプロジェクトをVS2008にコンバートして確認しているのですが、
プログラムを右上の×ボタンで終了してもプロセスが終了しません。
2 ：yos ：2015/04/29(水) 04:53:39: 手順
1) サーバを開始
2) サーバを終了
3) 右上の×で終了
3 ：igoten ：2015/04/29(水) 08:08:01: 終了しないとはどのような状態を
言うのでしょうか？
デバッグモードですか？
4 ：yos ：2015/04/30(木) 00:46:49: デバッグモードの場合は、「デバッグの中止」をクリックしないと
ソースコードが編集できない状態になっています。

解決しました。
ホームページ上の説明ではCloseServer()サブルーチンの中で
listener.Stop() が呼ばれているのですが、ダウンロードしたソースコードでは
実行されていませんでした。

下記のようにCloseServer()を書き換えることで解決しました。
-------------------------------------------------------------
Private Sub CloseServer()

'//Tread must be stopped
If threadServer IsNot Nothing Then
threadServer.Abort()
End If

If listener IsNot Nothing Then
listener.Stop()
listener = Nothing
End If

If server IsNot Nothing AndAlso server.Connected Then
server.Close()
server = Nothing
End If
:
-------------------------------------------------------------
（省略されました・・全てを読むにはここを押してください）
5 ：ikeke ：2016/12/07(水) 00:20:42: はじめまして、波田様
「C#、VB2005 でSocket通信」のプログラムそのまま使用させて頂いておりました。
当方、まったくの素人なのですが、受信データを１６進で表示させるには
どのようなコードに変更すればよろしいのでしょうか。
vb2015を使用してます

全部読む最新50 1-100 メール受信掲示板トップリロード

▲9▼ VBの実力に驚きました。 (Res:2)

All First100 Last50 SubjectList ReLoad ▲9▼

1 名前：鈴木投稿日： 2014/10/20(月) 17:27:51

何年も何となくVBをコーディングしていた小職は、このホームページを見てVBの可能性に驚愕しました。波田様の書籍でもあるのでしょうか？（発行されていれば是非購入したいものです）

2 名前：igoten 投稿日： 2014/10/21(火) 12:49:55

VBはWindows上で動くソフトを作るのに絶大な威力を
発揮します。
私は書くことは好きですが、ソフトウエアーの本は書いていません。

全部読む最新50 1-100 メール受信掲示板トップリロード

▲10▼ ねこの行動について (Res:2)

All First100 Last50 SubjectList ReLoad ▲10▼

1 名前：まこと 投稿日： 2014/06/27(金) 11:15:14

こちらのねこの事を読みまして少し、安心しました、実は昨日の朝から
のらちゃんが子供を連れて出ていったので心配で仕方ありませんでした、４匹産んで１匹はカラスにとられ、首を咥えてわが家の軒下に着ました。
去年から餌をもらいに通ってきて、と宇藤出産まで決して、家に入らず、遠慮深い猫でした。里に住み着けば寒く無くていいものを標高800ｍもある
別荘地に通ってきていました、絶対に心を許さないというところがあり、
何かあったのか」と余計に情が移りました。
毎朝、子猫のために暖かい牛乳とエサをあげていたのですがなぜか、急に全員いなくなりました。生後２か月の子猫を連れてでは
大変と思います。帰ってきてくれないのかと毎日庭を探しますがいません。
やはり、危険なカラスが傍にいるから引っ越したのでしょうか？
しんぱいしていまして、ネットでいろんな話をみては当てはまらず
こちらのを読ませていただいて納得しかかっています。
ゴルフ場の中の湖もカモのひながカラスの犠牲になっているそうです。悔しくて仕方なくカラスの子育てのエサになったと思うと
届かないけれどホースで思いっきり水を噴射させています。
ありがとうございました。

2 名前：igoten 投稿日： 2014/06/29(日) 18:11:14

野生で育ったネコは、絶対と言って良いほど、
人に人になつきません。
何回かエサをやって、少しはなついたと思っても、どこかで
常に警戒していています。
猫が好きな人はそこが好きなのかもしれませんね。

子猫が大きくなった頃また姿を表すのではないかな
と思います

全部読む最新50 1-100 メール受信掲示板トップリロード

▲11▼ VB2010でRS232C. (Res:8)

All First100 Last50 SubjectList ReLoad ▲11▼

1 名前：hana-mizuki 投稿日： 2011/06/15(水) 21:20:12

お世話になります。
本サイトに掲載されている「RS-232C サンプルコード」をVB2010にコピーし、
RS232C－PIC通信のテストプログラムを作成しています。
作成したプログラムは、VBから"S"を送信するとPICから"Start!!\r\n"と返ってくる単純なものです。
しかし、プログラムを起動して、一回目に送受信をすると、VB側で"Start!!\r\n"が二度表示されます。("S"は一度しか送っていません。)
二回目以降は、一度の"S"に"Start!!\r\n"を一度表示します。
本サイトにある、vb2005版をダウンロードして、VB2010に変換して(VB2010が自動的に行う)、テストしたところ上記のような症状は起こりませんでした。
原因がまったく分からず、悩んでいます。
考えられる原因がありましたら、ご教授頂ければと思います。よろしくお願い致します。

2 名前：igoten 投稿日： 2011/06/16(木) 07:56:18

初めまして。
Ｓを２回送っているのか、表示が間違っているのか
この質問の内容からは判断できません。
最初にＳを２回送信したらどうなりますか？

3 名前：名無しさん 投稿日： 2011/12/31(土) 20:34:17

私ここで結構おいしいおもいしましたよ。
詳細は書けないけど、やり方次第ですね(^O^)
ttp://bit.ly/rRzIgw

4 名前：トニー 投稿日： 2012/03/16(金) 09:16:49

hama-mizukiさん
はじめまして、私のこちらのプログラムを参考にさせて頂き、コーディングしておりますが、
クライアント側の受信するときに、バイト配列を初期化していないことが原因だと思われます。
最初は、Newした後初めて入るので、入りませんが、2回目以降は、一度newされた配列を使いまわしておりますので、
具体的には以下でしょうか。

Private Sub ClientListen()
'サーバとの間の通信に使用するストリームを取得
Dim stream As NetworkStream = client.GetStream()

'Dim bytes(1000) As Byte
Dim bytes(1023) As Byte
'デリゲートで受信テキストボックスのメソッドを渡す
Dim dlgText As dlgWriteText = New dlgWriteText(AddressOf WriteReadText)

While (True)
Try
'''この部分に初期化を追加する
　　　　　　　　For i As Integer = 0 To bytes.Length - 1
bytes(i) = Nothing
Next
　　　　　　　　''''

Dim intCount As Int32 = stream.Read(bytes, 0, bytes.Length)

5 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

6 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

8 名前：モンブランボールペン 投稿日： 2013/10/23(水) 17:18:03

そのモンブランボールペンについて、少し考察を混ぜて紹介していきたいと思います。モンブランボールペン http://www.landmarkweddingfilms.com/モンブラン.html

全部読む最新50 1-100 メール受信掲示板トップリロード

▲12▼ C#、Vb2005 でSocket通信 (Res:15)

All First100 Last50 SubjectList ReLoad ▲12▼

1 名前：RYU 投稿日： 2010/06/08(火) 00:04:33

いつも参考にさせていただいております。
ソケット通信での受信イベントについて、少々ご指導ください。
C#、Vb2005 でSocket通信 (複数クライアント&非同期処理) では、

public partial class FomServer : Formの
別スレッドからメインスレッドのテキストボックスに書き込むデリゲート
として、直接テキストボックスに書いていますが、イベントを使用して、
処理する方法を教えてください。

/** セカンドスレッドで実行されるサーバーのListen **
の所で、イベント受信時のメソッドを加え、handler.StartRead();

受信イベントは、
private void OnReadComplete(IAsyncResult ar)の
if (bytesRead > 0)　 {　に　データを返すコード
を書いています。

上記にて、1度は正常に受信データを確認できますが、
2回め以降は、有効ではないスレッド間の操作とエラーが起こります。

根本的に間違っているかもしれませんが、リスナーが受診時にデータを
受け取れる処理ができればと考えています。クラスを独立させるため、
なるべくイベントで収集出きればと考えます。

以上、よろしくお願いします。

2 名前：igoten 投稿日： 2010/06/08(火) 08:08:04

ちょっとそのコードだけでは何が悪いか判断できませんが、
一回目のデーターを受信したスレッドと２回目のデーターを受信した
スレッドが異なっているのでしょう。
クライアントの方が既に接続してるにもかかわらず再度
接続要求を出して新しいスレッドを作ってしまっているなんて
ことはありませんか。

3 名前：RYU 投稿日： 2010/06/08(火) 18:41:09

ありがとうございます。

恐らく、下記ｺｰﾄﾞのdoの内側にｲﾍﾞﾝﾄ用のｺｰﾄﾞを書いている事が原因と思いますが、
どのように修正して良いのか分かります。ご指導願います。

private void EventListen()
{
string S_ip = Rip1.Text;
int S_port2 = int.Parse(rpt2.Text);

//TcpListenerを作成
IPAddress ipAddress = IPAddress.Parse(S_ip);
IPEndPoint localEndPoint2 = new IPEndPoint(ipAddress, S_port2);
Event_listner = new TcpListener(localEndPoint2);
Event_listner.Start();

// クライアントの接続を受けるための永久ループ
try
{

do
{
// Listener.AcceptSocketは同期メソドで接続要求が有るまで
//値を返さずここで待機します
// 新しい接続要求ががあると接続を許可して
// 新しいソケットを返します

Socket socketForClient_e = Event_listner.AcceptSocket();

（省略されました・・全てを読むにはここを押してください）

4 名前：igoten 投稿日： 2010/06/09(水) 09:21:47

//メインスレッドのテキストボックスに書き込む
fomServer.Invoke (new dlgWriteText(fomServer.WriteReadText)
, new object[] { this,strGetText });
ここでエラーが出るのですか？

5 名前：RYU 投稿日： 2010/06/09(水) 09:41:52

そこを書き換えて、イベントが発生するようにしています。
public class Server_ER_data : EventArgs
{

public string ip;
public int port;
public string d1;
public string d2;

//Recive data constructer
public Server_ER_data(string ip, int port, string d1, string d2)
{
this.ip = ip;
this.port = port;
this.d1 = d1;
this.d2 = d2;
}

}

public class ServerOpener
{

// EvevntHandler Datarecive Server_R_Data
public delegate void Server_recive(object r, Server_ER_data r_data);
public event Server_recive OnRecive;

　　　　・・・・・・・・・・

6 名前：RYU 投稿日： 2010/06/09(水) 09:47:38

すみません。続きです。
private void OnReadComplete(IAsyncResult ar)
{
try
{
//受信文字をStreamから読み込みます
if (networkStream == null)
return;

//受信バイト数が返る
int bytesRead = networkStream.EndRead(ar);

if (bytesRead > 0)　　//受信文字が有った
{
//受信部分だけ切り出す
Byte[] getByte = new byte[bytesRead];
for (int i = 0; i < bytesRead; i++)
getByte[i] = buffer[i];

byte[] uniBytes;
//'S-Jisからユニコードに変換
uniBytes = Encoding.Convert(ecSjis, ecUni, getByte);
string orMsg = BitConverter.ToString(getByte);

//バイト配列から文字列に変換する
string strGetText = ecUni.GetString(uniBytes);
//受信文字を切り出す

// 相手先を調べる
（省略されました・・全てを読むにはここを押してください）

7 名前：igoten 投稿日： 2010/06/09(水) 10:59:44

それでどの行でエラーが出るのでしょうか？

8 名前：RYU 投稿日： 2010/06/09(水) 20:57:52

度々、すみません。自己解決できました。
public class ServerOpener
{

// EvevntHandler Datarecive Server_R_Data
public delegate void Server_recive(object r, Server_ER_data r_data);
public event Server_recive OnRecive;

で、制御元より、イベントを受け取るメソッドのなかで、リストボックスに
追記する制御を行っており、この部分が2度目にエラーとなりました。
ここで、直接リストボックスを制御せず、ここにInvokeでスレッドを作り、
処理を渡しました。

質問のしかたに問題があり、お手数をおかけしました。
ありがとうございました。

お手が空きました、IPアドレスをポーリングして、データを収集するサンプルを
お教えいただければと思います。

9 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

10 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

11 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

15 名前：クロエバッグ 投稿日： 2013/10/23(水) 16:19:49

I am sure this article has touched all the internet people, its really really nice piece of writing on building up new webpage.
クロエバッグ http://www.myindyareahome.com/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲13▼ 「RS-232C 送信モジュールの作成」について (Res:8)

All First100 Last50 SubjectList ReLoad ▲13▼

1 名前：cresc1973 投稿日： 2009/09/19(土) 01:16:04

はじめまして、最近VC#2008ExpressEditionで機器との通信をしております。
その際に、HEXでの送信などの知識がなかったため、本ページを
参考にさせていただきました。

上記の貴サイトのページですが、内容は非常にわかりやすくてよかったのですが、
載っているサンプルプログラムをそのまま切り貼りして試したところ、
どうも動作がおかしい。

よく見ると、
if (textBox1.Text.Trim().StartsWith("<hex>") &&
textBox1.Text.Trim().EndsWith("</hex>"))
{
//制御文字を削除
sData = sData.Replace("<hex>", "");
sData = sData.Replace("</hex>", "");

の制御文字である<hex>の部分がHTMLソースにはあるのですが、
<>でくくっているため、ブラウザでは消えてしまい、表示されていませんでした。
これを切り貼りしてしまったため、おかしなことになったようです。
手前の説明文では「<hex>」となっており、<>も正常に表示されていますので、
サンプルソースもそうしていただけると、私みたいに悩む人がいなくなるのではないかと思います。
いや、私だけかもしれませんが(笑。コメントを確認すればわかることですし。

長文失礼いたしました。

2 名前：igoten 投稿日： 2009/09/19(土) 11:41:14

ありゃ！
制御文字を実体参照にするのを忘れてますね。
これじゃ読んだ人は何がなんだかわからないですよね。
早速修正しました。
簡単だからソースのダウンロードはいらないかなと
思ったんですが、これじゃいりますね。
つまらないところで悩ませてすみませんでした。
又何か気づいたらお願いします。

3 名前：cresc1973 投稿日： 2009/09/24(木) 09:23:02

早速の修正ありがとうございます。
貴サイトはサンプルソースも分かりやすく，
大変重宝させていただいてます。

5 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

6 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

7 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

8 名前：モンブランボールペン名入れ 投稿日： 2013/10/23(水) 13:44:09

ちなみに、現在ではアルプス越えの主要ルートの一つとなっているそうです。
モンブランボールペン名入れ http://www.landmarkweddingfilms.com/モンブラン.html

全部読む最新50 1-100 メール受信掲示板トップリロード

▲14▼ ＶＢ６でＩｎｅｔを使いサーバにファイルを書き込みたい (Res:13)

All First100 Last50 SubjectList ReLoad ▲14▼

1 名前：みや投稿日： 2009/03/01(日) 20:48:52

ファイルをサーバに転送したいので下記のようにプログラムを作りました。
環境はＶＢ６，サーバはレンタルサーバーです。
Command1をクリックしてもエラーは出ませんが、何のメッセージも帰りませんし、サーバーにファイルが転送できません。
このプログラムは「Visual Basic 逆引き５００の極意」のサンプルを使いました。
宜しくお願いいたします。

Private Sub Command1_Click()
With Inet1
.URL = "ftp://レンタルサーバのＵＲＬ" ' URL
.UserName = "*************" ' ユーザー名
.Password = "*********" ' パスワード

' サーバーにファイルを送信
.Execute , "PUT c:sample.txt /public_html/*****/sample.txt"
Do While .StillExecuting = True
DoEvents
Loop
End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vntGetData As Variant ' 受信データ

' データ（コマンドの結果）を取得する
If State = icResponseCompleted Then
vntGetData = Inet1.GetChunk(1256, icString)
MsgBox vntGetData
End If
End Sub

2 名前：igoten 投稿日： 2009/03/02(月) 07:55:21

ぱっと見たとき、単なる書き間違いかもしれないけど、
.Execute , "PUT c:sample.txt /public_html/*****/sample.txt"
は
.Execute , "PUT c:\sample.txt /public_html/*****/sample.txt"
かな

3 名前：みや投稿日： 2009/03/02(月) 09:00:39

早速ありがとうございます。
すみません。書き間違いでした。
"PUT c:\sample.txt /public_html/*****/sample.txt"が正しいのです。
一回目の、Command1_Clickで、Inet1_StateChangedの引数に「１」がでます。
さらにCommand1_Clickをすると、「９」がでました。
どうぞよろしくお願いたします。

4 名前：igoten 投稿日： 2009/03/02(月) 13:21:10

1は「コントロールは、指定されたホストコンピュータの IP アドレスを調べています。」
9は「コントロールは、ホストコンピュータとの接続を解除しています。」
ですね。
プロクシ経由なんてことは有りませんか。
他のFTPソフトでは接続出来ていますか？
私にも「FTP忠太」などが有りますが。

5 名前：みや投稿日： 2009/03/03(火) 01:50:47

プロクシ経由ではありませんし、ＦＴＰソフトで接続できています。
ＦＴＰソフトはＦＦＦＴＰを使っています。

ＦＴＰソフトの設定を調べてみますと、
１）ＰＡＳＶモードを使う
２）ポート番号が21となっています。
この二つの件を意識せずにいますがいいのでしょうか。

6 名前：igoten 投稿日： 2009/03/03(火) 07:46:19

インターネットトランスファーコントロール（Inet)はパッシブモードをサポートしていません。
http://support.microsoft.com/default.aspx?scid=kb;ja;409931
更にinetコントロールは複雑な操作には向きません、私はWinInet.dll(API)の
FtpPutFileを使用しいます。

7 名前：みや投稿日： 2009/03/03(火) 10:10:27

ありがとうございます。
インターネットトランスファーコントロール（Inet)はパッシブモードをサポートしていないのですか。

FtpPutFileのサンプルを使って、下記のようになりました。
インターネットに接続完了し、サーバ内のディレクトリ変更も成功しました。
最後のファイルをアップロードしたところでエラーが出ました。

エラーメッセージは「ファイルの取得に失敗しました」で、番号は「12003」
でした。Ｃドライブの直下にsample.txtがあるのは確認済みなんですが。

何かお分かりになりましたら宜しくお願いたします。

****イカが使用したプログラムです。
'FTPサーバのカレントディレクトリを変更
result = FtpSetCurrentDirectory(hConnection, "/public_html/xxxx")
If (result <> 0) Then 'ディレクトリ変更成功
　　　　　　*** ここまではＯＫでした **
'ファイルをアップロード
result = FtpPutFile(hConnection, "c:\sample.txt", "sample.txt", FTP_TRANSFER_TYPE_UNKNOWN, 0)
If (result = 0) Then 'アップロード失敗
　　　　　　*** ここでエラーになりました **
MsgBox "ファイルの取得に失敗しました。" & Err.LastDllError
End If

8 名前：igoten 投稿日： 2009/03/03(火) 12:04:20

InternetConnectの時に INTERNET_FLAG_PASSIVEは設定してますか？
多分指定してるんでしょうね。
後は、相手が２０００サーバーの場合は
sample.txt　-> /sample.txt
にする必要が有った気がします。
FTP_TRANSFER_TYPE_UNKNOWN　の代わりに　FTP_TRANSFER_TYPE_ASCII
を指定してみるとか。
そんな所しか今のところ思いつきません。

9 名前：みや投稿日： 2009/03/04(水) 04:25:55

ありがとうございました。サーバーに書き込むことができました。
INTERNET_FLAG_PASSIVEを設定していませんでした。
適切にご指導いただき大変感謝しています。今後もよろしくお願いたします。

10 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

11 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

13 名前：ディーゼル財布 投稿日： 2013/10/23(水) 09:46:46

I’m gone to convey my little brother, that he should also visit this webpage on regular basis to take updated from most recent news.
ディーゼル財布 http://www.idahotherapyservices.com/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲15▼ Socketサーバの複数ポート機動 (Res:9)

All First100 Last50 SubjectList ReLoad ▲15▼

1 名前：いつき 投稿日： 2010/07/26(月) 21:23:52

いつも見させていただいています。
socketサーバを複数のポートで起動できるサンプルを探しています。
非同期サーバのクラスを作成し、インスタンス化し、ポートを順次割り当て
起動をしてみましたが、応答動作がまちまちで十分な効果を得ることができませんでした。

通常はどのような方法で、サーバを複数起動させるのでしょうか。
サンプル・方法があれば、ご指導願います。

2 名前：igoten 投稿日： 2010/07/26(月) 21:44:56

複数のサーバーを起動することは極めて稀です。
通常は私が書いたサンプルのようにサーバーは一つで、
複数のクライアントが接続要求をしてくる方式になります。
サーバーは接続要求が来たクラインンと毎に、別々の接続を
確立して通信をします。
ただし複数のサーバーを起動できないわけではありません、その必要が
無いだけで、私が書いたサンプルのPortをサンプルでは1001となっていますが、
このプログラムを複数起動してPortを1002や1003にすれば良いだけで
あると思いますが。
>>http://www.geocities.jp/hatanero/socket2.html

3 名前：いつき 投稿日： 2010/07/27(火) 07:16:22

ありがとうございます。いろいろな用途で使えるよう、考えていました。

サンプルを単に複数ポートでの起動を考えれば、下記の様でいいですか？
今開発環境が無いのでテストできませんが、根本的な間違いがあるようにも
思えますが、よろしくお願いします。

できれば、配列等で任意の数のポートを起動できればと思います。
よろしくお願いします。

TcpListener Listener1 = null;
TcpListener Listener2 = null;
Thread threadServer1 = null;
Thread threadServer2 = null;

private bool ServerStart()
{
//TcpListenerを使用してサーバーの接続の確立
try
{
//ログの書き込み

WriteLog("サーバを開始しました。");
//スレッドの作成と開始
threadServer1 = new Thread(new ThreadStart(ServerListen));
threadServer1.Start();
threadServer2 = new Thread(new ThreadStart(ServerListen));
threadServer2.Start();
return (true);
}
（省略されました・・全てを読むにはここを押してください）

4 名前：igoten 投稿日： 2010/07/27(火) 09:20:26

そんな感じで良いと思います。

5 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

6 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

7 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

9 名前：クロエアウトレット 投稿日： 2013/10/22(火) 19:28:10

Hi there every buddy, it’s a impressive enjoyment at at this place watching these funny YouTube videos at at this place, good data, thanks to admin of this site
クロエアウトレット http://www.myindyareahome.com/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲16▼ VB2005のSocket通信サーバーの複数クライアントについて (Res:21)

All First100 Last50 SubjectList ReLoad ▲16▼

1 名前：名無しさん 投稿日： 2010/09/21(火) 12:31:20

C#、VB2005のSocket通信サーバーの複数クライアントの非同期処理の
サンプルコードをDLして、ソケット通信のマルチ受信を行っている
のですが、「OnReadComplete」関数内で記載されている
「Thread.Sleep(20) 'これを入れないとNullReferenceExceptionが起きる」
という記載ですが、これを記載していても「networkStream.Close()」の
処理で「NullReferenceException」が発生していしまいます。
何が原因なのでしょうか？

2 名前：igoten 投稿日： 2010/09/21(火) 13:08:28

実行環境の違いでしょうかね。
Thread.Sleep(100);
位にして時間を長くしても同じですか？

3 名前：名無しさん 投稿日： 2010/09/22(水) 09:04:28

Sleepを色々変更しましたがだめでした。
処理として、OnReadComplete関数内でOracle（10.2.0.1）に接続し、
データを取得後、取得結果を返信するような作りにしていますが、
その部分が問題なのでしょうか？

ちなみに、NullReferenceException が発生すると何か障害があるのでしょうか？

また、セカンドスレッドで作成されるいかのクラス、
Dim handler As New ClientHandler(socketForClient, Me)
は、どの段階でメモリを解放されるのでしょうか？
特に気にする必要はないのでしょうか？

4 名前：igoten 投稿日： 2010/09/22(水) 10:12:36

>OnReadComplete関数内でOracle（10.2.0.1）に接続し..
OnReadCompleteが呼びだされている時はスレッドがブロックされています。
従ってOnReadComplete内では時間のかかる処理は出来ません。
Oracleを呼び出すような処理は別スレッドを作成してその中で行います。

>NullReferenceException が発生すると何か障害があるのでしょうか？
問題はどの処理の時に上記のエラーが発生するかです。
Sleepを入れてあるのはsocketをcloseするのに多少時間がかかって、
socket=nullでエラーが起きるためです。
socketが解放出来無い時何が起こるかはわかりません、リソースの使用が増える
ことは確かですが、それがガベージコレクションで解放されるのか否かと、
socketにどの位のリソースが食われるかは未確認です。
Sleepは止めてしまってタイマーなんかで相当時間を置いてからsoketを
解放する方が良いかもしれません。

>Dim handler As New ClientHandler(socketForClient, Me)
これらのインスタンスはガベージコレクションに任せておいて問題ないと
思います。

5 名前：名無しさん 投稿日： 2010/09/23(木) 12:05:25

>OnReadCompleteが呼びだされている時はスレッドがブロックされています。
スレッドがブロックされている状態というのは、他のスレッドが待ち状態になると
いうことでしょうか？

また、受信文字を取得後メインスレッドのテキストボックスに書き込んだ
後の以下の処理、
networkStream.BeginRead(buffer, 0, buffer.Length, callbackRead, Nothing)
は、なぜ必要なのでしょうか？

後、NullReferenceException が発生する場所は、
　networkStream.Close()
を行った時に発生しているようです。

6 名前：igoten 投稿日： 2010/09/23(木) 12:30:34

ブロックされるのはそのスレッドだけです。

networkStream.BeginRead(buffer, 0, buffer.Length, callbackRead, Nothing)
は受信を再開するためですけどね。

Thread.Sleep(20)をnetworkStream.Close()の後に入れてみましたか？

7 名前：名無しさん 投稿日： 2010/09/23(木) 12:50:05

Thread.Sleep(20)をnetworkStream.Close()の後に変更することで
エラーは解消されました。
ありがとうございます。

networkStream.BeginReadは受信を再開するということですが、
この処理を行わないとどのようなことが起きるのでしょうか？
現在この部分をコメントアウトしても問題なく動いているように
見えるのですが？

8 名前：igoten 投稿日： 2010/09/23(木) 13:50:57

>コメントアウトしても問題なく動いているように
>見えるのですが？
その辺はSocketクラスの仕様によるんでしょうが、はっきりしません。
入れなくてもいいのかも知れませんね、参考にした
オライリー・ジャパンの「プログラミング　C#」
には入っていたような気がします。

9 名前：名無しさん 投稿日： 2010/09/23(木) 15:18:36

色々とありがとうございました。
大変助かりました。

今後もなにかあればよろしくお願い致します。

10 名前：名無しさん 投稿日： 2010/09/25(土) 13:23:04

うまくいったかのように思うのですが、8000バイト程のデータを
クライアントから送信すると、時々受信文字が全て受信されず、
桁欠けしてしまいます。
実際に受信文字を取得している部分は、
Public Sub StartRead()
networkStream.BeginRead(buffer, 0, buffer.Length, callbackRead, Nothing)
End Sub
になるかと思うのですが、全てのデータを受信しているかどうかを判定する
こと等はできないものでしょうか？

11 名前：igoten 投稿日： 2010/09/26(日) 21:50:06

データーをこぼしてしまうと言うことですよね、
こぼす場所はデーターの途中ですか、それとも
データーの最後ですか？

12 名前：名無しさん 投稿日： 2010/09/27(月) 16:07:19

取りこぼす部分はデータの最後の方です。
データの途中まで受信して、それ以降のデータが受信できていないようです。

13 名前：igoten 投稿日： 2010/09/27(月) 18:13:56

とりあえず
バッファのサイズを大きくしてみましょう。
'読み込み用のバッファ
buffer = New Byte(255) {}
を
buffer = New Byte(2559) {}
位に。

14 名前：名無しさん 投稿日： 2010/09/27(月) 18:21:31

バッファサイズなのですが、最大で8000バイト程のデータを受信するので
今回バッファサイズを9000バイトにしてましたがだめでした。

networkStream.BeginReadはそもそも全てのバイトを受信しないと
CALLBACKの処理へは進まないものなのでしょうか？

15 名前：igoten 投稿日： 2010/09/27(月) 20:06:57

もちろんバッファが一杯になれば通知が来るはずです。
OnReadCompleteの中で
Debug.Print(buffer.Length.ToString())
だけをさせてこぼすかどうか見てください。

それと「名無しさん」はレスが書きにくいので、なんか適当な
ハンドルネームを付けてください。

16 名前：たけ投稿日： 2010/09/29(水) 17:52:46

以下の処理で一応解決はできました。

OnReadComplete の処理内で以下のようにSleep後にnetworkStream.DataAvailable
の値をチェックし、データを再取得するように致しました。

'受信バイト数が返る
Dim bytesRead As Integer = networkStream.EndRead(ar)

If bytesRead > 0 Then
'受信文字が有った
'受信部分だけ切り出す
Dim getByte As Byte() = New Byte(bytesRead - 1) {}
For i As Integer = 0 To bytesRead - 1
getByte(i) = buffer(i)
Next

''ここを追加 ↓↓↓↓↓
Thread.Sleep(300)
Do While networkStream.DataAvailable = True

Dim sbuffer = New Byte(9000) {}
Dim sLen As Integer

sLen = networkStream.Read(sbuffer, 0, sbuffer.Length)

ReDim Preserve getByte(bytesRead - 1 + sLen)

For ii As Integer = 0 To sLen - 1
（省略されました・・全てを読むにはここを押してください）

17 名前：igoten 投稿日： 2010/09/29(水) 18:23:45

接続してくるクライアントの数にもよりますが、
Thread.Sleep(300)はちょっと長いですね。

18 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

19 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

20 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

21 名前：ノースフェイスアウトレット通販 投稿日： 2013/10/18(金) 02:55:12

全国のザ・ノースフェイス店舗一覧。全国のチェーン系ファッションアイテムショップを地図から簡単に探せる【日本全国ファッションストアチェーンマップ】。チェーン系ファッションアイテムショップ探しの決定版サイトです！ノースフェイスアウトレット通販 http://thenorthface.genin.jp/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲17▼ VB2005　Muduleについて (Res:7)

All First100 Last50 SubjectList ReLoad ▲17▼

1 名前：こじら 投稿日： 2010/08/16(月) 14:30:59

こんにちは。暑いですね。
神様は「自然」ってものをどのようなプログラミングされたのか
って馬鹿な事考えしてしまいますね。暑さのせいかなって！！

本題ですが、沢山プログラミングのノウハウ丁寧に教えて
頂いて、それなりの形になったアプリケーションらしきもの
作れるようになった気がしてます。
　プログラム作っていて、気になったというか、今更というか
常識なのか、わからないのですが、
　VB2005のModuleについてです。Moduleは同一ライブラリ内
ではどのクラスからも自由に参照できるようなので、定数参照
、処理関数として使用しています。
　この時、このモジュールを様々なclassファイル等から使用する
時と、classを別のclassファイル内でインスタンス化して呼び出
して使用するのとの違い（アクセスメモリの領域も含め）を
教えていただけないでしょうか。
　以前　「VB2005でDelay（Wait)タイマーを作るには」で
Form1の値をForm2へ値渡しする方法教えていただきましたが、
このModuleとの違いを教えていただきたいと思いました。
よろしくお願いいたします。

2 名前：igoten 投稿日： 2010/08/16(月) 15:06:59

暑いですね。

Moduleは変数が全て静的な集まりです。
従ってインスタンスは存在しません。
詳しくは
http://www.atmarkit.co.jp/fdotnet/dotnettips/248module/module.html
や
http://www.atmarkit.co.jp/fdotnet/vbcheer/vbchher07/vbcheer07.html
を読んでみて判らない部分を再度質問してください。

3 名前：こじら 投稿日： 2010/08/16(月) 16:54:49

ありがとうございます。
参考URL、じっくり読ませて頂き、勉強します。

不明な点あればまた質問させていただきます
ありがとうございました。

4 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

5 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

7 名前：モンブラン万年筆店舗 投稿日： 2013/10/17(木) 22:53:06

また、キャップ寄りに持つ傾向にある人には、筆圧が弱めで、太字を好むタイプが多く、この場合はインクが出やすく、ペン先の腰が柔らかい、軸が太く重い万年筆が合っているということになります。
モンブラン万年筆店舗 http://www.trogonexpedition.com/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲18▼ 「RS-232C　Hex表示モニタ」 (Res:6)

All First100 Last50 SubjectList ReLoad ▲18▼

1 名前：Mr. F 投稿日： 2009/01/16(金) 21:43:00

RS-232C関係、大変役立ちました。ありがとうございます。
さて、
RS-232C　Hex表示モニタのＣ＃のコードを実際に動かしてみました。
addTextHex中、
誤→strData = strData.PadLeft(2 - strData.Length　+　1, '0') +" ";
正→strData = strData.PadLeft(2 , '0') +" ";

誤→strRno = strRno.PadLeft(4 - strRno.Length + 1, '0')+":" ;
正→strRno = strRno.PadLeft(4 , '0')+":"
　　　　　　　　　　　　　　↑totalWidthは固定値でＯＫです。
（16行以上の表示でおかしくなります。）

宜しくお願いいたします｡

2 名前：igoten 投稿日： 2009/01/17(土) 10:13:06

Mr. Fさん有難うございます。
おっしゃるとおり１６行目以降見事に表示が崩れました。

PadLeft第一引数に左詰めする文字の数を指定するものと勘違いしました。
訂正しておきました、これからも宜しく。

3 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

4 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

5 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

6 名前：ノースフェイスリュック 投稿日： 2013/10/17(木) 02:26:36

秋めいてきましたねーもみじ01 もみじ02 秋冬の登山で重要なのが『体温調節』パンチ山に登ると、寒かったり、急に暑くなって汗を掻いたり普段の生活では考えられない程、状況が変わりますよね。ノースフェイスリュック http://econag2006.com/ノースフェイスアウトレット.html

全部読む最新50 1-100 メール受信掲示板トップリロード

▲19▼ VB2005のSocket通信の複数クライアントの非同期処理 (Res:11)

All First100 Last50 SubjectList ReLoad ▲19▼

1 名前：たけ投稿日： 2011/02/04(金) 19:41:27

VB2005のSocket通信サーバーの複数クライアントの非同期処理
を参考にマルチスレッドの通信サーバを作成させて頂きました。
順調に動作はしているのでうが、同時接続は何台まで可能かと
質問を受けました。
色々とネット等々で調べたのですが、よくわかりません。
何か御存じでしょうか？
ちなみに通信サーバが稼働しているOSはWindows2003Serverに
なります。
１つの通信サーバで最大同時接続が何台まで可能なものでしょうか？

2 名前：igoten 投稿日： 2011/02/04(金) 20:06:41

サーバのポート番号の最大は65534ですが
Windowsの場合デフォルトで5000となっています。
レジストリ変更でで65534にまで拡張できるようです。

3 名前：ひろ４９３２ 投稿日： 2011/02/09(水) 22:06:38

C#,VB2005のSocket通信サーバーの複数クライアントの非同期処理を参考にさせていただきました。
大変助かっており、有難うございます。
以前、OnWriteCompleteで文字列の書き込みが完了したときにメッセージを出力して
読み取りを続けるため、networkStream.BeginReadの呼び出しが話題になったことが
ありましたが、オリジナルのオライリー・ジャパンの「プログラミング　C#」に
あったということで話が終わっていたのですが、今私の方でこちらのプログラムを
参考に作成したものが、時々、受信データがおかしくなることがあります。
データ長は529バイトなのですが、受信bufferの先頭に前のデータが残っている
ことがありました。パケットモニターでネット上のパケットを確認したのですが、
送信側は正常なデータを送信していました。
そこで、試しにOnWriteComplete後のBeginReadをはずしてみたのですが、
データ取得ミスは発生しなくなりました。（今のところ）
原因がわかないのであまり気持ちよくないのですが、
何か心当たりなどありましたらお教え願います。

4 名前：igoten 投稿日： 2011/02/09(水) 22:10:45

すみません金曜まで出張なのでお待ちください。

5 名前：igoten 投稿日： 2011/02/11(金) 10:19:27

bufferに前のデーターが残ってしまう件ですが、調べてみました。
結論から言いますと、私のサンプルプログラムのミスです。

NetworkStream.BeginRead メソッドの２番目の引数　int offsetは
bufferの何処からデーターを格納するかの値です。

つまりデーターが残ってしまうように見えるのはデーターの途中から
格納してしまっているからです。

OnReadCompleteで全てのデーターを読み込んで、bufferの読み込み位置を
０にクリアーする為に
networkStream.BeginRead(buffer, 0, buffer.Length,callbackRead, null);
を入れています。

所が私のプログラムは、OnWriteCompleteの後に
networkStream.BeginRead(buffer, 0, buffer.Length,callbackRead, null);
を入れてしまいました。
これは誤りです。
何故なら私のプログラムは送信はボタンで任意の時にデーターを送る
仕様になっています。
従って、データー受信中に送信のボタンを押すと、読み込みバッファが
クリアされて途中からデーターを格納しはじめてしまいます。

従って正しくはひろさんのおっしゃる通りOnWriteCompletメソッドの中の
networkStream.BeginRead(buffer, 0, buffer.Length,callbackRead, null);
は不要と言うか入れてはいけませんでした。

サンプルプログラムは時間を見て訂正しておきます。

6 名前：ひろ４９３２ 投稿日： 2011/02/12(土) 15:13:19

ご回答有難うございます。

>OnReadCompleteで全てのデーターを読み込んで、bufferの読み込み位置を
>０にクリアーする為に
>networkStream.BeginRead(buffer, 0, buffer.Length,callbackRead, null);
>を入れています。

OnReadCompleteの最後にBeginReadをしている理由がわかりました。

>何故なら私のプログラムは送信はボタンで任意の時にデーターを送る
>仕様になっています。
>従って、データー受信中に送信のボタンを押すと、読み込みバッファが
>クリアされて途中からデーターを格納しはじめてしまいます。
受信中の送信動作が可能(受信と送信が非同期）な仕様ということですね。
私も仕様を理解していませんでした。
実は、受信と送信がぶつかったときは通信エラーになると思っていたものですから。
それと異常時の受信データの件ですが、
途中からデーターを格納しはじめるというとそうなんですが、
単純に受信バッファの先頭から途中データが入っているという
わけではないのですが、その辺は送受信のタイミングによって
どういう挙動をするかは不明なのでそうなるのかもしれません。

どうも有難うございました。
又、何かありましたら宜しくお願いします。

7 名前：バーバリーコートメンズ 投稿日： 2012/10/31(水) 02:58:16

はじめまして。突然のコメント。失礼しました。
バーバリーコートメンズ http://www.burberryfactory.com/バーバリー-コート-c-3.html

8 名前：コーチ財布メンズ 投稿日： 2013/03/29(金) 23:57:28

In actual fact searching for homes which specifically have these functions may severely limit the quantity of search results and may result in no search results at all when these features are searched together with a typical price range. コーチ財布メンズ http://www.coach-summer.com/

9 名前：モンブラン万年筆 投稿日： 2013/06/09(日) 15:51:43

マイスター制度を設け、ものづくりに対して真剣に取り組み、ドイツの世界に誇るブランドです。モンブラン万年筆 http://atsites.jp/montblanc1/

10 名前：ゴヤール店舗 投稿日： 2013/07/27(土) 18:10:32

別メーカーですが、私も金具がよく外れるので、１００均でカラビナ（ねじ式にロック出来るタイプ）を上下の金具に付けています。ゴヤール店舗 http://blog.livedoor.jp/hahgagata/

11 名前：a4 バッグレディース 投稿日： 2013/10/15(火) 16:26:02

プラダ財布
a4 バッグレディース http://www.dezhoubukewang.com/

全部読む最新50 1-100 メール受信掲示板トップリロード

▲20▼ デリゲートについて（VB2005) (Res:21)

All First100 Last50 SubjectList ReLoad ▲20▼

1 名前：こじら 投稿日： 2009/04/21(火) 22:18:44

今晩は。以前はRS-232Cの件有難う御座いました。頂いたコード元に
新たなソフト作成しているのですが、デリゲートでつまってます。
　わかりやすい資料ないでしょうか。現在　複数のボタンにRS232C
コマンドを登録し、それぞれのボタンの結果を異なるtextboxへ表示、
ボタンAの結果はboxA、ボタンBの結果はboxB、
ボタンCの結果はboxC1,C2,C3（3byte）というように、
（ボタンAの時、boxB,Cは変化なし、同様にBの時boxA,Cは変化なし）
以前頂いたﾌﾟﾛｸﾞﾗﾑは　１ボタンに１textboxで、これを真似て
みたのですが根本分かってないからエラーになります。
　また　VBで値をシフトをする
（10進７=2進0111これを左シフトすると2進1110=10進14）
は、2倍する事で実現するものなのでしょうか？コマンドあるので
しょうか
　それから　現在の値に対し2進にしたあるbitだけを1にしたり０
にしたり、またはbitの値をチェックするコマンドなどもあります
でしょか
　5=b0101　1bit目を1にセット→　b0111=7
　5=b0101　2bit目を0にセット→　b0011=3
　5=b0101　0bit目が1かどうか→　1ならtrue
　5=b0101　3bit目が0かどうか→　0ならtrue　
（PICのレジスタを操作したいため）　すみません初歩的な質問
ばかりで。

2 名前：igoten 投稿日： 2009/04/22(水) 09:51:49

こんにちは、
デリゲートがわからないと言う質問が圧倒的に多いですね。
長くなりますので分けて書きます。

まず基本的に次のことを抑えておきましょう。
マルチスレッドの場合（RS-232Cの受信はマルチスレッド
で行われます。）はメインスレッドのTextBoxにセカンドスレッド
から書き込めません、なぜならその様なルールにしてあるからです。
ではメインスレッドのサブルーチン（メソド）を呼び出すことは出来るのでしょうか？
もしこれが出来れば、そのサブルーチンの中にTextBoxに書き込む動作を
埋め込んでおけば良いと言うことになります。
答えは条件付きでYesです。
条件は２つあります１つはサブルーチンをアドレスで呼び出すこと、
２つ目はサブルーチンをセカンドスレッドではなくてメインスレッドから
呼び出すことです。
サブルーチンをアドレスで呼び出す方法がデリゲートです。

'メインスレッドに書き込むデリゲート
Delegate Sub dlgAddText(ByVal str As String)

これは引数に1つのStringを取って、アドレスでサブルーチンを
呼び出しますよと言う宣言です。
このように宣言すると戻り値がなくStringの引数を一つとるサブルーチン
なら何でも呼び出すことが出来ます。

3 名前：igoten 投稿日： 2009/04/22(水) 09:52:41

２番目のサブルーチンをセカンドスレッドから呼び出す方法ですが、
Invokeメソドを使用します。
Me.Invoke(デリゲート）とする、メインスレッドでデリゲートが実行されます。

さて私が書いた下のコードですが、言葉で説明してみます。
まずアドレスで呼び出されるサブルーチンAddTextを書いてあります。
これは引数をテキストボックスに書き込むサブルーチンです。

'メインスレッドのテキストに追加する
Me.Invoke(New dlgAddText(AddressOf AddText), New Object() {strIn})

AddTextというサブルーチンをstrInというStrinｇ型の引数を１つつけて
メインスレッドから（Me.Invoke)アドレス（AddressOf AddText）で
呼び出しなさい、と言うことになります。

これでわからない場合は具体的に何をしたいかを書いていただければ
アドバイス出来ると思います。

4 名前：igoten 投稿日： 2009/04/22(水) 09:55:49

VB.NETの場合はビット演算が簡単に使えます。
先ずSiftですが左Siftは<<、右Siftは>>です。
>10進７=2進0111これを左シフトすると2進1110=10進14は
Dim i As Integer = (7 << 1)　又は
Dim i As Integer = 7
i = i << 1　又は
i <<= 1
となります、２つシフトしたければ　i<<2とします。

ある数のあるビットが立っているかいないか調べることをビットテストと言います。
ビットテストにはAnd演算子を使います。
これはテストしたいビットだけが立った数値とテストしたい数値のAndで実現します。
1100100 (１０進　１００)
And 0000100 (１０進　　　４）
-------------------------
　　　　0000100
ANDの結果が０ならビットが立っていません。
コードは
Dim i As Integer = 100
Dim j As Integer = 2 '番目のビット
Dim k = i And 2 ^ j
If (i And 2 ^ j) > 0 Then
MessageBox.Show((j + 1).ToString + "番目のビットが立っています")
Else
MessageBox.Show((j + 1).ToString + "番目のビットが立っていません")
End If

5 名前：igoten 投稿日： 2009/04/22(水) 09:59:31

あるビットを強制的に１にしたり０にすることをビットマスクといいます。
Andを使うとあるビットだけを０に出来ます。
3ビット目を強制的に０にしています
　　　　1100100 (１０進　１００)
And　　1111011 (１０進　１２３）
---------------------------
　　　　1100000 （１０進　９６）

i = 100
i = i And 123
MessageBox.Show(i.ToString())

強制的に１にするにはOrを使います
3ビット目を強制的に１にしています
　　　　1100000 （１０進　９６）
Or　　　0000100 （１０進　　４）
---------------------------
　　　　1100１00 　(１０進　１００)
i = 32
i = i Or 4
MessageBox.Show(i.ToString())
以上です

6 名前：こじら 投稿日： 2009/04/23(木) 00:06:56

ありがとうございます。項目4,5は分かりやすく理解できました。有難うございます。
でもデリゲートのイメージがなかなかつきません。アドレスで参照する事を
宣言する事をデリゲート宣言で行うというのはなんとなく（あっているのか？？）
　したい事は　ボタン１を押すとRS232C通信でPICへ送信し、結果（Read）が
TextBox1へ表示。　ボタン２を押すとRS232C通信でPICへ別命令が送られ、また
その結果が別のTextBox2へ表示される、ボタン３も同様で、その結果がTextbox3へ。
と、　各ボタンに対し、それぞれに対応したtextboxにのみだけ結果が反映される。
以前頂いたサンプルは1ボタン、1textBoxだったので、複数あった場合は
どのようにするのか。現在うまくいってません。
　僕の認識ではデリゲートはサブルーチンのアドレスで、メインとなる各ボタン
を実行した際に呼び出され、処理をし、呼び出し元へ値を返すような認識で
適当にﾌﾟﾛｸﾞﾗﾑ書いてみたのですが。　すみません教えて下さい。
　それからもう一つ別件で、TextBoxに値を打ち込む時、文字の制限
（0-9、A-F、a-f）をかけたいと思って　textbox1_presskey---を使用、
IF文で書いてみたのですがVB6の書き方ではうまくいかなかったので
そちらも教えていただけないでしょうか。　すみません。

7 名前：igoten 投稿日： 2009/04/23(木) 08:58:28

デリゲート:
大体そんな感じですね。
テキストボックス３つとぼたん３つを置いて、ボタンを押すと
ボタンと同じ番号のTextBoxに書き込むコードを示します。
これを応用してみてください。
Delegate Sub degaddText(ByVal textBoxNo As Integer, ByVal textBoxText As String)
Private Sub addText(ByVal textBoxNo As Integer, ByVal textBoxText As String)
Select Case textBoxNo
Case 1
TextBox1.Text += textBoxText
Case 2
TextBox2.Text += textBoxText
Case 3
TextBox2.Text += textBoxText
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim textBoxNo As Integer = 1
Dim textBoxText = "Button1"
Me.Invoke(New degaddText(AddressOf addText), New Object() {textBoxNo, textBoxText})
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
Dim textBoxNo As Integer = 2
Dim textBoxText = "Button2"
Me.Invoke(New degaddText(AddressOf addText), New Object() {textBoxNo, textBoxText})
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
（省略されました・・全てを読むにはここを押してください）

8 名前：igoten 投稿日： 2009/04/23(木) 09:01:27

文字フィルタ：
ちゃんとやろうとすると結構面倒なのです。
TextChangedイベントを使って一文字ずつ比べ、想定外の文字が入力されたら
元の文字列に戻し、キャレットも元の位置に戻します。
元の文字列を覚えておくにはStaticを使っています、位置も同じです。
TextBox1.Text(i)でi番目の文字が取得できます。
これは配列ではなくインデクサ（プロパティの一種）というものです。
理解できなければまあそんな物だと覚えてください。
文字を元に戻す時は、TextChangedの中から再度TextChangedが呼ばれます。
そうすると処理が重複するため、フラグではじきます。

9 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

10 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

11 名前：igoten 投稿日： 2009/04/23(木) 09:48:07

...続き
インデントが無くて読みにくいため、半角スペース２つを全角スペースに置き換えてみました。
　　Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
　　　　　　Handles TextBox1.TextChanged
　　　　Static strBstr As String　'前の文字列を覚えている
　　　　Static intPos As Integer　'前のキャレットの位置を覚えている
　　　　Static boolFlg　'文字修正時の再突入を防ぐフラグ
　　　　If boolFlg Then
　　　　　　Return
　　　　End If
　　　　boolFlg = True
　　　　'TextBox1.Text(i)でi番目の一文字を取り出します。
　　　　'TextBox1.Text(i)は配列でなくインデクサというプロパティです。
　　　　For i As Integer = 0 To TextBox1.Text.Length - 1
　　　　　　If (TextBox1.Text(i) < "0"c Or TextBox1.Text(i) > "9"c) _
　　　　　　　　And (TextBox1.Text(i) < "a"c Or TextBox1.Text(i) > "z"c) _
　　　　　　　　And (TextBox1.Text(i) < "A"c Or TextBox1.Text(i) > "Z"c) Then
　　　　　　　　'入力文字が想定外
　　　　　　　　MessageBox.Show("入力文字が違います")
　　　　　　　　TextBox1.Text = strBstr　'前の文字に戻す
　　　　　　　　TextBox1.SelectionStart = intPos '前の位置に戻す
　　　　　　　　boolFlg = False
　　　　　　　　Return
　　　　　　End If
　　　　Next
　　　　strBstr = TextBox1.Text　　'文字列を記憶
　　　　intPos = TextBox1.SelectionStart 'キャレットの位置を記憶
　　　　boolFlg = False
　　End Sub

12 名前：こじら 投稿日： 2009/04/24(金) 21:20:01

今晩は。　有難うございます。分かりやすい例でイメージがつかめました。
所で、話戻ってしまうのかもしれないのですが、RS232CでREADする際の
事で教えて頂きたいのです。先の質問のように複数のボタンでRS232Cにコマンド
を乗せPICを操作し、それに対する値を各コマンドボタンに対するTextBoxに
表示させたいと考えているのですが、デリゲートが理解できてないから
と考えてましたが、それだけではなくSerialPort1_DataReceived　のイベント
も考えなくてはならないのではと思ってます。　というのも
　Sub　ボタン１_click
　　コマンド1送信　→　（PIC実行）　
　　（PIC)　　　　→　　コマンド受信1byte
　　TextBox1へ表示
　end
　sub　ボタン2_click
　　コマンド2送信　→　（PIC実行）
　　（PIC）　　　　→　　コマンド受信2byte
　　TextBox2へ表示
　end
　sub　ボタン3_click
　　コマンド3送信　→　（PIC実行）
　　（PIC)　　　　→　コマンド受信（任意
　　TextBox3へ表示
　end
　sub　SerialPort1_DataReceived
　　　受信処理
　end
とした時、　受信は　SerialPort1_DataReceived　の1箇所で処理され、
受信した値はどのボタンによるものか分からず該当Textboxへの表示指定が
不明になるような気がしてます。
　このような時はどのようにすればよいのでしょうか？　SerialPort1_DataReceived
処理内で　どこからのREAD命令制御なのかを判断させる　グローバルな変数
（省略されました・・全てを読むにはここを押してください）

13 名前：igoten 投稿日： 2009/04/25(土) 13:43:23

>グローバルな変数を使う感じになるのでしょうか？
そういうことですね。

結局送られてくるデータを貯めておいて、更新の度にSelect Case
等で判断する方法が一番簡単かなと思います。
「RS-232C Hex表示モニタの作成」
http://www.geocities.jp/hatanero/rs232c5.html
を参考にして考えられたらいかがでしょうか。
このプログラムではメインスレッドにあるテキストボックスに
表示させていますが、メインスレッドの中のグローバルな変数に
保持させる様にします。

14 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

15 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

16 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

17 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

18 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

19 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

20 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

21 名前：＜削除＞ 投稿日：＜削除＞

＜削除＞

全部読む最新50 1-100 メール受信掲示板トップリロード

掲示板管理者へ連絡
[00023292]