이거 홈쇼핑을 주제로 만든건데요코딩설명좀 해주세요..

[In The Sky..]

이거 저희가 코딩한건데여..

책보면서.. 이케이케 했는데.. 설명을 할라구 하는데..

어케 해야될지 모르겠어요..

주제가 홈쇼핑이거든여..




Private Sub b_Click()

Picture1.Picture = LoadPicture("A:\숙제\냉장고.jpg")
Label1.Caption = "1. 제 품 : 냉장고"
Label2.Caption = "2. 제품명 : 경복 zipel 냉장고 "
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 1,844,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "얼음그릇" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 에너지 소비효율 1등급" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- New Cycle설계(최저소비전력.최저소음)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Digital 감각 Display" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슬라이드식 유제품 보관함" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세계최초 독립냉각방식" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 다단식 높이조절 선반(냉장실/냉동실) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슈퍼 고습 특선실, 슈퍼 고습 야채/과일실" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 한국형 탈취기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- PC 화면신호 입력 (15Pin,XGA), PC 음성신호 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 냉동실 서랍식 보관함" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 냉장실 칸칸 냉각 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슬라이드식 강화 유리선반 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub c_Click()
Picture1.Picture = LoadPicture("A:\숙제\TV.jpg")
Label1.Caption = "1. 제 품 : 평면 TV"
Label2.Caption = "2. 제품명 : 프로젝트 TV"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 7,990,000원 "
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면모드 선택 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면비율 모드 와이드/파노라마/확대/자막/일반" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 음향모드 선택 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 두화면 기능 (PIP, 주변기기 연결시) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 취침예약, 자동 켜짐/꺼짐 예약" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 절전기능(DPMS) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면 사이즈 조정기능 (PC 입력시). 화면 위치 조정기능 (PC 입력시)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- A/V 입력단자, S-영상 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- DTV/DVD전용 입력단자 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- PC 화면신호 입력 (15Pin,XGA), PC 음성신호 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 외부 스피커용 음성출력 단자 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub Command1_Click()
Form2.Show
If cnt <> 1 Then
Open "A:\프로숙제\바구니.txt" For Append As #1
Print #1, ; Label1.Caption
Print #1, ; Label2.Caption
Print #1, ; Label3.Caption
Print #1, ; Label4.Caption
Print #1, ; Label5.Caption
Print #1, "================================================"
Close #1
cnt = 1
Else
Open "A:\프로숙제\바구니.txt" For Append As #1
Print #1, ; Label1.Caption
Print #1, ; Label2.Caption
Print #1, ; Label3.Caption
Print #1, ; Label4.Caption
Print #1, ; Label5.Caption

Print #1, "================================================"
Close #1
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Open "A:\프로숙제\바구니.txt" For Output As #1
Close #1
Form3.Show
If Option1.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\냉장고.jpg")
ElseIf Option2.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\TV.jpg")
ElseIf Option3.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\세탁기1.jpg")
ElseIf Option4.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\전자레인지.jpg")
ElseIf Option5.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\오븐.jpg")
ElseIf Option6.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\정수기2.jpg")
ElseIf Option7.Value = True Then
Form3.Picture1.Picture = LoadPicture("A:\프로숙제\사진\오디오.jpg")
End If

End Sub


Private Sub d_Click()
Picture1.Picture = LoadPicture("A:\숙제\세탁기.jpg")
Label1.Caption = "1. 제 품 : 세탁기"
Label2.Caption = "2. 제품명 : 터보 드럼 세탁기"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 551,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 마찰,손상없이 강력하게 세탁되는 대포물살세탁 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 동전이나 옷이 낄 틈새가 전혀없는 일체형 스텐레스 세탁통" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 클러치,벨트를 없애 소음,고장 걱정이 없는 모터 직접 구동" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 섬세한 옷감은 부드럽게,찌든때는 힘차게 디지털 모터 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 마찰에 의한 소음없이 반영구적인 디지털 브레이크" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 빨래량에 따라 가장 적정한 물높이로 낭비되는 물이 없이 자동 조절(최대26단계) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 동급 국내 최저 전기,물소비 제품 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 에너지 소비효율 1등급 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 빨래 꺼내기 쉬운 낮은 전면높이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세탁방식 : 대포물살 세탁 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 모터 구동 : 모터 직접구동방식 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세탁조 : 일체형 스테인리스 세탁조, 세탁통 자동 위생 세척 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물높이조절 : 자동 26단계 + 수동 7단계 물높이 조절 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 더욱 편리한 기능 : 이중뚜껑, 수평계, 터보 크린 필터+오토 크린 필터, 행굼추가, 마이콤센서 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 표준, 이불, 적은때, 강력, 울코스" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물 소비량 : 220ℓ " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub e_Click()
Picture1.Picture = LoadPicture("A:\숙제\전자렌지.jpg")
Label1.Caption = "1. 제 품 : 전자렌지 "
Label2.Caption = "2. 제품명 : 경복 토스트 전자레인지"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 149,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 토스터기능, 입체회전가열" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 자동조리, 탈취기능, 소독기능" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 데우기 : 자동온도데우기, 수동데우기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 해동 : 쾌속해동, 일반해동" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 기타기능 : 잠금기능(안전장치), 잊음방지기능, 절전기능, 탈취기능," & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 소독기능(젖병, 행주), 스팀다올" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 조리 : One-Touch 자동조리" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 가열방식 : 입체회전가열" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub f_Click()
Picture1.Picture = LoadPicture("A:\숙제\가스오븐렌지.jpg")
Label1.Caption = "1. 제 품 : 가스오븐렌지"
Label2.Caption = "2. 제품명 : 퍼펙트 가스오븐렌지 "
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 537,600원 "
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 국내최다 21가지 오븐&그릴 자동요리 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 와이드3면입체구이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 컨벡션 쾌속요리 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 사용이 편리한 통닭구이(바비큐)전용꽂이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐&그릴 자동청소 코팅" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 고품격 Mirror Glass 채용" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 최고급 Metallic Design" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Wide Digital Display 채용" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Color 마블상판 채용 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 2중공기단열시스템, 일체형 유로시스템, 망각방지기능, 어린이보호장치 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 수상경력: 한국능률협회 고객만족도 1위 3년연속 수상" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐코팅, 그릴코팅 : C.C코팅 (자동청소코팅) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 배기방식 : 상면배기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐기능 : 컨벡션, 바비큐(전용꽂이), 발효기능, 오븐램프 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐조작방식 : 요리안내도우미, 전자식 조작, 오븐자동요리, 자동소화기능" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub Form_Load()
ChDir App.Path
End Sub



Private Sub g_Click()
Picture1.Picture = LoadPicture("A:\숙제\정수기.jpg")
Label1.Caption = "1. 제 품 : 정수기"
Label2.Caption = "2. 제품명 : 유니크 정수기"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 1,100,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 한번 더 걸러준다 . 5단계 UF멤브레인 방식 (Ultra Filtration Membrane ) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 중금속, 발암물질,세균, 유해바이러스는 제거하고 미네랄은 살려주는 건강한 정수기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물낭비가 없어 환경친화적이며 경제적인 정수기 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 최고급사양의 조리수 밸브 설치" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 미끄럼 방지 코크, 물넘치 방지장치, 과열방지 안전장치 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 필터교환시기를 알려주고 방문하여 교체해주는 해피콜 서비스 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 제품 뒷면에 온수안전 ON, OFF스위치 장착 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 중공사와 역삼투압의 장점만을 취합한 UF 멤브레인 필터" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."
End Sub

Private Sub h_Click()
Form2.Show
If cnt <> 1 Then
Open "A:\프로숙제\바구니.txt" For Append As #1
Print #1, ; Label1.Caption
Print #1, ; Label2.Caption
Print #1, ; Label3.Caption
Print #1, ; Label4.Caption
Print #1, ; Label5.Caption
Print #1, "================================================"
Close #1
cnt = 1
Else
Open "A:\프로숙제\바구니.txt" For Append As #1
Print #1, ; Label1.Caption
Print #1, ; Label2.Caption
Print #1, ; Label3.Caption
Print #1, ; Label4.Caption
Print #1, ; Label5.Caption

Print #1, "================================================"
Close #1
End If
End Sub

Private Sub i_Click()
End
End Sub


Private Sub j_Click()
Picture1.Picture = LoadPicture("A:\숙제\오디오.jpg")
Label1.Caption = "1. 제 품 : 오디오"
Label2.Caption = "2. 제품명 : 미니미니 오디오"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 738,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- DVD, 비디오CD, 오디오CD, MP3 CD 재생, CD-R/RW호환" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- AUDIO : 돌비디지털디코더내장, 4 Preset Equalizer, MDSS " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- VIDEO : 수평해상도 500본, 느린재생, 2배속재생, 최고16배화면확대, 한글표기,최고급그림메뉴(GUI)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 디스크호환 : DVD, Audio CD, Video CD, CD-R, CD-RW, MP3CD " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 편의성 : 시청제한, 재생메모리기능,책갈피 기능,반복재생(챕터,구간,all) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 전후탐색 : 2, 4, 16, 100배" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 스피커 : 완전방자형, Front 3Way, Center & Rear 1Way, Subwoofer(50W)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- TUNER : AM/FM 디지털튜너 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub

Private Sub Option1_Click()
Picture1.Picture = LoadPicture("A:\숙제\냉장고.jpg")
Label1.Caption = "1. 제 품 : 냉장고"
Label2.Caption = "2. 제품명 : 경복 zipel 냉장고 "
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 1,844,000원"
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "얼음그릇" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 에너지 소비효율 1등급" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- New Cycle설계(최저소비전력.최저소음)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Digital 감각 Display" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슬라이드식 유제품 보관함" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세계최초 독립냉각방식" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 다단식 높이조절 선반(냉장실/냉동실) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슈퍼 고습 특선실, 슈퍼 고습 야채/과일실" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 한국형 탈취기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- PC 화면신호 입력 (15Pin,XGA), PC 음성신호 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 냉동실 서랍식 보관함" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 냉장실 칸칸 냉각 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 슬라이드식 강화 유리선반 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."


End Sub


Private Sub Option2_Click()
Picture1.Picture = LoadPicture("A:\숙제\TV.jpg")
Label1.Caption = "1. 제 품 : 평면 TV"
Label2.Caption = "2. 제품명 : 프로젝트 TV"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 7,990,000원 "
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면모드 선택 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면비율 모드 와이드/파노라마/확대/자막/일반" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 음향모드 선택 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 두화면 기능 (PIP, 주변기기 연결시) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 취침예약, 자동 켜짐/꺼짐 예약" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 절전기능(DPMS) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 화면 사이즈 조정기능 (PC 입력시). 화면 위치 조정기능 (PC 입력시)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- A/V 입력단자, S-영상 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- DTV/DVD전용 입력단자 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- PC 화면신호 입력 (15Pin,XGA), PC 음성신호 입력 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 외부 스피커용 음성출력 단자 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub


Private Sub Option3_Click()

Picture1.Picture = LoadPicture("A:\숙제\세탁기.jpg")
Label1.Caption = "1. 제 품 : 세탁기"
Label2.Caption = "2. 제품명 : 터보 드럼 세탁기"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 551,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 마찰,손상없이 강력하게 세탁되는 대포물살세탁 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 동전이나 옷이 낄 틈새가 전혀없는 일체형 스텐레스 세탁통" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 클러치,벨트를 없애 소음,고장 걱정이 없는 모터 직접 구동" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 섬세한 옷감은 부드럽게,찌든때는 힘차게 디지털 모터 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 마찰에 의한 소음없이 반영구적인 디지털 브레이크" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 빨래량에 따라 가장 적정한 물높이로 낭비되는 물이 없이 자동 조절(최대26단계) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 동급 국내 최저 전기,물소비 제품 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 에너지 소비효율 1등급 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 빨래 꺼내기 쉬운 낮은 전면높이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세탁방식 : 대포물살 세탁 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 모터 구동 : 모터 직접구동방식 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 세탁조 : 일체형 스테인리스 세탁조, 세탁통 자동 위생 세척 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물높이조절 : 자동 26단계 + 수동 7단계 물높이 조절 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 더욱 편리한 기능 : 이중뚜껑, 수평계, 터보 크린 필터+오토 크린 필터, 행굼추가, 마이콤센서 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 표준, 이불, 적은때, 강력, 울코스" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물 소비량 : 220ℓ " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub


Private Sub Option4_Click()
Picture1.Picture = LoadPicture("A:\숙제\전자렌지.jpg")
Label1.Caption = "1. 제 품 : 전자렌지 "
Label2.Caption = "2. 제품명 : 경복 토스트 전자레인지"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 149,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 토스터기능, 입체회전가열" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 자동조리, 탈취기능, 소독기능" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 데우기 : 자동온도데우기, 수동데우기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 해동 : 쾌속해동, 일반해동" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 기타기능 : 잠금기능(안전장치), 잊음방지기능, 절전기능, 탈취기능," & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 소독기능(젖병, 행주), 스팀다올" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 조리 : One-Touch 자동조리" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 가열방식 : 입체회전가열" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."


End Sub


Private Sub Option5_Click()
Picture1.Picture = LoadPicture("A:\숙제\가스오븐렌지.jpg")
Label1.Caption = "1. 제 품 : 가스오븐렌지"
Label2.Caption = "2. 제품명 : 퍼펙트 가스오븐렌지 "
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 537,600원 "
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 국내최다 21가지 오븐&그릴 자동요리 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 와이드3면입체구이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 컨벡션 쾌속요리 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 사용이 편리한 통닭구이(바비큐)전용꽂이 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐&그릴 자동청소 코팅" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 고품격 Mirror Glass 채용" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 최고급 Metallic Design" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Wide Digital Display 채용" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- Color 마블상판 채용 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 2중공기단열시스템, 일체형 유로시스템, 망각방지기능, 어린이보호장치 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 수상경력: 한국능률협회 고객만족도 1위 3년연속 수상" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐코팅, 그릴코팅 : C.C코팅 (자동청소코팅) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 배기방식 : 상면배기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐기능 : 컨벡션, 바비큐(전용꽂이), 발효기능, 오븐램프 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 오븐조작방식 : 요리안내도우미, 전자식 조작, 오븐자동요리, 자동소화기능" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub

Private Sub Option6_Click()
Picture1.Picture = LoadPicture("A:\숙제\정수기.jpg")
Label1.Caption = "1. 제 품 : 정수기"
Label2.Caption = "2. 제품명 : 유니크 정수기"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 1,100,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 한번 더 걸러준다 . 5단계 UF멤브레인 방식 (Ultra Filtration Membrane ) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 중금속, 발암물질,세균, 유해바이러스는 제거하고 미네랄은 살려주는 건강한 정수기" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 물낭비가 없어 환경친화적이며 경제적인 정수기 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 최고급사양의 조리수 밸브 설치" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 미끄럼 방지 코크, 물넘치 방지장치, 과열방지 안전장치 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 필터교환시기를 알려주고 방문하여 교체해주는 해피콜 서비스 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 제품 뒷면에 온수안전 ON, OFF스위치 장착 " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 중공사와 역삼투압의 장점만을 취합한 UF 멤브레인 필터" & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub

Private Sub Option7_Click()
Picture1.Picture = LoadPicture("A:\숙제\오디오.jpg")
Label1.Caption = "1. 제 품 : 오디오"
Label2.Caption = "2. 제품명 : 미니미니 오디오"
Label3.Caption = "3. 제조원 : 경복 전자"
Label4.Caption = "4. 원산지 : 한국"
Label5.Caption = "5. 판매가 : 738,000원"
Label6.Caption = ""
Label6.Caption = Label6.Caption & "▷ 특 징" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- DVD, 비디오CD, 오디오CD, MP3 CD 재생, CD-R/RW호환" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- AUDIO : 돌비디지털디코더내장, 4 Preset Equalizer, MDSS " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- VIDEO : 수평해상도 500본, 느린재생, 2배속재생, 최고16배화면확대, 한글표기,최고급그림메뉴(GUI)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 디스크호환 : DVD, Audio CD, Video CD, CD-R, CD-RW, MP3CD " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 편의성 : 시청제한, 재생메모리기능,책갈피 기능,반복재생(챕터,구간,all) " & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 전후탐색 : 2, 4, 16, 100배" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- 스피커 : 완전방자형, Front 3Way, Center & Rear 1Way, Subwoofer(50W)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & "- TUNER : AM/FM 디지털튜너 " & Chr(10) & Chr(13) & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " ▷ - 제품에 이상이 있을 시(고객센터 문의 후 불량 판정을 받은 경우)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 100% 교환 및 환불해 드립니다. (제품 수령 후 20일안에 가능하며 운송비는 업체부담입니다.)" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " - 자세한 제품에 대한 설명, 제품 이상시 인터넷 http://www.as.co.kr로 들어오셔서 문의 하시거나" & Chr(10) & Chr(13)
Label6.Caption = Label6.Caption & " 전화 698-4565로 문의 하시기 바랍니다."

End Sub






=====================================
『세상을 변화시키는 인터넷①』
(≫≪) 미군 희생 여중생들의 죽음을 애도하며..