PCB Drill DNC를 개발 하다...

[땡초도사]

저는 원래 C#이 주력인데....그놈의 디자인 에러 때문에 골치가 아파서....

비주얼 베이직으로 만들어 보았습니다....

일단 시리얼 통신으로 COM5번포트를 이용하여 전송하도록 만들어 놨습니다...

보통 시리얼 통신은 RS232C케이블을 사용하죠...

그런데 제가 몸담고 있었던 (주)디에이피 의 드릴 설비중에 구형로쿠로쿠 장비가 있었는데

그 설비의 메모리가 오래되어서 메모리가 어떤 메모리가 내장되어 있는지는 모르겠네요....

그땐 그거가지고 참 꿈도 많았는데 말이죠.....

(주)기명교역에 전화하여 memory clear alarm을 알아 내려고 했으나....가르쳐 주지 않아서...

나름대로 찾아본 결과 일단 메모리에 저장되어 있는 데이타를 지우는게 첫 순서더군요...ㅋㅋㅋ

그쪽에서도 파라메타가 날라간다고 둘러대는걸 듣기는 했으나...믿음이 가야지 말이지요....

COM5번 포트가 지정이 되어 있어서 이걸 사용할때 COM포트번호가 바뀔수가 있어요...

COM포트 번호는 장치관리자에서 확인 가능하구요...

COM포트 번호를 직접 바꿀수 있도록 소스까지 공개할께요.....^^

실행 파일도 첨부 합니다......간단한 드릴 파일도 첨부 합니다...

Imports System.IO
Imports System.IO.Ports

Public Class Form1

    ' 시리얼포트 선언
    Dim sp As New SerialPort()

    ' 선택한 파일 경로 저장
    Dim filepath As String = ""

    ' 폼 로드시 시리얼 설정
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        With sp
            .PortName = "COM5"      ' 포트번호
            .BaudRate = 9600        ' 속도
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
        End With

        Try
            sp.Open()
            MessageBox.Show("시리얼 포트 연결 완료")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    ' 파일 열기 버튼
    Private Sub fopen_Click(sender As Object, e As EventArgs) Handles fopen.Click

        OpenFileDialog1.Filter = "텍스트 파일|*.drl|모든 파일|*.*"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            filepath = OpenFileDialog1.FileName

            ' 파일 내용을 화면에 표시
            TextBox1.Text = File.ReadAllText(filepath)

        End If

    End Sub

    ' 전송 버튼
    Private Sub fsend_Click(sender As Object, e As EventArgs) Handles fsend.Click

        If filepath = "" Then
            MessageBox.Show("파일을 먼저 선택하세요.")
            Exit Sub
        End If

        If sp.IsOpen Then

            ' 파일 읽기
            Dim data As String = File.ReadAllText(filepath)

            ' 시리얼 전송
            sp.Write(data)

            MessageBox.Show("전송 완료")

        Else

            MessageBox.Show("시리얼 포트가 열려있지 않습니다.")

        End If

    End Sub

End Class

WindowsApp1.exe

15.50KB

eee.drl

140B