KR20000012822A - 전기가열 접합유리의 열선 배열 시스템 - Google Patents

전기가열 접합유리의 열선 배열 시스템 Download PDF

Info

Publication number
KR20000012822A
KR20000012822A KR1019990065022A KR19990065022A KR20000012822A KR 20000012822 A KR20000012822 A KR 20000012822A KR 1019990065022 A KR1019990065022 A KR 1019990065022A KR 19990065022 A KR19990065022 A KR 19990065022A KR 20000012822 A KR20000012822 A KR 20000012822A
Authority
KR
South Korea
Prior art keywords
print
tab
locate
heating
sub
Prior art date
Application number
KR1019990065022A
Other languages
English (en)
Other versions
KR100346497B1 (ko
Inventor
정해룡
Original Assignee
정해룡
주식회사 삼공사
Priority date (The priority date is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the date listed.)
Filing date
Publication date
Application filed by 정해룡, 주식회사 삼공사 filed Critical 정해룡
Priority to KR1019990065022A priority Critical patent/KR100346497B1/ko
Publication of KR20000012822A publication Critical patent/KR20000012822A/ko
Application granted granted Critical
Publication of KR100346497B1 publication Critical patent/KR100346497B1/ko

Links

Classifications

    • B—PERFORMING OPERATIONS; TRANSPORTING
    • B32—LAYERED PRODUCTS
    • B32B—LAYERED PRODUCTS, i.e. PRODUCTS BUILT-UP OF STRATA OF FLAT OR NON-FLAT, e.g. CELLULAR OR HONEYCOMB, FORM
    • B32B17/00—Layered products essentially comprising sheet glass, or glass, slag, or like fibres
    • B32B17/06—Layered products essentially comprising sheet glass, or glass, slag, or like fibres comprising glass as the main or only constituent of a layer, next to another layer of a specific material
    • B32B17/10—Layered products essentially comprising sheet glass, or glass, slag, or like fibres comprising glass as the main or only constituent of a layer, next to another layer of a specific material of synthetic resin
    • B32B17/10005—Layered products essentially comprising sheet glass, or glass, slag, or like fibres comprising glass as the main or only constituent of a layer, next to another layer of a specific material of synthetic resin laminated safety glass or glazing
    • B32B17/10165—Functional features of the laminated safety glass or glazing
    • B32B17/10376—Laminated safety glass or glazing containing metal wires
    • B—PERFORMING OPERATIONS; TRANSPORTING
    • B29—WORKING OF PLASTICS; WORKING OF SUBSTANCES IN A PLASTIC STATE IN GENERAL
    • B29C—SHAPING OR JOINING OF PLASTICS; SHAPING OF MATERIAL IN A PLASTIC STATE, NOT OTHERWISE PROVIDED FOR; AFTER-TREATMENT OF THE SHAPED PRODUCTS, e.g. REPAIRING
    • B29C70/00—Shaping composites, i.e. plastics material comprising reinforcements, fillers or preformed parts, e.g. inserts
    • B29C70/68—Shaping composites, i.e. plastics material comprising reinforcements, fillers or preformed parts, e.g. inserts by incorporating or moulding on preformed parts, e.g. inserts or layers, e.g. foam blocks
    • B29C70/82—Forcing wires, nets or the like partially or completely into the surface of an article, e.g. by cutting and pressing
    • C—CHEMISTRY; METALLURGY
    • C03—GLASS; MINERAL OR SLAG WOOL
    • C03C—CHEMICAL COMPOSITION OF GLASSES, GLAZES OR VITREOUS ENAMELS; SURFACE TREATMENT OF GLASS; SURFACE TREATMENT OF FIBRES OR FILAMENTS MADE FROM GLASS, MINERALS OR SLAGS; JOINING GLASS TO GLASS OR OTHER MATERIALS
    • C03C27/00—Joining pieces of glass to pieces of other inorganic material; Joining glass to glass other than by fusing
    • C03C27/06—Joining glass to glass by processes other than fusing
    • H—ELECTRICITY
    • H05—ELECTRIC TECHNIQUES NOT OTHERWISE PROVIDED FOR
    • H05B—ELECTRIC HEATING; ELECTRIC LIGHT SOURCES NOT OTHERWISE PROVIDED FOR; CIRCUIT ARRANGEMENTS FOR ELECTRIC LIGHT SOURCES, IN GENERAL
    • H05B3/00—Ohmic-resistance heating
    • H05B3/84—Heating arrangements specially adapted for transparent or reflecting areas, e.g. for demisting or de-icing windows, mirrors or vehicle windshields
    • H05B3/86—Heating arrangements specially adapted for transparent or reflecting areas, e.g. for demisting or de-icing windows, mirrors or vehicle windshields the heating conductors being embedded in the transparent or reflecting material

Landscapes

  • Chemical & Material Sciences (AREA)
  • Engineering & Computer Science (AREA)
  • Composite Materials (AREA)
  • Mechanical Engineering (AREA)
  • Ceramic Engineering (AREA)
  • Life Sciences & Earth Sciences (AREA)
  • Chemical Kinetics & Catalysis (AREA)
  • General Chemical & Material Sciences (AREA)
  • Geochemistry & Mineralogy (AREA)
  • Materials Engineering (AREA)
  • Organic Chemistry (AREA)
  • Joining Of Glass To Other Materials (AREA)

Abstract

본 발명은 온도가 낮고 풍속이 빠른 상태의 외부 전경을 내부에서 유리를 통해 관찰해야하는 선박, 해양구조물, 열차, 대형건축물 등에 사용되는 전기가열 접합유리의 열선을 자동으로 배열하는 시스템에 관한 것이다.
본 발명에 따른 전기가열 접합유리의 열선 배열 시스템은 제품의 사양에 따라 열선의 선택에서 배열까지 자동으로 연산하고 배열하는 부록 Ⅱ의 열선배열 프로그램을 내장한 퍼스널 컴퓨터(11)와, 열선 배열 프로그램에 의한 상기 퍼스널 컴퓨터(11)의 제어신호를 인식하여 열선을 배열하는 열선자동배열장치(17)로 모터제어신호를 송신하는 구동 유니트(13)와, 모터 컨트롤 신호를 구동 유니트(13)에 운용하기 위하여 필요한 24V 전원을 공급하는 장비로서 입력전원 AC220V를 DC24V로 변환시키는 전원 서플라이(21)와, 열선자동배열장치(17) 및 구동 유니트(13)의 이상 유무를 간단히 확인할 수 있는 핸디 터미널(23)로 구성되는 것을 특징으로 한다.
이것에 의해, 수요자의 주어진 조건에 대하여 열선의 선택에서 배열까지 자동으로 자유롭게 설계할 수 있고, 작업이 자동으로 이루어지는 효과가 있다.

Description

전기가열 접합유리의 열선 배열 시스템{SYSTEM FOR ARRANGING HOT WIRE OF ELECTRIC HEATED GLASS PANES}
본 발명은 온도가 낮고 풍속이 빠른 상태의 외부 전경을 내부에서 유리를 통해 관찰해야하는 선박, 해양구조물, 열차, 대형건축물 등에 사용되는 전기가열 접합유리의 열선을 배열하는 시스템에 관한 것으로서, 보다 상세하게는 수요자의 주어진 조건에 대하여 열선의 선택에서 배열까지 자동으로 자유롭게 설계할 수 있는 전기가열 접합유리의 열선 배열 시스템에 관한 것이다.
일반적으로 접합유리는 외부조건에 따라 내측 유리의 온도가 하강하게 되며, 내측 유리의 온도가 실내 공기의 노점온도보다 내려가게 되면 유리 근방의 공기가 포화습공기 상태로 되고 더 이상 수분을 함유할 수 없게되면 내측 유리에 결로, 결빙 현상이 일어나게 되어 외부 투시에 방해가 된다.
따라서, 관찰용 유리 또는 전망용 유리의 기능을 보지하기 위해서는 주어질 수 있는 최악의 외부조건에 대해서도 내측 유리의 온도를 실내공기의 노점온도 즉 내부 습공기의 수증기 분압에 해당하는 수증기 포화온도보다 높게 유지할 수 있게 하는 장치가 필요하게 된다. 이러한 필요에 따라 유리를 통한 외부 투시성을 유지하는 가장 일반적인 방법의 하나로 전기가열 접합유리(electric heated glass panes)가 사용되고 있다.
이것은 겹쳐진 유리 사이에 투시성을 방해하지 않는 전기적 가열장치 즉 미세한 열선을 삽입시켜 통전시키므로서 유리의 내표면 온도를 내측 공기의 노점온도보다 높게 유지하므로서, 유리면에 결로, 결빙 현상을 방지한다.
이와 같은 전기가열 접합유리를 제조하는 방법은 도 1에 도시된 것과 같은 공정을 거쳐 제조된다.
종래의 전기가열 접합유리의 제조방법은 넓은 평판유리를 소정의 크기로 절단(S101)하고, 자동차의 윈드 쉴드 글라스와 같은 곡유리판을 접합하고자 할 경우 평유리판에 열을 가하여 곡률을 형성(S102)한 후, 상기 S101 단계의 평유리판 또는 S102 단계를 거친 곡유리판을 세척(S103)하고 건조(S104)한다.
곡유리판의 경우, 2장의 곡유리판 사이에 폴리비닐부틸알 필름(poly vinyl butyral film)을 개재시킨 후 열선을 배열하고(S105), 고무링과 같은 클램프 수단으로 고정하여 수직하게 세운 후 별도의 오븐에서 약 70 ∼ 80 ℃의 온도에서 약 2∼3분 동안 가열함으로서 곡유리를 예압접합(S106)하고, 평유리판의 경우, 예압 오븐에서 약 70 ∼ 80 ℃의 온도에서 약 2∼3분 동안 가열함으로서 평유리를 예압접합(S107)한다. 그 후 상기와 같이 예압접합된 곡유리판 및 평유리판을 다시 오토 크레이브에서 약 120∼140℃에서 약 3 시간 정도 가열하고(S108), 이와같이 가공된 제품을 검사(S109)하여 출고(S110)한다.
종래의 전기가열 접합유리의 제조방법은 넓은 평판유리를 소정의 크기로 절단하는 단계(S101)와, 열선을 배열하는 단계(S105)의 설계를 수작업을 통하여 아래와 같이 계산하였다.
먼저 수요자의 주어진 사용요건에 따라 전기가열 접합유리의 설계에 요구되는 조건을 구한다. 즉, 도 2와 같이 외측 유리판(3)과 내측 유리판(5) 사이에 열가소성 수지(7)가 배열되고, 그 사이에 열선(9)이 배열되는 것으로 가정하여 설계 조건을 구한다. 상기 설계조건은 외측 공기상태, 내측 공기상태, 접합유리 구성요소의 물성치, 사용전압, 유리두께 등이다. 상기와 같은 설계 조건에서 유리 내측면의 온도를 일정 온도로 유지하는 접합유리 열선의 방열량을 구한다. 즉, 접합유리 열선(9)의 방열량(Qtotal)은 외측 방열량(Q1)과 내측방열량(Q2)의 합과 같다. 그리고, 외측 방열량 및 내측 방열량은 아래 수학식 1 및 수학식 2로 구할 수 있다.
외측 방열량
여기서,
h1: 외측표면에서의 대류열전달계수
Tw: 열선의 온도
T1: 외부 공기 온도
A1: 접합유리의 면적
Dg1: 유리두께
Drl: 열가소성수지의 두께
kg: 유리 열전도계수
kr: 열가소성수지 열전도계수
내측 방열량
여기서,
h2: 내측표면에서의 대류열전달계수
Tw: 열선의 온도
T2: 실내 공기 온도
A2: 접합유리의 면적
Dg2: 유리두께
Dr2: 열가소성수지의 두께
kg: 유리 열전도계수
kr: 열가소성수지 열전도계수
이다.
그리고, 사용전압이 정해지면 상기 수식 1과 수식 2에 의해 요구되는 총 저항을 구할 수 있다.
이와같이 열선의 총저항 값을 만족시키면서 열선을 배열하는 방법은 도 3에 도시된 바와같이 가는 열선(9)을 짧게 사용하거나 굵은 열선(9)을 길게 사용하는 방법 등 여러 가지 배열방법이 있으나 접합유리의 내측유리 표면온도를 균일하게 유지하는 것이 중요하다. 따라서 열선배열은 열선의 직경, 유리의 크기, 열선의 배치주기, 진폭 및 피치, 가로방향 열선의 길이 및 저항, 세로방향 열선의 배치수 필요저항을 만족하는 직렬수 등을 고려하여야 한다.
따라서, 본 발명의 목적은 수요자의 주어진 조건에 대하여 열선의 선택에서 배열까지 자동으로 자유롭게 설계할 수 있는 전기가열 접합유리의 열선 배열 시스템을 제공하는 것이다.
상기와 같은 목적을 달성하기 위한 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템은 제품의 사양에 따라 열선의 선택에서 배열까지 자동으로 연산하고 배열하는 부록 Ⅱ의 열선배열 프로그램을 내장한 퍼스널 컴퓨터와, 상기 퍼스널 컴퓨터의 제어신호를 인식하여 열선을 배열하는 열선자동배열장치로 모터제어신호를 송신하는 구동 유니트와, 모터 컨트롤 신호를 구동 유니트에 운용하기 위하여 필요한 24V 전원을 공급하는 장비로서 입력전원 AC220V를 DC24V로 변환시키는 전원 서플라이와, 열선자동배열장치 및 구동 유니트의 이상 유무를 간단히 확인할 수 있는 핸디 터미널로 구성되는 것을 특징으로 한다.
상기 열선자동배열장치는 유리판이 놓이는 작업대와, 상기 작업대의 양측부에 X축 방향으로 설치되는 한 쌍의 X축 가이드 레일과, 상기 X축 가이드 레일에 양단부가 설치되어 X축 방향으로 이동할 수 있는 Y축 가이드 레일과, 상기 Y축 가이드 레일에 장착되어 Y축 방향으로 이동할 수 있는 열선배열기로 구성되는 것을 특징으로 한다.
상기 작업대는 생산 대상품의 최대 칫수를 고려하여 폭 1700mm, 길이 2400 mm로 하고 수평을 조절하기 위해 나사식 지지대가 설치되고, 미세열선을 배열하기 위한 열가소성 수지 필름을 올려놓고 작업할 때 가능한 수평을 유지하기 위하여 받침대로 판유리가 이용되는 것을 특징으로 한다.
상기 Y축 가이드 레일과 열선배열기는 서보 모터에 의해 이동되며, 이것에 의해, 열선이 요구 발열량을 만족시키기 위해 퍼스널 컴퓨터로 시뮬레이터한 결과와 같은 파형 형태로 배열되고, 파형의 피치와 진폭 및 열선의 간격이 일정하게 유지되는 것을 특징으로 한다.
상기 열선배열기는 "ㄱ" 형상의 제 1 브라켓과, 상기 제 1 브라켓의 수평부에 장착되며 히터 장치에 접속되어 히터 장치의 온도를 제어하는 히터 컨트롤러와, 상기 브라켓의 수직부에 장착되는 제 2 브라켓과, 상기 제 2 브라켓에 장착되어 히터 장치의 상하 높이를 조절하는 높이조절장치와, 상기 높이조절장치에 장착되어 유리판에 열선을 도포하는 히터장치로 구성되는 것을 특징으로 한다.
상기 히터장치는 보빈에 감겨진 미세한 열선이 가열기에서 가열된 후 열선노즐을 통해 배출되므로서 PVB 필름에 도포되며, 스트로크 베어링에 의해 PVB 필름 위에서 부드럽게 움직이게 되는 것을 특징으로 한다.
상기 높이조절장치는 제 2 브라켓에 서로 일정간격만큼 이격되어 장착되는 한 쌍의 스티프너와, 상기 스티프너 사이에 장착되며 중간에 피니언이 형성된 바아와, 상기 피니언과 맞물리며 히터 장치에 장착되어 피니언의 회전에 의해 상하로 이동하므로서 히터 장치의 높이를 조절하는 랙크로 구성되는 것을 특징으로 한다.
이하 첨부 도면을 참조하여 본 발명을 보다 상세히 설명하기로 한다.
도 1은 종래의 전기가열 접합유리의 제조방법을 도시한 공정도
도 2는 종래의 전기가열 접합유리를 도시한 단면도
도 3은 종래의 전기가열 접합유리에 배열되는 열선의 예시도
도 4는 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템을 도시한 구성도
도 5는 본 발명에 따른 열선자동배열장치를 도시한 평면도
도 6은 본 발명에 따른 열선배열기를 도시한 측면도
도 7은 본 발명에 따른 히터 컨트롤러를 도시한 상세도
도 8은 본 발명에 따른 히터장치를 도시한 정면도
도 9는 본 발명에 따른 상하조절장치를 도시한 평면도
도 10은 도 9의 측면도
*도면의 주요 부분에 대한 부호의 설명*
11 : 퍼스널 컴퓨터 13 : 구동 유니트
17 : 열선자동배열장치 21 : 전원 서플라이
23 : 핸디 터미널 50 : 히터장치
도 4를 참조하면, 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템은 제품의 사양에 따라 열선의 선택에서 배열까지 자동으로 연산하고 배열하는 부록 Ⅱ의 열선배열 프로그램을 내장한 퍼스널 컴퓨터(11)와, 열선배열 프로그램에 의해 상기 퍼스널 컴퓨터(11)의 제어신호를 자동으로 열선을 배열하는 열선자동배열장치(17)로 모터제어신호를 송신하는 구동 유니트(13)와, 모터 컨트롤 신호를 구동 유니트(13)에 운용하기 위하여 필요한 24V 전원을 공급하는 장비로서 입력전원 AC220V를 DC24V로 변환시키는 전원 서플라이(21)와, 열선자동배열장치(17) 및 구동 유니트(13)의 이상 유무를 간단히 확인할 수 있는 핸디 터미널(23)로 구성된다.
도 5를 참조하면, 상기 열선자동배열장치(17)는 유리판이 놓이는 작업대(30)와, 상기 작업대(30)의 양측부에 X축 방향으로 설치되는 X축 가이드 레일(32, 34)과, 상기 X축 가이드 레일(32, 34)에 양단부가 설치되어 X축 방향으로 이동할 수 있는 Y축 가이드 레일(36)과, 상기 Y축 가이드 레일(36)에 장착되어 Y축 방향으로 이동할 수 있는 열선배열기(38)로 구성된다. 상기 작업대(30)는 생산 대상품의 최대 칫수를 고려하여 폭 1700mm, 길이 2400 mm로 하고 수평을 조절하기 위해 나사식 지지대가 설치된다. 그리고, 미세열선을 배열하기 위한 열가소성 수지 필름을 올려놓고 작업할 때 가능한 수평을 유지하기 위하여 받침대로 판유리가 이용된다.
상기 Y축 가이드 레일(36)과 열선배열기(38)는 서보 모터(도시하지 않음)에 의해 이동되며, 이것에 의해, 열선이 요구 발열량을 만족시키기 위해 퍼스널 컴퓨터(11)로 시뮬레이터한 결과와 같은 파형 형태로 배열되고, 파형의 피치와 진폭 및 열선의 간격이 일정하게 유지된다.
상기와 같은 서보 모터의 제원 및 특성은 아래 표 1과 같다.
X축용서보 모터 Y축용서보 모터
제품의 최대크기 1300 mm 2000 mm
모터 베이스의 최대 길이 1560 mm 2400 mm
최대 출력 200 N 200 N
허용 탑재질량 40 kg 40kg
가변 모멘트 롤링 75 N·m 75 N·m
피칭 125 N·m 125 N·m
요잉 140 N·m 140 N·m
최고속도 1800 mm/s 1800 mm/s
최소분해능력 1 ㎛ 1 ㎛
반복위치결정도 ±1 ㎛ ±1 ㎛
도 6 내지 도 8을 참조하면, 상기 열선배열기(38)는 "ㄱ" 형상의 제 1 브라켓(40)과, 상기 제 1 브라켓(40)의 수평부(42)에 장착되며 히터 장치(50)에 접속되어 히터 장치(50)의 온도를 제어하는 도 7에 상세하게 도시된 것과 같은 히터 컨트롤러(44)와, 상기 브라켓(40)의 수직부(41)에 장착되는 제 2 브라켓(46)과, 상기 제 2 브라켓(46)에 장착되어 히터 장치(50)의 상하 높이를 조절하는 높이조절장치(60)와, 상기 높이조절장치(60)에 장착되어 유리판에 열선을 도포하는 히터장치(50)로 구성된다.
상기 히터장치(50)는 보빈(55)에 감겨진 미세한 열선(54)이 가열기(52)에서 가열된 후 열선노즐(53)을 통해 배출되므로서 PVB 필름에 도포되며, 스트로크 베어링(57)에 의해 PVB 필름 위에서 부드럽게 움직이게 된다.
상기 높이조절장치(60)는 제 2 브라켓(46)에 서로 일정간격만큼 이격되어 장착되는 한 쌍의 스티프너(62)와, 상기 스티프너(52) 사이에 장착되며 중간에 피니언(66)이 형성된 바아(64)와, 상기 피니언(66)과 맞물리며 히터 장치(50)에 장착되어 피니언(66)의 회전에 의해 상하로 이동하므로서 히터 장치(50)의 높이를 조절하는 랙크(66)로 구성된다.
상기 피니언(66)은 히터장치(50)의 Z축 방향 즉 상하 높이를 조절한다.
본 발명에 따른 프로그램은 첨부된 부록 1과 같이 화면에 나타나는 순으로 (가)와 같이 외측 공기상태, 내측 공기상태, 접합유리 구성요소의 물성치, 사용전압, 유리두께 등을 입력하면, 부록 1의 (나)와 같이 데이터가 출력된다. 이 때, 프로그램은 부록 1의 (다)와 같이 열선 배열정보의 입력/출력 및 배열시 열선의 저항이 계산되고, 부록 1의 (라)와 같이 설계 데이터 및 발열량 그리고 최적 배열 결과를 파일로 저장한다.
또한 첨부된 부록 2의 프로그램은 서보 모터들을 제어하여 열선의 배열을 자동으로 제어한다. 이하 자세한 내용은 첨부된 부록 2와 같다. 부록 3은 열선의 배열 형태에 따라 발열량을 계산한 프로그램이다.
부록 Ⅰ. 전기가열 접합유리 설계 프로그램
(가)
DECLARE SUB TTPS (TT!, PS!)
DECLARE SUB PSTT (PPS!, TSS!)
CLS
REM ********************HGP1.BAS *******************1999.3.16*******
REM *****************************************************************
REM
REM Thermal Design Program
REM for Heated Glass Panes
REM
REM*******************************************************************
REM
REM ******************** INPUT DATA ***************************
REM
CO50:
PRINT "*** INPUT DATA ***"
INPUT " OUTSIDE AIR TEMP.(C) (T01) ="; TO1
INPUT " OUTSIDE WIND VELO. (m/s) (VO) ="; VO
INPUT " INSIDE AIR TEMP.(C) (TI) ="; TI
INPUT " INSIDE AIR HUMID.(%) (RHI) ="; RHI
INPUT " THICK. OF ADHESIVE FIRM(m) (DF) ="; DF
INPUT " COND. OF ADHESIVE FIRM(Kcal/mhC) (CF) ="; CF
CF = .21
INPUT " COND. OF GLASS PANE(Kcal/mhC) (CGP) ="; CGP
CGP = .65
INPUT " SPECIPIC RESIST. OF WIRE(ohm) (RW) ="; RW
RW = .000000055#
INPUT " WIDTH OF GLASS PANE(m) (GPSW) ="; GPSW
INPUT " HEIGHT OF GLASS PANE(m)#1, (GPSH) ="; GPSH
INPUT " VOLTAGE(V) (VT) ="; VT
INPUT " PARALLEL WIRING INTERVAL(m) (PWI) ="; PWI
PRINT
PRINT "*** THICK. OF CARRIER & COVER GLASS PANE(m) ***"
INPUT " THICK. OF CARRIER GLASS PANE(m) (DGO) ="; DGO
INPUT " THICK. OF COVER GLASS PANE(m) (DGI) ="; DGI
(나)
REM ******************************************************************
REM ** TOTAL HEAT LOSS OF HEATED GLASS PANES **
REM ******************************************************************
REM ************ DEW POINT OF ROOM AIR (DEWI) *************
CALL TTPS(TI, PSVI)
PVI = PSVI * RHI / 100!
CALL PSTT(PVI, TIS)
DEWI = TIS
PRINT
PRINT "DEW POINT OF ROOM AIR (DEWI) ="; DEWI
PRINT
PRINT
INPUT " WRITE SUR. TEMP. OF COVER GLASS PANE(C) (TGI) ="; TGI
REM *** HEAT TRANSFER COEF. FOR CARRIER PANE SIDE(HO) *****
VVO = VO * 293! / (273! + TO1)
IF VVO < 5! THEN
HO = 5 + 3.4 * VVO
ELSE
HO = 6.14 * VVO ^ .78
END IF
REM ***** HEAT TRANSFER COEF. FOR COVER PANE SIDE(HI) *****
TMI = (TGI + TI) / 2!
CKTM = 1.18011255# - .0011634055# * TMI + .0000038545454# * (TMI ^ 2) - .000000015434343# * (TMI ^ 3) + 2.4242424D-11 * (TMI ^ 4)
REM ***************************
HI = 2! * CKTM * (1! ^ 2 * (TGI - TI)) ^ .25
REM **** TOTAL HEAT LOSS OF HEATED GLASS PANE ***********
QI = HI * (TGI - TI)
TW = QI * (DGI / CGP + DF / CF) + TGI
REM TW = QI * (1! / HI + DGI / CGP + DF / CF) + TI
QO = (TW - TO1) / (1! / HO + DGO / CGP + DF / CF)
QT = QI + QO
QTS = QT * 1.163 / 100!
OQTS = QTS
REM *****************************************************************
PRINT
PRINT "*** TOTAL HEAT LOSS OF HEATED GLASS PANE ***"
PRINT "OUTSIDE AIR TEMP. (TO1) ="; TO1; "C"
PRINT "OUTSIDE WIND VELOC. (VO) ="; VO; "m/s"
PRINT "INSIDE AIR TEMP. (TI) ="; TI; "C"
PRINT "INSIDE AIR HUMID. (RHI) ="; RHI; "%"
PRINT
PRINT "THICK. OF CARRIER GLASS (DGO) ="; DGO; "m"
PRINT "THICK. OF COVER GLASS (DGI) ="; DGI; "m"
PRINT "DEW POINT OF INSIDE AIR (DEWI) ="; DEWI; "C"
PRINT "SUR. TEMP. OF COVER GLASS PANE (TGI) ="; TGI; "C"
PRINT "TOTAL HEAT LOSS OF HGP (QTS) ="; QTS; "W/dm^2"
PRINT
INPUT "DO YOU WANT TO TRY AGAIN (TYPE Y/N)"; YN$
IF YN$ = "Y" THEN
GOTO CO50
END IF
INPUT " WRITE QTS FOR DESIGN(W/dm**2) (QTS)="; QTS
PRINT
PRINT
PRINT "CALCULATION FOR ARRAGEMENT OF THIN WIRE"
(다)
REM **************************************************************
REM ***************** ARRAGEMENT OF THIN WIRE *******************
REM **************************************************************
REM ************ ELECTRIC RESISTENCE OF THW(RTHW) **************
CO60: PRINT
INPUT " DIA. OF THIN HEATING WIRE(m) (DTHW) ="; DTHW:
RTHW = RW * 1! / (3.14159 * DTHW ^ 2 / 4!)
QLOSS = QTS * (GPSW * GPSH) * 100!
RQLOSS = VT ^ 2 / QLOSS
INPUT " PERIODIC DISTANCE OF THW (m) (PDTHW) ="; PDTHW
INPUT " PITCH OF THW (m) (PTHW) ="; PTHW5
INPUT " AMPLITUDE OF THW (m) (ATHW) ="; ATHW
REM ************* HORIZONTAL ARC LENGTH OF THW(AL) ***********
A = ATHW / 2!
B = PTHW / 2!
ABC = .5 * SQR(B ^ 2 + 16! * A ^ 2) + B ^ 2 / (8! * A) * LOG((4! * A + SQR(B ^ 2 + 16! * A ^ 2)) / B)
AL = GPSW / B * ABC
ARTHW = AL * RTHW
REM ************ THE NUMBER OF PARALLEL WIRING *****************
EATHW = GPSH / PDTHW
CO70:
INPUT " THE NUMBER OF SERIES CIRCUIT (EA) (EASC) ="; EASC
SEATHW = EATHW - PWI * (EASC - 1!) * PDTHW
NTHWPS = FIX(SEATHW / EASC)
RTHWPS = 1! / (1! / ARTHW * NTHWPS)
TRHGP = RTHWPS * EASC
PRINT "DIA. OF THW (DTHW) ="; DTHW; "m",
PRINT "PERIODIC DISTANCE OF THW (PDTHW) ="; PDTHW; "m"
PRINT "PITCH OF THW (PTHW) ="; PTHW; "m"
PRINT "AMPLITUDE OF THW (ATHW) ="; ATHW; "m"
PRINT "DEMANDED RESIST. FOR HEAT LOSS (RQLOSS) ="; RQLOSS; "ohm"
PRINT "CALCULATED RESIST. OF HGP (TRHGP) ="; TRHGP; "ohm"
PRINT
INPUT "DO YOU WANT TO CHANGE EASC ? TYPE Y/N"; YN$
IF YN$ = "Y" GOTO CO70
REM **** ITERATED CALCULATION FOR DTHW, PDTHW, PTHW, ATHW ****
PRINT
INPUT "DO YOU WANT TO TRY AGAIN FOR NEW THIN HEATING WIRE (TYPE Y/N)"; YN$
IF YN$ = "Y" GOTO CO60
REM **** ITERATED CALCULATION FOR TOTAL HEAT LOSS OF HGP ****
PRINT
INPUT "DO YOU WANT TO TRY AGAIN FOR NEW INPUT DATA(TO1,VO,TI,RHI) (TYPE Y/N)"; YN$
IF YN$ = "Y" GOTO CO50
REM******************************************************************
REM********************* OUTPUT DISPLAY *****************************
REM******************************************************************
PRINT
INPUT "OUTPUT FILE NAME ="; OTFNAME$
OPEN OTFNAME$ FOR OUTPUT AS #1
PRINT #1, "": PRINT #1, "": PRINT #1, ""
PRINT #1, SPC(10); "*****************************************"
PRINT #1, SPC(10); " Thermal Design Spec. of Heated Glass Panes"
PRINT #1, SPC(10); "*******************************************"
PRINT #1, "": PRINT #1, "": PRINT #1, "":
PRINT #1, SPC(15); "******** I n p u t D a t a ********"
PRINT #1, " "
PRINT #1, SPC(10); "Outside Air Temperature TO = "; TO1; "C"
PRINT #1, SPC(10); "Outside Wind Velocity VO = "; VO; "m/s"
PRINT #1, SPC(10); "Inside Air Temperature TI = "; TI; "C"
PRINT #1, SPC(10); "Inside Air Humidity RHI = "; RHI; "%"
PRINT #1, " "
PRINT #1, SPC(10); "Thickness of Adhesive Firm DF = "; DF; "m"
PRINT #1, SPC(10); "Conductivity of Adhesive Firm CF = "; CF; "Kcal/mhC"
PRINT #1, SPC(10); "Conductivity of Glass CGP = "; CGP; "Kcal/mhC"
PRINT #1, SPC(10); "Specific Resistance of Wire RW = "; RW; "ohm"
PRINT #1, " "
PRINT #1, SPC(10); "Width of Glass Pane GPSW = "; GPSW; "m"
PRINT #1, SPC(10); "Height of Glass Pane GPSH = "; GPSH; "m"
PRINT #1, " "
PRINT #1, SPC(10); "Voltage VT = "; VT; "m"
PRINT #1, SPC(10); "Parallel Wiring Interval PWI = "; PWI; "m"
PRINT #1, "": PRINT #1, "": PRINT #1, ""
PRINT #1, SPC(15); "******** O u t p u t D a t a ********"
PRINT #1, " "
PRINT #1, SPC(10); "Thickness of Carrier Glass DGO = "; DGO; "m"
PRINT #1, SPC(10); "Thickness of Cover Glass DGI = "; DGI; "m"
PRINT #1, ""
PRINT #1, SPC(10); "Dew Point of Inside Air DEWI = "; DEWI; "C"
PRINT #1, SPC(10); "Sur. Temp. of Cover Glass Pane TGI = "; TGI; "C"
PRINT #1, SPC(10); "Calculated Heat Loss of HGP OQTS = "; OQTS; "W/dm**2"
PRINT #1, SPC(10); "Design Heat Loss of HGP QTS = "; QTS; "W/dm**2"
PRINT #1, ""
PRINT #1, SPC(10); "Diameter of THW DTHW = "; DTHW; "m"
PRINT #1, SPC(10); "Periodic Distance of THW PDTHW = "; PDTHW; "m"
PRINT #1, SPC(10); "Pitch of THW PTHW = "; PTHW; "m"
PRINT #1, SPC(10); "Amplitude of THW ATHW = "; ATHW; "m"
PRINT #1, ""
PRINT #1, SPC(10); "The Number of Series Circuit EASC = "; EASC; "EA"
PRINT #1, SPC(10); "Demanded Resist. for Heat Loss RQLOSS = "; RQLOSS; "ohm"
PRINT #1, SPC(10); "Calculated Resist. of HGP TRHGP = "; TRHGP; "ohm"
CLOSE #1
END
REM *********** SATURATED TEMPERATURE-PRESSURE *******************
SUB PSTT (PPS, TSS)
PPS = PPS * 10000!
IF (PPS >= 62.28) AND (PPS <= 238.3) THEN
TSS = -16.893459# + .3447105 * PPS - 1.297884E-03 * PPS ^ 2 + 2.117056E-06 * PPS ^ 3
ELSEIF (PPS > 238.3) AND (PPS <= 752.2) THEN
TSS = 3.819309E-02 + .1074602 * PPS - 1.098435E-04 * PPS ^ 2 + 5.02197E-08 * PPS ^ 3
ELSEIF (PPS > GT752.2) AND (PPS <= 2031.6) THEN
TSS = 15.66693 + 4.229918E-02 * PPS - 1.49648E-05 * PPS ^ 2 + 2.394318E-09 * PPS ^ 3
ELSEIF (PPS > 2031.6) AND (PPS <= 4829.7) THEN
TSS = 30.591129# + 1.942101E-02 * PPS - 2.7762E-06 * PPS ^ 2 + 1.791413E-10 * PPS ^ 3
ELSEIF (PPS > 4829.7) AND (PPS <= 10332.3) THEN
TSS = 47.116601# + 9.069268E-03 * PPS - 5.211E-07 * PPS ^ 2 + 1.339134E-11 * PPS ^ 3
ELSE
TSS = 79.546663# + 2.352421E-03 * PPS - 1.884774E-08 * PPS ^ 2
END IF
END SUB
SUB TTPS (TT, PS)
IF (TT >= 0!) AND (TT <= 20!) THEN
PS = (62.923411# + 3.913366 * TT + .235733 * TT ^ 2) / 10000!
ELSEIF (TT > 20!) AND (TT <= 40!) THEN
PS = (225.313103# - 11.478719# * TT + .613545 * TT ^ 2) / 10000!
ELSEIF (TT > 40!) AND (TT <= 60!) THEN
PS = (1397.023087# - 68.87742799999999# * TT + 1.32237 * TT ^ 2) / 10000!
ELSEIF (TT > 60!) AND (TT <= 80!) THEN
PS = (5727.116437# - 211.36111# * TT + 2.50411 * TT ^ 2) / 10000!
ELSEIF (TT > 80!) AND (TT <= 100!) THEN
PS = (17417.119846# - 501.626135# * TT + 4.312383 * TT ^ 2) / 10000!
ELSE
PS = (72700.01506000001# - 1532.622809# * TT + 9.124664 * TT ^ 2) / 10000!
END IF
END SUB
부록 Ⅱ. 열선배열 프로그램
DECLARE SUB GiksunEdgeMotion2 () ; 서브함수
DECLARE SUB GiksunEdgeMotion ()
DECLARE SUB SPPMotion ()
DECLARE SUB ReturnSPDelay ()
DECLARE SUB SPDelay ()
DECLARE SUB SPMMotion ()
DECLARE SUB GoksunEdgeMotion2 ()
DECLARE SUB GoksunEdgeMotion ()
DECLARE SUB EdgeMotion ()
DECLARE SUB GoksunIni ()
DECLARE SUB alarm ()
DECLARE SUB GoksunDownToUp ()
DECLARE SUB GoksunUpToDown ()
DECLARE SUB QUIT ()
DECLARE SUB Rs232c ()
DECLARE SUB Goksun ()
DECLARE SUB Send2 ()
DECLARE SUB Send1 ()
DECLARE SUB HomeReturnDelay ()
DECLARE SUB Initialize ()
DECLARE SUB LN500 ()
DECLARE SUB LN600 ()
DECLARE SUB DownToUp ()
DECLARE SUB work ()
DECLARE SUB work2 ()
DECLARE SUB UpToDown ()
DECLARE SUB Emergency ()
DECLARE SUB Ending ()
DECLARE SUB starting ()
DECLARE SUB VariableSetting ()
DECLARE SUB ReturnGoksunDelay ()
DECLARE SUB WorkDelay ()
DECLARE SUB DistanceDelay ()
DECLARE SUB GiksunDelay ()
DECLARE SUB ReturnDelay ()
DECLARE SUB GoksunGiksunDelay ()
DECLARE SUB finishmusic ()
DECLARE SUB Setting ()
DECLARE SUB CommandDelay ()
COMMON SHARED Cmd2$ ; 전역변수
COMMON SHARED XXXgeejun
COMMON SHARED Per
COMMON SHARED GoksunGiksun
COMMON SHARED GoksunGiksunYmove$
COMMON SHARED ReturnGoksunGiksun
COMMON SHARED Xgeejun
COMMON SHARED Ygeejun
COMMON SHARED K
COMMON SHARED Distance
COMMON SHARED Yvelocity
COMMON SHARED Xvelocity
COMMON SHARED RExtendedValue
COMMON SHARED RLength
COMMON SHARED stoptxt()
COMMON SHARED GoksunHeight
COMMON SHARED GoksunWidth
COMMON SHARED Wide
COMMON SHARED Height
COMMON SHARED Ymiddle
COMMON SHARED Xmiddle
COMMON SHARED Giksun
COMMON SHARED GoksunCount
COMMON SHARED Length
COMMON SHARED RPitch
COMMON SHARED WaveHeight!
COMMON SHARED RowCount
COMMON SHARED Limit
COMMON SHARED SyncYGiksun
COMMON SHARED Banbok
COMMON SHARED Xaxis
COMMON SHARED Yaxis
COMMON SHARED Xini
COMMON SHARED Yini
COMMON SHARED Percent!
COMMON SHARED Pi
COMMON SHARED Ymove$
COMMON SHARED Xmove$
COMMON SHARED YPCmd$
COMMON SHARED GoksunYPCmd$
COMMON SHARED ReturnGoksunYPCmd$
COMMON SHARED YMCmd$
COMMON SHARED GoksunYMCmd$
COMMON SHARED ReturnGoksunYMCmd$
COMMON SHARED XPCmd$
COMMON SHARED XMCmd$
COMMON SHARED YYvelocity$
COMMON SHARED Xvelocity$
COMMON SHARED YYYvelocity$
COMMON SHARED XXvelocity$
COMMON SHARED YPExtendedValue$
COMMON SHARED YMExtendedValue$
COMMON SHARED GoksunBanbok
COMMON SHARED SP
COMMON SHARED NamugeeCount
COMMON SHARED RDistance$
COMMON SHARED RRDistance$
COMMON SHARED SyncYMGiksun$
COMMON SHARED SyncYPGiksun$
COMMON SHARED GoksunYmove$
COMMON SHARED ReturnGoksunYmove$
COMMON SHARED ExtendedLine
ON ERROR GOTO Ending
CLOSE #1 ; 초기 통신환경
CLOSE #2
OPEN "com1:9600,n,8,2,RS,DS,CS" FOR RANDOM AS #1 LEN = 10240
OPEN "com2:9600,n,8,2,RS,DS,CS" FOR RANDOM AS #2 LEN = 10240
COM(1) ON
COM(2) ON
Setting ; 메인 함수
starting
work
alarm
Ending: ; 프로그램 종료
SCREEN 0
CLS
COM(1) OFF
COM(2) OFF
PRINT #1, "MO"
PRINT #2, "MO"
CLOSE #1
CLOSE #2
END
SUB alarm ; 작업종료
PRINT #1, "MO"
PRINT #2, "MO"
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 10, 24: PRINT " ******* Congratulation *******"
LOCATE 12, 30: PRINT "It has finished the Job"
finishmusic
END SUB
SUB CommandDelay ; 명령 딜레이 함수
FOR I2 = 1 TO 100: NEXT I2
END SUB
SUB DistanceDelay ; 선간 이동시 딜레이 함수
IF Xvelocity < .1 THEN Xvelocity = 1
FOR K2 = 1 TO (37000 * Distance / Xvelocity): NEXT K2
END SUB
SUB DownToUp ; X축 +방향 이동시 열선배열함수
FOR jup = 1 TO Banbok
Xini = Xgeejun
Yini = Ygeejun
inK$ = INKEY$
IF inK$ <> "" THEN QUIT
PRINT #2, XMCmd$
PRINT #1, YPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
CommandDelay
PRINT #2, XPCmd$
PRINT #1, YPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
FOR iUP = 0 TO Limit STEP 37
Yaxis = Ygeejun - (SIN(iUP * Pi! / 180) * WaveHeight!)
Xaxis = Xgeejun - (iUP * Length / Limit)
LINE (Xini, Yini)-(Xaxis, Yaxis), 11
Xini = Xaxis
Yini = Yaxis
NEXT iUP
Xgeejun = Xgeejun - Length
Per = Per + 1
Percent! = Per * 100 / Banbok / RowCount
LOCATE 2, 2: PRINT USING "###"; Banbok - jup;
LOCATE 2, 5: PRINT "/";
LOCATE 2, 6: PRINT USING "###"; Banbok
LOCATE 2, 12: PRINT USING "###"; K;
LOCATE 2, 15: PRINT "/";
LOCATE 2, 16: PRINT USING "###"; RowCount
LOCATE 2, 60: PRINT TIME$
LOCATE 2, 71: PRINT USING "###.##"; Percent!;
LOCATE 2, 77: PRINT " %"
NEXT jup
END SUB
SUB Emergency ; 긴급상황 발생시 모터의 전원을 차단하여 정지시킨 후
DIM stoptxt3(7200) 수동모드로 전환하는 함수
SCREEN 12
PRINT #1, "MO"
PRINT #2, "MO"
CommandDelay
PRINT #1, "IR100"
PRINT #2, "IR100"
CommandDelay
PRINT #1, "MS"
PRINT #2, "MS"
ManDisplay:
GET (140, 100)-(500, 250), stoptxt3
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 23: PRINT "Now, Let's control it in Manual Mode."
LOCATE 11, 25: PRINT "Which port do you want to Control?"
LOCATE 12, 27: PRINT " Comport 1 or Comport 2 "
LOCATE 14, 28: INPUT "Your choice... Comport #", comport
IF comport <> 1 AND comport <> 2 THEN GOTO ManDisplay
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 27: PRINT "Now, Comport #"; comport; " is selected."
LOCATE 14, 25: PRINT "Exit the Manual Mode -> Enter 'E'"
LOCATE 11, 29: INPUT "ENTER A COMMAND :", Cmd2$
PUT (140, 100), stoptxt3
IF Cmd2$ = "E" OR Cmd2$ = "e" THEN starting
IF comport = 1 THEN Send1 ELSE IF comport = 2 THEN Send2
IF LOC(1) <> 0 THEN Rs232c
IF LOC(2) <> 0 THEN Rs232c
GOTO ManDisplay
END SUB
SUB finishmusic ; 작업완료 통보용 뮤직 함수
DO
PLAY "MFT93"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4F+L4AL4AL8F+L8EL4DL4EL8GL8F+L8EL8D"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4BL4BL4A.L8GL2AP2"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4F+L4AL4AL8F+L8EL4DL4EL8GL8F+L8EL8D"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4D.L8F+L4E.L8DL2DP2"
IF INKEY$ <> "" THEN END
PLAY "MFO5L4DL4DL4DL8DL8C+<L4BL4BL4AP8L8D"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4BL4BL4BL8BL8AL4GL4GL1F+"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4F+L4AL4AL8F+L8EL4DL4EL8GL8F+L8EL8D"
IF INKEY$ <> "" THEN END
PLAY "MFO4L4D.L8F+L4E.L8DL2D.P8"
IF INKEY$ <> "" THEN END
LOOP WHILE INKEY$ = ""
END SUB
SUB GiksunDelay ; 직선부분 열선배열 작업 딜레이
FOR K3 = 1 TO (20 * RExtendedValue / Yvelocity): NEXT K3
END SUB
SUB GiksunEdgeMotion ; 직선 모서리 부분 열선배열함수(-방향→+방향)
PRINT #1, "IR-4000"
GiksunDelay
PRINT #1, "MS"
PRINT #2, RRDistance$
DistanceDelay
PRINT #2, "MS"
PRINT #1, YPExtendedValue$
ReturnDelay
PRINT #1, "MS"
IF K <> RowCount THEN LINE (Xini, Yini)-(Xini, Yini + Distance), 11 ELSE LOCATE 2, 71: PRINT "Finished": alarm
Ygeejun = Ygeejun + Distance
END SUB
SUB GiksunEdgeMotion2 ; 직선 모서리 부분 열선배열함수(+방향→-방향)
PRINT #1, "IR4000"
GiksunDelay
PRINT #1, "MS"
PRINT #2, RRDistance$
DistanceDelay
PRINT #2, "MS"
PRINT #1, YMExtendedValue$
ReturnDelay
PRINT #1, "MS"
IF K <> RowCount THEN LINE (Xini, Yini)-(Xini, Yini + Distance), 11 ELSE LOCATE 2, 71: PRINT "Finished": alarm
Ygeejun = Ygeejun + Distance
END SUB
SUB Goksun ; 곡선부분 열선배열함수(+방향→-방향)
Xgeejun = GoksunWidth + 13
Ygeejun = 49
NamugeeCount = RowCount MOD SP
IF (GoksunHeight < Distance) OR (GoksunWidth < 5) THEN Xgeejun = 13: EXIT SUB
GoksunIni
FOR K = 1 TO GoksunCount
GoksunUpToDown
IF NamugeeCount = K MOD SP THEN SPMMotion ELSE GoksunEdgeMotion
IF K = GoksunCount THEN EXIT SUB
K = K + 1
GoksunIni
GoksunDownToUp
IF NamugeeCount = K MOD SP THEN SPPMotion ELSE GoksunEdgeMotion2
IF K = GoksunCount THEN EXIT SUB
NEXT K
Giksun = 0
END SUB
SUB GoksunDownToUp ; 곡선부분 열선배열함수(-방향→+방향)
Per = Per + 2 * INT(GoksunWidth / Length)
FOR Gjup = 1 TO GoksunBanbok
Xini = Xgeejun
Yini = Ygeejun
inK$ = INKEY$
IF inK$ <> "" THEN QUIT
PRINT #2, XMCmd$
PRINT #1, YPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
CommandDelay
PRINT #2, XPCmd$
PRINT #1, YPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
FOR iUP = 0 TO Limit STEP 37
Yaxis = Ygeejun - (SIN(iUP * Pi! / 180) * WaveHeight!)
Xaxis = Xgeejun - (iUP * Length / Limit)
LINE (Xini, Yini)-(Xaxis, Yaxis), 11
Xini = Xaxis
Yini = Yaxis
NEXT iUP
Xgeejun = Xgeejun - Length
Per = Per + 1
Percent! = Per * 100 / Banbok / RowCount
LOCATE 2, 2: PRINT USING "###"; GoksunBanbok - Gjup;
LOCATE 2, 5: PRINT "/";
LOCATE 2, 6: PRINT USING "###"; GoksunBanbok
LOCATE 2, 12: PRINT USING "###"; K;
LOCATE 2, 15: PRINT "/";
LOCATE 2, 16: PRINT USING "###"; RowCount
LOCATE 2, 60: PRINT TIME$
LOCATE 2, 71: PRINT USING "###.##"; Percent!;
LOCATE 2, 77: PRINT " %"
NEXT Gjup
END SUB
SUB GoksunEdgeMotion ; 곡선 모서리 부분의 열선배열함수(-방향→+방향)
IF K <> GoksunCount THEN PRINT #1, GoksunYMCmd$ ELSE PRINT #1, SyncYMGiksun$
GoksunGiksunDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE (Xaxis, Yaxis)-((Xaxis + Giksun * K / 1000), Yaxis), 11
IF K = GoksunCount THEN LINE (Xaxis, Yaxis)-(Xaxis + GoksunWidth - (GoksunWidth MOD Length), Yaxis), 11
PRINT #2, RRDistance$: DistanceDelay
PRINT #2, "MS"
IF K <> GoksunCount THEN LINE ((Xaxis + Giksun * K / 1000), Yaxis)-((Xaxis + Giksun * K / 1000), Yaxis + Distance), 11
IF K = GoksunCount THEN LINE (Xaxis + GoksunWidth - (GoksunWidth MOD Length), Yaxis)-(Xaxis + GoksunWidth - (GoksunWidth MOD Length), Yaxis + Distance), 11
IF K <> GoksunCount THEN PRINT #1, ReturnGoksunYPCmd$: ReturnGoksunDelay
IF K <> GoksunCount THEN LINE ((Xaxis + Giksun * K / 1000), Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
PRINT #1, "MS"
IF K = GoksunCount THEN Ygeejun = Ygeejun + Distance: Xgeejun = Xaxis + GoksunWidth - (GoksunWidth MOD Length) - 13: EXIT SUB
Ygeejun = Ygeejun + Distance
Xgeejun = Xaxis
END SUB
SUB GoksunEdgeMotion2 ; 곡선 모서리 부분의 열선배열함수(+방향→-방향)
IF K <> GoksunCount THEN PRINT #1, GoksunYPCmd$ ELSE PRINT #1, SyncYPGiksun$
GoksunGiksunDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE (Xaxis, Yaxis)-((Xaxis - Giksun * K / 1000), Yaxis), 11
IF K = GoksunCount THEN LINE (Xaxis, Yaxis)-(Xaxis - GoksunWidth + (GoksunWidth MOD Length), Yaxis), 11
PRINT #2, RRDistance$
DistanceDelay
PRINT #2, "MS"
IF K <> GoksunCount THEN LINE ((Xaxis - Giksun * K / 1000), Yaxis)-((Xaxis - Giksun * K / 1000), Yaxis + Distance), 11
IF K = GoksunCount THEN LINE (Xaxis - GoksunWidth + (GoksunWidth MOD Length), Yaxis)-(Xaxis - GoksunWidth + (GoksunWidth MOD Length), Yaxis + Distance), 11
IF K <> GoksunCount THEN PRINT #1, ReturnGoksunYMCmd$: ReturnGoksunDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE ((Xaxis - Giksun * K / 1000), Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
IF K = GoksunCount THEN Ygeejun = Ygeejun + Distance: Xgeejun = Xaxis - GoksunWidth + (GoksunWidth MOD Length): EXIT SUB
Ygeejun = Ygeejun + Distance
Xgeejun = Xaxis
END SUB
SUB GoksunGiksunDelay ; 곡선 모서리 부분 열선배열작업 딜레이 함수
FOR K5 = 1 TO (50 * GoksunGiksun / Yvelocity): NEXT K5
END SUB
SUB GoksunIni ; 곡선 부분 동작 설정
Giksun = INT(GoksunWidth / GoksunCount * 1000)
GoksunGiksun = GoksunGiksun + Giksun
IF Yvelocity < 10 THEN ReturnGoksunGiksun = INT(GoksunGiksun + 2500 - 100 * Yvelocity)
IF Yvelocity >= 10 AND Yvelocity < 13 THEN ReturnGoksunGiksun = INT(GoksunGiksun + 1700 - 100 * Yvelocity)
IF Yvelocity >= 13 THEN ReturnGoksunGiksun = INT(GoksunGiksun + 900 - 50 * Yvelocity)
IF Yvelocity > 15 THEN ReturnGoksunGiksun = INT(GoksunGiksun + 300 - 10 * Yvelocity)
GoksunYmove$ = STR$(GoksunGiksun)
GoksunYPCmd$ = "IR+" + MID$(GoksunYmove$, 2, 7)
GoksunYMCmd$ = "IR-" + MID$(GoksunYmove$, 2, 7)
ReturnGoksunYmove$ = STR$(ReturnGoksunGiksun)
ReturnGoksunYPCmd$ = "IR+" + MID$(ReturnGoksunYmove$, 2, 7)
ReturnGoksunYMCmd$ = "IR-" + MID$(ReturnGoksunYmove$, 2, 7)
END SUB
SUB GoksunUpToDown
Per = Per + 2 * INT(GoksunWidth / Length)
GoksunBanbok = INT((Wide - 2 * GoksunWidth) / Length)
Xini = Xgeejun
Yini = Ygeejun
FOR GJ = 1 TO GoksunBanbok
inK$ = INKEY$
IF inK$ <> "" THEN QUIT
PRINT #1, YMCmd$
PRINT #2, XMCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
CommandDelay
PRINT #1, YMCmd$
PRINT #2, XPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
FOR i = 0 TO Limit STEP 37
Yaxis = Ygeejun + (SIN(i * Pi! / 180) * WaveHeight!)
Xaxis = Xgeejun + (i * Length / Limit)
LINE (Xini, Yini)-(Xaxis, Yaxis), 11
Xini = Xaxis
Yini = Yaxis
NEXT i
Xgeejun = Xgeejun + Length
Per = Per + 1
Percent! = Per * 100 / RowCount / Banbok
LOCATE 2, 2: PRINT USING "###"; GJ;
LOCATE 2, 5: PRINT "/";
LOCATE 2, 6: PRINT USING "###"; GoksunBanbok
LOCATE 2, 12: PRINT USING "###"; K;
LOCATE 2, 15: PRINT "/";
LOCATE 2, 16: PRINT USING "###"; RowCount
LOCATE 2, 60: PRINT TIME$
LOCATE 2, 71: PRINT USING "###.##"; Percent!;
LOCATE 2, 77: PRINT " %"
NEXT GJ
END SUB
SUB HomeReturnDelay
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 22: PRINT "Returning to the Starting Point (0,0)"
FOR w = 1 TO 30000
K$ = INKEY$
IF K$ <> "" THEN Emergency
LOCATE 11, 22: PRINT " "
IF (w MOD 3 = 0) THEN LOCATE 11, 33: PRINT "Let's go Home! "
LOCATE 13, 22: PRINT " "
IF (w MOD 7 = 0) THEN LOCATE 13, 23: PRINT " ......@@@......@@@......@@@......"
NEXT w
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 11, 22: PRINT "Now, it has returned to the Home(0,0) !"
FOR i = 1 TO 2000
SOUND 1300, 3.7
IF INKEY$ <> "" THEN EXIT FOR
SOUND 1700, 3.7
NEXT i
END SUB
SUB Initialize ; 원점복귀 모터 구동 함수
PRINT #1, "MV13"
PRINT #2, "MV13"
CommandDelay
PRINT #1, "AR00"
PRINT #2, "AR00"
HomeReturnDelay
PRINT #1, "MS"
CLS
PRINT #2, "MS"
STARTING
END SUB
SUB LN500 ; 사용자 임의 작업중지 후 다음 작업 선택 요청 함수
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 22: PRINT "This Machine was stopped by the User."
LOCATE 11, 25: PRINT " Do you want to Move the wire ?"
LOCATE 12, 24: PRINT " or do you want to End the job ?"
LOCATE 14, 23: INPUT " Please, answer by 'M' or 'E' --->", answer$
IF answer$ = "E" OR answer$ = "e" THEN starting ELSE IF answer$ = "M" OR answer$ = "m" THEN LN600 ELSE LN500
END SUB
SUB LN600 ; 원점 복귀 확인 함수
PRINT #1, "SV"
PRINT #2, "SV"
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 22: PRINT "Check your Heating wire and glass."
LOCATE 11, 22: PRINT "Now, Exiting to starting point."
LOCATE 13, 22: INPUT "Are you ready ?, then press 'Y' --->", ans$
IF ans$ = "Y" OR ans$ = "y" THEN Initialize ELSE LN500
END SUB
SUB QUIT ; 사용자 임의 작업정지
DIM stoptxt4(7200)
GET (140, 100)-(500, 250), stoptxt4
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 21: PRINT "This Machine is now stopped temporarily."
LOCATE 11, 21: PRINT "Do you want to Stop or Kill the motor ?"
LOCATE 13, 23: INPUT "Stop(Enter S) or Kill(Enter K) -> ", stop$
IF stop$ = "S" OR stop$ = "s" THEN LN500 ELSE IF stop$ = "K" OR stop$ = "k" THEN END
PUT (140, 100), stoptxt4, PSET
END SUB
SUB ReturnDelay ; 직선 방향 전환 딜레이
FOR K4 = 1 TO (37 * RExtendedValue / Yvelocity): NEXT K4
END SUB
SUB ReturnGoksunDelay ; 곡선 방향 전환 딜레이
FOR K6 = 1 TO (57 * ReturnGoksunGiksun / Yvelocity): NEXT K6
END SUB
SUB ReturnSPDelay ; 확장 직선 방향 딜레이
FOR K8 = 1 TO (40 * (ExtendedLine + GoksunGiksun) / Yvelocity): NEXT K8
END SUB
SUB Rs232c ; 통신 에러 기록
OPEN "COM1.TXT" FOR OUTPUT AS #3
OPEN "COM2.TXT" FOR OUTPUT AS #4
RC1$ = INPUT$(LOC(1), #1)
PRINT #3, RC1$;
RC2$ = INPUT$(LOC(2), #2)
PRINT #4, RC2$;
END SUB
SUB Send1
PRINT #1, "MV10"
CommandDelay
PRINT #1, Cmd2$
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 10, 21: PRINT "Now, This Machine is moved by Your Order."
FOR I3 = 1 TO 70000
IF (I3 MOD 5 = 0) THEN LOCATE 13, 21: PRINT "Press any key when your want to stop it."
LOCATE 13, 21: PRINT " "
AK$ = INKEY$
IF AK$ <> "" THEN PRINT #1, "MS": Emergency
NEXT I3
PRINT #1, "MS"
CLS
END SUB
SUB Send2
PRINT #2, "MV10"
CommandDelay
PRINT #2, Cmd2$
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 10, 21: PRINT "Now, This Machine is moved by Your Order."
FOR I4 = 1 TO 30000
IF (I4 MOD 5 = 0) THEN LOCATE 13, 21: PRINT "Press any key when your want to stop it."
LOCATE 13, 21: PRINT " "
AK$ = INKEY$
IF AK$ <> "" THEN PRINT #1, "MS": Emergency
NEXT I4
PRINT #2, "MS"
CLS
END SUB
SUB Setting ; PLC 및 서보 모터 구동환경 설정
PRINT #1, "CM0"
PRINT #2, "CM0"
CommandDelay
PRINT #1, "TY4"
PRINT #2, "TY4"
CommandDelay
PRINT #1, "PG0.100"
PRINT #2, "PG0.100"
CommandDelay
PRINT #1, "VG1.0"
PRINT #2, "VG1.0"
CommandDelay
PRINT #1, "VI1.00"
PRINT #2, "VI1.00"
CommandDelay
PRINT #1, "TL100"
PRINT #2, "TY100"
CommandDelay
PRINT #1, "FO0.000"
PRINT #2, "FO0.000"
CommandDelay
PRINT #1, "FP0"
PRINT #2, "FP0"
CommandDelay
PRINT #1, "FS0"
PRINT #2, "FS0"
CommandDelay
PRINT #1, "FC0"
PRINT #2, "FC0"
CommandDelay
PRINT #1, "FF0.000"
PRINT #2, "FF0.000"
CommandDelay
PRINT #1, "ILV100"
PRINT #2, "ILV100"
CommandDelay
PRINT #1, "DBP0"
PRINT #2, "DBP0"
CommandDelay
END SUB
SUB SPDelay ; 확장곡선 방향 전환 딜레이
FOR K7 = 1 TO (40 * (ExtendedLine + GoksunGiksun) / Yvelocity): NEXT K7
END SUB
SUB SPMMotion ; 곡선부분 방향 전환함수(-방향→+방향)
IF K <> GoksunCount THEN SPYM = 10000 + Giksun * K ELSE SPYM = 10000 + SyncGiksun
IF K > GoksunCount THEN SPYM = 14000
SPYP = SPYM + 1000 - Yvelocity * 50
SPYMCmd$ = "IR-" + MID$(STR$(SPYM), 2, 7)
SPYPCmd$ = "IR" + MID$(STR$(SPYP), 2, 7)
PRINT #1, SPYMCmd$: SPDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE (Xaxis, Yaxis)-(Xaxis + SPYM / 1000, Yaxis), 11
IF K = GoksunCount THEN LINE (Xaxis, Yaxis)-((Xaxis + GoksunWidth - (GoksunWidth MOD Length) + 10), Yaxis), 11
PRINT #2, RRDistance$: DistanceDelay
PRINT #2, "MS"
IF K <> GoksunCount THEN LINE (Xaxis + SPYM / 1000, Yaxis)-(Xaxis + SPYM / 1000, Yaxis + Distance), 11
IF K = GoksunCount THEN LINE ((Xaxis + GoksunWidth - (GoksunWidth MOD Length) + 10), Yaxis)-((Xaxis + GoksunWidth - (GoksunWidth MOD Length) + 10), Yaxis + Distance), 11
PRINT #1, SPYPCmd$: ReturnSPDelay
PRINT #1, "MS"
IF K < GoksunCount THEN LINE (Xaxis + SPYM / 1000, Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
IF K = GoksunCount THEN LINE ((Xaxis + GoksunWidth - (GoksunWidth MOD Length) + 10), Yaxis + Distance)-((Xaxis + GoksunWidth - (GoksunWidth MOD Length)), Yaxis + Distance), 11
IF K > GoksunCount THEN LINE (Xaxis + 14, Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
Ygeejun = Ygeejun + Distance
END SUB
SUB SPPMotion ; 곡선부분 방향전환 함수(+방향→-방향)
IF K <> GoksunCount THEN SPYP = 10000 + Giksun * K ELSE SPYP = 10000 + SyncGiksun
IF K > GoksunCount THEN SPYP = 14000
SPYM = SPYP + 1000 - Yvelocity * 30
SPYPCmd$ = "IR" + MID$(STR$(SPYP), 2, 7)
SPYMCmd$ = "IR-" + MID$(STR$(SPYM), 2, 7)
PRINT #1, SPYPCmd$: SPDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE (Xaxis, Yaxis)-(Xaxis - SPYP / 1000, Yaxis), 11
IF K = GoksunCount THEN LINE (Xaxis, Yaxis)-((Xaxis - GoksunWidth + (GoksunWidth MOD Length) - 10), Yaxis), 11
PRINT #2, RRDistance$: DistanceDelay
PRINT #2, "MS"
IF K <> GoksunCount THEN LINE (Xaxis - SPYP / 1000, Yaxis)-(Xaxis - SPYP / 1000, Yaxis + Distance), 11
IF K = GoksunCount THEN LINE ((Xaxis - GoksunWidth + (GoksunWidth MOD Length) - 10), Yaxis)-((Xaxis - GoksunWidth + (GoksunWidth MOD Length) - 10), Yaxis + Distance), 11
PRINT #1, SPYMCmd$: ReturnSPDelay
PRINT #1, "MS"
IF K <> GoksunCount THEN LINE (Xaxis - SPYP / 1000, Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
IF K = GoksunCount THEN LINE ((Xaxis - GoksunWidth + (GoksunWidth MOD Length) - 10), Yaxis + Distance)-((Xaxis - GoksunWidth + (GoksunWidth MOD Length)), Yaxis + Distance), 11
IF K > GoksunCount THEN LINE (Xaxis - 14, Yaxis + Distance)-(Xaxis, Yaxis + Distance), 11
Ygeejun = Ygeejun + Distance
END SUB
SUB starting ; 열선 배열정보 수집 함수
DIM stoptxt2(7200)
PRINT #1, "MO"
PRINT #2, "MO"
CommandDelay
VariableSetting
SCREEN 0
CLS
SCREEN 12
LINE (180, 9)-(453, 37), 9, BF
LINE (467, 9)-(540, 37), 9, BF
LINE (553, 9)-(630, 37), 9, BF
LINE (3, 9)-(68, 37), 9, BF
LINE (83, 9)-(148, 37), 9, BF
LOCATE 2, 26: PRINT "ELECTRIC HEATING WIRE ARRAYER"
LOCATE 2, 73: PRINT "0.0 %"
LINE (0, 43)-(639, 475), 2, B
LINE (10, 257)-(630, 257), 12
LINE (320, 47)-(320, 471), 12
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LOCATE 9, 22: PRINT "Electric Heating Wire Arrayer Machine"
LOCATE 10, 25: PRINT "Made by B&C (SAMGONG R&D ROOM) "
LOCATE 12, 24: PRINT "Start(press Anykey) or End(press E)"
LOCATE 14, 24: INPUT "or Manual operation(press M) ===> ", Choice$
IF Choice$ = "E" OR Choice$ = "e" THEN END ELSE IF Choice$ = "M" OR Choice$ = "m" THEN Emergency
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
PRINT #1, "SV"
PRINT #2, "SV"
LN227: LOCATE 9, 22: INPUT "Enter Length of the Wave by 'mm' ! ", Length
IF Length < 1 OR Length > 3000 THEN GOTO LN227
LN230: LOCATE 10, 22: INPUT "Enter Pitch of the Wave by 'mm' ! ", Pitch
IF Pitch < .001 OR Pitch > 30 THEN GOTO LN230
LN233: LOCATE 11, 22: INPUT "Enter Distance between the wire ! ", Distance
IF Distance < 1 OR Distance > 30 THEN GOTO LN233
LN240: LOCATE 12, 22: INPUT "Enter the Height of the area ! ", Height
IF Height < 10 OR Height > 1200 THEN GOTO LN240
Ymiddle = INT(Height / 2)
LN250: LOCATE 13, 22: INPUT "Enter the Width of the area ! ", Wide
IF Wide < 10 OR Wide > 3000 THEN GOTO LN250
Xmiddle = INT(Wide / 2)
LN260: LOCATE 14, 22: INPUT "Enter the Velocity of Y_direction ! ", Yvelocity
IF Yvelocity < 3 OR Yvelocity > 101 THEN LOCATE 14, 22: INPUT "It's too fast. Select less than 30 mm/s!", TooFast$: LOCATE 14, 57: PRINT " ": GOTO LN260
'
ExtendedLine = 10000
IF Yvelocity < 10 THEN RExtendedValue = 7700 - 200 * Yvelocity
IF Yvelocity >= 10 AND Yvelocity < 13 THEN RExtendedValue = 7000 - 200 * Yvelocity
IF Yvelocity >= 13 THEN RExtendedValue = 5700 - 100 * Yvelocity
IF Yvelocity > 15 THEN RExtendedValue = 4300 - 10 * Yvelocity
YPExtendedValue$ = "IR" + MID$(STR$(RExtendedValue), 2, 7)
YMExtendedValue$ = "IR-" + MID$(STR$(RExtendedValue), 2, 7)
IF Yvelocity < 12 THEN Xvelocity = INT(Yvelocity * Pitch * 2.3 / Length) ELSE Xvelocity = INT(Yvelocity * Pitch * 2.1 / Length)
RLength = Length * 500
RPitch = Pitch * 1000
Ymove$ = STR$(RLength)
Xmove$ = STR$(RPitch)
YPCmd$ = "IR+" + MID$(Ymove$, 2, 7)
YMCmd$ = "IR-" + MID$(Ymove$, 2, 7)
XPCmd$ = "IR+" + MID$(Xmove$, 2, 7)
XMCmd$ = "IR-" + MID$(Xmove$, 2, 7)
YYvelocity$ = STR$(Yvelocity)
Xvelocity$ = MID$(STR$(Xvelocity), 1, 4)
YYYvelocity$ = "MV" + MID$(YYvelocity$, 2, 4)
XXvelocity$ = "MV" + MID$(Xvelocity$, 2, 4)
RDistance$ = MID$(STR$(Distance * 1000), 1, 6)
RRDistance$ = "IR-" + MID$(RDistance$, 2, 6)
PRINT #1, YYYvelocity$
PRINT #2, XXvelocity$
'
LINE (1, 44)-(638, 474), 0, BF
LINE (0, 43)-(639, 475), 2, B
LINE (13, (Ymiddle - Distance / 2) + 49)-(Wide + 13, (Ymiddle - Distance / 2) + 49), 12
LINE (Xmiddle + 13, 49)-(Xmiddle + 13, Height + 49 - Distance), 12
GET (140, 100)-(500, 250), stoptxt2
LINE (140, 100)-(500, 250), 0, BF
LINE (141, 101)-(499, 249), 0, BF
LINE (141, 101)-(499, 249), 12, B
LINE (151, 111)-(489, 239), 10, B
LN300:
GoksunHeight = 0
LOCATE 9, 21: INPUT "Enter the Height of Goksun by 'mm' ! ", GoksunHeight
IF GoksunHeight > 300 THEN LOCATE 9, 21: INPUT "Choose the Goksun-Height from 10 to 100 ", BEAR$: LOCATE 9, 57: PRINT " ": GOTO LN300
GoksunCount = INT(GoksunHeight / Distance)
PRINT #1, "IR-100"
PRINT #2, "IR-100"
LN310:
GoksunWidth = 0
LOCATE 10, 21: INPUT "Enter the Width of Goksun by 'mm' ! ", GoksunWidth
IF GoksunWidth > .3 * Wide OR GoksunWidth > 300 THEN LOCATE 10, 21: INPUT "Choose the Goksun-Height from 10 to 100 ", BEAR$: LOCATE 10, 56: PRINT " ": GOTO LN310
PRINT #1, "MS"
PRINT #2, "MS"
LN320: LOCATE 11, 21: INPUT "Enter the Reciprocation Count(Odd No.)", SP
IF SP < 1 OR SP > 70 THEN GOTO LN320
'
WaveHeight! = Pitch / 2
Pi! = 3.141593
Banbok = INT(Wide / Length)
Limit = 360
RowCount = INT(Height / Distance)
SyncYGiksun = (GoksunWidth - (GoksunWidth MOD Length)) * 1000 - 800
IF Yvelocity > 12 THEN SyncYGiksun = SyncYGiksun - 100
SyncYMGiksun$ = "IR-" + MID$(STR$(SyncYGiksun), 2, 7)
SyncYPGiksun$ = "IR" + MID$(STR$(SyncYGiksun), 2, 7)
'
LOCATE 13, 21: PRINT "Correct Data (press C) or Start (press S)"
LN340:
LOCATE 14, 27: PRINT " "
LOCATE 14, 27: INPUT "Your Choice : ", CMD$
IF CMD$ = "C" OR CMD$ = "c" THEN LINE (140, 100)-(500, 250), 0, BF: PUT (140, 100), stoptxt2: starting
IF CMD$ = "S" OR CMD$ = "s" THEN LINE (140, 100)-(500, 250), 0, BF: PUT (140, 100), stoptxt2: work ELSE GOTO LN340
END SUB
SUB UpToDown ; X축 -방향 이동시 열선배열함수
Xini = Xgeejun
Yini = Ygeejun
FOR J = 1 TO Banbok
inK$ = INKEY$
IF inK$ <> "" THEN QUIT
PRINT #1, YMCmd$
PRINT #2, XMCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
CommandDelay
PRINT #1, YMCmd$
PRINT #2, XPCmd$
WorkDelay
PRINT #1, "MS"
PRINT #2, "MS"
FOR i = 0 TO Limit STEP 37
Yaxis = Ygeejun + (SIN(i * Pi! / 180) * WaveHeight!)
Xaxis = Xgeejun + (i * Length / Limit)
LINE (Xini, Yini)-(Xaxis, Yaxis), 11
Xini = Xaxis
Yini = Yaxis
NEXT i
Xgeejun = Xgeejun + Length
Per = Per + 1
Percent! = Per * 100 / RowCount / Banbok
LOCATE 2, 2: PRINT USING "###"; J;
LOCATE 2, 5: PRINT "/";
LOCATE 2, 6: PRINT USING "###"; Banbok
LOCATE 2, 12: PRINT USING "###"; K;
LOCATE 2, 15: PRINT "/";
LOCATE 2, 16: PRINT USING "###"; RowCount
LOCATE 2, 60: PRINT TIME$
LOCATE 2, 71: PRINT USING "###.##"; Percent!;
LOCATE 2, 77: PRINT " %"
NEXT J
END SUB
SUB VariableSetting ; 변수 초기화 함수
Xgeejun = 0
Ygeejun = 0
K = 0
GoksunGiksun = 0
Per = 0
Yvelocity = 0
Xvelocity = 0
Distance = 0
RLength = 0
RExtendedValue = 0
ReturnGoksunGiksun = 0
END SUB
SUB work ; 곡선 라인수가 짝수인 경우
TIME$ = "00:00:00"
Goksun
GoksunGiksun = 0
IF GoksunCount MOD 2 = 1 THEN work2
IF Yvelocity < 10 THEN PRINT #1, "IR-500"
IF Yvelocity >= 10 AND Yvelocity < 13 THEN PRINT #1, "IR-100"
IF GoksunCount = 0 THEN Xgeejun = 13 ELSE Xgeejun = Xaxis - GoksunWidth + (GoksunWidth MOD Length)
XXXgeejun = Xgeejun
FOR LCD = 0 TO 7000: NEXT LCD
PRINT #1, "MS"
FOR K = GoksunCount + 1 TO RowCount
UpToDown
IF NamugeeCount = K MOD SP THEN SPMMotion ELSE GiksunEdgeMotion
IF K = RowCount THEN EXIT FOR
K = K + 1
DownToUp
IF NamugeeCount = K MOD SP THEN SPPMotion ELSE GiksunEdgeMotion2
Xgeejun = XXXgeejun
NEXT K
LOCATE 2, 60: PRINT TIME$
alarm
END SUB
SUB work2 ; 곡선 라인수가 홀수인 경우
IF GoksunCount = 0 THEN Xgeejun = 13 ELSE Xgeejun = Xaxis + GoksunWidth - (GoksunWidth MOD Length)
XXXgeejun = Xgeejun
IF Yvelocity < 10 THEN PRINT #1, "IR-500"
IF Yvelocity >= 10 AND Yvelocity < 13 THEN PRINT #1, "IR-100"
FOR LCD = 0 TO 3000: NEXT LCD
PRINT #1, "MS"
FOR K = GoksunCount + 1 TO RowCount
DownToUp
IF NamugeeCount = K MOD SP THEN SPPMotion ELSE GiksunEdgeMotion2
IF K = RowCount THEN EXIT FOR
K = K + 1
UpToDown
IF NamugeeCount = K MOD SP THEN SPMMotion ELSE GiksunEdgeMotion
'Xgeejun = XXXgeejun
NEXT K
LOCATE 2, 60: PRINT TIME$
alarm
END SUB
SUB WorkDelay
FOR J2 = 1 TO (41 * RLength / Yvelocity): NEXT J2
END SUB
부록 Ⅲ. 배열형태별 발열량계산 프로그램
CLS
PRINT STRING$(3, CHR$(13))
PI = 3.141592
5 : INPUT "Input the Dia of Heating Wire ! by 'mm' : ", Dia
IF Dia > .03 OR Dia < .005 THEN GOTO 5
S = PI * (Dia / 2) ^ 2 * 10 ^ (-6)
Resistivity = 6.5 * 10 ^ (-8)
PerR = Resistivity / S
Wattage = 850!
17 : INPUT "Input the input Voltage of Electric Heating Wire ! by 'V' : ", Voltage
IF Voltage < 10 OR Voltage > 450 THEN GOTO 17
20 : INPUT "Input the Width of 'Window' ! by 'mm' : ", WindowWidth
IF WindowWidth < 100 OR WindowWidth > 3000 THEN GOTO 20
23 : INPUT "Input the Height of 'Window' ! by 'mm' : ", WindowHeight
IF WindowHeight < 70 OR WindowHeight > 2000 THEN GOTO 23
27 : INPUT "Input the Width of Heating Area ! by 'mm' : ", WireAreaWidth
IF WireAreaWidth < 100 OR WireAreaWidth > 3000 THEN GOTO 27
30 : INPUT "Input the Hight of Heating Area ! by 'mm' : ", WireAreaHeight
IF WireAreaHeight < 70 OR WireAreaHeight > 1500 THEN GOTO 30
40 : INPUT "Input the WaveLength ! by 'mm' : ", WaveLength
IF WaveLength < 1 OR WaveLength > 3000 THEN GOTO 40
50 : INPUT "Input the WavePitch ! by 'mm' : ", WavePitch
IF WavePitch < .0001 OR WavePitch > 300 THEN GOTO 50
60 : INPUT "Input the WaveDistance ! by 'mm' : ", WaveDistance
IF WaveDistance < 1 OR WaveDistance > 30 THEN GOTO 60
70 : INPUT "Input the Goksun Height ! by 'mm' : ", GoksunHeight
IF GoksunHeight < 1 OR GoksunHeight > 130 THEN GOTO 70
80 : INPUT "Input the Goksun Width ! by 'mm' : ", GoksunWidth
IF GoksunWidth < 1 OR GoksunWidth > 30 THEN GOTO 80
WindowArea = WindowWidth * WindowHeight / 1000000
WireArea = WireAreaWidth * WireAreaHeight / 1000000
RowCount = INT(WireAreaHeight / WaveDistance)
GoksunCount = INT(GoksunHeight / WaveDistance)
Increment = INT(GoksunWidth / GoksunCount)
RelativePi = PI * ((1.5 * WavePitch + .75 * WaveLength) - ((.5 * WavePitch + .75 * WaveLength) * (.25 * WaveLength + 1.5 * WavePitch)) ^ .5) / WaveLength
OneRowLength = WireAreaWidth * RelativePi / 1000
IF WavePitch < 1 THEN OneRowLength = WireAreaWidth / 1000
OneRowResistance = PerR * OneRowLength
AllSeriesResistance = OneRowResistance * RowCount
AllSeriesPower = Voltage ^ 2 / AllSeriesResistance
AllParallelResistance = OneRowResistance / RowCount
AllParallelPower = Voltage ^ 2 / AllParallelResistance
'
start:
CLS
PRINT STRING$(2, CHR$(13))
PRINT STRING$(5, "*"); " This page show you the results of All_Series Case."; STRING$(5, "*")
PRINT STRING$(2, CHR$(13))
PRINT "Diameter of Heating Wire : "; TAB(37); Dia; TAB(52); "mm"
PRINT "Section Area of Heating Wire : "; TAB(37); S; TAB(52); "m^2"
PRINT "Resistivity : "; TAB(37); Resistivity; TAB(52); "ohm-m"
PRINT "Resistance of 1m Heating Wire : "; TAB(37); PerR; TAB(52); "ohm/m"
PRINT "Relative Pi (Ellipse Modeling) : "; TAB(37); RelativePi
PRINT "Length of each row : "; TAB(37); OneRowLength; TAB(52); "m"
PRINT "Resistance of each row : "; TAB(37); OneRowResistance; TAB(52); "ohm"
PRINT STRING$(1, CHR$(13))
PRINT "All_Series_Resistance : "; TAB(37); AllSeriesResistance; TAB(52); "ohm"
PRINT "Total Heating Area : "; TAB(37); WireArea; TAB(52); "m^2"
PRINT "All_Series_Power : "; TAB(37); AllSeriesPower; TAB(52); "watt"
PRINT "Total Window Area : "; TAB(37); WindowArea; TAB(52); "m^2"
PRINT "Needed Power for Whole Window : "; TAB(37); Wattage * WindowArea; TAB(52); "watt"
PRINT "Wattage of unit Area (1m^2) : "; TAB(37); AllSeriesPower / WireArea; TAB(52); "watt/m^2"
PRINT "Required Current for each row : "; TAB(37); Voltage / AllSeriesResistance * 1000; TAB(52); "mA"
PRINT "Totally required Current : "; TAB(37); Voltage / AllSeriesResistance * 1000; TAB(52); "mA"
DO WHILE INKEY$ = "": LOOP
CLS
PRINT STRING$(1, CHR$(13))
PRINT STRING$(5, "*"); " This page show you the results of All_Parallel Case."; STRING$(5, "*")
PRINT STRING$(1, CHR$(13))
PRINT "Diameter of Heating Wire : "; TAB(37); Dia; TAB(52); "mm"
PRINT "Section Area of Heating Wire : "; TAB(37); S; TAB(52); "m^2"
PRINT "Resistivity : "; TAB(37); Resistivity; TAB(52); "ohm-m"
PRINT "Resistance of 1m Heating Wire : "; TAB(37); PerR; TAB(52); "ohm/m"
PRINT "Relative Pi (Ellipse Modeling) : "; TAB(37); RelativePi
PRINT "Length of each row : "; TAB(37); OneRowLength; TAB(52); "m"
PRINT "Resistance of each row : "; TAB(37); OneRowResistance; TAB(52); "ohm"
PRINT STRING$(1, CHR$(13))
PRINT "All_Parallel_Resistance : "; TAB(37); AllParallelResistance; TAB(52); "ohm"
PRINT "All_Parallel_Power : "; TAB(37); AllParallelPower; TAB(52); "watt"
PRINT "Total Heating Area : "; TAB(37); WindowArea; TAB(52); "m^2"
PRINT "Wattage of unit Area (1m^2) : "; TAB(37); AllParallelPower / WireArea; TAB(52); "watt/m^2"
PRINT "Totally required Current : "; TAB(37); Voltage / AllParallelResistance * 1000; TAB(52); "mA"
PRINT "Required Current for each row : "; TAB(37); Voltage / AllParallelResistance * 1000 / RowCount; TAB(52); "mA"
PRINT STRING$(1, CHR$(13))
200 : PRINT " If you want to know Series-Parallel Power, then Presst Y or y"
INPUT " or Press N or n to Exit ", SPP$
IF SPP$ = "Y" OR SPP$ = "y" THEN GOSUB SPOptimizer
IF SPP$ = "N" OR SPP$ = "n" THEN END ELSE GOTO 200
'
SPOptimizer:
FOR K = 2 TO 100
CLS
PRINT STRING$(1, CHR$(13))
PRINT " This page show you the results of "; K; "Series-Parallel."
PRINT STRING$(1, CHR$(13))
KRowCount = INT(INT(WireAreaHeight / WaveDistance) / K)
KRowLength = OneRowLength * K
OneRowResistance = OneRowLength * PerR
KRowResistance = PerR * KRowLength
NamugeeCount = (RowCount - KRowCount * K)
NamugeeLength = ((WireAreaWidth - GoksunWidth) + Increment * NamugeeCount / 2) / 1000
NamugeePerResistance = PerR * NamugeeLength
NamugeeSeriesResistance = PerR * NamugeeLength * NamugeeCount
TotalResistance = KRowResistance / KRowCount
IF NamugeeCount <> 0 THEN TotalResistance = KRowResistance * NamugeeSeriesResistance / (KRowCount * NamugeeSeriesResistance + KRowResistance)
TotalPower = Voltage ^ 2 / TotalResistance
TotalCurrent = Voltage / TotalResistance * 1000
UnitWattage = TotalPower / WindowArea
PRINT K; "- Length of a row : "; TAB(43); OneRowLength; TAB(58); "m"
PRINT K; "- Length of a Namugee row : "; TAB(43); NamugeeLength; TAB(58); "m"
PRINT K; "- Resistance of a Giksun row : "; TAB(43); OneRowResistance; TAB(58); "ohm"
PRINT K; "- Resistance of a Goksun row : "; TAB(43); NamugeePerResistance; TAB(58); "ohm"
PRINT K; "- Giksun Series Group Resistance : "; TAB(43); KRowResistance; TAB(58); "ohm"
PRINT K; "- Namugee Sereis Group Resistance: "; TAB(43); NamugeeSeriesResistance; TAB(58); "ohm"
PRINT K; "- Total Resistance : "; TAB(43); TotalResistance; TAB(58); "ohm"
PRINT K; "- Total Power : "; TAB(43); TotalPower; TAB(58); "watt"
PRINT " Total Heating Area : "; TAB(43); WindowArea; TAB(58); "m^2"
PRINT "Optimally Required Power for Window : "; TAB(43); Wattage * WindowArea; TAB(58); "watt"
PRINT STRING$(1, CHR$(13))
PRINT " Wattage of unit Area (1m^2) : "; TAB(43); UnitWattage; TAB(58); "watt/m^2"
PRINT ""
PRINT " Total required Current : "; TAB(43); TotalCurrent; TAB(58); "mA"
PRINT ""
PRINT " Required Current for each row : "; TAB(43); TotalCurrent / KRowCount; TAB(58); "mA"
PRINT STRING$(1, CHR$(13))
INPUT "Input Any Key When You Ready to see the next results.", Anykey$
IF UnitWattage > Wattage THEN OptiK = K + 1
IF UnitWattage < 100 THEN GOSUB PSOptimizer
NEXT K
'
PSOptimizer:
FOR X = 2 TO 100
CLS
PRINT STRING$(1, CHR$(13))
PRINT " This page show you the results of "; X; "Parallel-Series."
PRINT STRING$(1, CHR$(13))
YParallelCount = INT(WireAreaHeight / WaveDistance / X)
XParallelResistance = OneRowResistance / X
XNamugeeCount = RowCount - X * INT(RowCount / X)
XNamugeeLength = ((WireAreaWidth - GoksunWidth) + Increment * XNamugeeCount / 2) / 1000
XNamugeePerResistance = PerR * XNamugeeLength
IF XNamugeeCount <> 0 THEN XNamugeeParallelResistance = XNamugeePerResistance / XNamugeeCount ELSE XNamugeeParallelResistance = 0
TotalResistance = XParallelResistance * YParallelCount + XNamugeeParallelResistance
TotalPower = Voltage ^ 2 / TotalResistance
TotalCurrent = Voltage / TotalResistance * 1000
UnitWattage = TotalPower / WindowArea
PRINT X; "- Length of a row : "; TAB(43); OneRowLength; TAB(58); "m"
PRINT X; "- Length of a Namugee row : "; TAB(43); XNamugeeLength; TAB(58); "m"
PRINT X; "- Resistance of a Giksun row : "; TAB(43); OneRowResistance; TAB(58); "ohm"
PRINT X; "- Resistance of a Goksun row : "; TAB(43); XNamugeePerResistance; TAB(58); "ohm"
PRINT X; "- Giksun Parallel Group Resistance : "; TAB(43); XParallelResistance; TAB(58); "ohm"
PRINT X; "- Namugee Parallel Group Resistance: "; TAB(43); XNamugeeParallelResistance; TAB(58); "ohm"
PRINT X; "- Total Resistance : "; TAB(43); TotalResistance; TAB(58); "ohm"
PRINT X; "- Total Power : "; TAB(43); TotalPower; TAB(58); "watt"
PRINT " Total Heating Area : "; TAB(43); WindowArea; TAB(58); "m^2"
PRINT "Optimally Required Power for Window : "; TAB(43); Wattage * WindowArea; TAB(58); "watt"
PRINT STRING$(1, CHR$(13))
PRINT " Wattage of unit Area (1m^2) : "; TAB(43); UnitWattage; TAB(58); "watt/m^2"
PRINT ""
PRINT " Total required Current : "; TAB(43); TotalCurrent; TAB(58); "mA"
PRINT ""
PRINT " Required Current for each row : "; TAB(43); TotalCurrent / X; TAB(58); "mA"
PRINT STRING$(1, CHR$(13))
INPUT "Input Any Key When You Ready to see the next results.", Anykey$
IF UnitWattage > Wattage THEN OptiX = X + 1
IF UnitWattage > 2000 THEN EXIT FOR
NEXT X
'
END
상기와 같은 구성에 의해 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템은 다음과 같이 작동한다.
퍼스널 컴퓨터(11)에 부록 1의 (가)와 같은 제품의 사용 조건을 입력하면, 부록 1의 (나), (다) 및 부록 3과 같이 컴퓨터(11)가 열선의 선택에서 배열까지 자동으로 연산하고, 상기 퍼스널 컴퓨터(11)가 부록 2와 같이 제어 및 시뮬레이션을 수행하여 출력신호가 구동 유니트(13)로 입력되므로서, 구동 유니트(13)에 의해 X축 및 Y축 서보 모터(도시하지 않음)가 구동하여, X축 가이드 레일(32, 34)을 따라 Y축 가이드 레일(36)이 X축 방향으로 이동하고, 히터 장치(50)가 Y축 가이드 레일(36)을 따라 이동하게 되며, 높이 조절장치(60)에 의해 높이가 조절된다. 이와 같이 X축 및 Y축 서보 모터에 의해 히터 장치가 이동이 제어될 때 보빈(55)에 감겨진 열선(54)이 가열기(52)에서 가열된 후 열선노즐(53)을 통해 배출되므로서 PVB 필름에 도포된다. 이 때, 가열기는 히터 컨트롤러(44)에 의해 그 작동이 된다.
상기와 같은 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템은 수요자의 주어진 조건에 대하여 열선의 선택에서 배열까지 자동으로 자유롭게 설계할 수 있고, 작업이 자동으로 이루어지는 효과가 있다.
위의 설명한 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템의 실시예는 본 발명의 사상을 설명하기 위한 것으로서, 본 발명은 위에서 설명한 실시예에 한정되지 않는다. 이 분야에 기술을 가진 자라면, 이외에 여러 가지 방식을 첨부한 특허청구의 범위에 벗어남 없이 본 발명에 따른 전기가열 접합유리의 열선 배열 시스템을 변형할 수 있을 것이다.

Claims (9)

  1. 제품의 사양에 따라 열선의 선택에서 배열까지 자동으로 연산하고 배열하는 부록 Ⅱ의 열선배열 프로그램을 내장한 퍼스널 컴퓨터(11)와, 열선 배열 프로그램에 의해 상기 퍼스널 컴퓨터(11)의 제어신호를 자동으로 열선을 배열하는 열선자동배열장치(17)로 모터제어 신호를 통해 송신하는 구동 유니트(13)와, 모터 컨트롤 신호를 구동 유니트(13)에 운용하기 위하여 필요한 24V 전원을 공급하는 장비로서 입력전원 AC220V를 DC24V로 변환시키는 전원 서플라이(21)와, 열선자동배열장치(17) 및 구동 유니트(13)의 이상 유무를 간단히 확인할 수 있는 핸디 터미널(23)로 구성되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  2. 제 1 항에 있어서,
    상기 열선자동배열장치(17)는 유리판이 놓이는 작업대(30)와, 상기 작업대(30)의 양측부에 X 방향으로 설치되는 X축 가이드 레일(32, 34)과, 상기 X축 가이드 레일(32, 34)에 양단부가 설치되어 X축 방향으로 이동할 수 있는 Y축 가이드 레일(36)과, 상기 Y축 가이드 레일(36)에 장착되어 Y축 방향으로 이동할 수 있는 열선배열기(38)로 구성되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  3. 제 2 항에 있어서,
    상기 작업대(30)는 생산 대상품의 최대 칫수를 고려하여 폭 1700mm, 길이 2400 mm로 하고 수평을 조절하기 위해 나사식 지지대가 설치되고, 미세열선을 배열하기 위한 열가소성 수지 필름을 올려놓고 작업할 때 가능한 수평을 유지하기 위하여 받침대로 판유리가 이용되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  4. 제 2 항에 있어서,
    상기 Y축 가이드 레일(36)과 열선배열기(38)는 서보 모터에 의해 이동되며, 이것에 의해, 열선이 요구 발열량을 만족시키기 위해 퍼스널 컴퓨터(11)로 시뮬레이터한 결과와 같은 파형 형태로 배열되고, 파형의 피치와 진폭 및 열선의 간격이 일정하게 유지되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  5. 제 2 항 또는 제 4 항에 있어서,
    상기 열선배열기(38)는 "ㄱ" 형상의 제 1 브라켓(40)과, 상기 제 1 브라켓(40)의 수평부(42)에 장착되며 히터 장치(55)에 접속되어 히터 장치(50)의 온도를 제어하는 히터 컨트롤러(44)와, 상기 브라켓(40)의 수직부(41)에 장착되는 제 2 브라켓(46)과, 상기 제 2 브라켓(46)에 장착되어 히터 장치(50)의 상하 높이를 조절하는 높이조절장치(60)와, 상기 높이조절장치(60)에 장착되어 유리판에 열선을 도포하는 히터장치(55)로 구성되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  6. 제 5 항에 있어서,
    상기 히터장치(50)는 보빈(55)에 감겨진 미세한 열선(54)이 가열기(52)에서 가열된 후 열선노즐(53)을 통해 배출되므로서 PVB 필름에 도포되며, 스트로크 베어링(57)에 의해 PVB 필름 위에서 부드럽게 움직이게 되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  7. 제 5 항에 있어서,
    상기 높이조절장치(60)는 제 2 브라켓(46)에 서로 일정간격만큼 이격되어 장착되는 한 쌍의 스티프너(62)와, 상기 스티프너(52) 사이에 장착되며 중간에 피니언(66)이 형성된 바아(64)와, 상기 피니언(66)과 맞물리며 히터 장치(50)에 장착되어 피니언(66)의 회전에 의해 상하로 이동하므로서 히터 장치(50)의 높이를 조절하는 랙크(66)로 구성되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  8. 제 1 항에 있어서,
    퍼스털 컴퓨터(11)의 프로그램은 첨부된 부록 1의 (가)와 같이 화면에 나타나는 순으로 외측 공기상태, 내측 공기상태, 접합유리 구성요소의 물성치, 사용전압, 유리두께 등을 입력하면, 부록 1의 (나)와 같이 데이터가 출력되고, 이 때, 부록 1의 (다)와 같이 열선 배열정보의 입력/출력 및 배열시 열저의 저항이 계산되고, 부록 1의 (라)와 같이 설계 데이터 및 발열량 그리고 최적 배열 결과가 파일로 저장되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
  9. 제 1 항에 있어서,
    서보 모터는 첨부된 부록 2와 같은 프로그램을 연산하는 퍼스널 컴퓨터에 의해 제어되는 것을 특징으로 하는 전기가열 접합유리의 열선 배열 시스템.
KR1019990065022A 1999-12-29 1999-12-29 전기가열 접합유리의 열선 배열 시스템 KR100346497B1 (ko)

Priority Applications (1)

Application Number Priority Date Filing Date Title
KR1019990065022A KR100346497B1 (ko) 1999-12-29 1999-12-29 전기가열 접합유리의 열선 배열 시스템

Applications Claiming Priority (1)

Application Number Priority Date Filing Date Title
KR1019990065022A KR100346497B1 (ko) 1999-12-29 1999-12-29 전기가열 접합유리의 열선 배열 시스템

Publications (2)

Publication Number Publication Date
KR20000012822A true KR20000012822A (ko) 2000-03-06
KR100346497B1 KR100346497B1 (ko) 2002-08-19

Family

ID=19632228

Family Applications (1)

Application Number Title Priority Date Filing Date
KR1019990065022A KR100346497B1 (ko) 1999-12-29 1999-12-29 전기가열 접합유리의 열선 배열 시스템

Country Status (1)

Country Link
KR (1) KR100346497B1 (ko)

Cited By (1)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
KR100959070B1 (ko) * 2010-04-06 2010-05-20 주식회사 우석 맞춤형 발열체의 제조방법 및 그 발열체

Families Citing this family (1)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
KR101182221B1 (ko) * 2010-08-11 2012-09-12 주식회사 에너지코리아 전선 포설장치

Cited By (3)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
KR100959070B1 (ko) * 2010-04-06 2010-05-20 주식회사 우석 맞춤형 발열체의 제조방법 및 그 발열체
WO2011126223A2 (ko) * 2010-04-06 2011-10-13 주식회사 우석 맞춤형 발열체의 제조방법 및 그 발열체
WO2011126223A3 (ko) * 2010-04-06 2011-12-15 주식회사 우석 맞춤형 발열체의 제조방법 및 그 발열체

Also Published As

Publication number Publication date
KR100346497B1 (ko) 2002-08-19

Similar Documents

Publication Publication Date Title
KR100214109B1 (ko) 유리판을 굽힘 프레임상에 설치하여 굽히기 위한 노
RU2317262C2 (ru) Форма с гибкой поверхностью и способ ее применения
KR100229686B1 (ko) 판유리의 가압굽힘성형방법 및 장치
US3506429A (en) Apparatus for improving thickness uniformity in down drawn glass sheet
US3930825A (en) Method of laser beam cutting of a ribbon of hot glass
GB1483279A (en) Method of and apparatus for bending and tempering glass sheets
CN105884211B (zh) 一种镀膜玻璃的除膜方法及除膜设备
JP2008518812A (ja) ガラスパネルの積層方法および装置
US4586946A (en) Equipment for curving glass sheets
CN101314193A (zh) 加工设备
DE4208219C1 (ko)
KR100346497B1 (ko) 전기가열 접합유리의 열선 배열 시스템
JP3522748B2 (ja) 板ガラスを曲げ加工する方法及び装置
US6623577B2 (en) Electric component compression bonding machine and method
CA2038349A1 (en) Multiconductor and Support and Machine and Method for Making
JP2005179124A (ja) ガラス板の曲げ成形方法及びその装置
US5622539A (en) Process and device for supporting and transferring glass sheets in a shaping station
US4184864A (en) Apparatus for fabricating sharply bent glass sheets
FI86405B (fi) Foerfarande och anordning foer framkallning av kantspaenning i vindruta i boejningsugn foer vindrutor.
KR970003497B1 (ko) 곡면 유리판 제조 방법 및 장치
ATE189095T1 (de) Heizungsvorrichtung für wasserbetten
EP0541522B1 (en) Heating, bending and cooling system for glass sheets
JPS5510438A (en) Working method for glass for optical fiber
EP3994103A1 (en) Tempering furnace for a glass sheet and a method for heating a glass sheet for tempering
JP2006518912A (ja) プラスチック基板上に細線を布線する方法および装置

Legal Events

Date Code Title Description
A201 Request for examination
E902 Notification of reason for refusal
E701 Decision to grant or registration of patent right
GRNT Written decision to grant
FPAY Annual fee payment

Payment date: 20130614

Year of fee payment: 12

FPAY Annual fee payment

Payment date: 20140707

Year of fee payment: 13

FPAY Annual fee payment

Payment date: 20150709

Year of fee payment: 14

FPAY Annual fee payment

Payment date: 20170713

Year of fee payment: 16

LAPS Lapse due to unpaid annual fee