프로그래밍의 기본.

프로그래밍 언어 작은 기초적인

레슨 1: 프로그래밍 환경 소개 작은 기초적인 .

표적:소개하다 Small Basic 프로그래밍 언어로.

작업:

프로그래밍 언어 배우기 시작작은 기본. OOP(객체 지향 프로그래밍)의 개념을 알려주세요.

이 프로그래밍 환경에서 일하는 방법을 배우십시오. 피 환경의 "텍스트 개체"에 익숙해지십시오.작은 기본.

프로그래밍 환경에서 프로그램을 만드는 첫 번째 아이디어를 제공합니다.

프로젝트의 주요 교육 과제:

육성 개인적인 자질: 목적성, 주의력, 정확성, 자기평가의 객관성, 책임감, 인지적 관심.

프로젝트의 주요 개발 작업:

성공적인 사회 적응에 기여하는 핵심 역량을 학생들에게 형성하기 위해;

인지 활동을 통해 자기 개발 및 개인 성장에 대한 욕구를 개발합니다.

알다: 기본 개념: 개체, 변수, 할당, 데이터 유형, 입력-출력.Small Basic 프로그래밍 환경의 구성 요소를 알고 있습니다.

가능하다: Smal 기본 프로그램을 다운로드합니다. 이 프로그래밍 환경에서 간단한 프로젝트를 만듭니다. Smal Basic 언어로 수학 함수를 입력하고 수학 표현식을 작성할 수 있습니다. 간단한 선형 프로그램을 작성하십시오.

장비 및 재료: 기본 강의 노트(cf.첨부 1 ), 작업 카드, PC, 소형 기본 애플리케이션, 화이트보드, 멀티미디어 프로젝터, 스크린.

수업 중:

조직 시간

1. 수업 준비

   지식 업데이트

신소재 설명

연구 자료의 통합

1. 관련 질문

요약

1. 채점

   숙제

조직 시간

1. 수업 준비(수업 준비 상태 확인, 결석 표시)

   지식 업데이트

무엇을 위한 프로그래밍인가?

당신은 생물학에서 초록을 쓰고 싶습니다. 대부분의 경우 컴퓨터의 일부 텍스트 편집기에서 작성합니다. 그리고 그것은 어디에서 왔습니까 텍스트 에디터? 물론 프로그래머가 작성했습니다. 프로그래머도 작성한 브라우저를 사용하여 인터넷에서 정보를 검색합니다. 에세이를 쓰고 나면 긴장을 풀고 놀고 싶을 것입니다. 컴퓨터 게임, 다시 프로그래머가 작성했습니다. 일반적으로 프로그래머가 작성하는 프로그램 없이는 컴퓨터 작업이 불가능합니다. 따라서 프로그래밍이 없다면 프로그램도 없을 것이고 컴퓨터는 프로그램 없이 컴퓨터의 도움으로 무언가를 할 수 없기 때문에 값비싼 하드웨어 덩어리가 될 것입니다.

문제 해결의 단계.

기본 컨셉

프로그램 작성 - 쓰기 프로그램.

프로그램 컴퓨터가 이해할 수 있는 프로그래밍 언어로 작성된 알고리즘.

연산 - 목표 달성을 위한 명확한 일련의 행동.

객체지향 프로그래밍에서 객체의 개념이 도입되고 다음을 허용하는 계산 메커니즘이 구현됩니다.

객체의 구조를 설명

개체로 작업 설명

특수 개체 상속 규칙 사용(상속은 기존 객체에서 새로운 객체를 생성하는 것을 의미합니다)

개체 구성 요소의 보호 수준 설정

이론

첫 만남

마이크로소프트 스몰 베이직 - 에서 개발한 프로그래밍 언어. 프로그램 작성의 기초를 배우고자 하는 초보 개발자를 위해 설계되었습니다.

주요 이점:

매우 간단한 개발 환경 - 다기능 도구 설명과 텍스트 편집 및 프로그램 실행을 위한 몇 개의 버튼이 있는 텍스트 편집기.

20개의 키워드로 구성된 간단한 언어

언어의 모든 요소에 대한 개발 환경에 구축된 상황별 문서

추가 기능을 포함하도록 Small Basic 구성 요소를 확장하는 기능. (예를 들어, 배달에는 이미 서비스 작업을 위한 기능이 포함되어 있습니다)

BASIC의 특별한 이점은 프로그램 디버깅 프로세스를 크게 단순화하는 해석 모드에서 작동하는 기능으로 간주되어야 합니다. 거의 모든 명령의 실행은 쓰기 직후에 확인할 수 있습니다.

출력 연산자

WriteLine("안녕하세요!")

문자열을 표시합니다(텍스트또는 숫자 )

안녕하세요!

결과를 얻으려면 - 텍스트 "Hello!"의 출력 화면에서 - 프로그램을 작성해야 합니다.

TextWindow.WriteLine("안녕하세요!")

프로그램이 창에 입력됩니다.작은기초적인버튼으로 시작시작하다또는 키 에프 5

프로그램의 결과는 "Hello!"라는 텍스트의 출력입니다. 안에텍스트 상자 프로그램들.

문자열은 "계속하려면 아무 키나 누르십시오..."를 의미합니다.

TextWindow는 텍스트를 표시할 수 있는 "텍스트 창" 개체입니다.

개체는 속성그리고 행동 양식.

개체 메서드 - 객체가 할 수 있는 것, 즉작업 (연산자 )

매개변수 작업은 WriteLine 대괄호로 묶입니다.()

같은 개체 텍스트 상자 가지다 속성 (이것은 개체의 특성입니다) , 예를 들어

BackgroundColor 속성 - 텍스트의 배경색을 설정하고,전경색- 텍스트 색상

그림 물감:

빨간색

노란색

초록

푸른

검은색

하얀

빨간색

노란색

초록

푸른

블랙

하얀

변하기 쉬운

변수는 종종 프로그램을 만드는 데 사용됩니다.

변수가이름 - 라틴 문자(ㅏ)

변수에는 숫자와 같은 값을 할당할 수 있습니다.

ㅏ= 5, 여기서 " = " - 이것은 할당 연산자

문자열 값

에이 = 에이 + 5

변수 a의 값을 취하십시오.

거기에 5를 더하다

변수에 새 값을 설정하고 이전 값을 삭제합니다.

변수는 두 가지 유형입니다.: 숫자그리고 선

10, -5, 3.14 "컴퓨터 과학"

접기 +

곱하기 *

나누다 /

수학 작업:

사인, 로그, 루트

접착제

부분으로 나눕니다

기호 검색

문자 바꾸기

예 연산자 "+"

표현

결과

표현

결과

"이반" + "오바"

"이바노바"

"클래스" + 10

"10 반"

프로그램 작성

예 1: 프로그램 결과

예 2: 프로그램 결과

예 3: 프로그램은 두 변수의 합을 계산하고 표시합니다.ㅏ 그리고 비

Math.Abs(숫자)

기준 치수

Math.Cos( 숫자)

코사인

수학 상한(숫자)

정수로 반올림

Math.GetDegrees( 숫자)

라디안에서 각도로 숫자 변환

Math.GetRandomNumber( 최대 수)

1에서 1 사이의 난수최대 수

내츄럴로그(숫자)

자연 로그

수학 파이

파이

Math.Power( 기본 번호, 멱지수)

에 영형baseNamber를 지수의 거듭제곱으로 올리기

수학. 최대(숫자1,숫자2)

최대 2개의 숫자

수학. 나머지(배당, 제수)

분할의 나머지

수학 .죄(숫자)

공동

수학. 탠 껍질(숫자)

코사인

수학 .ScuareRoot(숫자)

뿌리

수학. 둥근(숫자)

일반 반올림

수학 .ArcSin(숫자)

아크사인

수학. 바닥(숫자)

가장 가까운 가장 작은 정수로 내림

x=TextWindow.ReadNumber()

y=수학.Abs(x)

TextWindow.WriteLine("y같음 "+y)

수학 파이

재료 고정

1. 독립적인 실무 PC용

독립적인 작업을 위한 작업

연습 1:

할당문의 최종 결과 정의

X=3

Y=2

X=X+2

Y=X*2

X=Y

답= 15

나=아

A=B/5+2

나=아*3

A=0

작업 2 : 세 변수의 곱을 계산하는 프로그램을 작성하십시오.ㅏ , 비 그리고 씨 .

작업 3 : 식을 계산하는 프로그램을 작성하십시오.지=5* 엑스+ 와이/2(x=10으로 가정,와이=100)

작업 4: X의 값을 출력하는 프로그램을 작성하고와이, 작업 1에 따라.

작업 5: 판별식을 찾는 프로그램 작성

작업 6 : 표현식 평가

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

코사인 2 (파이/4)+ 죄 2 (파이/2) (1 )

( 1)

Y=2배 2 ( ~에 x=5, y=50)

엑스 1,2 \u003d (a \u003d 2일 때, 비=6, 씨=4 , 엑스 1=-1, 엑스 2=-2)

지= ln(y)-3 ( ~에 y=3, z=-1.901…)

С= (때 ㅏ=4, 비=9, 씨=13)

Y=cos(x)+sin(x) (x=180 0 ,y=-1)

질문

프로그램이란?

프로그래밍 언어는 무엇입니까?

객체 지향 프로그래밍의 기본 요소는 무엇입니까?

"텍스트 창"에서 어떤 작업을 수행할 수 있습니까?

할당 연산자는 무엇을 의미합니까?

어떤 유형의 데이터가 사용됩니까?작은 기본?

I/O 문은 어떻게 작성됩니까?

요약

1. 채점

   숙제

일하다 요약과 함께

메시지를 준비하다 주제: "다양한 프로그래밍 언어"

프로그램을 만드세요 헤론의 공식을 사용하여 삼각형의 면적 계산

신청

OK 1: 언어 프로그래밍의 기초 작은 기초적인 .

프로그램 작성 - 쓰기 프로그램.

연산 + 프로그래밍 언어= 프로그램

변하기 쉬운

변수가이름 - 라틴 문자(예:ㅏ , 에 , x1 , C9 )

변수에 값을 할당할 수 있습니다.

예시: ㅏ = 5 , 기호 " = " - 이것은 할당 연산자

변수는 두 가지 유형입니다.: 숫자 그리고 선 (문자열)

10, -5, 3.14 "컴퓨터 과학"

접기 +

곱하기 *

나누다 /

수학 작업:

사인, 로그, 루트

접착제

부분으로 나눕니다

기호 검색

문자 바꾸기

프로그램 작성

텍스트 창- 이것은 "텍스트가 있는 창" 개체 , 텍스트를 표시할 수 있습니다.

작동 매개변수 대괄호로 묶음 - WriteLine()

객체 텍스트 상자 가지다 속성 , 예를 들어

재산 배경색 - 텍스트의 배경색을 설정합니다.전경색 - 텍스트 색상

사용된 색상:

빨간색

노란색

초록

푸른

검은색

하얀

빨간색

노란색

초록

푸른

블랙

하얀

소규모 기본 연산자

"+" 연산자

주요 운영자

표현식에서 수학 함수 사용

복잡한 수학적 표현 쓰기 수학 파이 TextWindow.WriteLine("변수 x의 값을 입력하세요.")

x=TextWindow.ReadNumber()

y=수학.Abs(x)

TextWindow.WriteLine("y같음 "+y)

TextWindow.WriteLine(Math.Abs(-10))

두 변수의 합을 계산하는 프로그램ㅏ그리고 비

TextWindow.WriteLine("변수 a의 값을 입력하세요.")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("변수 b의 값을 입력하세요.")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine("숫자의 합은 "+s)

프로그램이 창에 입력됩니다.작은기초적인버튼으로 시작시작하다또는 키 에프 5.

선 누르다 어느 열쇠 계속하다 ...수단 " 계속하려면 아무 키나 누르십시오.

안녕하세요 여러분,이 기사에서 나는 당신에게 보여주고 싶습니다 유용한 코드 작은 프로그램. 더 심각한 프로그램을 작성하는 데 사용할 수 있거나 여기에 설명된 바로 이러한 기능을 찾고 있었습니다.

모든 코드는 Microsoft Visual Basic v6.0 프로그래밍 환경에서 사용되었습니다.

확인과 함께 종료

첫 번째 종류의 프로그램, 우물 또는 기능은 종료를 확인하는 메시지가 있는 종료입니다. 일반적으로 Visual Basic 프로그래밍 환경을 열고 표준 프로젝트를 만든 다음 양식에 단추 하나를 놓고 단추를 클릭하면 코드 편집 창이 열리고 거기에 다음 코드를 붙여넣어야 합니다.

Beep Dim 메시지 As String Dim buttonsandicons As Integer Dim 제목 As String Dim 응답 As String 메시지 = "종료하시겠습니까?" 제목 = "(!LANG:종료" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

프로그램을 시작하기 위한 암호

Dim Password, Pword PassWord = "12345" Pword = InputBox("Enter password") If Pword<>PassWord then MsgBox "비밀번호가 올바르지 않음" End End If

여기서 12345는 프로그램을 실행하기 위한 암호입니다. 그러나 이 코드는 원하는 곳 어디에서나 사용할 수 있습니다.

메시지 출력

무언가에 대한 메시지를 표시하려면 다음을 입력하십시오.

비프음 메시지를 문자열로 Dim 버튼 및 아이콘을 정수로 Dim 제목 문자열로 메시지 = "Message" title = "(!LANG:Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

양식에 그리기

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As 단일) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub

QBColor(0) 매개변수를 사용하여 색상을 변경할 수 있습니다. 0을 다른 숫자로 바꿉니다.

컴퓨터 다시 시작

컴퓨터를 다시 시작하려면 버튼을 놓고 다음 코드를 붙여넣습니다.

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (종료))!\\" _ & strComputer & "\root\cimv2") set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For colOperatingSystems ObjOperatingSystem.Reboot의 각 ObjOperatingSystem "재부팅하려면 다음

단일 복사본에서 프로그램 실행

다음 예는 프로그램이 한 번만 실행되도록 하는 데 도움이 됩니다. 다시 시작하면 해당 메시지가 표시됩니다. 양식 코드에 붙여넣기:

Private Sub Form_Load() If App.PrevInstance = True then MsgBox "프로젝트가 이미 시작되었습니다!" 종료 종료 경우

컴퓨터 끄기

컴퓨터를 끄려면 다음 코드를 사용할 수 있습니다.

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For colOperatingSystems ObjOperatingSystem.ShutDown의 각 ObjOperatingSystem "종료하려면 다음

모든 프로세스 종료

프로세스를 종료하려면 다음 코드를 사용할 수 있습니다.

셸 "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite

ICQlite.exe 대신 모든 프로세스가 있을 수 있습니다.

컴퓨터는 얼마나 오래 작동합니까?

다음은 컴퓨터의 가동 시간을 확인하는 방법의 예입니다. 이 방법 kernel32 라이브러리 사용을 기반으로 하므로 양식 코드의 맨 처음에 이 DLL을 포함합니다.

Private Declare Function GetTickCount Lib "kernel32" () As Long "그리고 버튼 코드에서: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "total seconds a_days = Int(a / 86400) a = a - a_days * 86400 a_hour = Int(a / 3600) a = a - a_hour * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "컴퓨터가 실행 중입니다. " & Str(a_days) & " 일 " & Str(a_hour) _ & " 시간 " & Str(a_minute) & " 분" & Str(a_second) & " 초"

우리는 검토했습니다 간단한 기능거의 모든 곳에서 사용할 수 있습니다. 이제 더 심각한 예를 살펴보겠습니다. 이 예는 대규모 프로젝트를 작성하는 데 큰 도움이 됩니다.

폴더 예

디렉토리 삭제

Private Declare Function RemoveDirectory& Lib _ "kernel32" Alias ​​​​"RemoveDirectoryA" (ByVal lpPathName As String) "디렉토리 제거(비어 있습니다!) PathName$ = "D:\t" code& = RemoveDirectory(PathName) If code& = 0 then "Error 디렉토리 제거 Else "디렉토리가 삭제됨 End If

디렉토리 생성

Sub MakeDir(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(path , 하나)<>":" And Dir$(path, vbDirectory) = "" then MkDir 경로 End If Loop When i >= Len(dirname) End Sub Private Sub Command1_Click() 호출 MakeDir("C:\Soft\1\2\3\ ") 종료 서브

하위 폴더가 있는 모든 폴더 나열

2개의 텍스트 필드와 버튼을 첫 번째 이름인 폼에 추가합니다. 텍스트 필드: StartText, 두 번째 OutText 텍스트 필드의 이름입니다. 여러 줄 속성 = true, 버튼 이름 = CmdStart

Static running As Boolean Dim AllDirs As Integer Dim dir_name As String Dim sub_dir As String Dim i As Integer Dim txt As String If running then running = False CmdStart.Enabled = False CmdStart.Caption = "중지" Else running = True MousePointer = vbHourglass CmdStart.Caption = "중지" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text가 next_dir 동안 수행<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" UCase$(sub_dir)인 경우<>"PAGEFILE.SYS" 및 sub_dir<>"." 그리고 sub_dir<>".." 그러면 sub_dir = dir_name & "\" & sub_dir On Error Resume Next If GetAttr(sub_dir) And vbDirectory then AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) 루프 DoEvents 실행 중이 아니면 종료 Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf 다음 i OutText.Text = txt MousePointer = vbDefault unning = False End If

이제 프로그램을 실행하고 StartText 텍스트 필드에 C:\windows라고 쓰고 버튼을 클릭합니다.

디렉토리 크기

Const MAX_PATH = 260 비공개 유형 FILETIME dwLowDateTime As Long dwHighDateTime As Long End 유형 WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long * 14 End Type Private Declare Function FindFirstFile Lib _ "kernel32" 별칭 "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" 별칭 ​​"FindNextFileA" Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib _ "kernel32"(ByVal hFindFile As Long) As Long Public Function SizeOf(ByVal DirPath As String) As Double Dim hFind As Long Dim fdata As WIN32_FIND_DATA As Double Dim dblS As String Dim x As Long On Error Resume Next x = GetAttr(DirPath) If Err Then SizeOf = 0: 종료 기능 If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & "*.*", vbSystem 또는 vbHidden 또는 vbDirectory) If Err.Number = 0 그러면 hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) If hFind = 0 then 종료 함수 Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory then sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) sName인 경우<>"." 그리고 이름<>".." 그러면 dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents 루프 동안 FindNextFile(hFind, fdata)<>0 hFind = FindClose(hFind) End If Else On Error Resume Next dblSize = FileLen(DirPath) End If SizeOf = dblSize End Function Private Function EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" 그런 다음 EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() ""D:\soft"를 MsgBox SizeOf("D:\soft")의 크기를 알고자 하는 디렉토리로 바꾸십시오. / 1000000 엔드 서브

파일 작업의 예

복사

C:\1\ 폴더에 1.txt라는 파일이 있고 이를 위해 다음 코드를 작성하기 위해 C:\2\에 복사해야 한다고 가정해 보겠습니다.

파일 복사 "C:\1\1.txt","C:\2\1.txt"

메모! 디렉토리 2에 이미 1.txt라는 파일이 있는 경우 디렉토리 1의 1.txt로 대체됩니다.

Private Declare Function CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Copy file C:\1.txt D:\1.txt로. Dim retval As Long " 반환 값 "Copy file retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If MsgBox 실패" 복사할 수 없음" Else "OK MsgBox "파일이 복사되었습니다." End If End Sub

제거

예를 들어 C:\ 드라이브의 루트에서 1.txt 파일을 삭제하려고 합니다.

죽이기("C:\1.txt")

API 방식

Private Declare Function DeleteFile Lib _ "kernel32.dll" 별칭 ​​"DeleteFileA"(ByVal lpFileName As String) Private Sub Command1_Click() "Delete File C:\Samples\anyfile.txt Dim retval As Long "반환 값 retval = DeleteFile( "C:\1.txt") If retval = 1 Then MsgBox "파일이 성공적으로 삭제되었습니다." 끝 서브

움직이는

예를 들어 다음과 같이 이동할 수 있습니다.

파일 복사 "C:\1.txt","C:\2\1.txt" 죽이기("C:\1.txt")

그러나 API를 통해 다음과 같이 더 좋습니다.

Private Declare Function MoveFile Lib _ "kernel32.dll" 별칭 ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long "반환 값 retval = MoveFile("C: \1 .txt", "C:\2\1.txt") If retval = 1 then MsgBox "Moved successfully" Else MsgBox "Error" End If End Sub

이름 바꾸기

C:\에 있는 1.txt 파일의 이름을 2.txt로 바꾸려면 다음 코드를 사용할 수 있습니다.

파일 복사 "C:\1.txt","C:\2.txt" 죽이기("C:\1.txt")

API 방식

Private Declare Function MoveFile Lib _ "kernel32.dll" 별칭 ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " 반환 값 retval = MoveFile("C: \1 .txt", "C:\2.txt") If retval = 1 then MsgBox "Success" Else MsgBox "Error" End If End Sub

파일 크기 결정

파일 크기는 두 가지 방법으로 결정할 수 있습니다.

OPEN 함수로 파일을 열 수 있는 경우 LOF 함수를 사용할 수 있습니다.

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile FileFree로 입력을 위해 "C:\WIN\GENERAL.TXT" 열기 FileFree FileSize = LOF(FileFree) FileFree 닫기

또는 FileLen 기능을 사용하십시오.

Dim lFileSize As Long FileSize = FileLen("C:\WIN\GENERAL.TXT")

프로그래밍 방식으로 시계 숨기기

2개의 버튼을 추가하고 코드를 붙여넣습니다.

옵션 명시적 개인 선언 함수 FindWindow Lib _ "user32" 별칭 "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private 선언 함수 FindWindowEx Lib _ "user32" 별칭 ​​"FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib _ "user32"(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click() ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "시계 숨기기" Command2.Caption = "시계 표시" End Sub

트레이에 아이콘 추가

모듈을 추가하고 코드를 붙여넣습니다.

NIF 선언 함수 Shell_NotifyIconA Lib _ "SHELL32"(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_MESSAGE = 1 Public Const NIF_MESSAGE = 1 Type NOTIFYICONDATA cbSize As Long hWnd As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, Tip As String) As Long Dim &ChnidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON 또는 NIF_TIP nidTemp.uCallbackMessage = Shell_NotifyIconA(Mode, nidTemp) 함수 종료

양식 코드에서 붙여넣기를 사용하려면:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Private Sub를 삭제하려면 Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

시작 버튼 차단

Private Declare Function FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton(Optional Enabled As Boolean = True) Dim lHwnd As Long " hWnd 찾기 lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) EnableWindow(lHwnd&, CLng(Enabled)) 호출 End Sub Private Sub Command1_Click() EnableStartButton False "시작 버튼 disabled End Sub Private Sub Command2_Click() EnableStartButton True "시작 버튼이 비활성화되어 있지 않습니다. End Sub

INI 파일에서 매개변수 읽기

프로그램이 FTP에 연결되고 매개변수가 ini 파일(서버, 로그인, 포트, 비밀번호)에 기록됩니다.

먼저 INI 파일을 만듭니다.

Servname=서버 usern=로그인 pwd=비밀번호 포트=포트

프로그램이 있는 폴더에 있어야 합니다. 다음으로 모듈에 다음을 삽입합니다.

Private Declare Function WritePrivateProfileString Lib _ "kernel32" 별칭 ​​"WritePrivateProfileStringA"(ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "2" ​"GetPrivateProfileStringA"(ByVal lpApplicationName을 문자열로, ByVal lpKeyName을 문자열로, _ ByVal lpDefault를 문자열로, ByVal lpReturnedString을 문자열로, _ ByVal nSize를 길게, ByVal lpFileName을 문자열로) 긴 공용 함수 ReadIni(Razdel을 문자열로, 매개변수)로 String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") End Function Private Function GetValue(ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, 선택적 ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Then GetValue = Left$(Data, InStr( 데이터$, 통화 $(0)) - 1 ) Else GetValue = DefaultValue 종료인 경우 종료 기능 종료 기능

그런 다음 양식 코드를 붙여넣습니다.

Private Declare Function InternetOpen Lib _ "wininet.dll" 별칭 "InternetOpenA"(ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal nFlags As Long) As Long Private Declare Function InternetConnect Lib _ "wininet.dll" 별칭 ​​​"InternetConnectA"(ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _ ByVal Long dwFlag) , ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" 별칭 ​​"FtpPutFileA"(ByVal hFtpSession As Long, ByVal lpszLocalFile As Long, _ ByVal lpszRemoteFile As String, ByVal lpszRemoteFile As String, ByVal As Long dw Long) As Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" 별칭 ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, AsFlagVal _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll"(ByVal hInet As Long) As Integer Dim rc& Dim rs&

그리고 버튼 코드에서:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("일반", "servname"), "0", _ ReadIni("일반", "사용자"), ReadIni( "General", "pwd"), 1, 0, 0) FtpGetFile(rs&, "Your file.txt", "path", False, 0, 1, 0) = False이면 InternetCloseHandle(rs&) 호출 InternetCloseHandle 호출 (RC&)

실행 중인 프로세스 목록

목록 상자와 1 버튼을 추가하고 다음 코드를 붙여넣습니다.

옵션 명시적 개인 선언 함수 CreateToolhelpSnapshot Lib _ "Kernel32" 별칭 ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare 함수 ProcessFirst Lib _ "Kernel32" 별칭 ​​"ProcessBhotyVal" As Long, uProcess As PROCESSENTRY32) As Long Private Declare 함수 ProcessNext Lib _ "Kernel32" 별칭 ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32 hPass"(ByVal ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 개인 유형 PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long AssBase As Long AssBase As Long AssF End TypeSnaphot DimSnaphot Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) hSnapShot = 0이면 Sub End 종료 uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot) r = ProcessNext(hSnapShot) 루프 호출 CloseHandle(hSnapShot) End Sub

프로그램 시작하기

다른 프로그램과 마찬가지로 프로그램을 Windows와 함께 로드하려면 레지스트리를 사용할 수 있습니다.

2개의 버튼과 다음 코드를 추가합니다.

Private Sub Command1_Click() "레지스트리 쓰기 세트 Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\프로그램 이름", _ "프로그램 경로" End Sub Private Sub Command2_Click() "레지스트리에서 삭제 Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program" End Sub

그리고 프로그램이 Windows와 함께 로드되도록 하려면 안전 모드, 다음 코드:

우선 좀 더 진지한 방법으로 (만약에 지원기재).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "프로그램 경로" End Sub Private Sub Command2_Click()" 이것은 복구용입니다. Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

글쎄, 쉬운 방법.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit.exe ,프로그램 경로" End Sub Private Sub Command2_Click()"복원하려면 Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe," End Sub

작업 표시줄 숨기기

2개의 버튼을 추가하고 코드를 붙여넣습니다.

개인 선언 함수 SetWindowPos Lib "user32"(ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare 함수 FindWindow Lib "user32" 별칭 ​​"FindWindowA" _ (ByVal lpClassName을 문자열로, ByVal lpWindowName을 문자열로) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "비공개 하위 Command1_Click() hwnd1 = FindWindow("를 숨김) ") SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 호출 End Sub "Show Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) 서브 종료

RAR 아카이브 압축 풀기

압축을 풀려면 RAR 아카이브다음 코드를 사용할 수 있습니다.

WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "파일 이름.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)

컴퓨터에 있는 RAM의 양

버튼 하나를 추가하고 다음 코드를 붙여넣습니다.

Private AsdwA Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) 개인 유형 TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As LongVirtual As Long 긴 끝 TMemoryStatus( ) ms.dwLength = Len(ms) 호출 GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Used in %:" & ms.dwMemoryLoad 종료 서브

바탕 화면 아이콘 숨기기

이것은 다음과 같은 방식으로 수행됩니다. 2개의 버튼을 추가하고 다음 코드를 붙여넣습니다.

개인 선언 함수 ShowWindow& Lib "user32"(ByVal hwnd&, ByVal nCmdShow&) 개인 선언 함수 FindWindow Lib _ "user32" 별칭 ​​"FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SW_HIDE = 0 Const 1 Private Sub Command1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) ShowWindow(hHandle, SW_HIDE) 호출 End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) ShowWindow 호출 (hHandle, SW_NORMAL) 끝 서브

Command1 버튼을 사용하면 아이콘이 숨겨지고 Command2 -가 나타납니다.

이것이 내가 가진 전부입니다. 위의 예가 당신에게 유용하기를 바랍니다. 안녕!

Eclipse는 평생 동안 소프트웨어를 생성, 사용 및 관리하기 위한 런타임 및 애플리케이션 플랫폼을 갖춘 확장 가능한 개발 플랫폼입니다. 라이프 사이클. 많은 사람들이 Eclipse를 Java IDE로 알고 있지만 Eclipse는 실제로 60개 이상의 다양한 오픈 소스 프로젝트로 구성되어 있습니다.

무료 오픈 소스맥 윈도우 리눅스

넷빈

개발자를 위한 무료 오픈 소스 IDE 소프트웨어. 전문 데스크탑, 엔터프라이즈, 웹 및 모바일 애플리케이션 Java 언어, C/C++ 및 PHP, JavaScript, Groovy 및 Ruby와 같은 동적 언어에서도

무료 오픈 소스맥 윈도우 리눅스 BSD

압타나 스튜디오

Aptana Studio는 강력한 개발 도구와 온라인 호스팅 및 협업 서비스 제품군을 결합하여 귀하와 귀하의 팀이 더 많은 작업을 수행할 수 있도록 도와주는 완벽한 웹 개발 환경입니다. 포함 PHP 지원, CSS, FTP 등.

무료 오픈 소스맥 윈도우 리눅스

코모도 편집

Komodo Edit는 빠르고 스마트하며 무료 편집기오픈 소스. Komodo Edit(또는 그 형인 Komodo IDE)를 사용해 보십시오. 그만한 가치가 있습니다.

무료 오픈 소스맥 윈도우 리눅스

엑스코드

Apple의 Xcode는 Mac OS X을 위한 최고의 개발 환경입니다. 모든 Mac OS X 구매 시 디스크에 번들로 제공되는 것 외에도 새 버전 ADC 회원은 항상 무료로 다운로드할 수 있습니다( 소셜 네트워크모든 Apple 플랫폼의 앱 개발자용) 및 앱을 만들고, 조정하고, 최적화하는 데 필요한 모든 도구가 포함되어 있습니다.

무료맥

모노디벨롭

MonoDevelop은 주로 C# 및 기타 .NET 언어용으로 설계된 크로스 플랫폼 IDE입니다. MonoDevelop을 사용하면 개발자가 Linux, Windows 및 Mac OSX용 데스크톱 및 ASP.NET 웹 응용 프로그램을 빠르게 만들 수 있습니다. MonoDevelop을 통해 개발자는 내장된 .NET 애플리케이션을 쉽게 이식할 수 있습니다. 비주얼 스튜디오, Linux 및 Mac OSX에서 모든 플랫폼에 대해 단일 코드 기반 유지

무료 오픈 소스맥 윈도우 리눅스. 넷 프레임 워크자마린 스튜디오

거지

프리파스칼 Linux, Win32, OS/2, 68K 등에서 실행되는 GPL 컴파일러입니다. Free Pascal은 델파이 구문을 이해하고 컴파일하도록 설계되었습니다. Lazarus는 위의 모든 플랫폼에 대해 Delphi와 유사한 프로그램을 개발할 수 있게 해주는 누락된 퍼즐의 조각입니다. 위의 모든 플랫폼에서 동일한 컴파일러를 사용할 수 있으므로 동일한 제품을 만들기 위해 다시 코딩할 필요가 없습니다. 다양한 플랫폼

무료 오픈 소스맥 윈도우 리눅스 BSD 오픈솔라리스

웹스톰

JetBrains WebStorm은 JetBrains IntelliJ IDEA 플랫폼에 구축된 상용 JavaScript, CSS 및 HTML 개발 환경입니다.
WebStorm은 코드 완성, 즉석 코드 분석, 리팩토링 지원 및 VCS 통합을 제공합니다.

유급의맥 윈도우 리눅스

샤프디벨롭

#develop(SharpDevelop의 줄임말)은 Microsoft 플랫폼의 C#, VB.NET 및 Boo 프로젝트를 위한 무료 개발 환경입니다. 오픈 소스 환경입니다. 다음과 같이 다운로드할 수 있습니다. 원천및 실행 파일.