Eclipse è una piattaforma di sviluppo estensibile con runtime e piattaforme applicative per la creazione, l'utilizzo e la gestione del software per tutta la sua vita. ciclo vitale. Molte persone conoscono Eclipse come un IDE Java, ma Eclipse è in realtà composto da oltre 60 diversi progetti open source, sezione

Open source gratuito Mac Windows Linux

NetBean

IDE gratuito e open source per sviluppatori Software. Ottieni tutti gli strumenti necessari per creare desktop professionali, aziendali, web e applicazioni mobili in linguaggio Java, C/C++ e anche in linguaggi dinamici come PHP, JavaScript, Groovy e Ruby

Open source gratuito Mac Windows Linux BSD

Studio Aptana

Aptana Studio è un ambiente di sviluppo web completo che combina potenti strumenti di sviluppo con una suite di servizi di hosting online e lavoro congiunto per aiutare te e il tuo team a fare di più. Include il supporto per PHP, CSS, FTP e altro.

Open source gratuito Mac Windows Linux

Komodo Modifica

Komodo Edit è un editor open source veloce, intelligente e gratuito. Prova a usare Komodo Edit (o il suo fratello maggiore Komodo IDE): ne vale la pena.

Open source gratuito Mac Windows Linux

codice x

Xcode di Apple è l'ambiente di sviluppo leader per Mac OS X. Oltre ad essere fornito in bundle su disco con ogni acquisto di Mac OS X, la maggior parte una nuova versione sempre disponibile anche per download gratuito per i membri ADC ( rete sociale per sviluppatori di app su tutte le piattaforme Apple) e include tutti gli strumenti necessari per creare, modificare e ottimizzare le app che crei

Gratuito Mac

Monosviluppo

MonoDevelop è un IDE multipiattaforma progettato principalmente per C# e altri linguaggi .NET. MonoDevelop consente agli sviluppatori di creare rapidamente applicazioni Web desktop e ASP.NET per Linux, Windows e Mac OSX. MonoDevelop consente agli sviluppatori di trasferire facilmente le applicazioni .NET create in Visual Studio su Linux e Mac OSX mantenendo un'unica base di codice su tutte le piattaforme

Open source gratuito Mac Windows Linux. NET Framework Xamarin Studio

Lazzaro

Free Pascal è un compilatore GPL che gira su Linux, Win32, OS/2, 68K e altro. Free Pascal è progettato per comprendere e compilare la sintassi Delphi. Lazarus è il pezzo del puzzle mancante che ti permetterà di sviluppare programmi simili a Delphi per tutte le piattaforme di cui sopra. Poiché lo stesso compilatore è disponibile su tutte le piattaforme precedenti, ciò significa che non è necessario ricodificare per creare prodotti identici per piattaforme diverse.

Open source gratuito Mac Windows Linux BSD OpenSolaris

tempesta web

JetBrains WebStorm è un ambiente di sviluppo commerciale JavaScript, CSS e HTML basato sulla piattaforma JetBrains IntelliJ IDEA.
WebStorm fornisce completamento automatico analisi del codice, analisi del codice al volo, supporto per il refactoring e integrazione VCS.

Pagato Mac Windows Linux

SharpDevelop

#develop (abbreviazione di SharpDevelop) è un ambiente di sviluppo gratuito per progetti C#, VB.NET e Boo piattaforma Microsoft. È un ambiente open source. Puoi scaricare sia il codice sorgente che i file eseguibili.

Nozioni di base di programmazione.

Linguaggio di programmazione piccolo Di base

LEZIONE 1: Introduzione all'ambiente di programmazione piccolo Di base .

Obbiettivo: introdurre con il linguaggio di programmazione Small Basic.

Compiti:

Inizia ad imparare un linguaggio di programmazione Piccola base. Dare il concetto di OOP (programmazione orientata agli oggetti)

Impara a lavorare in questo ambiente di programmazione. P familiarizzare con l '"oggetto testo" dell'ambiente Piccola base.

Per dare una prima idea di come creare programmi in un ambiente di programmazione.

I principali compiti educativi del progetto:

Educazione alle qualità personali: determinazione, attenzione, accuratezza, obiettività nell'autostima, responsabilità, interesse cognitivo.

I principali compiti di sviluppo del progetto:

Formare negli studenti competenze chiave che contribuiscono al successo dell'adattamento sociale;

Sviluppare il desiderio di autosviluppo e crescita personale attraverso l'attività cognitiva.

Sapere: Concetti di base: oggetto, variabili, assegnazione, tipi di dati, input-output.Conoscere gli elementi costitutivi dell'ambiente di programmazione Small Basic.

Essere in grado di: Scarica il programma Small Basic. Crea progetti semplici in questo ambiente di programmazione. Essere in grado di inserire funzioni matematiche e scrivere espressioni matematiche nel linguaggio Smal Basic. Scrivere semplici programmi lineari.

Equipaggiamento e materiale: dispense di base (cfr.allegato 1 ), schede attività, PC, applicazione Small Basic, lavagna, proiettore multimediale, schermo.

Durante le lezioni:

Organizzare il tempo

1. Preparazione per la lezione

   Aggiornamento della conoscenza

Spiegazione del nuovo materiale

Consolidamento del materiale studiato

1. Domande correlate

Riassumendo

1. Classificazione

   Compiti a casa

Organizzare il tempo

1. Preparazione per la lezione (verifica la disponibilità per la lezione, segna assente)

   Aggiornamento della conoscenza

A cosa serve la programmazione?

Vuoi scrivere un abstract in biologia. Molto probabilmente, lo scriverai su un computer in un editor di testo. E da dove viene editor di testo? Naturalmente, i programmatori l'hanno scritto. Cercherai informazioni su Internet utilizzando un browser scritto anche dai programmatori. Dopo aver scritto il tuo saggio, vorrai rilassarti e giocare gioco per computer, che ancora una volta è stato scritto dai programmatori. In generale, lavorare su un computer è impossibile senza l'uso di programmi scritti dai programmatori. Ciò significa che se non ci fosse la programmazione, non ci sarebbero programmi e il computer sarebbe un mucchio di hardware costoso, perché è impossibile fare qualcosa con l'aiuto di un computer senza programmi.

Fasi di risoluzione dei problemi.

Concetti basilari

Programmazione - scrivere programmi.

Programma Un algoritmo scritto in un linguaggio di programmazione comprensibile da un computer.

Algoritmo - una chiara sequenza di azioni volte al raggiungimento dell'obiettivo.

Nella programmazione orientata agli oggetti viene introdotto il concetto di oggetto, vengono implementati meccanismi di calcolo che consentono:

Descrivi la struttura di un oggetto

Descrivi le azioni con gli oggetti

Utilizzare regole speciali di ereditarietà degli oggetti (Ereditarietà significa creare nuovi oggetti da quelli esistenti)

Impostare il grado di protezione dei componenti dell'oggetto

Teoria

Primo incontro

Microsoft Small Basic - linguaggio di programmazione sviluppato da . Progettato per sviluppatori principianti che vogliono imparare le basi della creazione di programmi.

Principali vantaggi:

Un ambiente di sviluppo molto semplice: un editor di testo con una descrizione comando multifunzionale e solo pochi pulsanti per la modifica del testo e l'avvio di programmi.

Linguaggio semplice con solo 20 parole chiave

Documentazione contestuale integrata nell'ambiente di sviluppo per tutti gli elementi del linguaggio

Possibilità di estendere i componenti Small Basic per includere funzionalità aggiuntive. (Ad esempio, la fornitura include già funzionalità per l'utilizzo dei servizi)

Un vantaggio speciale del BASIC va considerato la capacità di lavorare in modalità interpretazione, che semplifica notevolmente il processo di debug dei programmi: l'esecuzione di quasi tutti i comandi può essere verificata immediatamente dopo la scrittura.

Operatore di uscita

WriteLine("Ciao!")

Visualizza una stringa (testo o numero )

Ciao!

Per ottenere il risultato, l'output del testo "Hello!" sullo schermo - devi scrivere un programma:

TextWindow.WriteLine("Ciao!")

Il programma viene inserito nella finestrapiccoloDi basee inizia con un pulsantelancio o chiave F 5

Il risultato del programma è l'output del testo: "Hello!" incasella di testo programmi.

La stringa significa "Premi un tasto qualsiasi per continuare...".

TextWindow è un oggetto "finestra di testo" in cui è possibile visualizzare il testo.

L'oggetto ha proprietà e metodi.

Metodo dell'oggetto -cosa può fare l'oggetto, cioè essooperazioni (operatori )

Parametro le operazioni sono racchiuse tra parentesi WriteLine()

Stesso oggetto casella di testo ha proprietà (queste sono le caratteristiche dell'oggetto) , Per esempio

Proprietà BackgroundColor: imposta il colore di sfondo per il testo,Colore di primo piano- colore del testo

Colori:

rosso

giallo

verde

blu

Nero

bianca

rosso

giallo

verde

blu

il nero

bianca

Variabile

Le variabili vengono spesso utilizzate per creare programmi.

variabile hanome - lettera latina (un)

A una variabile può essere assegnato un valore, ad esempio un numero

un= 5, dove il segno " = " - questo è operatore di assegnazione

valore stringa

a = a + 5

Prendi il valore della variabile a

Aggiungi 5 ad esso

Impostare un nuovo valore sulla variabile a, cancellando da essa il precedente

La variabile è di due tipi: numero e linea

10, -5, 3.14 "informatica"

Piega +

Moltiplica *

Dividere /

Azioni matematiche:

Seno, logaritmo, radice

colla

Dividi in parti

Simboli di ricerca

Sostituisci i caratteri

ESEMPIO con operatore "+"

espressione

risultato

espressione

risultato

"ivan" + "ova"

"ivanova"

"classe" + 10

"classe 10"

Programmazione

Esempio 1: risultato del programma

Esempio 2: risultato del programma

Esempio 3: Il programma calcola e visualizza la somma di due variabiliun e b

Math.Abs(numero)

modulo

Math.Cos( numero)

coseno

Soffitto di matematica (numero)

arrotonda a un numero intero

Math.GetDegrees( numero)

convertire un numero da radianti a gradi

Math.GetRandomNumber( numero massimo)

Numero casuale nell'intervallo da 1 anumero massimo

NaturalLog(numero)

logaritmo naturale

Matematica Pi

Pi

Math.Power( baseNumber, esponente)

A oelevando baseNamber alla potenza di esponente

Matematica. max(numero1,numero2)

Massimo di due numeri

Matematica. Resto (dividendo, divisore)

Resto della divisione

Matematica .Sin(numero)

Seno

Matematica. Abbronzatura(numero)

Coseno

Matematica .ScuareRoot(numero)

Radice

Matematica. Girare(numero)

Arrotondamento normale

Matematica .ArcSin(numero)

Arcseno

Matematica. pavimento(numero)

Arrotonda per difetto al numero intero più piccolo più vicino

x=TextWindow.ReadNumber()

y=Matematica.Abs(x)

TextWindow.WriteLine("yè uguale a "+y)

Matematica Pi

Riparare il materiale

1. Indipendente lavoro pratico per PC

Compiti per lavoro autonomo

Esercizio 1:

Definire i risultati finali delle dichiarazioni di assegnazione

X=3

Y=2

X=X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

Compito 2 : Scrivete un programma per calcolare il prodotto di 3 variabili:un , b e c .

Compito 3 : Scrivi un programma per calcolare l'espressione:z=5* X+ y/2 (assumendo x=10,y=100)

Compito 4: Scrivi un programma per emettere i valori di X eY, secondo il compito 1.

Compito 5: Scrivete un programma per trovare il discriminante

Compito 6 : valuta le espressioni

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Peccato 2 (Pi/2) (1 )

( 1)

Y=2x 2 ( a x=5, y=50)

X 1,2 \u003d (quando a \u003d 2, b=6, c=4 , X 1=-1, X 2=-2)

Z= ln(y)-3 ( a y=3, z=-1.901…)

С= (quando un=4, b=9, c=13)

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

Domande

Che cos'è un programma?

A cosa servono i linguaggi di programmazione?

nome Elementi basici programmazione orientata agli oggetti?

Quali operazioni possono essere eseguite nella "finestra di testo"?

Cosa significa l'operatore di assegnazione:

In quali tipi di dati vengono utilizzati Piccola base?

Come vengono scritte le istruzioni I/O?

Riassumendo

1. Classificazione

   Compiti a casa

Opera con un riassunto

preparare un messaggio sull'argomento: "Una varietà di linguaggi di programmazione"

Crea un programma calcolando l'area di un triangolo usando la formula di Heron

Applicazione

OK 1: Fondamenti di programmazione nella lingua piccolo Di base .

Programmazione - scrivere programmi.

ALGORITMO + LINGUAGGIO DI PROGRAMMAZIONE= PROGRAMMA

Variabile

variabile hanome - Lettera latina (ad esempio,un , A , x1 , C9 )

A una variabile può essere assegnato un valore

Esempio: un = 5 , dove il segno " = " - questo è operatore di assegnazione

La variabile è di due tipi: numero e linea (sequenza di caratteri)

10, -5, 3.14 "informatica"

Piega +

Moltiplica *

Dividere /

Azioni matematiche:

Seno, logaritmo, radice

colla

Dividi in parti

Simboli di ricerca

Sostituisci i caratteri

Programmazione

Finestra di testo- questo è oggetto "finestra con testo" , in cui è possibile visualizzare il testo.

Parametro di funzionamento racchiuso tra parentesi - WriteLine()

Un oggetto casella di testo ha proprietà , Per esempio

Proprietà colore di sfondo - imposta il colore di sfondo del testo,Colore di primo piano - colore del testo

Colori usati:

rosso

giallo

verde

blu

Nero

bianca

rosso

giallo

verde

blu

il nero

bianca

Piccoli operatori di base

Operatore "+".

Principali operatori

Utilizzo di funzioni matematiche in un'espressione

Scrivere espressioni matematiche complesse Matematica Pi TextWindow.WriteLine("Inserisci il valore della variabile x")

x=TextWindow.ReadNumber()

y=Matematica.Abs(x)

TextWindow.WriteLine("yè uguale a "+y)

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

Programma per calcolare la somma di due variabiliun e b

TextWindow.WriteLine("Inserisci il valore della variabile a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("Inserisci il valore della variabile b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" la somma dei numeri è "+s)

Il programma viene inserito nella finestrapiccoloDi basee inizia con un pulsantelancio o chiave F 5.

Linea Premere qualunque chiave Continua ...significa " premere un tasto qualsiasi per continuare

Ciao a tutti, in questo articolo voglio mostrarvi codici utili per piccoli programmi. Che puoi usare per scrivere i tuoi programmi più seri, o stavi cercando esattamente queste funzioni che sono descritte qui.

Tutti i codici sono stati utilizzati nell'ambiente di programmazione Microsoft Visual Basic v6.0.

Esci con conferma

Il primo tipo di programma, o una funzione, è un'uscita con un messaggio di conferma dell'uscita. In generale, apri l'ambiente di programmazione Visual Basic, crea un progetto standard, quindi posiziona un pulsante sul modulo, fai clic sul pulsante e si aprirà una finestra di modifica del codice, e lì devi incollare il seguente codice:

Segnale acustico Dim messaggio As String Dim pulsanti e icone As Integer Dim title As String Dim risposta As String message = "Vuoi uscire?" title = "(!LANG:Esci" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Password per avviare il programma

Dim Password, Pword PassWord = "12345" Pword = InputBox("Inserisci password") Se Pword<>PassWord Then MsgBox "Password non corretta" End End If

Dove, 12345 è la password per eseguire il programma. Ma questo codice può essere utilizzato dove vuoi.

Uscita messaggio

Se vuoi solo visualizzare un messaggio per qualcosa, inserisci questo:

Beep Dim message As String Dim buttonandicons As Integer Dim title As String message = "Message" title = "(!LANG:Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Disegno sul modulo

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 Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub

È possibile modificare il colore utilizzando il parametro QBColor(0), ad es. sostituire 0 con un altro numero.

Riavvio del computer

Per riavviare il computer: posiziona il pulsante e incolla il seguente codice:

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Seleziona * da Win32_OperatingSystem") Per Ogni ObjOperatingSystem In colOperatingSystems ObjOperatingSystem.Reboot " Per riavviare Avanti

Esecuzione del programma in un'unica copia

L'esempio seguente ti aiuterà a far eseguire il programma solo una volta, ad es. in caso di riavvio, emetterà un messaggio corrispondente. Incolla nel codice del modulo:

Private Sub Form_Load() Se App.PrevInstance = True Allora MsgBox "Progetto già avviato!" Fine Fine Se

Spegnimento del computer

Per spegnere il computer, puoi utilizzare il seguente codice:

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown)))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Per Ogni ObjOperatingSystem in colOperatingSystems ObjOperatingSystem.ShutDown "To shutdown Next

Termina qualsiasi processo

Per terminare il processo, puoi utilizzare il seguente codice:

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

Dove, invece di ICQlite.exe, può esserci qualsiasi processo.

Quanto tempo funziona un computer

Quello che segue è un esempio di come determinare il tempo di attività del computer. Questo metodo si basa sull'uso della libreria kernel32, quindi all'inizio del codice del modulo, includi questa DLL.

Funzione di dichiarazione privata GetTickCount Lib "kernel32" () As Long "E nel codice pulsante: 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 "Il tuo computer è in esecuzione " & Str(a_days) & " giorni " & Str(un_ora) _ & " ore " & Str(un_minuto) & " minuti" & Str(un_secondo) & " secondi"

Abbiamo recensito funzioni semplici che può essere utilizzato quasi ovunque. Ora diamo un'occhiata a esempi più seri e possono aiutarti notevolmente a scrivere i tuoi grandi progetti.

Esempi di cartelle

Elimina directory

Funzione di dichiarazione privata RemoveDirectory& Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName As String) "Rimozione directory (vuota!) PathName$ = "D:\t" code& = RemoveDirectory(PathName) If code& = 0 Quindi "Errore rimozione della directory Else "Directory eliminata End If

Crea directory

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$(percorso , uno)<>":" And Dir$(path, vbDirectory) = "" Then MkDir path End If Loop Until i >= Len(dirname) End Sub Private Sub Command1_Click() Call MakeDir("C:\Soft\1\2\3\ ") Fine Sub

Elenca tutte le cartelle con le sottocartelle

Aggiungiamo 2 campi di testo e un pulsante al form, il nome del primo campo di testo è StartText, il nome del secondo campo di testo è OutText. Proprietà multiriga = true, nome del pulsante = CmdStart

Esecuzione statica 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 Se in esecuzione Then running = False CmdStart.Enabled = False CmdStart.Caption = "Arresto" Altrimenti in esecuzione = True MousePointer = vbHourglass CmdStart.Caption = "Stop" 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 <>"" Se UCase$(sub_dir)<>"PAGEFILE.SYS" E sub_dir<>"." E sub_dir<>".." Quindi sub_dir = dir_name & "\" & sub_dir In caso di errore Riprendi Avanti Se GetAttr(sub_dir) e vbDirectory Quindi AllDirs.Add sub_dir End Se sub_dir = Dir$(, vbDirectory) Ciclo DoEvents Se non in esecuzione Allora Esci Do Loop txt = "" For i = 1 A AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Avanti i OutText.Text = txt MousePointer = vbDefault unning = False End If

Ora eseguiamo il programma, nel campo di testo di StartText scriviamo: C:\windows, e clicchiamo sul pulsante.

Dimensione della directory

Const MAX_PATH = 260 Tipo privato FILETIME dwLowDateTime As Long dwHighDateTime As Long End Tipo Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As long dwReserved1 As long cFileName c As String * MAX_PATH c Asternate String * 14 End Type Private Declare Function FindFirstFile Lib _ "kernel32" Alias ​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" Alias ​​"FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Funzione di dichiarazione privata FindClose Lib _ "kernel32" (ByVal hFindFile As Long) As Long Funzione pubblica SizeOf (ByVal DirPath As String) As Double 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) If Err Then SizeOf = 0: Exit Function If (x e vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & "*.*", vbSystem o vbHidden o vbDirectory) If Err.Number = 0 Allora hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) Se hFind = 0 Allora Esci dalla funzione Do If (fdata.dwFileAttributes e vbDirectory) = vbDirectory Then sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Se sName<>"." E sNome<>".." Quindi dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFile(hFind, fdata)<>0 hFind = FindClose(hFind) End If Else On Error Resume Next dblSize = FileLen(DirPath) End If SizeOf = dblSize End Funzione Funzione privata EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" Quindi EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "Sostituisci "D:\soft" con qualsiasi directory tu voglia conoscere la dimensione di MsgBox SizeOf("D:\soft") / 1000000 Fine Sub

Esempi di lavoro con i file

copia

Diciamo che abbiamo un file chiamato 1.txt nella cartella C:\1\ e dobbiamo copiarlo in C:\2\ per questo scriviamo il seguente codice:

Copia file "C:\1\1.txt","C:\2\1.txt"

Nota! Se la directory 2 contiene già un file denominato 1.txt, verrà sostituito da 1.txt dalla directory 1.

Funzione di dichiarazione privata CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Copia file C:\1.txt a D :\1.txt. Dim retval As Long " valore restituito "Copy file retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If MsgBox non riuscito" Impossibile copiare" Altrimenti "Se OK MsgBox "File copiato." End If End Sub

Rimozione

Ad esempio, vogliamo eliminare il file 1.txt dalla radice dell'unità C:\

Kill("C:\1.txt")

modo API

Funzione di dichiarazione privata 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 "Return Value retval = DeleteFile( "C:\1.txt") Se retval = 1 Quindi MsgBox "File eliminato correttamente." fine sub

in movimento

Puoi, ad esempio, spostarlo in questo modo:

Copia file "C:\1.txt","C:\2\1.txt" Uccidi ("C:\1.txt")

Ma è meglio così (tramite API):

Funzione di dichiarazione privata MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long "Return Value retval = MoveFile("C: \1 .txt", "C:\2\1.txt") Se retval = 1 Allora MsgBox "Spostato con successo" Altrimenti MsgBox "Errore" End If End Sub

Rinominare

Per rinominare il file 1.txt che si trova in C:\ in 2.txt, puoi usare il seguente codice:

Copia file "C:\1.txt","C:\2.txt" Uccidi ("C:\1.txt")

modo API

Funzione di dichiarazione privata MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " return value retval = MoveFile("C: \1 .txt", "C:\2.txt") Se retval = 1 Allora MsgBox "Success" Altrimenti MsgBox "Errore" End If End Sub

Determina la dimensione del file

La dimensione del file può essere determinata in due modi:

Se il file può essere aperto con la funzione OPEN, è possibile utilizzare la funzione LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Apri "C:\WIN\GENERAL.TXT" Per input come FileFree FileSize = LOF(FileFree) Chiudi FileFree

Oppure usa la funzione FileLen

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

Nascondi l'orologio a livello di codice

Aggiungi 2 pulsanti e incolla il codice:

Opzione Funzione di dichiarazione privata esplicita FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Funzione di dichiarazione privata 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 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 Sub Private Command2_Click() ShowWindow hnd, 1 End Sub Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Nascondi orologio" Command2.Caption = "Mostra orologio" End Sub

Aggiungi icona alla barra delle applicazioni

Aggiungi un modulo, incolla il codice al suo interno:

Dichiara funzione 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_ICON = 2 Public Const NIF_TIP = 4 Tipo NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Tipo Funzione pubblica 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 O NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Icona nidTemp.szTip = tip & Chray$(0) = Shell_NotifyIconA(Modalità, nidTemp) Funzione di fine

Per utilizzare incolla nel codice del modulo:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Per eliminare Private Sub Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Blocco del pulsante di avvio

Funzione di dichiarazione privata FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Funzione di dichiarazione privata 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(Opzionale abilitato As Boolean = True) Dim lHwnd As Long " trova hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Chiama EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click() EnableStartButton False "Pulsante Start disabilitato End Sub Private Sub Command2_Click() EnableStartButton True "Il pulsante Start non è disabilitato End Sub

Lettura dei parametri dal file INI

Il programma si connette a FTP e i parametri sono scritti nel file ini: server, login, porta, password.

Innanzitutto, crea un file INI:

Servname=server usern=Login pwd=password port=porta

Deve essere inserito nella cartella con il programma. Quindi, inserisci nel modulo:

Funzione Private Declare WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib _ "kernel32" Alias ​​​"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long Funzione pubblica ReadIni(Razdel As String, Param) As String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Funzione di fine funzione privata GetValue(Sezione ByVal come stringa, chiave _ ByVal come stringa, ByVal fFileName come stringa, ByVal opzionale come valore predefinito String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) Se GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Then GetValue = Left$(Data, InStr( Dati$, Chr $(0)) - 1 ) Altrimenti GetValue = DefaultValue End If Exit Function End Function

Quindi incolla il codice del modulo:

Funzione di dichiarazione privata InternetOpen Lib _ "wininet.dll" Alias ​​"InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal nFlags As Long) As Long Funzione di dichiarazione privata InternetConnect Lib _ "wininet.dll" Alias ​​"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 dwFlags As Long , ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias ​​​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As 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&

E nel codice del pulsante:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("General", "servname"), "0", _ ReadIni("General", "usern"), ReadIni( "General", "pwd"), 1, 0, 0) If FtpGetFile(rs&, "Your file.txt", "path", False, 0, 1, 0) = False Then End Call InternetCloseHandle(rs&) Call InternetCloseHandle (rc&)

Elenco dei processi in esecuzione

Aggiungi una casella di riepilogo e 1 pulsante, incolla il codice seguente:

Opzione Funzione di dichiarazione privata esplicita CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Funzione di dichiarazione privata ProcessFirst Lib _ "Kernel32" Alias ​​"Process32First" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long Stringa szExeFi Tipo finaleSnapho DimSnaphot Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Se hSnapShot = 0 Quindi Esci Sub End Se uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub

Mettere un programma all'avvio

Affinché il programma venga caricato con Windows, come altri programmi, puoi utilizzare il registro:

Aggiungi 2 pulsanti e il seguente codice:

Private Sub Command1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Nome del tuo programma", _ "Percorso del tuo programma" End Sub Private Sub Command2_Click() "Elimina dal registro Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Nome del programma" End Sub

E affinché il programma si carichi con Windows, anche in modalità sicura, quindi questo codice:

Per cominciare, un modo più serio (per ogni evenienza backup registro).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Percorso del tuo programma" End Sub Private Sub Command2_Click()" Questo è per il ripristino Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

Bene, il modo più semplice.

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 ,Percorso del programma" End Sub Private Sub Command2_Click()"Per ripristinare Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe," End Sub

Nascondi la barra delle applicazioni

Aggiungi 2 pulsanti e incolla il codice:

Funzione di dichiarazione privata 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 Dichiarazione privata Funzione FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Nasconde Private Sub Command1_Click() hwnd1 = FindWindow("Shell_traywnd", " ") Chiama SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Show Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Chiama SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Decomprimi l'archivio RAR

Per decomprimere un archivio RAR, puoi utilizzare il seguente codice:

WinRarApp = "C:\Programmi\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "File name.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)

Quanta RAM c'è nel computer

Aggiungi un pulsante e incolla il seguente codice:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As LongFile dwAvailPage As Long dwAvailPage As Long dwAvailPageFile lungo dwAvailPage As Long End Type Dimmory ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Usato in %:" & ms.dwMemoryLoad End Sub

Nascondi le icone del desktop

Questo viene fatto nel modo seguente. Aggiungi 2 pulsanti e incolla il seguente codice:

Funzione di dichiarazione privata ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Funzione di dichiarazione privata FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SW_HIDE = 0 Const SW_NORMAL = 1 Comando secondario privato1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Chiama ShowWindow(hHandle, SW_HIDE) End Sub Comando secondario privato2_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Chiama ShowWindow (hHandle , SW_NORMAL) Fine Sub

Usando il pulsante Command1, le icone sono nascoste, Command2 - appare.

Questo è tutto ciò che ho, spero che gli esempi sopra ti siano utili, ciao!