*정* 스토어

*정*

개인

팔로워0 팔로우

소개

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

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

판매자 정보

학교정보

입력된 정보가 없습니다.

직장정보

입력된 정보가 없습니다.

자격증

입력된 정보가 없습니다.

판매지수

판매중 자료수

7개
전체 판매량

4개
최근 3개월 판매량

0개
자료후기 점수

평균A
자료문의 응답률

-

전체자료 7개

[visualbasic] visualbasic

// 구구단 프로그램입니다.. ^^;Sub Number1()for i=2 to 9for j=1 to 9msgbox i & "*" & j & "=" & i*jnext jnext iEnd Sub// 소수를 제외하고 더하는 소스입니다.Dim Flag As Boolean,Sum As LongSub Number2()For i=2 to 20for j=2 to iif i mod j=0 then flag=true:exit fornext jif flag=false thensum=sum+ielseflag=falseend ifNext iMsgbox SumEnd Sub----------------------------------------------------------------------------------------.option explicitprivate sub form_load()dim i%, j%dim s$for i = 1 to 9for j = 1 to 9s = s & i & "x" & j & "=" & i*j & vbcrlfnext jnext imsgbox sdebug.print sdebug.assert trueend sub------------------------------------------------------------------------------------------

공학/기술| 2002.04.15| 1페이지| 1,000원| 조회(492)

구구단, 비주얼, 베이직, Basic, VisualBasic

미리보기

닫기
[VisualBasic] VB로짠 구구단

VERSION 5.00Begin VB.Form Form1BorderStyle = 3 '크기 고정 대화 상자ClientHeight = 2250ClientLeft = 45ClientTop = 45ClientWidth = 3105ControlBox = 0 'FalseLinkTopic = "Form1"MaxButton = 0 'FalseMinButton = 0 'FalseScaleHeight = 2250ScaleWidth = 3105ShowInTaskbar = 0 'FalseStartUpPosition = 3 'Windows 기본값Begin VB.ListBox lstHintBeginProperty FontName = "휴먼편지체"Size = 11.25Charset = 129Weight = 400Underline = 0 'FalseItalic = -1 'TrueStrikethrough = 0 'FalseEndPropertyHeight = 2100Left = 3150TabIndex = 19Top = 105Width = 2325EndBegin VB.TextBox txtDanAlignment = 1 '오른쪽 맞춤Height = 330Left = 3990MaxLength = 2TabIndex = 18Text = "단"Top = 945Visible = 0 'FalseWidth = 645EndBegin VB.CommandButton cmdHintCaption = "힌트볼래?"Enabled = 0 'FalseBeginProperty FontName = "휴먼엽서체"Size = 9.75Charset = 129eight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 435Left = 2100TabIndex = 16Top = 210Width = 960EndBegin VB.Frame Frame3Caption = "얼마나 잘할까??"Height = 540Left = 105TabIndex = 11Top = 105Width = 1905Begin VB.Label lblInfoAutoSize = -1 'TrueBackStyle = 0 '투명Caption = "점"BeginProperty FontName = "개성체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 240Index = 3Left = 1575TabIndex = 15Top = 210Width = 225EndBegin VB.Label lblInfoAutoSize = -1 'TrueBackStyle = 0 '투명BeginProperty FontName = "개성체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 240Index = 2Left = 1050TabIndex = 14Top = 210Width = 120EndBegin VB.Label lblInfoAutoSize = -1 'TrueBackStyle = 0 '투명Caption = "단"BeginProperty FontName = "개성체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 240Index = 1Left = 630TabIndex = 13Top = 210Width = 225EndBegin VB.Label lblInfoAutoSize = -1 'TrueBackStyle = 0 '투명BeginProperty FontName = "개성체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 240Index = 0Left = 315TabIndex = 12Top = 210Width = 120EndEndBegin VB.Frame Frame2Caption = "잘 맞춰봐"Height = 645Left = 105TabIndex = 5Top = 735Width = 2955Begin VB.TextBox txtAnswerAlignment = 2 '가운데 맞춤Enabled = 0 'FalseHeight = 330Left = 1995MaxLength = 2TabIndex = 10Top = 210Width = 855EndBegin VB.Label lblProblemAlignment = 2 '가운데 맞춤AutoSize = -1 'TrueBackStyle = 0 '투명Caption = "="BeginProperty FontName = "휴먼편지체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = -1 'TrueStrikethrough = 0 'FalseEndPropertyHeight = 285Index = 3Left = 1680TabIndex = 9Top = 210Width = 165EndBegin VB.Label lblProblemAlignment = 2 '가운데 맞춤AutoSize = -1 'TrueBackStyle = 0 '투명BeginProperty FontName = "휴먼편지체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = -1 'TrueStrikethrough = 0 'FalseEndPropertyHeight = 285Index = 2Left = 1305TabIndex = 8Top = 210Width = 105EndBegin VB.Label lblProblemAlignment = 2 '가운데 맞춤AutoSize = -1 'TrueBackStyle = 0 '투명Caption = "*"BeginProperty FontName = "휴먼편지체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = -1 'TrueStrikethrough = 0 'FalseEndPropertyHeight = 285Index = 1Left = 765TabIndex = 7Top = 210Width = 135EndBegin VB.Label lblProblemAlignment = 2 '가운데 맞춤AutoSize = -1 'TrueBackStyle = 0 '투명BeginProperty FontName = "휴먼편지체"Size = 12Charset = 129Weight = 400Underline = 0 'FalseItalic = -1 'TrueStrikethrough = 0 'FalseEndPropertyHeight = 285Index = 0Left = 255TabIndex = 6Top = 210Width = 105EndEndBegin VB.Frame Frame1Caption = "뭐하고 싶니?"Height = 750Left = 105TabIndex = 0Top = 1470Width = 2955Begin VB.CommandButton cmdWowCaption = ">"Enabled = 0 'FalseBeginProperty FontName = "휴먼태가람체"Size = 11.25Charset = 129Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 435Index = 4Left = 2520TabIndex = 17Top = 210Width = 330EndBegin VB.CommandButton cmdWowCaption = "나가기"BeginProperty FontName = "휴먼태가람체"Size = 11.25Charset = 129Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 435Index = 3Left = 945TabIndex = 4Top = 210Width = 855EndBegin VB.CommandButton cmdWowCaption = "[]"Enabled = 0 'FalseBeginProperty FontName = "휴먼태가람체"Size = 11.25Charset = 129Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 435Index = 2Left = 2205TabIndex = 3Top = 210Width = 330EndBegin VB.CommandButton cmdWowCaption = "

공학/기술| 2002.04.15| 10페이지| 1,000원| 조회(771)

소스, 구구단, visual, Basic, VisualBasic

미리보기

닫기
[VisualBasic] 계산기프로그램 평가A좋아요

VB study 10월10일 자료 /2Dim Op(2), Opr, Num, PPoint // 변수 정의Private Sub Form_Load()Op(0) = 0 // 변수1Op(1) = 0 // 변수2Num = 0 // 배열을 첨자값의 위해 사용Opr = 999 // 오퍼랜드 종류를 표현하기 위한 초기화PPoint = 1 // 소숫점 자리수를 위한 변수 초기화End SubPrivate Sub Fun_Com_Click(Index As Integer) // 특수 함수를 구현하는 부분Select Case IndexCase 0: // 계산기 종료EndCase 1:EndCase 2: // 계산값 초기화 버턴Op(0) = 0Op(1) = 0Num = 0Opr = 999Text1.Text = ""End SelectEnd SubPrivate Sub Num_Com_Click(Index As Integer) // 숫자 버튼를 처리하는 부분If Num_Com(Index).Caption = "." Then // 수숫점인가를 판단PPoint = PPoint * 0.1 // 소숫점 초기값을 0.1로 자릿수 만듬Num_Com(10).Enabled = False // 소숫점 버턴를 연속하여 누름을 방지ElseIf PPoint < 1 Then // 소숫점 이하 자릿수 입력일 경우 처리Op(Num) = Op(Num) + (Num_Com(Index).Caption * PPoint) // 입력값을 계산PPoint = PPoint * 0.1 // 다음 입력을 위해 소숫점 자릿수 증가Else // 정수 입력일 경우Op(Num) = Op(Num) * 10 + Num_Com(Index).CaptionEnd IfText1.Text = Text1.Text & Num_Com(Index).Caption // 입력값 화면에 표시End SubPrivate Sub Opr_Com_Click(Index As Integer) // 사칙연사 수행 함수Static status // 현재 작업중인 사칙연산 기억을 위한 변수 선언Num = 1 // 변수2에 사용할 첨자값 설정PPoint = 1 // 변수1의 소숫점 자리수 초기화Text1.Text = Text1.Text & Opr_Com(Index).Caption // 화면 표시status = Index // 현재 입력된 사칙연사의 기능 저장Num_Com(10).Enabled = True // 소숫점 버턴 기능 활성화If status = 4 Then // 현재 수행 연산자가 "="인지 판단Select Case Opr // 바로 앞번에 수행한 연산자 Opr를 판단Case 0: // "+" 번턴을 누룰겨우 더하기 기능 수행Op(0) = Op(0) + Op(1)Case 1: // "-" 번턴Op(0) = Op(0) - Op(1)Case 2: // "*" 번턴Op(0) = Op(0) * Op(1)Case 3: // "/" 번턴Op(0) = Op(0) / Op(1)End SelectText1.Text = Text1.Text & Opr_Com(Index).Caption & Op(0) // 계산결과 표시Op(1) = 0 // 변수2를 다음 계산을 위하여 초기화 함ElseIf (status >= 0) And (status < 4) Then // "=" 버튼을 사용하지 않고 연속하여 수식 입력시

공학/기술| 2002.04.15| 2페이지| 1,000원| 조회(1,963)

vb, 비주얼, visual, 계산기, VisualBasic

미리보기

닫기
[프로그래밍 언어] 자바 스크립

1부터 10까지 제곱 구하기< SCRIPT LANGUAGE="JavaScript" >< !-- i = 1; while(i < 11) { document.write(i+"의 제곱은"+i+"*"+i+"="+i*i); i++; } // -->< /SCRIPT >

공학/기술| 2002.04.02| 2페이지| 1,000원| 조회(416)

소스, 자바스크립, 제곱, For, while

미리보기

닫기
[프로그래밍 언어] 자바(JAVA)로 짠 계산기 소스

import java.awt.*;import java.awt.event.*;class Calculator extends Frame implements ActionListener{String str1=""; // 피연산자1String str2="",str3="",str4; //연산자(+,-,*,/),피연산자2,(=)Panel north=new Panel();Panel center=new Panel();TextField tf=new TextField("0",18);Label label=new Label("[?]");Button bt[]=new Button[16];Button close=new Button("끝내기");String title[]={"7","8","9","+","4","5","6","-","1","2","3","*","0","=","C","/"};Calculator(){super("계산기");north.setLayout(new BorderLayout(5,0));north.add("Center",tf);north.add("East",label);center.setLayout(new GridLayout(4,4,5,5));for (int i=0;ilbButton bt=(Button)(evt.target);String lb=bt.getLabel();if(arg.equals("=")){geSan(); y=x; sik=""; pyosi.setText(y+""); op2=0;}else if(arg.equals("+")){op=1; geSan(); sik=""; pyosi.setText(x+"");}else if(arg.equals("*")){op=2; geSan(); sik=""; pyosi.setText(x+"");}else if(arg.equals("-")){op=3; geSan(); sik="";pyosi.setText(x+"");}else if(arg.equals("/")){op=4; geSan(); sik=""; pyosi.setText(x+"");}else if(arg.equals("sin")){op2=5; geSan(); sik=""; pyosi.setText(y+"");}else if(arg.equals("cos")){op2=6; geSan(); sik=""; pyosi.setText(y+"");}else if(arg.equals("tan")){op2=7; geSan(); sik=""; pyosi.setText(y+"");}else if(arg.equals("c")){sik="0"; x=0;y=0; pyosi.setText(sik); sik="";}else if(arg.equals("x^y")){op=8; geSan(); sik=""; pyosi.setText(x+"");}else if(arg.equals("x^2")){op2=9; geSan(); sik=""; pyosi.setText(y+"");}else if(arg.equals("sqrt")){op2=10; geSan(); sik=""; pyosi.setText(y+"");}else if(arg.equals("ln")){op2=11; geSan(); sik=""; pyosi.setText(y+"");}else{sik=sik+lb;pyosi.setText(sik); //pyosi에 출력y=Double.valueOf(sik).doubleValue();}}elsereturn super.action(evt,arg);return true;}//****************윈도우 종료 버튼 *************************public boolean handleEvent(Event evt){if(evt.id==Event.WINDOW_DESTROY)System.exit(0); //실행끝return super.handleEvent(evt); //상위객체에서 사건을 처리}//**********************************************************}

공학/기술| 2002.04.02| 9페이지| 1,000원| 조회(1,287)

소스, JAVA, 자바, 계산기

미리보기

닫기