Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ideachanel99

Pages: 1 ... 3 4 [5] 6 7 8
33
ระหว่าง
  EEPROM.write(addr=0x00, val); แบบระบุ address
  EEPROM.write(addr=0x01, val);
 
กับ EEPROM.write(addr=0, val); ไม่แน่ใจว่าเลข 0 หรือ 1 ใช่การระบุ address หรือเปล่าครับ
     EEPROM.write(addr=1, val);

2 แบบนี้เหมือนกันหรือเปล่าครับ

34
Code: [Select]
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Dim tcpClient As New System.Net.Sockets.TcpClient()
    Dim networkStream As NetworkStream
    Dim KeyPressed As Integer

    Private Function Arduino_Connect(ByVal IP As String, ByVal Port As Integer) As Boolean
        tcpClient.Connect(IP, Port)
        networkStream = tcpClient.GetStream()
        If Not networkStream.CanWrite Or Not networkStream.CanRead Then
            tcpClient.Close()
            networkStream = Nothing
            Return False
        End If
        Return True
    End Function

    Private Sub Arduino_Write(ByVal Output As String)
        If Not IsNothing(networkStream) Then
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(Output)
            Dim endByte As [Byte]() = {&HFE}
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            networkStream.Write(endByte, 0, 1)
        Else
            MsgBox("ERROR")
        End If
    End Sub

    Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Button1.Visible = True
        Button2.Visible = False
    End Sub
    Private Sub Arduino_Disconnect()
        If Not IsNothing(networkStream) Then
            tcpClient.Close()
            networkStream = Nothing
        End If
    End Sub

    Private Sub btnOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Visible = False
        Button2.Visible = True
        Arduino_Write("O")
    End Sub

    Private Sub btnOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button1.Visible = True
        Button2.Visible = False
        Arduino_Write("F")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Arduino_Connect(TextBox1.Text, TextBox2.Text)
    End Sub
End Class
------------------------------------------------------------------------------------------------
arduino
#include <SPI.h>
#include <Ethernet.h>

//*************************************************************************************************************************************
// Wired configuration parameters
//*************************************************************************************************************************************
byte mac[] = { 0x90, 0xA2, 0xDA, 0x00, 0xD1, 0x4B };
unsigned char local_ip[] = {172,16,45,223}; // IP address of WiShield
unsigned char gateway_ip[] = {172,16,45,1}; // router or gateway IP address
unsigned char subnet_mask[] = {255,255,255,0}; // subnet mask for the local network

EthernetServer server(12);

//char buffer[20];
String buffer = "";

void setup()
{
  pinMode(13,OUTPUT);
  Ethernet.begin(mac, local_ip);
  Serial.begin(9600);
}

void loop()
{
  EthernetClient client = server.available();
  if (client)
  {
    boolean currentLineIsBlank = true; 
    while (client.connected())
    {
      if (client.available())
      {
        char c = client.read();
        Serial.print(c);   
        buffer+=c;
       
        int val;
        if (c == 'O')
        {
          digitalWrite(13,HIGH);
        }
        else if (c == 'F')
        {
          digitalWrite(13,LOW);
        }
      }
    }
  }
}

35
ตอนนี้กำลังหาทางเปลี่ยน IP จาก VB  โค๊ดสมบูรณ์แล้วจะเอามาให้ชำแหละกันครับ

36
ระวังจะหมดตัวตอนเริ่มต้น แต่ตอนเป็นแล้วนี่สิครับ คิดไรจับไรก็เป็นตัง...ทั้งนั้น  ต่อไป..งานทำไม่ทันก็ส่งๆมาบ้างนะครับ

38
มี Port แลน มั๊ยครับ

39
อยากได้ โอโน่ แต่มาไม่ทัน

40
ผมมีของ ETT  ตามลิ้ง ซื้อมายังไม่เคยใช้เลย 300 บาท เอามั๊ยครับ
http://ett.co.th/product/InterfaceBoard/ET-MINI-ENC28J60_P-ET-A-00346.html

Pages: 1 ... 3 4 [5] 6 7 8