スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
緊急プラン NT川崎に向けて
ウレタン樹脂が»
新しい記事を書く事で広告が消せます。
Author:剣菱P
剣菱Pと申します。
性別:男
年齢:27
二兎を追って一兎も得られないタイプ
マイコンやプログラミング、ニコニコ動画、雑記等
方向性は見えずとも、ちょっとずつ更新していく予定です!
リンクフリーです。
こんなブログでよかったらよろしくお願いしま~す。
公開メール kenbishiP@gmail.com
やっとシリアル通信が再びつながりました
ってか、実は詳しくはまだ良くわかってませんw
こうやったら出来るよというのを参考にしたら出来ましたが、なぜそうなるのか
まだわかってないのです
とりあえず自分の覚書としてコードを書きます
#pragma endregion
private: System::Void hScrollBar1_Scroll(System::Object^ sender, System::Windows::Forms::ScrollEventArgs^ e) {
String ^ s_data1 = textBox1->Text;
data1 = hScrollBar1->Value;
textBox1->Text = data1.ToString("D3");
serialPort1->Write("A"+s_data1+" \r\n");
}
private: System::Void hScrollBar2_Scroll(System::Object^ sender, System::Windows::Forms::ScrollEventArgs^ e) {
String ^s_data2 = textBox2->Text;
data2 = hScrollBar2->Value;
textBox2->Text = data2.ToString("D3");
serialPort1->Write("B"+s_data2+" \r\n");
}
private: System::Void hScrollBar3_Scroll(System::Object^ sender, System::Windows::Forms::ScrollEventArgs^ e) {
String ^s_data3 = textBox3->Text;
data3 = hScrollBar3->Value;
textBox3->Text = data3.ToString("D3");
serialPort1->Write("C"+s_data3+" \r\n");
}
private: System::Void hScrollBar4_Scroll(System::Object^ sender, System::Windows::Forms::ScrollEventArgs^ e) {
String ^s_data4 = textBox4->Text;
data4 = hScrollBar4->Value;
textBox4->Text = data4.ToString("D3");
serialPort1->Write("D"+s_data4+" \r\n");
}
private: System::Void hScrollBar5_Scroll(System::Object^ sender, System::Windows::Forms::ScrollEventArgs^ e) {
String ^s_data5 = textBox5->Text;
data5 = hScrollBar5->Value;
textBox5->Text = data5.ToString("D3");
serialPort1->Write("E"+s_data5+" \r\n");
}
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {
serialPort1->Open();
textBox11->Text = "ポートオープン";
}
delegate void SetTextCallback(String ^);
private: void SetText(String^ str){
array<Char> ^data = str->ToCharArray();
switch(data[0]){
case 'A': textBox6->Text = str->Substring(1,3);break;
case 'B': textBox7->Text = str->Substring(1,3);break;
case 'C': textBox8->Text = str->Substring(1,3);break;
case 'D': textBox9->Text = str->Substring(1,3);break;
case 'E': textBox10->Text = str->Substring(1,3);break;
}
}
private: System::Void serialPort1_DataReceived(System::Object^ sender, System::IO::Ports::SerialDataReceivedEventArgs^ e) {
String^ str;
str = serialPort1->ReadLine();
this->Invoke(gcnew SetTextCallback(this,&Form1::SetText),str);
}
private: System::Void Form1_FormClosing(System::Object^ sender, System::Windows::Forms::FormClosingEventArgs^ e) {
serialPort1->Close();
}