*상* 스토어

*상*

개인

팔로워0 팔로우

소개

등록된 소개글이 없습니다.

전문분야 등록된 전문분야가 없습니다.

판매자 정보

학교정보

입력된 정보가 없습니다.

직장정보

입력된 정보가 없습니다.

자격증

입력된 정보가 없습니다.

판매지수

판매중 자료수

4개
전체 판매량

30개
최근 3개월 판매량

0개
자료후기 점수

-
자료문의 응답률

-

전체자료 4개

로또번호 생성기입니다.

비주얼 베이직 닷넷2005로 만들었습니다. 간단하게 6개 숫자와 1개의 보너스번호를 랜덤하게 생성하고생성된 번호들끼리 중복된 값이 없도록 만들었습니다.루프문공부하기엔 가장 좋은 예가 로또번호 발생기인데 이 소스가 많은 도움이 되었으면 좋겠네요..닷넷2005이상인 버전에서 완벽하게 프로젝트가 열립고, 2005이하 버전은 열리지 않습니다.이때는 Form1.vb파일을 메모장으로 열어서 소스를 보실수 있습니다.소스요약) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '//로또 번호 생성한다. MakeNansu() '//생성된 수를 일차원변수값으로 전환한다. Dim makesu As String = Join(sumake, ",") '//리스트박스에 표시한다. ListBox1.Items.Add(makesu) '//생성된 배열값 지움 Array.Clear(sumake, 0, 6) End Sub

프로그램소스| 2008.07.19| 1,000원| 조회(1,875)

비주얼베이직, 로또, 로또번호, 비주얼베이직2005, 비베닷넷

미리보기

닫기
비베로 만든 숫자 야구게임 입니다.

..FILE:숫자야구/bin/Debug/숫자야구.exe..FILE:숫자야구/bin/Debug/숫자야구.pdb..FILE:숫자야구/bin/Debug/숫자야구.vshost.exe..FILE:숫자야구/bin/Debug/숫자야구.xml..FILE:숫자야구/Form1.Designer.vb _Partial Class Form1Inherits System.Windows.Forms.Form'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. _Protected Overrides Sub Dispose(ByVal disposing As Boolean)If disposing AndAlso components IsNot Nothing Thencomponents.Dispose()End IfMyBase.Dispose(disposing)End Sub'Windows Form 디자이너에 필요합니다.Private components As System.ComponentModel.IContainer'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.'수정하려면 Windows Form 디자이너를 사용하십시오.'코드 편집기를 사용하여 수정하지 마십시오. _Private Sub InitializeComponent()Me.Label2 = New System.Windows.Forms.LabelMe.TextBox1 = New System.Windows.Forms.TextBoxMe.Button1 = New System.Windows.Forms.ButtonMe.GroupBox1 = New System.Windows.Forms.GroupBoxMe.ListView1 = New System.Windows.Forms.ListViewMe.ColumnHeader1 = New System.Windows.Forms.ColumnHeaderMe.ColumnHeader2 = New System.Windows.Forms.ColumnHeaderMe.ColumnHeader3 = New System.WstView1"Me.ListView1.Size = New System.Drawing.Size(299, 276)Me.ListView1.TabIndex = 0Me.ListView1.UseCompatibleStateImageBehavior = FalseMe.ListView1.View = System.Windows.Forms.View.Details''ColumnHeader1'Me.ColumnHeader1.Text = "시도"Me.ColumnHeader1.Width = 59''ColumnHeader2'Me.ColumnHeader2.Text = "공격"Me.ColumnHeader2.Width = 86''ColumnHeader3'Me.ColumnHeader3.Text = "판정"Me.ColumnHeader3.Width = 88''Label3'Me.Label3.AutoSize = TrueMe.Label3.Location = New System.Drawing.Point(289, 532)Me.Label3.Name = "Label3"Me.Label3.Size = New System.Drawing.Size(42, 12)Me.Label3.TabIndex = 5Me.Label3.Text = "Label3"''Button2'Me.Button2.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))Me.Button2.ForeColor = System.Drawing.Color.RedMe.Button2.Location = New System.Drawing.Point(237, 454)Me.Button2.Name = "Button2"Me.Button2.Size = New System.Drawing.Size(94, 48)Me.Button2.TabIndex = 6Me.Button2.Text = "한번더..."Me.Button2.o aaaElseIf ComSu(1) = ComSu(2) ThenGoTo aaaElseIf ComSu(0) = ComSu(2) ThenGoTo aaaEnd If'디버그 용도입니다. ----------주석처리해도 됩니다.Me.Label3.Text = ""Me.Label3.Text = ComSu(0) & ComSu(1) & ComSu(2)'------------------------------------End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMakeSu()Me.ListView1.Items.Clear()End SubPrivate Sub Check()TryDim meStr(2) As String '사용자가 입력한 숫자를 저장할 변수Static index As Integer '리스트박스용 인덱스For i As Integer = 0 To meStr.GetUpperBound(0) '입력한 수를 배열변수에 담음meStr(i) = Mid(Me.TextBox1.Text, i + 1, 1)NextStatic Strike, Ball As Integer'. 스트라이크판정For i As Integer = 0 To 2If meStr(i) = ComSu(i) Then '같은 자리의 수가 같은면 Strike 변수 1씩 증가.Strike += 1End IfNext'.볼판정If meStr(0) = ComSu(1) ThenBall += 1End IfIf meStr(0) = ComSu(2) ThenBall += 1End IfIf meStr(1) = ComSu(0) ThenBall += 1End IfIf meStr(1) = ComSu(2) ThenBall += 1End IfIf meStr(2) = ComSu(0) ThenBall += 1End IfIf meStr(2) = ComSu(1) ThenBall += 1End If'.모두다 다 맞ner' (go to Project Properties or double-click the My Project node in' Solution Explorer), and make changes on the Application tab.'Partial Friend Class MyApplication _Public Sub New()MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)Me.IsSingleInstance = falseMe.EnableVisualStyles = trueMe.SaveMySettingsOnExit = trueMe.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormClosesEnd Sub _Protected Overrides Sub OnCreateMainForm()Me.MainForm = Global.숫자야구.Form1End SubEnd ClassEnd Namespace..FILE:숫자야구/My Project/Application.myapp..FILE:숫자야구/My Project/AssemblyInfo.vbImports SystemImports System.ReflectionImports System.Runtime.InteropServices' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다.' 어셈블리와 관련된 정보를 수정하려면' 이 특성 값을 변경하십시오.' 어셈블리 특성 값을 검토합니다.'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다.' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다.'' 주 버전' 부 버전' 빌드 번호' 수정 버전'' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로' 지정되도록 할 수 있습니다.' ..FILE: Runtime Version:2.0.50727.1433'' Changes to this file may cause incorrect behavior and will be lost if' the code is regenerated.' '------------------------------------------------------------------------------Option Strict OnOption Explicit OnNamespace My _Partial Friend NotInheritable Class MySettingsInherits Global.System.Configuration.ApplicationSettingsBasePrivate Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)#Region "My.Settings Auto-Save Functionality"#If _MyType = "WindowsForms" ThenPrivate Shared addedHandler As BooleanPrivate Shared addedHandlerLockObject As New Object _Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)If My.Application.SaveMySettingsOnExit ThenMy.Settings.Save()End IfEnd Sub#End If#End RegionPublic Shared ReadOnly Property [Default]() As MySettingsGet#If _MyType = "WindowsForms" ThenIf Not addedHandler ThenSyn CPU

프로그램소스| 2008.04.21| 1,000원| 조회(983)

야구, 비주얼베이직, 비베, 야구게임, 닷넷, 숫자

미리보기

닫기
블링크 감상문

Blink-2초의 刹那의 순간우리는 살아가면서 수 많은 선택의 기로에 서게 된다. 그리고 그 선택이 가장 최상의 결과를 나타내기를 바라면서 그 선택을 수행하게 된다.전쟁터에 자기 소속소대만 남은 장교가 있다고 하자. 그들에게는 적들이 차지 하고 있는 고지를 반드시 점령하라는 상부의 명령이 있다. 하지만 사방으로 폭격이 떨어지고 총탄이 빗발치는 상황에서 더군다나 적군의 병력은 자신의 병력의 거의 몇 배나 많은 병력을 소유하고 있기 때문에 쉽게 공격할 수 도 없고, 그렇다고 쉽게 철수할 수 없는 상태이다.이때 이 장교는 무엇을 선택해야 할 것인가? 철수 하여 뒷 일을 기약할 것인가? 아니면 적진으로 뛰어 들어가서 맹렬히 싸울 것인가에 대해 가능하면 긴 시간을 보내면서 선택을 할 것이다.회사 입사 면접장에서 한 인사 담당자가 입사지망자의 이력서를 보면서 이 사람의 기본적인 능력은 뛰어나다. 하지만 이 사람은 우리 조직에서 얼마나 많은 능력을 발휘 할 수 있는가, 아니면 조용히 흘려가는 존재. 자신의 능력을 발휘하기 보다는 일에 맞춰가는 능력을 소유하는 인재인가, 적극적으로 일을 하려는 인재인가 등 다양한 판단을 통해서 채용유무를 선택하게 된다. 과연 이 사람을 채용할 것인가, 안 할 것인가에 대해서 심사 숙고하면서 긴 시간을 보내면서 선택하게 된다.이처럼 우리는 중요한 선택의 기로에서 무엇을 판단하고 무엇이 자신에게 도움이 되는지에 대해서는 긴 시간을 보내는 거에 대해서 투자하는 시간이 아무리 크더라도 우리는 이러한 시간이 아깝다고 생각하지는 않게 된다.왜 그럴까?참으로 단순한 명제 일 것이다. 가장 중요한 선택을 아무렇지 않게 쉽게 선택하기란 지성을 가진 인간으로서는 참으로 힘들 것이다.그럼 다음 경우를 한 번 생각해보자.축구경기에서 미드필더가 공을 잡고 어디로 패스할지 생각하는 거에 대해서 살펴보자. 자신의 패스경로에 따라 골을 만들 수가 있고, 상대방 선수에게 골을 뺏길 수 있을 것이다.미드필더는 순간적으로 자신의 왼쪽 발로 자신의 팀 공격수가 왼쪽에서 중앙으로 돌파하는 것을 보고 그에게 스루패스를 한다. 공격수는 달려오는 탄력을 이용해서 공을 다이렉트로 슈팅을 하여 골로 이어진다.이는 가장 좋은 선택을 통해 최상의 결과를 이루어진 결과물이라고 볼 수 있다. 만약 미드필더가 조금만 시간을 지체하였다면 상대방 선수들에게 둘러싸여 있거나 순식간에 공을 뺏기게 될 것이다.이처럼 축구경기 같은 스포츠의 세계에서의 순간적인 판단은 경기의 승패 여부를 판단하는 중요한 선택이다.이 같은 선택을 긴시간을 소비하면서 선택하는 것은 정말 어리석은 결과를 초래하는 것이 당연하다.요즘처럼 빠르게 흘려가는 시대에서의 선택의 기로에서의 시간의 소비는 부정적인 결과를 초래할 수가 있다.순간적인 판단은 굉장히 빠르다. 경험의 매우 짧은 조각에 의존하기 때문이다. 그리고 그것은 무의식적으로 진행된다.이처럼 무의식은 일정의 정신적 시종역할을 하게 된다. 우리의 삶의 정신적인 부분을 사소한 것까지 보살피게 되면서 주변에서 진행되는 모든 일을 감시하고 적절히 대응하게 하면서 당신이 중요한 당면 과제에 집중할 수 있도록 자유롭게 풀어주게 되는 것이다.무의식 중 본능적으로 이루어지는 순간 판단하는 능력을 블링크(Blink)라고 한다. 새로운 사람을 만나거나, 복잡한 일에 맞닥뜨리거나, 긴박한 상황에서 순간적으로 솟아오르는 생각과 느낌들.일반적으로 불과 몇 초 동안 이루어지는 본능적 판단이나 인식에 대해 대부분의 사람들은 한번쯤 자신의 판단이나 인식에 대해서 부정적인 견해를 가지는게 대부분이다. 하지만 꼭 그럴까? 뭐라 설명할 수 없지만 처음 느꼈던 '감'이 정확하게 맞았던 적이 없는가? 이유 없이 찜찜하게 느껴졌던 일들이 결국 큰 낭패를 초래한 적이 없는가? 산더미 같은 일을 섬광처럼 스치는 판단으로 처리해본 적은 없는가?우리는 오랜 시간을 투입하면 할수록 좋은 성과가 있으리라는 뿌리 깊은 고정관념을 가지고 있다. 하지만 지금 우리가 살고 있는 이 시대에서는 의식뿐만 아니라 무의식의 작동으로 이루어지는 순간적인 판단이 중요하다는 것을 알 수 있다. 이러한 판단의 기준은 내가 얼마나 많은 편견이나 차별에 노출되어 있느냐에 따라서는 치명적인 오류를 범할 수도 있다.대표적인 예가 '워런 하딩의 오류'와 '펩시 챌린지'이다. 미국의 29대 대통령이었던 워런 하딩은 그의 뛰어난 외모에 사로잡혀 국민들은 그의 다른 모습을 살펴보는데에서는 관심이 없었다. 잘생긴 사람은 총명하고 성실한 사람이라고 판단하게 된것이다.즉 외모가 정상적인 사고 작용을 마비 시켰기 때문이다. 이처럼 외모에 입각한 오류에 휩싸여 미국 국민들은 그를 대통령으로 선출하게 되었다. 하지만 그는 취임 2년만에 돌연사한 미국 역사상 ‘최악의 대통령’중의 하나이다.그리고 펩시 챌린지오류이다. 이는 한 모금만 맛볼 때만 단맛의 펩시가 우세했던 사실을 놓친 코카콜라가 펩시와 비슷한 맛의 '뉴코크'를 출시했다가 재앙에 가까운 실패를 경험하게 된다. 즉 지극히 단순한 블라인드 테스트를 통해서 콜라의 성공유무를 판단한 코카콜라 경영진의 오류 때문에 기존의 엄연한 사실- 실제 세계에서는 누구도 눈을 감은채 콜라를 마시지 않는다. 을 망각하여 코카콜라의 제품에 대한 소비자의 반발을 가지고 온 것이다.이런 순간적인 판단을 요구하는 시대에서 무엇을 준비하고 어떻게 사고를 하는 것이 중요한 과제로 남게 된 것이다. 우리의 선택은 최선이기를 원하고 가장 좋은 결과를 바란다. 그리고 이러한 선택은 가장 짧은 순간에 이루어 지기를 바라고 있다.그러면 우리에게 필요한 것은 무엇인가? 어떻게 하면 가장 좋은 블링커(Blinker)가 될수 있을까라는 의문점이 생기게 된다. 결국 우리들은 이 시대의 새로운 현자賢者가 되어야 할 것이다.그렇다면 블링커가 되기 위해서는 무엇이 필요하고 무엇을 해야 하는가에 대해서 알아보자.먼저 절대적인 지식과 경험의 축적이다. 즉 작품을 보는 순간 가짜라는 느낌이 드는 것은 많은 지식과 경험의 결과물이고 오랜 세월 많은 작품을 보다 보면 진위여부에 대해 안목이 생기는 것이다. 다시 말하면 경험 많은 사업가가 사업 파트너를 선정하는 것도 그렇다. 만나서 몇 마디 나누는 순간 견적이 나온다. 뭔지 모르지만 신뢰가 가는 사람이 있고 그렇지 않은 사람이 있다. 블링크는 지식과 경험이 일체화되어 빠른 판단으로 나오는 것이다.그리고 오감(五感)을 열어놓는 것이다. 블링크의 품질을 높이기 위해서는 모든 것에 느낌을 열어 놓아야 한다. 그러기 위해서는 가능한 고정관념, 선입관 등은 버려야 할 것이다. 대포적인 것이 시각이다. 남자가 여자보다 우월하다는 선입관이 대표적이다. 그 때문에 클래식 음악계에는 여자들이 발을 붙이지 못했다. 그러다 장막오디션(스크린을 사이에 두고 연주자와 심사위원이 있는 것)이 생겼고, 연주 소리만으로 오디션을 하게 되었다. 그 결과 수많은 여성들이 클래식 음악계에 진출할 수 있었다.마지막으로 인간에 대한 이해의 폭을 넓히는 것이다. 저 사람은 어떤 사람인지, 왜 저런 행동을 하고 그 배경은 무언지를 이해하는 것이 핵심 요소인 것이다. 그러기 위해서는 세심한 관찰이 필요하다. 즉 인간에 대한 데이터의 축적과 분석이 필요하다. 또 관련된 책도 많이 보아야 한다. 그리고 심리에 대해 공부도 해야 한다. 그러다 보면 인간에 대한 통찰력이 생기고 그런 것이 우리의 블링크의 품질을 높이게 된다.결국 우리 삶은 우리가 내리는 선택과 결정의 품질에 의해 좌우되고 선택과 결정은 순식간에 이루어 지게 될 것이다.앞서 설명한 축구선수와 전쟁터의 장교의 예를 살펴보면 자신의 팀 동료의 특징을 누구보다 더 많이 알고 있어서 순간적인 판단을 통해 극적인 결과를 나타낸 것이다.만약 이 미드필더가 자신의 팀 공격수의 특징을 누구보다도 잘 알 수 없고 선택하는데 조금이라도 시간을 지체하여 자신의 선택에 부정적인 영향을 주어서 상대방에게 공을 뺏기게 되는 것이다.즉 자신의 팀 공격수가 빠른 발과 강한 슈팅을 가지고 있다면 공격수 앞으로 스루 패스를 통해 직접적으로 슈팅을 하게끔 할 수 있고 키가 크고 헤딩력이 강하면 센터링을 통해 공중으로 공을 올리게 할 것이다.그리고 전쟁터에 있는 장교가 그 당시의 자신의 소대원의 특징과 그리고 적군의 사기 정도와 병력의 품질을 누구보다 더 잘 알고 있으면 그는 빠른 판단을 통해 가장 좋은 결과물을 만들어 낼 것이다.즉 자신의 소대원들이 이기겠다는 신념. 즉 강한 정신력과 강한 체력을 소지하고 있다는 것을 알고 적군은 오랫동안 전쟁으로 인해 피로하다거나 보급의 지연으로 사기가 떨어지고 있다는 것을 알고 있거나, 자신의 병력이 너무 힘들고 지쳐있다는 것을 알 수 있느냐에 따라 선택이 달라지게 되고 결과도 달라지게 된다.이처럼 정확한 순간 판단 능력, 즉 직관과 통찰은 뼈를 깎는 노력과 숙고, 그리고 고뇌의 산물이라고 말할 수 있다. 다시 말하면 순간적 판단의 힘도 교육하고 관리할 수 있다는 것이다.만일 우리가 무의식을 통해 이루어지는 자신의 의사결정과 행동에 관심을 기울이고 개선하기 위해 노력한다면 분명 큰 변화가 일어날 것이라고 확신할 수 있을 것이다. 전쟁하는 방식에서부터 축구 경기, 입사면접 방식까지, 모두 달라질 것이라는 것이다.앞으로 우리에게 필요한 것은 무의적으로 이루어지는 의사결정과정이 고품질의 결과물이 될 수 있다는 생각을 가져야 할 것이다. 물론 이를 위해 가장 중요한 것은 눈 깜빡 하는 동안의 순간적인 판단이 수개월에 걸친 이성적인 분석만큼 가치 있음을 인정하는 것이라고 거듭 강조한다.순간 판단을 잘하기 위한 원리는 단순하다. 가지치기와 정수추출이다. 판단을 흐리는 쓸데없는 가지들은 가차없이 쳐내 버리고 핵심이 되는 요소들만 뽑아내 일별하는 것이다. 그러면 직관이 가능해지고, 신과 같은 혜안도 가질 수 있다.-끝-첫 2초의 힘 -Blink-PAGE PAGE 2소속학교 학과명 학번 이름

독후감/창작| 2008.01.05| 5페이지| 1,000원| 조회(365)

독후감, 감상문, 블링크.blink

미리보기

닫기
비주얼베이직 닷넷으로 구현한 주소록입니다.(db 액세스)

..FILE:주소록(DB)/주소록(DB)/bin/Debug/addr.mdb..TABLE:main이름, 집전화번호, 휴대폰, email, 주소, 그룹, 키값didi@dodod.com, 마산시, 회사, , , , 2008-01-05 오후 4:43:34123@sdf.co.kr, 대구시, 기타, , , , 2008-01-05 오후 5:43:34test@aa.com, 서울시, 친구, , , , 2008-01-05 오후 6:53:49kim@kim.com, 부산시, 친구, , , , 2008-01-05 오후 6:54:36lee@lee.com, 부산시, 학교, , , , 2008-01-05 오후 6:55:24choi@choi.com, 마산시, 회사, , , , 2008-01-05 오후 6:56:55qw@saf.com, 서울시, 기타, , , , 2008-01-15 오후 4:43:3443@ewr.com, 서울시, 학교, , , , 2004-01-05 오후 4:43:34dfs@sdf.com, 부산시, 학교, , , , 2001-01-05 오후 4:43:343423@ger.com, 부산시, 기타, , , , 2003-01-05 오후 4:43:34dsf@c.co.kr, 서울시, 회사, , , , 2008-03-05 오후 4:43:34bfs@scc.co.kr, 서울시, 친구, , , , 2008-01-05 오후 5:33:34htr@gtr.co.kr, 부산시, 회사, , , , 2008-11-05 오후 4:43:34hter@pklo.com, 부산시, 친구, , , , 2008-01-15 오후 4:43:22pogew@pol.com, 부산시, 회사, , , , 2001-01-01 오후 4:43:34wet@www.com, 서울시, 기타, , , , 2008-01-05 오전 4:43:34..FILE:주소록(DB)/주소록(DB)/CallDB.vbImports System.Data.OleDbImports System.Data.DataSet'/데이터베이스와 연결을 담당하는 클래스이다.Public HeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSizeMe.DataGridView1.Location = New System.Drawing.Point(24, 253)Me.DataGridView1.Name = "DataGridView1"Me.DataGridView1.RowTemplate.Height = 23Me.DataGridView1.Size = New System.Drawing.Size(451, 235)Me.DataGridView1.TabIndex = 14''Button7'Me.Button7.Location = New System.Drawing.Point(400, 212)Me.Button7.Name = "Button7"Me.Button7.Size = New System.Drawing.Size(75, 23)Me.Button7.TabIndex = 13Me.Button7.Text = "디버그"Me.Button7.UseVisualStyleBackColor = True''Button2'Me.Button2.Location = New System.Drawing.Point(378, 156)Me.Button2.Name = "Button2"Me.Button2.Size = New System.Drawing.Size(75, 23)Me.Button2.TabIndex = 12Me.Button2.Text = "취소"Me.Button2.UseVisualStyleBackColor = True''Button1'Me.Button1.Location = New System.Drawing.Point(292, 156)Me.Button1.Name = "Button1"Me.Button1.Size = New System.Drawing.Size(75, 23)Me.Button1.TabIndex = 7Me.Button1.Text = "저장"Me.Button1.UseVisualStyleBackColor = True147, 21)Me.TextBox8.TabIndex = 4''TextBox7'Me.TextBox7.Location = New System.Drawing.Point(75, 26)Me.TextBox7.Name = "TextBox7"Me.TextBox7.Size = New System.Drawing.Size(130, 21)Me.TextBox7.TabIndex = 3''Label13'Me.Label13.AutoSize = TrueMe.Label13.Location = New System.Drawing.Point(28, 29)Me.Label13.Name = "Label13"Me.Label13.Size = New System.Drawing.Size(33, 12)Me.Label13.TabIndex = 13Me.Label13.Text = "이름:"''GroupBox1'Me.GroupBox1.Controls.Add(Me.ListView1)Me.GroupBox1.Location = New System.Drawing.Point(6, 48)Me.GroupBox1.Name = "GroupBox1"Me.GroupBox1.Size = New System.Drawing.Size(487, 221)Me.GroupBox1.TabIndex = 5Me.GroupBox1.TabStop = FalseMe.GroupBox1.Text = "검색결과"''ListView1'Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5, Me.ColumnHeader6, Me.ColumnHeader7})Me.ListView1.Location = New System.Drawing.Point(11, 20)Me.ListView1.Name = "ListView1"Me.ListView1.Size = s String = TextBox3.Text.ToStringDim email As String = TextBox4.Text.ToStringDim addr As String = TextBox5.Text.ToStringDim group As String = Me.ComboBox1.SelectedItem.ToStringDim mykey As DateTime = DateTime.Now'쿼리문(작성)Dim mysql As String = "insert into [main] values('" & name & "','" & homePhone & "','" & cellPhone & "','" & email & "','" & addr & "','" & group & "','" & mykey.ToString & "')"If conn.ExecuteNonQuery(mysql) Then '쿼리문 전달해서 True/False값 받아온다.MessageBox.Show("데이터 추가 했습니다...", "추가 완료", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)textbox(Me) '텍스트박스값 모두 삭제ElseMessageBox.Show("추가 실패", "추가 실패", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)End IfEnd IfEnd SubPrivate Sub textbox(ByVal Container As Control) '자신의 폼에 있는 모든 컨트롤을 제어한다For Each cont As Control In Container.ControlsIf TypeOf cont Is TextBox Then '컨트롤중에서 텍스트박스형태의 콘트롤이 있으면cont.Text = ""End IfIf cont.Controls.Count > 0 Then '재귀적 호출해서 전체 다 지운다.textbox(cont)End IfNextEnd SubPrivate Sub Form1_Load(ByVal sender As System.ObjEach item In Me.ListView1.SelectedItemsitem.Remove()Nexttextbox(Me) '텍스트박스값 모두 삭제Me.Label14.Text = "입력시간:"ElseMessageBox.Show("삭제 실패")End IfElseMessageBox.Show("db에 연결에 실패했습니다.", "수정 실패", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)End IfEnd SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickMessageBox.Show("작업 취소 했습니다.", "취소", MessageBoxButtons.OK, MessageBoxIcon.Information)textbox(Me)Me.Label14.Text = "입력시간"Me.ListView1.Items.Clear()Me.ComboBox2.SelectedIndex = 0End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickApplication.Exit()End SubEnd Class..FILE:주소록(DB)/주소록(DB)/My Project/Application.Designer.vb'------------------------------------------------------------------------------' ' This code was generated by a tool.' Runtime Version:2.0.50727.832'' Changes to this file may cause incorrect behavior and will be lost if' the code is regenerated.' '---------------다.

프로그램소스| 2008.01.05| 1,000원| 조회(964)

비주얼베이직, DB, 액세스, 닷넷, 주소록

미리보기

닫기