-
C#¸À¸ì¡Ê6¡Ë¡ÝTCPÄÌ¿®¡Ê¥ê¥¹¥Ê¡¼ÊÔ¡Ë
-
2018.01.13 Saturday 17:05
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
º£²ó¤Ï¡¢¥ê¥¹¥Ê¡¼Â¦¤ÎTCPÄÌ¿®¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÎºîÀ®¤Ç¤¹¡£
ºîÀ®¤¹¤ë¥À¥¤¥¢¥í¥°¤Ï²¼µ¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤¢¤Þ¤ê¡¢¥¯¥é¥¤¥¢¥ó¥È¦¤ÎTCPÄÌ¿®¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤È°ã¤¤¤Ï¤¢¤ê¤Þ¤»¤ó¤Í¡¦¡¦¡¦¡£
¥½¡¼¥¹¥³¡¼¥É¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
¢¨¥¯¥é¥¤¥¢¥ó¥È¤«¤é¤ÎÀܳÂÔ¤Á¡¢Àܳ¡¢¥Ç¡¼¥¿¤ÎÁ÷¼õ¿®¤ÎÉôʬ¤òÈ´¿è¤Ç¤¹¡£
private void Btn_Start_Click(object sender, EventArgs e) { if (listener == null) { bStopFlg = false; clientList = new List
(); //---------------------------------------------- // ¥¹¥ì¥Ã¥É½èÍý //---------------------------------------------- ListenThread = new System.Threading.Thread(new System.Threading.ThreadStart(ListenStart)); ListenThread.IsBackground = true; ListenThread.Start(); } else { MessageBox.Show("ÀܳÂÔ¤Á¤Ç¤¹¡£"); } } private void ListenStart() { //IP¥¢¥É¥ì¥¹¤ÎÀßÄê¡¢¥Ý¡¼¥ÈÈÖ¹æ¤ÎÀßÄê¡¢TcpListenerºîÀ® System.Net.IPAddress ipAdd = System.Net.IPAddress.Parse(GettxBoxIP()); listener = new System.Net.Sockets.TcpListener(ipAdd, int.Parse(GettxBoxPort())); //Listen¤ò³«»Ï¤¹¤ë listener.Start(); SettxBoxReceive(GettxBoxReceive() + "Listen¤ò³«»Ï¤·¤Þ¤·¤¿(" + ((System.Net.IPEndPoint)listener.LocalEndpoint).Address + ":" + ((System.Net.IPEndPoint)listener.LocalEndpoint).Port + ")¡£¥r¥n"); SettxBoxReceiveScrollEnd(); //ÀܳÍ׵᤬¤¢¤Ã¤¿¤é¼õ¤±Æþ¤ì¤ë do { System.Net.Sockets.TcpClient client = null; try { client = listener.AcceptTcpClient(); } catch (SocketException e) { SettxBoxReceive(GettxBoxReceive() + "Listener¤òÊĤ¸¤Þ¤·¤¿¡£¥r¥n"); SettxBoxReceiveScrollEnd(); return; } SettxBoxReceive(GettxBoxReceive() + "¥¯¥é¥¤¥¢¥ó¥È(" + ((System.Net.IPEndPoint)listener.LocalEndpoint).Address + ")" + ((System.Net.IPEndPoint)listener.LocalEndpoint).Port + "¤ÈÀܳ¤·¤Þ¤·¤¿¡£¥r¥n"); SettxBoxReceiveScrollEnd(); clientList.Add(client); //---------------------------------------------- // ¥¹¥ì¥Ã¥É½èÍý //---------------------------------------------- ReceiveThread = new System.Threading.Thread(ReceiveStart); ReceiveThread.IsBackground = true; ReceiveThread.Start(client); } while (bStopFlg == false); //¥ê¥¹¥Ê¤òÊĤ¸¤ë listener.Stop(); listener = null; Console.WriteLine("Listener¤òÊĤ¸¤Þ¤·¤¿¡£"); SettxBoxReceive(GettxBoxReceive() + "Listener¤òÊĤ¸¤Þ¤·¤¿¡£¥r¥n"); SettxBoxReceiveScrollEnd(); } private void ReceiveStart(object iclient) { //¥¯¥é¥¤¥¢¥ó¥È¤«¤éÁ÷¤é¤ì¤¿¥Ç¡¼¥¿¤ò¼õ¿®¤¹¤ë System.Text.Encoding enc = System.Text.Encoding.UTF8; NetworkStream ns = null; TcpClient client = (TcpClient)iclient; //NetworkStream¤ò¼èÆÀ ns = client.GetStream(); //¥¿¥¤¥à¥¢¥¦¥ÈÀßÄê ns.ReadTimeout = 10000; ns.WriteTimeout = 10000; do { System.IO.MemoryStream ms = new System.IO.MemoryStream(); byte[] resBytes = new byte[256]; int resSize = 0; do { try { //¥Ç¡¼¥¿¤Î°ìÉô¤ò¼õ¿®¤¹¤ë resSize = ns.Read(resBytes, 0, resBytes.Length); } catch (IOException e) { } //¼õ¿®¤·¤¿¥Ç¡¼¥¿¤òÃßÀѤ¹¤ë ms.Write(resBytes, 0, resSize); } while (ns.DataAvailable); //¼õ¿®¤·¤¿¥Ç¡¼¥¿¤òʸ»úÎó¤ËÊÑ´¹ string resMsg = enc.GetString(ms.GetBuffer(), 0, (int)ms.Length); ms.Close(); //ËöÈø¤Î¥n¤òºï½ü resMsg = resMsg.TrimEnd('¥n'); if (resMsg != "") { Console.WriteLine(resMsg); SettxBoxReceive(GettxBoxReceive() + resMsg + "¥r¥n"); SettxBoxReceiveScrollEnd(); } } while (bStopFlg == false); //ÊĤ¸¤ë ns.Close(); client.Close(); SettxBoxReceive(GettxBoxReceive() + "¥¯¥é¥¤¥¢¥ó¥È¤È¤ÎÀܳ¤òÊĤ¸¤Þ¤·¤¿¡£¥r¥n"); SettxBoxReceiveScrollEnd(); } private void Btn_Stop_Click(object sender, EventArgs e) { bStopFlg = true; } private void Btn_Send_Click(object sender, EventArgs e) { if (clientList.Count != 0) { //---------------------------------------------- // ¥¹¥ì¥Ã¥É½èÍý //---------------------------------------------- SendThread = new System.Threading.Thread(new System.Threading.ThreadStart(SendStart)); SendThread.IsBackground = true; SendThread.Start(); } } private void SendStart() { //¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ë System.Text.Encoding enc = System.Text.Encoding.UTF8; //Console.WriteLine(); foreach (TcpClient client in clientList) { NetworkStream ns = null; //NetworkStream¤ò¼èÆÀ ns = client.GetStream(); //¥¿¥¤¥à¥¢¥¦¥ÈÀßÄê ns.ReadTimeout = 10000; ns.WriteTimeout = 10000; //¥¯¥é¥¤¥¢¥ó¥È¤ËÁ÷¿®¤¹¤ëʸ»úÎó¤òºîÀ® string sendMsg = txtBox_Send.Text; //ʸ»úÎó¤òByte·¿ÇÛÎó¤ËÊÑ´¹ byte[] sendBytes = enc.GetBytes(sendMsg + '¥r'); //¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ë ns.Write(sendBytes, 0, sendBytes.Length); } } ¥ê¥¹¥Ê¡¼Â¦¤Ï¡¢¥¯¥é¥¤¥¢¥ó¥È¦¤ÎÀܳ¤òÂÔ¤Á¤Þ¤¹¡£
¤Þ¤º¤Ï¡¢IP¥¢¥É¥ì¥¹¤È¥Ý¡¼¥È¤ò»ØÄꤷ¤Æ¡¢TcpListener¥¯¥é¥¹¤ò¥¤¥ó¥¹¥¿¥ó¥¹²½¤·¤Þ¤¹¡£
listener = new System.Net.Sockets.TcpListener(ipAdd, int.Parse(GettxBoxPort()));
¼¡¤Ë¡¢TcpListener¤ÎStart¥á¥½¥Ã¥É¤ÇÀܳÂÔ¤Á¤ò³«»Ï¤·¤Þ¤¹¡£
client = listener.AcceptTcpClient();
ÀܳÂÔ¤Á¤ò¤·¤Æ¤¤¤ë´Ö¡¢Â¾¤Î½èÍý¤ò¼õ¤±ÉÕ¤±¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¡¢¥¹¥ì¥Ã¥É½èÍý¤ò¤·¤Æ¤ª¤¤¤¿Êý¤¬¤è¤¤¤Ç¤¹¡£
¥¯¥é¥¤¥¢¥ó¥È¦¤«¤éÀܳ¤¬¤¢¤ë¤È¡¢¥ê¥¹¥Ê¡¼¤Ï¥¯¥é¥¤¥¢¥ó¥È¾ðÊó¤ò¼èÆÀ¤·¤Þ¤¹¡£
client = listener.AcceptTcpClient();
¤³¤Î¥¯¥é¥¤¥¢¥ó¥È¾ðÊó¤ò»ÈÍѤ·¤Æ¡¢¥Ç¡¼¥¿¤ÎÁ÷¼õ¿®¤ò¤·¤Þ¤¹¡£
¥Ç¡¼¥¿¤ÎÁ÷¼õ¿®½èÍý¤Ï¡¢¥¯¥é¥¤¥¢¥ó¥È¦¤Î½èÍý¤È¤Û¤Ü¤Û¤ÜƱ¤¸¤Ç¤¹¡£
¼ÂºÝ¤Ëʸ»ú¤òÁ÷¼õ¿®¤·¤Æ¤ë²èÌ̤ϡ¢²¼µ¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¥¯¥é¥¤¥¢¥ó¥È¦
¥µ¡¼¥Ð¡¼Â¦
-
C#¸À¸ì¡Ê5¡Ë¡ÝTCPÄÌ¿®¡Ê¥¯¥é¥¤¥¢¥ó¥ÈÊÔ¡Ë
-
2018.01.07 Sunday 16:57
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
C#¸À¸ì¤ò»ÈÍѤ·¤Æ¡¢TCPÄÌ¿®¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Þ¤¹¡£
º£²ó¤Ï¡¢¥¯¥é¥¤¥¢¥ó¥È¦¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ë¤Ê¤ê¤Þ¤¹¡£
TCPÄÌ¿®¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î¥À¥¤¥¢¥í¥°¤Ï²¼µ¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
IP¤Ë¤Ï¡¢ÀܳÀ襢¥É¥ì¥¹¤òÆþÎϤ·¤Æ¡¢¥Ý¡¼¥È¤Ë¤Ï¡¢»ÈÍѤ¹¤ë¥Ý¡¼¥ÈÈÖ¹æ¤òÆþÎϤ·¤Þ¤¹¡£
IP¡¢¥Ý¡¼¥È¤Ï¼«Ê¬¤ÎPC¤Î´Ä¶¤Ë¹ç¤ï¤»¤Æ¤¯¤À¤µ¤¤¡£
»ä¤Î¾ì¹ç¤Ï¡¢IP¡Ö192.168.25.1¡×¡¢¥Ý¡¼¥È¡Ö8888¡×¤òÆþÎϤ·¤Þ¤·¤¿¡£
¤Þ¤¿¡¢¥»¥¥å¥ê¥Æ¥£¥½¥Õ¥È¤¬¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢¥Í¥Ã¥È¥ï¡¼¥¯¤ËÀܳ¤Ç¤¤ë¤è¤¦¤Ë¡¢ÀßÄê¤ò¤·¤Æ²¼¤µ¤¤¡£
ÆþÎϤ·¤¿¤é¡¢³«»Ï¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë»ö¤Ç¡¢Àܳ¤ò»î¤ß¤Þ¤¹¡£
Àܳ¤¬´°Î»¤·¤¿¤é¡¢²¼µ¤Î¤è¤¦¤Ê¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
¥½¡¼¥¹¥³¡¼¥É¤Ï²¼µ¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¢¨¥ê¥¹¥Ê¡¼Â¦¤È¤ÎÀܳ¡¢¥Ç¡¼¥¿¤ÎÁ÷¼õ¿®Éôʬ¤òÈ´¿è
private void Btn_Start_Click(object sender, EventArgs e) { bStopFlg = false; //ÀܳÀèIP¥¢¥É¥ì¥¹ string strAdd = GettxBoxIP(); //ÀܳÀè¥Ý¡¼¥ÈÈÖ¹æ //TcpListener¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë int port = int.Parse(GettxBoxPort()); //TcpClient¤òºîÀ®¤·¡¢¥µ¡¼¥Ð¡¼¤ÈÀܳ¤¹¤ë tcp = new System.Net.Sockets.TcpClient(strAdd, port); SettxBoxReceive("¥µ¡¼¥Ð¡¼(" + ((System.Net.IPEndPoint)tcp.Client.RemoteEndPoint).Address + ":" + ((System.Net.IPEndPoint)tcp.Client.RemoteEndPoint).Port + ")¤ÈÀܳ¤·¤Þ¤·¤¿¡£"); SettxBoxReceiveScrollEnd(); ReceiveThread = new System.Threading.Thread(ReceiveStart); ReceiveThread.IsBackground = true; ReceiveThread.Start(); } private void ReceiveStart() { //¥¯¥é¥¤¥¢¥ó¥È¤«¤éÁ÷¤é¤ì¤¿¥Ç¡¼¥¿¤ò¼õ¿®¤¹¤ë System.Text.Encoding enc = System.Text.Encoding.UTF8; NetworkStream ns = null; //NetworkStream¤ò¼èÆÀ ns = tcp.GetStream(); //¥¿¥¤¥à¥¢¥¦¥ÈÀßÄê ns.ReadTimeout = 10000; ns.WriteTimeout = 10000; do { System.IO.MemoryStream ms = new System.IO.MemoryStream(); byte[] resBytes = new byte[256]; int resSize = 0; do { try { //¥Ç¡¼¥¿¤Î°ìÉô¤ò¼õ¿®¤¹¤ë resSize = ns.Read(resBytes, 0, resBytes.Length); } catch (IOException e) { } //¼õ¿®¤·¤¿¥Ç¡¼¥¿¤òÃßÀѤ¹¤ë ms.Write(resBytes, 0, resSize); } while (ns.DataAvailable); //¼õ¿®¤·¤¿¥Ç¡¼¥¿¤òʸ»úÎó¤ËÊÑ´¹ string resMsg = enc.GetString(ms.GetBuffer(), 0, (int)ms.Length); ms.Close(); //ËöÈø¤Î¥n¤òºï½ü resMsg = resMsg.TrimEnd('¥n'); if (resMsg != "") { Console.WriteLine(resMsg); SettxBoxReceive(GettxBoxReceive() + resMsg + "¥r¥n"); SettxBoxReceiveScrollEnd(); } } while (bStopFlg == false); //ÊĤ¸¤ë ns.Close(); tcp.Close(); SettxBoxReceive(GettxBoxReceive() + "¥¯¥é¥¤¥¢¥ó¥È¤È¤ÎÀܳ¤òÊĤ¸¤Þ¤·¤¿¡£¥r¥n"); SettxBoxReceiveScrollEnd(); } private void Btn_Send_Click(object sender, EventArgs e) { if (tcp != null) { SendThread = new System.Threading.Thread(SendStart); SendThread.IsBackground = true; SendThread.Start(); } } private void SendStart() { //¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ë System.Text.Encoding enc = System.Text.Encoding.UTF8; NetworkStream ns = null; //NetworkStream¤ò¼èÆÀ ns = tcp.GetStream(); //¥¿¥¤¥à¥¢¥¦¥ÈÀßÄê ns.ReadTimeout = 10000; ns.WriteTimeout = 10000; //¥¯¥é¥¤¥¢¥ó¥È¤ËÁ÷¿®¤¹¤ëʸ»úÎó¤òºîÀ® string sendMsg = txtBox_Send.Text; //ʸ»úÎó¤òByte·¿ÇÛÎó¤ËÊÑ´¹ byte[] sendBytes = enc.GetBytes(sendMsg + '¥r'); //¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ë ns.Write(sendBytes, 0, sendBytes.Length); }
¥¯¥é¥¤¥¢¥ó¥È¦¤ÎÀܳ¤Ï¥·¥ó¥×¥ë¤Ç¤¹¡£
tcp = new System.Net.Sockets.TcpClient(strAdd, port);
System.Net.Sockets.TcpClient¥¯¥é¥¹¤ËIP¥¢¥É¥ì¥¹¤È¥Ý¡¼¥ÈÈÖ¹æ¤òÅϤ·¤Æ¡¢¥¯¥é¥¹¤ò¥¤¥ó¥¹¥¿¥ó¥¹²½¤¹¤ì¤ÐÎɤ¤¤Ç¤¹¡£
Áê¼ê¦¤ËÀܳ¤Ç¤¤ì¤Ð¡¢¼õ¿®¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÀܳ¤Ç¤¤¿¤³¤È¤òɽ¼¨¤·¤Þ¤¹¡£
¤½¤Î¸å¡¢¥¹¥ì¥Ã¥É½èÍý¤ò¤·¤Þ¤¹¡£
¥¹¥ì¥Ã¥É½èÍý¤ÎÃæ¤Ç¤Ï¡¢¥ê¥¹¥Ê¡¼Â¦¤«¤éÁ÷¤é¤ì¤Æ¤¯¤ëʸ»úÎó¤Î½èÍý¤ò¤·¤Þ¤¹¡£
¤³¤³¤Ç¡¢¥¹¥ì¥Ã¥É½èÍý¤ò¤·¤Æ¤ª¤«¤Ê¤¤¤È¡¢Â¾¤Îưºî¤¬¤Ç¤¤Ê¤¤¤Î¤Ç¡¢¥¹¥ì¥Ã¥É½èÍý¤¬É¬ÍפǤ¹¡£
¥¹¥ì¥Ã¥É½èÍý¤Ë¤Ä¤¤¤Æ¤Ï¡¢¤Þ¤¿¸åÄø¡¢µ»ö¤òºîÀ®¤·¤è¤¦¤È»×¤¤¤Þ¤¹¡£
bStopFlg¤¬false¤Î´Ö¤Ï¡¢¼õ¿®¤ò³¤±¤Þ¤¹¡£
Àܳ¤ò½ªÎ»¤·¤¿¤¤¾ì¹ç¤Ï¡¢bStopFlg¤òfalse¤Ë¤¹¤ëɬÍפ¬¤¢¤ë¤ï¤±¤Ç¤¹¡£
Ää»ß¥Ü¥¿¥ó¤Îưºî¤Ë¡¢bStopFlg=true;¤òÄɲ乤ì¤Ð¤è¤¤¤Ç¤¹¤Í¡£
¤Þ¤¿¡¢¥¹¥ì¥Ã¥É½èÍý¤ò¤¹¤ëºÝ¤ËÃí°Õ¤¹¤ëɬÍפ¬¤¢¤ë¤³¤È¤Ï¡¢¥À¥¤¥¢¥í¥°¤ÎÃæ¤Î¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Ëʸ»ú¤òɽ¼¨¤µ¤»¤Æ¤¤»þ¤Î½èÍý¤Ç¤¹¡£
¥À¥¤¥¢¥í¥°¤Î²èÌ̤ϡ¢¼õ¿®¥¹¥ì¥Ã¥É¤È¤Ï¡¢Ê̤Υ¹¥ì¥Ã¥É¤Çưºî¤·¤Æ¤¤¤ë¤Î¤Ç¡¢¤½¤Î¤Þ¤Þ¡¢¼õ¿®¥¹¥ì¥Ã¥É¤ÎÃæ¤Ç¡¢¥À¥¤¥¢¥í¥°¤Î¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Ë¤Ï¥¢¥¯¥»¥¹¤Ç¤¤Þ¤»¤ó¡£
¤½¤³¤Ç¡¢SettxBoxReceive´Ø¿ô¤òºîÀ®¤·¤Æ¤¤¤Þ¤¹¡£
SettxBoxReceive´Ø¿ô¤Ç¤Ï¡¢¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò»ÈÍѤ·¤Æ¡¢¥À¥¤¥¢¥í¥°¤Ë¥¢¥¯¥»¥¹¤Ç¤¤ë¤è¤¦¤Ë´Ø¿ô¤òºîÀ®¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¤³¤Á¤é¤â¸åÄø¡¢µ»ö¤òºîÀ®¤·¤è¤¦¤È»×¤¤¤Þ¤¹¡£
ʸ»úÎó¤ÎÁ÷¿®¤Ï¡¢Á÷¿®¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Ëʸ»ú¤òÆþÎϤ·¤Æ¡¢Á÷¿®¤ò²¡¤¹¤È¡¢¥ê¥¹¥Ê¡¼Â¦¤Ëʸ»úÎó¤¬Á÷¿®¤µ¤ì¤Þ¤¹¡£
¤³¤Á¤é¤â¡¢¥¹¥ì¥Ã¥É½èÍý¤ÇÁ÷¿®¤Ï¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£
¥¿¥¤¥à¥¢¥¦¥ÈÀßÄê¤ò¤·¤Æ¤¤¤ë¤Î¤Ç¡¢Á÷¿®¤Î¾ì¹ç¤Ï¡¢¥¹¥ì¥Ã¥É½èÍý¤ò¤·¤Ê¤¯¤Æ¤â¤è¤¤¤Ç¤¹¡£
¼ÂºÝ¤Ëʸ»ú¤òÁ÷¼õ¿®¤·¤Æ¤ë²èÌ̤ϡ¢¥ê¥¹¥Ê¡¼Â¦¤ÎTCPÄÌ¿®¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤¿»þ¤Ë¡¢²èÁü¤òޤêÉÕ¤±¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
¼¡²ó¤Ï¡¢¥ê¥¹¥Ê¡¼Â¦¤ÎTCPÄÌ¿®¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Þ¤¹¡£
-
C#¸À¸ì¡Ê4¡Ë¡ÝRS232CÄÌ¿®¡Ê¥·¥ê¥¢¥ëÄÌ¿®¡Ë¡Ê2¡Ë
-
2018.01.05 Friday 14:13
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
Á°²ó¡¢RS232ÄÌ¿®¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î¥À¥¤¥¢¥í¥°¤òºîÀ®¤·¤Þ¤·¤¿¡£
ËÜÆü¤Ï¡¢³Æ¼ï¥Ü¥¿¥ó¤ä¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Îưºî¤òÄêµÁ¤·¤Æ¤¤¤¤Þ¤¹¡£
¤Þ¤º¤Ï¡¢¥À¥¤¥¢¥í¥°¤ò¥í¡¼¥É¤·¤¿¤È¤¤Îưºî¤Ç¤¹¡£
private void SerialForm_Load(object sender, EventArgs e) { string[] PortList = SerialPort.GetPortNames(); cmbBox_Port.Items.Clear(); foreach (string PortName in PortList) { cmbBox_Port.Items.Add(PortName); } }
SerialPort¥¯¥é¥¹¤Î¥á¥½¥Ã¥É¡¢GetPortNames¤ÇÍøÍѲÄǽ¤Ê¥·¥ê¥¢¥ë¥Ý¡¼¥È̾¤ò¼èÆÀ¤·¤Þ¤¹¡£
¼èÆÀ¤·¤¿¥·¥ê¥¢¥ë¥Ý¡¼¥È̾¤òcmbBox_Port¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎÃͤËÄɲä·¤Þ¤¹¡£
¤³¤ì¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¼Â¹Ô»þ¤Ë¥·¥ê¥¢¥ë¥Ý¡¼¥È¤òÁªÂò¤Ç¤¤Þ¤¹¡£
¼¡¤ÏÀܳ¥Ü¥¿¥ó¤Îưºî¤Ç¤¹¡£
private void Btn_Connect_Click(object sender, EventArgs e) { if (serialPort1.IsOpen == false) { if (cmbBox_Port.Items.Count <= 0) { return; } serialPort1.PortName = cmbBox_Port.SelectedItem.ToString(); serialPort1.BaudRate = 9600; serialPort1.DataBits = 8; serialPort1.Parity = Parity.None; serialPort1.StopBits = StopBits.One; serialPort1.Handshake = Handshake.None; serialPort1.Encoding = Encoding.GetEncoding(932); serialPort1.ReadTimeout = 3000; try { serialPort1.Open(); MessageBox.Show("Àܳ¤·¤Þ¤·¤¿¡£"); } catch (Exception ex) { MessageBox.Show(ex.Message); return; } } return; }
¥À¥¤¥¢¥í¥°ºîÀ®»þ¤ËÄɲä·¤Þ¤·¤¿serialPort1¤Î¥×¥í¥Ñ¥Æ¥£¤Ë³Æ¼ï¥Ñ¥é¥á¡¼¥¿¤òÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£
Open¥á¥½¥Ã¥É¤ÇRS232ÄÌ¿®¡Ê¥·¥ê¥¢¥ëÄÌ¿®¡Ë¤ò³«»Ï¤·¤Þ¤¹¡£
²ò½ü¥Ü¥¿¥ó¤Îưºî¤Ç¤¹¡£
private void Btn_Disconnect_Click(object sender, EventArgs e) { if (serialPort1.IsOpen == true) { serialPort1.Close(); MessageBox.Show("ÀÚÃǤ·¤Þ¤·¤¿¡£"); } return; }
Close¥á¥½¥Ã¥É¤ÇRS232ÄÌ¿®¡Ê¥·¥ê¥¢¥ëÄÌ¿®¡Ë¤ò½ªÎ»¤·¤Þ¤¹¡£
¼¡¤Ï¡¢Á÷¿®¥Ü¥¿¥ó¤Îưºî¤ÎÄêµÁ¤Ç¤¹¡£
private void Btn_Send_Click(object sender, EventArgs e) { if (serialPort1.IsOpen == false) { MessageBox.Show("¥Ý¡¼¥È¤¬³«¤«¤ì¤Æ¤¤¤Þ¤»¤ó¡£"); return; } if (string.IsNullOrEmpty(txtBox_Send.Text) == true) { MessageBox.Show("¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤¬¶õÍó¤Ç¤¹"); return; } try { serialPort1.Write(txtBox_Send.Text + "¥r"); } catch (Exception ex) { MessageBox.Show(ex.Message); return; } return; }
Write¥á¥½¥Ã¥É¤ÇPC¦¤«¤éÁê¼ê¦¤Ëʸ»úÎó¤ò1ʸ»ú¤º¤ÄÁ÷¿®¤·¤Þ¤¹¡£
»ä¤ÎºîÀ®¤¹¤ëÁȤ߹þ¤ß¥½¥Õ¥È¥¦¥§¥¢¤Ï¶èÀÚ¤êʸ»ú¤Ë"¥r"¤ò»ÈÍѤ¹¤ë»ÈÍѤǤ¢¤ë¤Î¤Ç¡¢Write¥á¥½¥Ã¥É¤Î°ú¿ôʸ»úÎó¤ÎºÇ¸å¤Î"¥r"¤òÄɲ䷤Ƥ¤¤Þ¤¹¡£
¼õ¿®¥Ü¥¿¥ó¤Îưºî¤ÎÄêµÁ¤Ç¤¹¡£
private void Btn_Receive_Click(object sender, EventArgs e) { string sReceive = ""; if (serialPort1.IsOpen == false) { MessageBox.Show("¥Ý¡¼¥È¤¬³«¤«¤ì¤Æ¤¤¤Þ¤»¤ó¡£"); return; } try { sReceive = serialPort1.ReadTo("¥r"); sReceive = sReceive + "¥r¥n"; } catch (Exception ex) { MessageBox.Show(ex.Message); return; } txtBox_Receive.Text = txtBox_Receive.Text + sReceive; }
ReadTo¥á¥½¥Ã¥É¤Ç»ØÄꤷ¤¿Ê¸»ú¤Þ¤Ç¤Îʸ»úÎó¤ò¼õ¿®¤·¤Þ¤¹¡£
¥¿¥¤¥à¥¢¥¦¥È»þ´Ö¤Ï¡¢Àܳ¥Ü¥¿¥ó¤ò²¡¤·¤¿ºÝ¤Ë¡¢3000msec¤È»ØÄꤷ¤Æ¤¢¤ë¤Î¤Ç¡¢3Éðʾ夿¤Ã¤Æ¤â»ØÄꤷ¤¿Ê¸»ú¤ò¼õ¿®¤·¤Ê¤¤¾ì¹ç¤Ï¡¢¥¿¥¤¥à¥¢¥¦¥È¤·¤Þ¤¹¡£
¤³¤ì¤Ë¤ÆC#¸À¸ì¤Ë¤è¤ëRS232ÄÌ¿®¤Î´°À®¤Ç¤¹¡£
Áê¼ê¦¤ÏArduino¤ÇºîÀ®¤·¤è¤¦¤È»×¤¤¤Þ¤¹¡£
Áê¼ê¦¤Ë¤Ä¤¤¤Æ¤Ï²¼µ¤Î¥µ¥¤¥È¤ËµºÜ¤·¤Æ¤¢¤ê¤Þ¤¹¡£
PC¦¤«¤éSend¤òÁ÷¿®¤¹¤ë¤È¡¢Arduino¤ÎLED(L)¤¬ÅÀÅô¤·¤Þ¤¹¡£
PC¦¤Î¼õ¿®¥Ü¥¿¥ó¤ò²¡¤¹¤ÈOK¤ò¼õ¿®¤·¤Þ¤¹¡£
-
C#¸À¸ì¡Ê3¡Ë¡ÝRS232CÄÌ¿®¡Ê¥·¥ê¥¢¥ëÄÌ¿®¡Ë¡Ê1¡Ë
-
2018.01.04 Thursday 11:14
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
ÁȤ߹þ¤ß¥½¥Õ¥È¥¦¥§¥¢¤Î³«È¯¤ÎºÝ¤Ë¤Ï¡¢Âç³µ¡¢¥·¥ê¥¢¥ëÄÌ¿®µ¡Ç½¤òÅëºÜ¤·¤Þ¤¹¡£
¥·¥ê¥¢¥ëÄÌ¿®¤ò³°Éôµ¡´ï¤È¤Î¤ä¤ê¼è¤ë¤ò¤¹¤ë¾å¤ÇÂçÀڤʵ¡Ç½¤Ç¤¹¡£
¥Ç¥Ð¥Ã¥¯ºî¶È¤ò¤¹¤ëºÝ¤Ë¤â¤È¤Æ¤âÌòΩ¤Á¤Þ¤¹¡£
PC¦¤ÏOSI»²¾È¥â¥Ç¥ë¤ÎʪÍýÁؤ˰ÌÃ֤Ť±¤é¤ì¤ëRS232CÄÌ¿®¤ò»ÈÍѤ·¤Þ¤¹¡£
¤½¤ì¤Ç¤Ï¡¢Áᮡ¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Þ¤·¤ç¤¦¡£
¥Ü¥¿¥ó¤ä¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎºîÀ®ÊýË¡¤Ï¡¢C#¸À¸ì¡Ê2¡Ë¡Ý¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Æ¤ß¤ë¤ò»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
²¼µ¤Î¤è¤¦¤Ê¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Þ¤¹¡£
¥×¥í¥Ñ¥Æ¥£¤Î¥Æ¥¥¹¥ÈÍó¤òÊÔ½¸¤·¤Æ¡¢¥Ü¥¿¥ó¤ä¥°¥ë¡¼¥×¥Ü¥Ã¥¯¥¹¤Îɽ¼¨¤òÊÔ½¸¤Ç¤¤Þ¤¹¡£
¥×¥í¥Ñ¥Æ¥£¤ÎName¤òÊÔ½¸¤·¤Æ¡¢¥Ü¥¿¥ó¤ä¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Ë¼±Ê̻ҤòÄêµÁ¤·¤Þ¤¹¡£
²¼µ¤Ë¥Ü¥¿¥ó¤ä¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¼±Ê̻ҤòµºÜ¤·¤Æ¤ª¤¤Þ¤¹¤Î¤Ç¡¢»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£
Name Text groupBox1 ¥Ý¡¼¥È cmbBox_Port ¶õÍó Btn_Connect Àܳ Btn_Disconnect ²ò½ü groupBox2 Á÷¿® txtBox_Send ¶õÍó Btn_Send Á÷¿® groupBox3 ¼õ¿® Btn_Receive ¼õ¿® txtBox_Receive ¶õÍó º£²ó¡¢¥Ý¥¤¥ó¥È¤È¤Ê¤Ã¤Æ¤¯¤ë¤Î¤¬²¼µ¤Îºî¶È¤Ë¤Ê¤ê¤Þ¤¹¡£
¥Ä¡¼¥ë¥Ü¥Ã¥¯¥¹¤è¤êSerialPort¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·¤ÆÄɲä·¤Þ¤¹¡£¥À¥¤¥¢¥í¥°¤Î²¼¤ÎÊý¤ËserialPort1¤¬Äɲäµ¤ì¤Æ¤¤¤Þ¤¹¡£
¤³¤ÎserialPort1¤ò»ÈÍѤ·¤Æ¡¢RS232ÄÌ¿®¤ò¹Ô¤¤¤Þ¤¹¡£
¤Þ¤º¤Ï¡¢¥À¥¤¥¢¥í¥°¤ÎºîÀ®¤Þ¤Ç¤Ç¤¤Þ¤·¤¿¡£
¼¡²ó¤«¤é³Æ¼ï¥Ü¥¿¥ó¤ä¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¤Ê¤É¤Îưºî¤òÄêµÁ¤·¤Æ¤¤¤³¤¦¤È»×¤¤¤Þ¤¹¡£
-
C#¸À¸ì¡Ê2¡Ë¡Ý¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Æ¤ß¤ë
-
2017.12.24 Sunday 16:58
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
Á°²ó¡¢C#¸À¸ì¤ò»ÈÍѤ¹¤ë°Ù¤Î³«È¯´Ä¶(Visual Studio)¤Î½àÈ÷¤ò¤·¤Þ¤·¤¿¡£
º£²ó¤Ï¡¢Áᮡ¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
ºîÀ®¤¹¤ë¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï²¼µ¤Î¤è¤¦¤Ê¥À¥¤¥¢¥í¥°¤Ë¤Ê¤ê¤Þ¤¹¡£
ɽ¼¨¥Ü¥¿¥ó¤ò²¡¤¹¤È¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËHello¤Èɽ¼¨¤·¤Æ¡¢¥¯¥ê¥¢¥Ü¥¿¥ó¤ò²¡¤¹¤È¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ò¶õÍó¤Ë¤¹¤ë¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ç¤¹¡£
¤Þ¤º¤Ï¡¢¿·µ¬¥×¥í¥¸¥§¥¯¥È¤ÎºîÀ®¤ò¹Ô¤¤¤Þ¤¹¡£
¥á¥Ë¥å¡¼¤è¤ê¡¢¥Õ¥¡¥¤¥ë¡¢¿·µ¬¥×¥í¥¸¥§¥¯¥ÈºîÀ®¤òÁªÂò¤·¤Þ¤¹¡£
¤¹¤ë¤È¡¢²¼µ¤Î¤è¤¦¤Ê²èÌ̤¬É½¼¨¤µ¤ì¤ë¤Î¤Ç¡¢windows¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òÁªÂò¡¢¥×¥í¥¸¥§¥¯¥È̾¡ÊǤ°Õ̾¡Ë¤òÆþÎϤ·¤Æ¡¢´°Î»¤òÁªÂò¤·¤Þ¤¹¡£
»ä¤Ï¡¢£Ápplication_001¤È¤¤¤¦¥×¥í¥¸¥§¥¯¥È̾¤Ë¤·¤Þ¤·¤¿¡£
¤¹¤ë¤È¡¢C#¸À¸ì¤Çwindows¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤¹¤ë¤¿¤á¤Î¥Ù¡¼¥¹¤¬ÍѰդµ¤ì¤Þ¤¹¡£
¤³¤Î¾õÂ֤ǡ¢¥Ó¥ë¥É¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
¥Ó¥ë¥É¤¬À®¸ù¤·¤¿¤é¡¢¥Ç¥Ð¥Ã¥¯¤ò¼Â¹Ô¤·¤Þ¤¹¡£
¤¹¤ë¤È¡¢²¼µ¤Î¤è¤¦¤Ê²¿¤âÀßÃÖ¤·¤Æ¤¤¤Ê¤¤¥À¥¤¥¢¥í¥°¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
Íפ¹¤ë¤Ë¡¢¿·µ¬¤Ë¥×¥í¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤À¤±¤Ç¡¢¤³¤³¤Þ¤ÇºîÀ®¤·¤Æ¤¯¤ì¤ë¤Î¤Ç¤¹¡£
¤¹¤Ð¤é¤·¡¼¤¤¡ª¡ª
¤½¤ì¤Ç¤Ï¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤òÇÛÃÖ¤·¤Þ¤¹¡£
¥Ä¡¼¥ë¥Ü¥Ã¥¯¥¹¤«¤éTextBox¤òÁªÂò¤·¡¢¥É¥é¥Ã¥¯¡õ¥É¥í¥Ã¥×¤ÇÇÛÃ֤Ǥ¤Þ¤¹¡£
¥×¥í¥Ñ¥Æ¥£¤Î¥Ç¥¶¥¤¥ó¤ÎName¤ËtextBox1¤ÈµºÜ¤µ¤ì¤Æ¤Þ¤¹¤¬¡¢¤³¤ì¤¬¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¼±Ê̻ҤȤʤê¤Þ¤¹¡£
Ʊ¤¸¤è¤¦¤Ë¡¢¥Ü¥¿¥ó¤âÇÛÃÖ¤·¤Þ¤¹¡£
¥Ä¡¼¥ë¥Ü¥Ã¥¯¥¹¤«¤éButton¤òÁªÂò¤·¡¢¥É¥é¥Ã¥¯¡õ¥É¥í¥Ã¥×¤ÇÇÛÃÖ¤·¤Þ¤¹¡£
¥Ü¥¿¥ó¤Î¼±Ê̻ҤϤ½¤ì¤¾¤ìbutton1¤Èbutton2¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
¼¡¤Ë¡¢¥Ü¥¿¥ó¤Î̾¾Î¤òÊѹ¹¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
¥×¥í¥Ñ¥Æ¥£¤Îɽ¼¨¤ËText¤È¤¤¤¦Í󤬤¢¤ë¤Î¤Ç¡¢button1¤Ë¤Ïɽ¼¨¡¢button2¤Ë¤Ï¥¯¥ê¥¢¤òÆþÎϤ·¤Þ¤¹¡£
¤¹¤ë¤È¥À¥¤¥¢¥í¥°¾å¤Î¥Ü¥¿¥ó¤Îɽµ¤¬ÊѤï¤ê¤Þ¤¹¡£
¤½¤ì¤Ç¤Ï¡¢¥Ü¥¿¥ó¤Îưºî¤òÄêµÁ¤·¤Þ¤¹¡£
button1¡Êɽ¼¨¡Ë¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
¤¹¤ë¤È¡¢button1_Click¤È¤¤¤¦´Ø¿ô¤¬ºîÀ®¤µ¤ì¤Þ¤¹¡£
¤³¤ÎÃæ¤Ëbutton1¤ò¥¯¥ê¥Ã¥¯¤·¤¿ºÝ¤Îưºî¤òµ½Ò¤·¤Þ¤¹¡£
butto1_Click´Ø¿ô¤Ë²¼µ¤Î¥³¡¼¥É¤òµ½Ò¤·¤Þ¤¹¡£
textBox1.Text = "Hello";
button2¡Ê¥¯¥ê¥¢¡Ë¤âƱ¤¸¤è¤¦¤Ëbutto2_Click´Ø¿ô¤òºîÀ®¤·¡¢¤Ë²¼µ¤Î¥³¡¼¥É¤òµ½Ò¤·¤Þ¤¹¡£
textBox2.Text = "";
¤³¤ì¤Ç´°À®¤Ç¤¹¡£
¤½¤ì¤Ç¤ÏÀèÄø¤ÈƱ¤¸¤è¤¦¤Ë¥Ó¥ë¥É¤·¤Æ¡¢¥Ç¥Ð¥Ã¥¯¤ò¼Â¹Ô¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
²¼µ¤Î¤è¤¦¤Ê¥À¥¤¥¢¥í¥°¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
¥À¥¤¥¢¥í¥°¾å¤Îɽ¼¨¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËHello¤È¤¤¤¦Ê¸»ú¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
¥¯¥ê¥¢¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¶õÍó¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤Î¤è¤¦¤Ë¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤¬ºîÀ®¤Ç¤¤Þ¤¹¡ª
-
C#¸À¸ì¡Ê1¡Ë¡Ý³«È¯¸À¸ì¡ÊVisualStudio¡Ë¤Î½àÈ÷
-
2017.12.20 Wednesday 22:16
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
º£²ó¤Ï¡¢C#¸À¸ì¤Ë¤Ä¤¤¤Æ¤Î¤ªÏäǤ¹¡£
C#¸À¸ì¤Ï¡¢¼«Ê¬¤Î¥¤¥á¡¼¥¸¤Ç¤Ï¡¢Visual Basic¤È C++¤ÎÎɤ¤¤È¤³¤í¤É¤ê¤È¤¤¤¦¥¤¥á¡¼¥¸¤Ç¤¹¡£
¤È¤Æ¤â»È¤¤¤ä¤¹¤¤¸À¸ì¤Ç¤¢¤ë¤È»×¤¤¤Þ¤¹¡£
¤â¤È¤â¤È¤Ï¡¢C++¸À¸ì¤ò»È¤¦¤³¤È¤¬Â¿¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢ºÇ¶á¤Ï¤Û¤È¤ó¤É¡¢C#¸À¸ì¤Ç¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÎºîÀ®¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£
¤½¤ì¤Ç¤Ï¡¢¤Þ¤º¤Ï¡¢³«È¯´Ä¶¤ÎVisual Studio¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·¤Þ¤¹¡£
²¼µ¤Î¥µ¥¤¥È¤Ë¥¢¥¯¥»¥¹¤·¤Æ¡¢Ìµ½þÈǤǤ¢¤ëVisual Studio Community¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¥¤¥ó¥¹¥È¡¼¥é¤Î¥À¥ó¥í¡¼¥É¤¬³«»Ï¤µ¤ì¤Þ¤¹¡£
vs_community__¡û¡û¡û.¡û¡û¡û.exe¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤¬¥À¥¦¥ó¥í¡¼¥É¤µ¤ì¤ë¤È»×¤¤¤Þ¤¹¡£
¤³¤ì¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤Ç¼Â¹Ô¤¹¤ë¤È¡¢¥¤¥ó¥¹¥È¡¼¥ë¤¬³«»Ï¤µ¤ì¤Þ¤¹¡£
¥¤¥ó¥¹¥È¡¼¥ë¤ò³«»Ï¤¹¤ë¤È²¼µ¤Î¤è¤¦¤Ê²èÌ̤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
º£²ó¡¢C#¸À¸ì¤Ç¤Î³«È¯¤ò¹Ô¤ª¤¦¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¡¢¤È¤ê¤¢¤¨¤º²¼µ¤Î3ÅÀ¤Ë¥Á¥§¥Ã¥¯¤òÆþ¤ì¤Æ¡¢¥¤¥ó¥¹¥È¡¼¥ë¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤Ð¤¤¤¤¤«¤Ê¤È»×¤¤¤Þ¤¹¡£
¸å¤Ï¡¢¼«Æ°¤Ç¥¤¥ó¥¹¥È¡¼¥ë¤·¤Æ¤¯¤ì¤Þ¤¹¤¬¡¢¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤ò»ÈÍѤ·¤Æ¡¢¥Õ¥¡¥¤¥ë¤ò¥À¥¦¥ó¥í¡¼¥É¤ò¤·¤Ê¤¬¤é¥¤¥ó¥¹¥È¡¼¥ë¤ò¤·¤Þ¤¹¤Î¤Ç¡¢¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤Ë¤ÏÀܳ¤·¤¿¾õÂ֤ǹԤäƤ¯¤À¤µ¤¤¡£
¥¤¥ó¥¹¥È¡¼¥ë¤¬´°Î»¤¹¤ë¤È¡¢Visual Studio 2017¤È¤¤¤¦¥¢¥¤¥³¥ó¤¬¤¢¤ë¤È»×¤¤¤Þ¤¹¤Î¤Ç¡¢¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤Ç¼Â¹Ô¤·¤Æ²¼¤µ¤¤¡£
̵¤¤¾ì¹ç¤Ï¡¢¥¹¥¿¡¼¥È¥á¥Ë¥å¡¼¤è¤êVisual Studio 2017¤òÁªÂò¤·¤Æ²¼¤µ¤¤¡£
ÁªÂò¤¹¤ë¤ÈVisual Studio 2017¤¬¼Â¹Ô¤µ¤ì¤ë¤Î¤Ç¡¢²èÌ̤λٻý¤Ë½¾¤Ã¤Æ¡¢¿Ê¤á¤Æ²¼¤µ¤¤¡£
³Î¤«Microsoft¤Î¥¢¥«¥¦¥ó¥È¤òÅÐÏ¿¤¹¤ë¤è¤¦¤Ëµá¤á¤é¤ì¤ë¤Î¤Ç¡¢ÅÐÏ¿¤·¤Æ²¼¤µ¤¤¡£
ÅÐÏ¿¤·¤Ê¤¤¤È¡¢ºÇ½é¤Î¤³¤í¤Ï¤è¤¤¤Î¤Ç¤¹¤¬¡¢¸å¡¹Visual Studio¤¬»ÈÍѤǤ¤Ê¤«¤Ã¤¿¤è¤¦¤Êµ¤¤¬¤·¤Þ¤¹¡£
ºÇ½ªÅª¤Ë¤Ï¡¢²¼µ¤Î¤è¤¦¤Ê²èÌ̤¬É½¼¨¤µ¤ì¤ì¤Ð½àÈ÷OK¤Ç¤¹¡£
-
VBA¡Ê4¡Ë¡Ý¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î¼Â¹Ô
-
2017.11.29 Wednesday 19:26
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
º£²ó¤Ï¡¢vba¤«¤é¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î¼Â¹Ô¤ò¤·¤Þ¤¹¡£
¥¢¥×¥ê¥±¡¼¥·¥ç¥óÆâ¤Ç½èÍý¤ò´°·ë¤·¤¿¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤Ê¤«¤Ê¤«Í»Ä̤¬¤¤«¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢vba¤ÈÁȤ߹ç¤ï¤»¤ë¤³¤È¤Ë¤·¤Þ¤·¤¿¡£
¤½¤Î°Ù¡¢vba¤«¤é¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò¼Â¹Ô¤¹¤ëÊýË¡¤òÌϺ÷¤·¤¿¤È¤³¤í¡¢²¼µ¤Î2¤Ä¤ÎÊýË¡¤¬¤¢¤ê¤Þ¤·¤¿¡£
¡Shell¤ò»ÈÍѤ·¤Æ¼Â¹Ô¤¹¤ë
Sub Sample() Shell "C:¥Windows¥Notepad.exe", 1 SendKeys "1" End Sub
Shell¤ò»ÈÍѤ·¤Æ¡¢¥Î¡¼¥È¥Ñ¥Ã¥É¤ò³«¤¤¤Æ¡¢1¤òµÆþ¤·¤Æ¤ß¤Þ¤·¤¿¡£
¢¨PC¤Ë¤è¤Ã¤Æ¤Ï¡¢½èÍý®ÅÙ¤ÎÌäÂê¤Ç1¤¬ÆþÎϤµ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤â¤¢¤ê¤Þ¤¹¡£
¡¡¤½¤Î¾ì¹ç¤Ï¡¢Sendkeys¤ÎÁ°¤ËSleep½èÍý¤òÆþ¤ì¤ë¤Ê¤É¤·¤Æ½èÍý¤òÃ٤餻¤Æ¤¯¤À¤µ¤¤¡£
Shell¤ò»ÈÍѤ·¤¿¾ì¹ç¤Ç¤¹¤¬¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò³«¤¤¤¿¸å¡¢vba¤Ø½èÍý¤¬¤â¤É¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤Þ¤¿¡¢¥Õ¥¡¥¤¥ë¤«¤é¤Î¼Â¹Ô¤¬¤Ç¤¤Ê¤¤¤Î¤Ç¾¯¡¹º£²ó¤ÎÌÜŪ¤òãÀ®¤¹¤ë¤Ë¤Ïµ¡Ç½¤¬ÉÔ½½Ê¬¤Ç¤¹¡£
¢CreateObject("Wscript.Shell").Run¤ò»ÈÍѤ·¤Æ¼Â¹Ô¤·¤Þ¤¹¡£
Sub Sample() With CreateObject("Wscript.Shell") .Run "
C:¥sample.xlsx", , True End With End Sub
CreateObject("Wscript.Shell").Run¤ò»ÈÍѤ·¤¿¾ì¹ç¡¢¥Õ¥¡¥¤¥ë¤«¤é¤Î¼Â¹Ô¤â¤Ç¤¤ë¤Î¤Ç¡¢ÊØÍø¤Ç¤¹¡£
¤Þ¤¿¡¢°ú¿ô¤òTrue¤Ë¤¹¤ë»ö¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò¼Â¹Ô¤·¤Æ¡¢½ªÎ»¤¹¤ë¤Þ¤Ç¡¢vba¤Ø½èÍý¤¬Ìá¤é¤Ê¤¤¤Î¤Ç¡¢º£²ó¤ÎÌÜŪ¤Ë¹çÃפ·¤Æ¤¤¤Þ¤¹¡£
¢¨°ú¿ô¤ËFalse¤ËÀßÄꤹ¤ë¤È¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò¼Â¹Ô¤·¤¿¸å¤Ë¡¢vba¤Ø¥³¥ó¥È¥í¡¼¥ëÌ᤹¤è¤¦¤Ê½èÍý¤Ë¤â¤Ç¤¤Þ¤¹¡£
º£²ó¤Ï¡¢¢¤Î½èÍý¤ò»ÈÍѤ¹¤ë»ö¤Ç¡¢vba¤Î¥×¥í¥°¥é¥ß¥ó¥°¤ò¹Ô¤¤¤Þ¤·¤¿¡£
-
VBA¡Ê3¡Ë¡ÝVBA¤Î»È¤¤Êý¡¡¥³¡¼¥É¤ò½ñ¤¤¤Æ¤ß¤ë
-
2017.11.26 Sunday 14:48
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
Á°²ó¡¢VBA¤Î³«È¯´Ä¶¤Î½àÈ÷¤ò¹Ô¤¤¤Þ¤·¤¿¡£
º£²ó¤Ï¡¢¤³¤Î³«È¯´Ä¶¤ò»ÈÍѤ·¤Æ¡¢VBA¤Î¥×¥í¥°¥é¥ß¥ó¥°¤ò¼Â»Ü¤·¤Æ¤ß¤Þ¤¹¡£
VBA¤Ç¹Ô¤Ã¤Æ¤ß¤ë¤³¤È¤Ï¡¢²¼µ¤ÎÄ̤ê¤Ë¤Ê¤ê¤Þ¤¹¡£
¡Excel¤Î¥»¥ë¤ÎÃͤòÆÉ¤ß¼è¤ë¡£
¢¥»¥ë¤ÎÃͤË+1¤¹¤ë¡£
£+1¤·¤¿Ãͤò¥á¥Ã¥»¡¼¥¸¥Ü¥Ã¥¯¥¹¤Ëɽ¼¨¤¹¤ë¡£
¤+1¤·¤¿ÃͤòÊ̤Υ»¥ë¤Ë½ñ¤¹þ¤à¡£
¤Þ¤º¤Ï¡¢¥â¥¸¥å¡¼¥ë¤òºîÀ®¤·¤Þ¤¹¡£
VBAProject¡ÊBook1¡Ë¤ò±¦¥¯¥ê¥Ã¥¯¤·¤Æ¡¢¥á¥Ë¥å¡¼¤òɽ¼¨¤·¤Þ¤¹¡£
¥á¥Ë¥å¡¼¤«¤é¡¢[ÁÞÆþ]→[ɸ½à¥â¥¸¥å¡¼¥ë]¤òÁªÂò¤·¤Þ¤¹¡£
ɸ½à¥â¥¸¥å¡¼¥ë¤¬ºîÀ®¤µ¤ì¤Þ¤·¤¿¡£
¤³¤Îɸ½à¥â¥¸¥å¡¼¥ë¤ÎÃæ¤Ë¡¢VBA¤Ç¥×¥í¥°¥é¥ß¥ó¥°¤·¤Æ¤¤¤¤Þ¤¹¡£
¼ÂºÝ¤Ë¥×¥í¥°¥é¥ß¥ó¥°¤·¤¿·ë²Ì¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¡£
Sub Main() Dim iInput As Integer Dim iOutPut As Integer iInput = ActiveSheet.Range("A1") iOutPut = iInput + 1 MsgBox iOutPut ActiveSheet.Range("B1") = iOutPut End Sub
Excel¤Ï²¼µ¤Î¾õÂ֤ˤ·¤Æ¤ª¤¤Þ¤¹¡£
¤½¤ì¤Ç¤Ï¡¢¼Â¹Ô¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£
¥á¥Ë¥å¥Ð¡¼¤Î[¼Â¹Ô]→[Sub¡¿¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à]¤Î¼Â¹Ô¤òÁªÂò¤·¤Þ¤¹¡£
¡Ê¾åµÁªÂò¤Î¾¤Ë¤â¥½¡¼¥¹¥³¡¼¥É¾å¤Ç¡ÖF5¥¡¼¡×¤ò²¡¤·¤Æ¤â¼Â¹Ô¤Ç¤¤Þ¤¹¡£¡Ë
¼Â¹Ô·ë²Ì¤Ï²¼µ¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¼ÂºÝ¤Ëư¤¯¤È¤ä¤Ã¤Ñ¤ê¤ª¤â¤·¤í¤¤¤Ç¤¹¤Í¡ª
-
VBA¡Ê2¡Ë¡ÝVBA¤Î»È¤¤Êý¡¡³«È¯´Ä¶¤Î½àÈ÷
-
2017.11.26 Sunday 11:16
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
Á°²ó¡¢VBA¤Ë¤è¤ëExcel¤ÎPDF²½¤Î¤ªÏäò¤·¤Þ¤·¤¿¡£
¤Þ¤ÀVBA¤Î»È¤¤Êý¤Î¤ªÏäò¤·¤Æ¤¤¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢¤Þ¤È¤á¤Æ¤¤¤³¤¦¤È»×¤¤¤Þ¤¹¡£
ºÇ¶á¤Î¥Ð¡¼¥¸¥ç¥ó¤ÎExcel¤Ï¡¢³«È¯µ¡Ç½¤¬¥Ç¥Õ¥©¥ë¥È¤Ç¤Ïɽ¼¨¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£
¤Þ¤º¤Ï¡¢³«È¯µ¡Ç½¤òɽ¼¨¤·¤Þ¤·¤ç¤¦¡£
[¥Õ¥¡¥¤¥ë]→[¥ª¥×¥·¥ç¥ó]→[¥ê¥Ü¥ó¤Î¥æ¡¼¥¶ÀßÄê]¤òÁªÂò¤·¤Þ¤¹¡£
¡Ö³«È¯¡×¤Ë¥Á¥§¥Ã¥¯¤·¤Þ¤¹¡£
¤¹¤ë¤È¡¢³«È¯µ¡Ç½¤¬É½¼¨¤µ¤ì¤Þ¤·¤¿¡£
¡ÖVisual Basic¡×¤òÁªÂò¤·¤Þ¤¹¡£
¤³¤Î²èÌ̤ò»È¤Ã¤Æ¡¢VBA¤Î¥×¥í¥°¥é¥ß¥ó¥°¤ò¹Ô¤¤¤Þ¤¹¡£
-
VBA¡Ê1¡Ë¡ÝExcel¥·¡¼¥È¤ÎPDF²½
-
2017.11.26 Sunday 00:20
JUGEM¥Æ¡¼¥Þ¡§¥×¥í¥°¥é¥ß¥ó¥°
¤³¤ó¤Ë¤Á¤Ï¡£prog¤Ç¤¹¡£
¤³¤ì¤«¤éµ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
º£²ó¤Ï¡¢VBA¤ò»ÈÍѤ·¤¿Excel¥·¡¼¥È¤ÎPDF²½¤Ë¤Ä¤¤¤Æ¤Î¤ªÏäǤ¹¡£
VBA¤Ï¡¢Visual Basic for Applications¤Îά¤Ç¡¢¼ç¤ËMicrosoft¤ÎOfficeµ¡Ç½¤Ë¤Æ»ÈÍѤ·¤Þ¤¹¡£
Office¤ò»ÈÍѤ·¤¿ºî¶È¤Î¸úΨ²½¤Î°Ù¡¢VBA¤Ë¤Æ¥×¥í¥°¥é¥ß¥ó¥°¤ò¼Â»Ü¤·¤Æµ¡Ç½¤òºîÀ®¤·¤¿¤ê¤·¤Þ¤¹¡£
¤Þ¤¿¡¢VBA¤Î»È¤¤Êý¤Ê¤É¤â¤´¾Ò²ð¤·¤Æ¤¤¤³¤¦¤È»×¤¤¤Þ¤¹¤¬¡¢º£²ó¤ÏExcel¥·¡¼¥È¤ÎPDF²½¤ËŪ¤ò¹Ê¤Ã¤Æ¡¢¹Í¤¨¤Æ¤¤¤³¤¦¤È»×¤¤¤Þ¤¹¡£
¥µ¥ó¥×¥ë¥³¡¼¥É¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
'------------------------------------------------------------ '°õºþ¡ÊPDFºîÀ®¡Ë¤Î°Ù¤ÎÀßÄê '------------------------------------------------------------ ActiveSheet.PageSetup.Orientation = xlPortrait ' ½Ä¸þ¤°õºþÀßÄê ActiveSheet.PageSetup.FitToPagesWide = 1 'Á´¤Æ¤ÎÎó¤ò1¥Ú¡¼¥¸¤Ë°õºþ ActiveSheet.PageSetup.FitToPagesTall = 1 'Á´¤Æ¤Î¹Ô¤ò1¥Ú¡¼¥¸¤Ë°õºþ ActiveSheet.PageSetup.Zoom = False ' ³ÈÂ礷¤Ê¤¤ End With '------------------------------------------------------------ 'PDFºîÀ® 'ExportAsFixedFormat¤Î°ú¿ô 'Type:=Type:=xlTypePDF→¥Õ¥©¡¼¥Þ¥Ã¥È¤Î»ØÄê 'Filename:=Filename→Êݸ̾ 'Quality:=xlQualityStandard→PDF¤ÎÉʼÁ 'IncludeDocProperties:=True→¥Õ¥¡¥¤¥ë¤Îʸ½ñ¥×¥í¥Ñ¥Æ¥£¤ÎÍ̵ 'IgnorePrintAreas:=False→°õºþÈϰϤÎÍ̵ 'OpenAfterPublish:=True→PDFºîÀ®¸å¤Ë¡¢¥Ç¡¼¥¿¤ò³«¤¯¤«¤É¤¦¤« '------------------------------------------------------------ ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True
²£¸þ¤°õºþ¤·¤¿¤¤¾ì¹ç¤Ï¡¢
ActiveSheet.PageSetup.Orientation = xlPortrait
¤ò
ActiveSheet.PageSetup.Orientation = xlLandscape
¤È¤¤¤¦¤è¤¦¤Ë¤·¤Þ¤¹¡£
°õºþÈϰϤλØÄê¤ò¤·¤¿¤¤¾ì¹ç¤Ï¡¢
'ActiveSheet.PageSetup.PrintArea = "A$1:$D$69"
¤òÄɲä·¤Þ¤¹¡£
°õºþÍѻ極¥¤¥º¤Î»ØÄê¤ò¤·¤¿¤¤¾ì¹ç¤Ï¡¢
'ActiveSheet.PageSetup.PageSize = xlPaperA4
¤òÄɲä·¤Þ¤¹¡£
¤³¤Î¤è¤¦¤ËVBA¤Çµ½Ò¤¹¤ë¤ÈExcel¥·¡¼¥È¤ÎPDF²½¤¬¤Ç¤¤Þ¤¹¡£
- ¢«back 1/1 pages next¢ª