작은 기본 기성품 코드. Visual Basic 언어 - 코드 작성 예제

안녕하세요 여러분, 이 기사에서는 몇 가지 유용한 작은 프로그램 코드를 보여드리고자 합니다. 더 심각한 프로그램을 작성하는 데 사용할 수 있습니다. 또는 여기에서 설명하는 바로 이러한 기능을 찾고 있었습니다.

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

확인과 함께 종료

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

비프음 메시지 As String Dim 버튼 및 아이콘 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 = Pword인 경우 InputBox<>PassWord then MsgBox "비밀번호가 올바르지 않습니다" End End If

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

메시지 표시

메시지를 표시하려면 다음을 삽입하십시오.

경고음 Dim 메시지 As String Dim 버튼 및 아이콘 As Integer Dim title As String message = "Message" title = "(! LANG: Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

양식에 그리기

Private Sub Form_MouseDown (Button As Integer, Shift 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, (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") set colOperatingSystems = objWMIService.ExeperacQuery("Win32_O 각 ObjOperatingSystem의 경우 *에서 선택 colOperatingSystems ObjOperatingSystem.Reboot에서 "다음을 다시 시작하려면

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

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

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.ExeperacQuery("Win32_O 각 ObjOperatingSystem에서 * 선택 colOperatingSystems ObjOperatingSystem.ShutDown에서 "다음을 끄려면

모든 프로세스 완료

프로세스를 완료하기 위해 다음 코드를 사용할 수 있습니다.

셸 "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 ")" 초 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" 디렉토리 삭제 오류 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 , 1)<>":" And Dir $(경로, vbDirectory) = "" then MkDir 경로 End If Loop When i> = Len(dirname) End Sub Private Sub Command1_Click() MakeDir 호출("C: \ Soft \ 1 \ 2 \ 3 \ ") 종료 서브

하위 폴더가 있는 모든 폴더 목록

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

정적 실행 As Boolean Dim AllDirs As New Collection Dim next_dir 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 Do while 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<>".." then 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 종료 유형 WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME FILE ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME ftLastWriteTime As FILETHIME As FILETime As ftLastW Lib _ "kernel32" 별칭 "FindFirstFileA"(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" 별칭 "FindNextFileA"(By AsFile Long hFIND_WIN32 기능) FindClose Lib _ "kernel32"(ByVal hFindFile As Long) As Long Public Function SizeOf(ByVal DirPath As String) As Long Dim hFind As Long Dim fdata As WIN32_FIND_DATA Dim dblSize As Double Dim sName As String Dim x As Long On Error Resume Next x = GetAttr(DirPath) 오류인 경우 SizeOf = 0: 종료 기능 If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & "*. *", VbSystem 또는 vbHidden 또는 vbDirectory) If Err.Number = 0 then 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) = "\" then EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load () "Replace" 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 to D : \ 1.txt.Dim retval As Long "return value" 파일 복사 retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) If retval = 0 then "If MsgBox error" 복사할 수 없습니다 "Else" 모든 것이 정상이면 MsgBox "파일이 복사되었습니다." End If End Sub

삭제 중

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

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

API 방식

Private Declare Function DeleteFile Lib _ "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 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" 성공적으로 이동됨 "Else MsgBox" 오류 "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" 성공 "Else MsgBox" 오류 "End If End Sub

파일 크기 결정

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

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

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile FileFree로 입력을 위해 "C: \ WIN \ GENERAL.TXT" 열기 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() ShowW 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

트레이에 아이콘 추가

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

c Long Type 선언 기능 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 = 2 Public Const NIF_MESSAGE = 1 Public 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 nidTemp As NOTIFYICONDATA nidTemp. cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON 또는 NIF_TIP nidTemp.uCallbackMessage = 0 & nidTraycon = Shell_Notify EndIconA(Mode,

사용하려면 다음 양식의 코드에 붙여넣으세요.

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를 제거하려면

시작 버튼 차단

개인 선언 함수 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 EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton(선택 사항은 Boolean = True로 활성화됨) Dim lHwnd As Long " hWnd 찾기 lHwnd & = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) EnableWindow 호출(lHwnd &, CLng(활성화)) End Sub Private Sub Command1_Click() EnableStartButton False "START 버튼이 잠겨 있습니다 End Sub Private Sub Command2_Click () EnableStartButton True "START 버튼이 잠겨 있지 않습니다 End Sub

INI 파일에서 매개변수 읽기

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

처음부터 INI 파일을 만듭니다.

서버 이름 = 서버 사용자 = 로그인 비밀번호 = 비밀번호 포트 = 포트

프로그램 폴더에 넣습니다. 다음으로 모듈에 다음을 삽입합니다.

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) Private Declare Function GetPrivateProfile "Libia B lpApplicationName을 문자열로, ByVal lpKeyName을 문자열로, _ ByVal lpDefault를 문자열로, ByVal lpReturnedString을 문자열로, _ ByVal nSize를 Long, ByVal lpFileName을 문자열로) 공용 함수 ReadIni(Razdel As String, Param)를 String ReadIni(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 (Data $, Chr $ (0) ) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

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

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 dwVF) , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" 별칭 "FtpPutFileA"(ByVal hFtpSession As Long, ByVal lpszLocalFile As Long, ByVal lpszLocalFile As Long, ByVal dwFlags As Long, ByVal dw) AsContext Asole Long 함수 FtpGetFile Lib _ "wininet.dll" 별칭 "FtpGetFileA"(ByVal hFtpSession As Long, ByVal lpszRemoteFile As Long, _ ByVal BoFail lpszNewFile As String, ByVal lpszNewFile as String, ByVal lpszNewFile as String, ByVal lpszNewFile As Long , Long속성 _ 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("일반", "서비스 이름"), "0", _ ReadIni("일반", "사용자") , ReadIni( "일반", "pwd"), 1, 0, 0) FtpGetFile(rs &, "Your file.txt", "path where", False, 0, 1, 0) = False then End Call InternetCloseHandle (rs &) InternetCloseHandle(rc &) 호출

실행 중인 프로세스 목록

Listbox 및 1 버튼을 추가하고 다음 코드를 삽입합니다.

옵션 명시적 개인 선언 함수 CreateToolhelpSnapshot Lib _ "Kernel32" 별칭 "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare 함수 ProcessFirst Lib _ "Kernel32" 별칭 "ProcessBhotyVal" As Long Private Declare Function ProcessNext Lib _ "Kernel32" 별칭 "Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) Const TH32CS_ AsNAPPRO = 2 & Private Const MAX_PATH As Integer = 260 개인 유형 PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As LongBase ESS LongENTZri As Long 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) 호출하는 동안 수행 r List1.AddItem uProcess.szExeFile r = ProcessNext) CloseShot)(hSnapShot) 엔드 서브

프로그램 시작하기

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

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

Private Sub Command1_Click () "레지스트리 항목 Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Your program name ", _" 프로그램 경로 "End Sub Private Sub Command2_Click() "레지스트리에서 삭제 Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ 프로그램 이름 "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, "하위 종료

작업 표시줄 숨기기

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

Private Declare Function 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 Shell_trawindow("" Shell_trawindow) SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 호출 End Sub "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 = 셸(adr, vbHide)

컴퓨터에 있는 RAM의 양

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

Mg Declare Sub GlobalMemoryStatus Lib "kernel32"(lpBuffer As TMemoryStatus) 개인 유형 TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailwatPageTotalPageFile ) Global Lms.dwLength =) " & ms.dwTotalPhys & vbCr & "무료:" _ & ms.dwAvailPhys & vbCr & "%에서 사용됨:" & ms.dwMemoryLoad End Sub

바탕 화면 아이콘 숨기기

이것은 다음과 같은 방식으로 수행됩니다. 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 SW_NORMAL = 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", vbNu ShowWindow , 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을 통해 개발자는 Visual Studio에 구축된 .NET 애플리케이션을 Linux 및 Mac OSX로 쉽게 이식하면서 모든 플랫폼에 대한 단일 코드 기반을 유지할 수 있습니다.

무료 오픈 소스 Mac Windows Linux .NET Framework Xamarin Studio

거지

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

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

웹스톰

JetBrains WebStorm은 JetBrains IntelliJ IDEA 프레임워크에 구축된 상용 JavaScript, CSS 및 HTML IDE입니다.
WebStorm은 코드 완성, 즉석 코드 분석, 리팩토링 지원 및 VCS 통합을 제공합니다.

유급의맥 윈도우 리눅스

샤프디벨롭

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

프로그래밍의 기본.

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

레슨 1: 프로그래밍 환경에 대한 이해 작은 기초적인 .

표적:친해지다 Small Basic 프로그래밍 언어로.

작업:

프로그래밍 언어 배우기 시작스몰 베이직. OOP(객체 지향 프로그래밍) 개념을 알려주세요.

이 프로그래밍 환경에서 작업하는 방법을 가르칩니다. NS 환경의 "텍스트 개체"에 익숙해지십시오.스몰 베이직.

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

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

개인 자질 교육: 헌신, 주의력, 정확성, 자존감의 객관성, 책임, 인지적 관심.

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

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

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

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

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

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

수업 중:

조직 시간

수업 준비
지식 업데이트

신소재에 대한 설명

연구 자료의 통합

주제에 대한 질문

요약

채점
숙제

조직 시간

수업 준비 (수업 준비 상태 확인, 결석 표시)
지식 업데이트

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

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

문제 해결의 단계.

기본 개념

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

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

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

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

객체의 구조를 설명

개체로 작업 설명

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

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

이론

첫 만남

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

주요 이점:

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

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

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

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

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

추론문

WriteLine("안녕하세요!")

라인을 표시합니다(텍스트또는 숫자 )

이봐!

결과를 얻으려면 "Hello!"라는 텍스트를 출력하십시오. 화면에 - 프로그램을 작성해야 합니다.

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

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

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

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

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

객체가 가지고 있는 속성그리고 행동 양식.

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

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

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

BackgroundColor 속성 - 텍스트의 배경색을 설정합니다.전경색- 텍스트 색상

그림 물감:

빨간색

노란색

초록

파란색

검은 색

하얀

빨간색

노란색

초록

파란색

검은 색

하얀

변하기 쉬운

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

변수는이름 - 라틴 문자(NS)

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

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

문자열 값

에이 = 에이 + 5

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

거기에 5를 더하다

변수의 새 값을 넣고 이전 값을 지웁니다.

변수에는 두 가지 유형이 있습니다.: 숫자그리고 선

10, -5, 3.14 "정보학"

접기 +

곱하기 *

나누기 /

수학적 행동:

사인, 로그, 루트

접착제

부분으로 나눕니다

기호 검색

문자 바꾸기

예 연산자 "+"

표현

결과

표현

결과

"이반" + "오바"

"이바노바"

"클래스" + 10

"10 반"

프로그램 작성

예 1: 프로그램 결과

예 2: 프로그램 결과

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

Math.Abs (남색)

기준 치수

Math.Cos( 남색)

코사인

Math.Ceiling(남색)

정수로 반올림

Math.GetDegrees( 남색)

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

Math.GetRandomNumber( 맥스남버)

1에서 1 사이의 난수맥스남버

내츄럴로그(남색)

자연 로그

Math.Pi

파이

Math.Power( 베이스남버, 멱지수)

V 영형baseNamber를 지수로 곱하기

수학. 최대(namber1, namber2)

최대 2개의 숫자

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

분할의 나머지

수학 .죄(남색)

공동

수학. 탠 껍질(남색)

코사인

수학 .ScuareRoot(남색)

뿌리

수학. 둥근(남색)

일반 반올림

수학 .ArcSin(남색)

아크사인

수학. 바닥(남색)

가장 가까운 가장 작은 정수로 반올림

x = TextWindow.ReadNumber()

y = Math.Abs (x)

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

Math.Pi

재료 확보

독학 과제

연습 1:

할당 연산자의 최종 결과 결정

X = 3

Y = 2

X = X + 2

Y = X * 2

X = Y

A = 15

B = 에이

A = B / 5 + 2

B = A * 3

A = 0

과제 2 : 3개 변수의 곱을 계산하는 프로그램을 만듭니다.NS , NS 그리고 씨 .

과제 3 : 식을 계산하는 프로그램을 만드십시오:지=5* NS+ 와이/ 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)

NS 1,2 = (a = 2의 경우, NS=6, 씨=4 , NS 1=-1, NS 2=-2)

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

С = ( NS=4, NS=9, 씨=13)

Y = 코사인(x) + 사인(x) (x = 180 0 , y = -1)

질문

프로그램이란?

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

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

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

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

어떤 유형의 데이터가 사용됩니까?스몰 베이직?

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

요약

채점
숙제

일하다 보조 메모와 함께

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

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

애플리케이션

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

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

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

변하기 쉬운

변수는이름 - 라틴 문자(예:NS , V , x1 , C9 )

변수에 값을 할당할 수 있음

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

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

10, -5, 3.14 "정보학"

접기 +

곱하기 *

나누기 /

수학적 행동:

사인, 로그, 루트

접착제

부분으로 나눕니다

기호 검색

문자 바꾸기

프로그램 작성

텍스트 창- 이것은 텍스트 창 개체 텍스트를 표시할 수 있는 곳입니다.

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

객체 텍스트 상자 소유하다 속성 , 예를 들어

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

사용된 색상:

빨간색

노란색

초록

파란색

검은 색

하얀

빨간색

노란색

초록

파란색

검은 색

하얀

소규모 기본 연산자

연산자 "+"

기본 연산자

표현식에서 수학 함수 사용

복잡한 수학적 표현 쓰기 Math.Pi TextWindow.WriteLine("변수 x에 대한 값 입력")

x = TextWindow.ReadNumber()

y = Math.Abs (x)

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

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

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

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

a = TextWindow.ReadNumber()

TextWindow.WriteLine("b에 대한 값을 입력하세요")

b = TextWindow.ReadNumber()

s = a + b

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

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

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