Eclipse est une plate-forme de développement extensible avec des environnements d'exécution et des plates-formes d'applications pour créer, exécuter et gérer des logiciels tout au long de leur cycle de vie. Beaucoup de gens connaissent Eclipse comme un IDE Java, mais Eclipse est en réalité composé de plus de 60 projets open source différents.

Source ouverte gratuite Mac Windows Linux

NetBeans

Un environnement de développement intégré gratuit et open source pour les développeurs de logiciels. Vous disposez de tous les outils dont vous avez besoin pour créer des applications professionnelles de bureau, d'entreprise, Web et mobiles en Java, C/C++ et même des langages dynamiques comme PHP, JavaScript, Groovy et Ruby.

Source ouverte gratuite Mac Windows Linux BSD

Studio Aptana

Aptana Studio est un environnement de développement Web complet qui combine de puissants outils de développement avec une suite de services d'hébergement et de collaboration en ligne pour vous aider, vous et votre équipe, à en faire plus. Inclut la prise en charge de PHP, CSS, FTP et plus encore.

Source ouverte gratuite Mac Windows Linux

Komodo Modifier

Komodo Edit est un éditeur open source rapide, intelligent et gratuit. Essayez d'utiliser Komodo Edit (ou son grand frère Komodo IDE) - ça vaut le coup.

Source ouverte gratuite Mac Windows Linux

Xcode

Xcode d'Apple est le principal environnement de développement pour Mac OS X. En plus d'être incluse sur un disque avec chaque achat de Mac OS X, la dernière version est toujours disponible en téléchargement gratuit pour les membres de l'ADC (un réseau social pour les développeurs d'applications du monde entier). .Plateformes Apple) et comprend tous les outils dont vous avez besoin pour créer, peaufiner et optimiser les applications que vous créez

Gratuit Mac

MonoDéveloppement

MonoDevelop est un IDE multiplateforme principalement conçu pour C# et d'autres langages .NET. MonoDevelop permet aux développeurs de créer rapidement des applications de bureau et Web ASP.NET pour Linux, Windows et Mac OSX. MonoDevelop permet aux développeurs de porter facilement les applications .NET créées dans Visual Studio vers Linux et Mac OSX en conservant une base de code unique pour toutes les plates-formes.

Source ouverte gratuite Mac Windows Linux .NET Framework Xamarin Studio

Lazare

Free Pascal est un compilateur GPL qui fonctionne sous Linux, Win32, OS/2, 68K et plus. Free Pascal est conçu pour comprendre et compiler la syntaxe Delphi. Lazarus est la pièce du puzzle manquant qui vous permettra de développer des programmes de type Delphi pour toutes les plateformes ci-dessus. Puisque le même compilateur est disponible sur toutes les plateformes ci-dessus, cela signifie que vous n'avez pas besoin de recoder pour créer des produits identiques pour différentes plateformes.

Source ouverte gratuite Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm est un environnement de développement commercial pour JavaScript, CSS et HTML construit sur la plateforme JetBrains IntelliJ IDEA.
WebStorm fournit la complétion automatique du code, l'analyse du code à la volée, la prise en charge de la refactorisation et l'intégration VCS.

Payé Mac Windows Linux

SharpDévelopper

#develop (abréviation de SharpDevelop) est un environnement de développement gratuit pour les projets C#, VB.NET et Boo sur la plateforme Microsoft. Il s'agit d'un environnement open source. Vous pouvez télécharger à la fois le code source et les fichiers exécutables.

Bases de la programmation.

Langage de programmation Petit Basique

LEÇON 1: Introduction à l'environnement de programmation Petit Basique .

Cible: Introduire avec le langage de programmation Small Basic.

Tâches:

Commencez à apprendre un langage de programmation Petit basique. Donner le concept de POO (programmation orientée objet)

Apprenez à travailler dans cet environnement de programmation. P. introduire « l’objet texte » de l’environnement Petit basique.

Donner une première idée de création de programmes dans un environnement de programmation.

Les principaux objectifs pédagogiques du projet :

Développer les qualités personnelles : dévouement, attention, précision, objectivité dans l’estime de soi, responsabilité, intérêt cognitif.

Principales tâches de développement du projet :

Développer chez les élèves les compétences clés qui contribuent à une adaptation sociale réussie ;

Développer un désir de développement personnel et de croissance personnelle grâce à l'activité cognitive.

Savoir: Concepts de base : objet, variables, affectation, types de données, entrées-sorties.Connaître les éléments constitutifs de l'environnement de programmation Small Basic.

Être capable de: Téléchargez le programme Smal Basic. Créez des projets simples dans cet environnement de programmation. Être capable de saisir des fonctions mathématiques et d'écrire des expressions mathématiques dans le langage Smal Basic. Écrivez des programmes linéaires simples.

Équipement et matériel : notes de cours à l'appui (voirAnnexe 1 ), cartes de tâches, PC, application Small Basic, carte, projecteur multimédia, écran.

Pendant les cours :

Organisation du temps

1. Préparation de la leçon

   Actualisation des connaissances

Explication du nouveau matériel

Renforcer la matière apprise

1. Questions sur le sujet

Résumer

1. Classement

   Devoirs

Organisation du temps

1. Préparation du cours (vérifier l'état de préparation au cours, marquer les absents)

   Actualisation des connaissances

Pourquoi la programmation est-elle nécessaire ?

Vous souhaitez rédiger un essai sur la biologie. Très probablement, vous l'écrirez sur votre ordinateur dans un éditeur de texte. D'où vient l'éditeur de texte ? Bien sûr, il a été écrit par des programmeurs. Vous rechercherez des informations sur Internet à l’aide d’un navigateur également écrit par des programmeurs. Après avoir rédigé votre essai, vous aurez envie de vous détendre et de jouer à un jeu informatique qui, encore une fois, a été écrit par des programmeurs. En général, travailler sur un ordinateur est impossible sans utiliser les programmes écrits par les programmeurs. Cela signifie que s'il n'y avait pas de programmation, il n'y aurait pas de programmes et l'ordinateur serait un matériel coûteux, car il est impossible de faire quelque chose avec un ordinateur sans programmes.

Étapes de résolution de problèmes.

Concepts de base

La programmation - écrire des programmes.

Programme – un algorithme écrit dans un langage de programmation qu'un ordinateur peut comprendre.

Algorithme – une séquence claire d'actions visant à atteindre l'objectif.

En programmation orientée objet la notion d'objet a été introduite, des mécanismes de calcul ont été mis en œuvre, permettant :

Décrire la structure d'un objet

Décrire des actions avec des objets

Utilisez des règles d'héritage d'objet spéciales (L'héritage signifie créer de nouveaux objets à partir d'objets existants)

Définir le degré de protection des composants de l'objet

Théorie

Première rencontre

Microsoft Petit Basique - un langage de programmation développé par . Conçu pour les développeurs débutants qui souhaitent apprendre les bases de la création de programmes.

Principaux avantages:

Un environnement de développement très simple - un éditeur de texte avec une info-bulle multifonctionnelle et seulement quelques boutons pour éditer du texte et lancer des programmes.

Langage simple avec seulement 20 mots-clés

Documentation contextuelle pour tous les éléments du langage intégrés à l'environnement de développement

La possibilité d'étendre les composants Small Basic pour inclure des fonctionnalités supplémentaires. (Par exemple, la livraison inclut déjà des fonctionnalités permettant de travailler avec des services)

Un avantage particulier du BASIC est la possibilité de travailler en mode interprétation, ce qui simplifie grandement le processus de débogage des programmes : l'exécution de presque toutes les commandes peut être vérifiée immédiatement après l'écriture.

Opérateur d'inférence

WriteLine("Bonjour!")

Affiche la chaîne (texte ou nombre )

Bonjour!

Pour obtenir le résultat - afficher le texte « Bonjour ! » à l'écran - vous devez écrire un programme :

TextWindow.WriteLine("Bonjour!")

Le programme est entré dans la fenêtrePetitBasiqueet commence par un boutonLancement ou clé F 5

Le résultat du programme est la sortie texte : "Bonjour !" VZone de texte programmes.

La ligne signifie "Appuyez sur n'importe quelle touche pour continuer..."

TextWindow est un objet « fenêtre de texte » dans lequel du texte peut être affiché.

L'objet a propriétés Et méthodes.

Méthode objet -ce qu'un objet peut faire, c'est-à-direopérations (les opérateurs )

Paramètre L'opération est placée entre parenthèses WriteLine()

C'est aussi un objet zone de texte a propriétés (ce sont les caractéristiques de l'objet) , Par exemple

Propriété BackgroundColor – définit la couleur d’arrière-plan du texte,Couleur de premier plan- couleur du texte

Couleurs:

rouge

jaune

vert

bleu

noir

blanc

rouge

jaune

vert

bleu

noir

blanc

Variable

Les variables sont souvent utilisées pour créer des programmes.

La variable aNom - Lettre latine (un)

Une variable peut se voir attribuer une valeur, telle qu'une valeur numérique

un= 5, où le signe " = " - Ce opérateur d'assignation

Valeur de chaîne

une = une + 5

Prendre la valeur de la variable a

Ajoutez-y 5

Mettez une nouvelle valeur dans la variable a, en effaçant la précédente

Il existe deux types de variables: nombre Et doubler

10, -5, 3.14 « informatique »

Plier +

Multiplier *

Diviser /

Opérations mathématiques :

Sinus, logarithme, racine

Colle

Diviser en parties

Rechercher des symboles

Remplacer les caractères

EXEMPLE avec opérateur "+"

expression

résultat

expression

résultat

"Ivan" + "ovule"

"Ivanova"

"classe"+ 10

"classe 10"

La programmation

Exemple 1 : résultat du programme

Exemple 2 : résultat du programme

Exemple 3 : Le programme calcule et affiche la somme de deux variablesun Et b

Math.Abs ​​(nombre)

module

Math.Cos( nombre)

cosinus

Math.Plafond (nombre)

arrondit à un nombre entier

Math.GetDegrees( nombre)

convertir des nombres de radians en degrés

Math.GetRandomNumber( nombre maximum)

Nombre aléatoire compris entre 1 etnombre maximum

Journal Naturel (numéro)

Un algorithme naturel

Math.Pi

Pi

Math.Puissance( numéro de base, exposant)

DANS oconversion de baseNamber en exposant

Mathématiques. Max (numéro1, numéro2)

Maximum de deux numéros

Mathématiques. Reste (dividende, diviseur)

Reste de la division

Mathématiques .Sin(nombre)

Sinus

Mathématiques. bronzer(nombre)

Cosinus

Mathématiques .SquareRoot(nombre)

Racine

Mathématiques. Rond(nombre)

Arrondi normal

Mathématiques .ArcSin(nombre)

arc sinus

Mathématiques. Sol(nombre)

Arrondit au plus petit entier le plus proche

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yéquivaut à "+o)

Math.Pi

Fixation du matériel

1. Travaux pratiques autonomes sur PC

Tâches pour le travail indépendant

Exercice 1 :

Déterminer les résultats finaux des instructions d'affectation

X=3

Y=2

X=X+2

Y=X*2

X=Y

UNE= 15

B=A

A=B/5+2

B=A*3

A=0

Tâche 2 : Créez un programme pour calculer le produit de 3 variables :un , b Et c .

Tâche 3 : Créez un programme pour calculer l'expression :z=5* X+ oui/2 (en supposant que x=10,oui=100)

Tâche 4 : Créez un programme pour afficher les valeurs de X etOui, selon la tâche 1.

Tâche 5 : Créer un programme pour trouver le discriminant

Tâche 6 : évaluer les expressions

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Parce que 2 (Pi/4)+ Péché 2 (Pi/2) (1 )

( 1)

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

X 1,2 = (à a=2, b=6, c=4 , X 1=-1, X 2=-2)

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

C= (à un=4, b=9, c=13)

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

Des questions

Quel est le programme ?

A quoi servent les langages de programmation ?

Quels sont les éléments de base de la programmation orientée objet ?

Quelles opérations peuvent être effectuées dans la « fenêtre de texte » ?

Que signifie l'opérateur d'affectation :

Dans quels types de données sont utilisés Petit basique ?

Comment les instructions d’E/S sont-elles écrites ?

Résumer

1. Classement

   Devoirs

Emploi avec notes à l'appui

préparer un message sur le thème : « Variétés de langages de programmation »

Faire un programme calculer l'aire d'un triangle à l'aide de la formule de Heron

Application

OK 1 : Bases de la programmation dans le langage Petit Basique .

La programmation - écrire des programmes.

ALGORITHME + LANGAGE DE PROGRAMMATION= PROGRAMME

Variable

La variable aNom - Lettre latine (Par exemple,un , DANS , x1 , C9 )

Une variable peut se voir attribuer une valeur

Exemple: un = 5 , où le signe " = " - Ce opérateur d'assignation

Il existe deux types de variables: nombre Et doubler (séquence de caractères)

10, -5, 3.14 « informatique »

Plier +

Multiplier *

Diviser /

Opérations mathématiques :

Sinus, logarithme, racine

Colle

Diviser en parties

Rechercher des symboles

Remplacer les caractères

La programmation

Fenêtre de texte- Ce objet fenêtre de texte , dans lequel vous pouvez afficher du texte.

Paramètre de fonctionnement entre parenthèses - WriteLine()

Un objet zone de texte a propriétés , Par exemple

Propriété Couleur de l'arrière plan – définit la couleur de fond du texte,Couleur de premier plan - couleur du texte

Couleurs utilisées :

rouge

jaune

vert

bleu

noir

blanc

rouge

jaune

vert

bleu

noir

blanc

Petits opérateurs de langage de base

Opérateur "+"

Opérateurs de base

Utiliser des fonctions mathématiques dans une expression

Composer des expressions mathématiques complexes Math.Pi TextWindow.WriteLine("entrez la valeur de la variable x")

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yéquivaut à "+o)

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

Programme pour calculer la somme de deux variablesUN Et b

TextWindow.WriteLine("entrez la valeur de la variable a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("entrez la valeur de la variable b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" la somme des nombres est "+s)

Le programme est entré dans la fenêtrePetitBasiqueet commence par un boutonLancement ou clé F 5.

Doubler Presse n'importe lequel clé continuer ...moyens " Appuyez sur n'importe quelle touche pour continuer

Bonjour à tous, dans cet article je souhaite vous montrer des codes utiles pour les petits programmes. Que vous pouvez utiliser pour écrire vos propres programmes plus sérieux, ou si vous recherchiez exactement ces fonctions décrites ici.

Tous les codes ont été utilisés dans l'environnement de programmation Microsoft Visual Basic v6.0.

Quitter avec confirmation

Le premier type de programme, ou fonction, est une sortie avec un message confirmant la sortie. En général, ouvrez l'environnement de programmation Visual Basic, créez un projet standard, puis placez un bouton sur le formulaire, cliquez sur le bouton et la fenêtre d'édition de code s'ouvrira, et vous devrez y insérer le code suivant :

Beep Dim message As String Dim boutons et icônes As Integer Dim title As String Dim réponse As String message = "Voulez-vous sortir ?" title = "(!LANG : Quitter" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Mot de passe pour démarrer le programme

Dim Mot de passe, Pword PassWord = "12345" Pword = InputBox ("Entrez le mot de passe") Si Pword<>Mot de passe Puis MsgBox "Le mot de passe n'est pas correct" Fin Fin Si

Où 12345 est le mot de passe pour démarrer le programme. Mais ce code peut être utilisé partout où vous le souhaitez.

Sortie des messages

Si vous souhaitez simplement afficher un message pour quelque chose, collez ceci :

Bip Dim message As String Dim boutons et icônes As Integer Dim titre As String message = "Message" title = "Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Dessiner sur le formulaire

Sous-formulaire privé Form_MouseDown (bouton en tant qu'entier, décalage en tant qu'entier, X en tant que simple, Y en tant que simple) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (bouton en tant qu'entier, décalage en tant qu'entier, X en tant que simple, Y en tant que Unique) Si Bouton = 1 Alors Ligne (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub

Vous pouvez changer la couleur en utilisant le paramètre QBColor(0), c'est-à-dire Au lieu de 0, mettez un autre chiffre.

Redémarrer l'ordinateur

Pour redémarrer votre ordinateur : placez le bouton et collez le code suivant :

Dim strComputer As String strComputer = "." Définir objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") Définir colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Pour Chaque ObjOperatingSystem dans colOperatingSystems ObjOperatingSystem.Reboot " Pour redémarrer Suivant

Lancer un programme en un seul exemplaire

L'exemple suivant vous aidera à exécuter le programme une seule fois, c'est-à-dire s'il est redémarré, il affichera un message correspondant. Insérez ce qui suit dans le code du formulaire :

Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "Le projet a déjà démarré !" Fin Fin Si

Éteindre l'ordinateur

Pour éteindre votre ordinateur, vous pouvez utiliser le code suivant :

Dim strComputer As String strComputer = "." Définir objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Définir colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Pour Chaque ObjOperatingSystem dans colOperatingSystems ObjOperatingSystem.ShutDown "Pour arrêter Suivant

Mettre fin à tout processus

Pour terminer le processus, vous pouvez utiliser le code suivant :

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

Où, au lieu d'ICQlite.exe, il peut y avoir n'importe quel processus.

Combien de temps dure l'ordinateur ?

Vous trouverez ci-dessous un exemple de la façon dont vous pouvez déterminer la durée de fonctionnement de l'ordinateur. Cette méthode est basée sur l'utilisation de la bibliothèque kernel32, donc au tout début du code du formulaire, connectez cette DLL.

Fonction de déclaration privée GetTickCount Lib "kernel32" () As Long "Et dans le code du bouton : Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "total secondes 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 "Votre ordinateur est en cours d'exécution " & Str(a_days) & " jours " & Str(a_hour) _ & " heures " & Str(a_minute) & " minutes" & Str(a_second) & " secondes"

Nous avons examiné des fonctions simples qui peuvent être utilisées presque partout. Regardons maintenant des exemples plus sérieux, et ils peuvent grandement vous aider à rédiger vos grands projets.

Exemples de travail avec des dossiers

Supprimer le répertoire

Fonction de déclaration privée RemoveDirectory& Lib _ "kernel32" Alias ​​​​"RemoveDirectoryA" (ByVal lpPathName As String) "Suppression du répertoire (vide !) PathName$ = "D:\t" code& = RemoveDirectory(PathName) Si code& = 0 Alors "Erreur suppression du répertoire Sinon "Répertoire supprimé Fin Si

Créer le répertoire

Sub MakeDir(dirname As String) Dim i As Long, chemin As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(path , 1)<>":" Et Dir$(path, vbDirectory) = "" Then MkDir path End If Loop Until i >= Len(dirname) End Sub Private Sub Command1_Click() Appel MakeDir("C:\Soft\1\2\3\ ") Fin du sous-marin

Liste tous les dossiers avec des sous-dossiers

Nous ajoutons 2 champs de texte et un bouton au formulaire, le nom du premier champ de texte est StartText, le nom du deuxième champ de texte est OutText. Propriété multiligne = true, nom du bouton = CmdStart

Statique en cours d'exécution en tant que booléen Dim AllDirs en tant que nouvelle collection Dim next_dir en tant qu'entier Dim dir_name en tant que chaîne Dim sub_dir en tant que chaîne Dim i en tant qu'entier Dim txt en tant que chaîne Si en cours d'exécution Puis en cours d'exécution = False CmdStart.Enabled = False CmdStart.Caption = "Arrêt" Sinon en cours d'exécution = 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 <>"" Si UCase$(sub_dir)<>"PAGEFILE.SYS" et sub_dir<>"." Et sous_rép<>".." Puis sub_dir = dir_name & "\" & sub_dir En cas d'erreur Reprendre ensuite Si GetAttr (sub_dir) Et vbDirectory Then AllDirs.Add sub_dir End If sub_dir = Dir$ (, vbDirectory) Boucle DoEvents Si ce n'est pas en cours d'exécution, Quittez Do Loop txt = "" Pour i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If

Maintenant, nous lançons le programme, écrivons dans le champ de texte StartText : C:\windows, et cliquons sur le bouton.

Taille du répertoire

Const MAX_PATH = 260 Type privé FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type 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 As String * MAX_P ATH cAlterner en tant que chaîne * 14 Type de fin Fonction de déclaration privée FindFirstFile Lib _ "kernel32" Alias ​​​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Fonction de déclaration privée FindNextFile Lib _ "kernel32" Alias ​​​​"FindNextFileA" (ByVal hFindFile As Long, lpFindFile Data 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 Dim dblSize As Double Dim sName As String Dim x As Long On Error Reprendre Next x = GetAttr (DirPath) If Err Then SizeOf = 0 : Quitter la fonction If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$ (EndSlash (DirPath) & "*.* ", vbSystem ou vbHidden ou vbDirectory) Si Err.Number = 0 Alors hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) Si hFind = 0 Alors quitter la fonction Do If (fdata.dwFileAttributes Et vbDirectory) = vbDirectory Alors sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Si sName<>"." Et sNom<>".." Puis 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 Reprendre 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() "Remplacez "D:\soft" par le répertoire dont vous souhaitez connaître la taille MsgBox SizeOf("D:\soft") / 1000000 Fin du sous-marin

Exemples de travail avec des fichiers

Copie

Disons que nous avons un fichier nommé 1.txt dans le dossier C:\1\ et que nous devons le copier dans C:\2\ pour ce faire, nous écrivons le code suivant :

Copie du fichier "C:\1\1.txt", "C:\2\1.txt"

Note! Si le répertoire 2 contient déjà un fichier nommé 1.txt, il sera remplacé par 1.txt du répertoire 1.

Fonction de déclaration privée CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Copier le fichier C:\1.txt vers D :\1.txt. Dim retval As Long " valeur de retour " Copier le fichier retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Si retval = 0 Alors "Si erreur MsgBox " Impossible de copier " Else " Si tout va bien MsgBox " Fichier copié. " End If End Sub

Suppression

Par exemple, nous souhaitons supprimer le fichier 1.txt de la racine du lecteur C:\

Tuer("C:\1.txt")

Méthode API

Fonction de déclaration privée DeleteFile Lib _ "kernel32.dll" Alias ​​​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() "Supprimer le fichier C:\Samples\anyfile.txt Dim retval As Long "Valeur de retour retval = DeleteFile( "C:\1.txt") Si retval = 1 Then MsgBox "Le fichier a été supprimé avec succès." Fin du sous-marin

En mouvement

Vous pouvez par exemple le déplacer comme ceci :

Copie de fichier "C:\1.txt", "C:\2\1.txt" Kill ("C:\1.txt")

Mais c'est mieux comme ça (via API) :

Fonction de déclaration privée MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long "Valeur de retour retval = MoveFile("C: \1 .txt", "C:\2\1.txt") Si retval = 1 Alors MsgBox "Déplacé avec succès" Sinon MsgBox "Erreur" End If End Sub

Renommer

Afin de renommer le fichier 1.txt situé dans C:\ en 2.txt vous pouvez utiliser le code suivant :

Copie de fichier "C:\1.txt", "C:\2.txt" Kill ("C:\1.txt")

Méthode API

Fonction de déclaration privée MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " valeur de retour retval = MoveFile("C: \1 .txt", "C:\2.txt") Si retval = 1 Alors MsgBox "Succès" Sinon MsgBox "Erreur" End If End Sub

Déterminer la taille du fichier

La taille du fichier peut être déterminée de deux manières :

Si le fichier peut être ouvert avec la fonction OPEN, alors vous pouvez utiliser la fonction LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Ouvrir "C:\WIN\GENERAL.TXT" pour la saisie en tant que FileFree FileSize = LOF (FileFree) Fermer FileFree

Ou utilisez la fonction FileLen

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

Masquer l'horloge par programme

Ajoutez 2 boutons et collez le code :

Option Fonction de déclaration privée explicite FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Fonction de déclaration privée 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 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 = "Masquer l'horloge" Command2.Caption = "Afficher l'horloge" End Sub

Ajouter une icône dans la barre d'état

Ajoutez un module et collez-y le code :

Déclarer la fonction 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 Type NOTIFYICONDATA cbSize As Long hWnd As Long uID 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 Comme NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Ou NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Icône nidTemp.szTip = tip & Chr$(0 ) SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp) Fonction de fin

Pour l'utiliser, insérez dans le code du formulaire :

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Pour supprimer un sous privé Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Bloquer le bouton de démarrage

Fonction de déclaration privée FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Fonction de déclaration privée 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 (facultatif activé comme Boolean = True) Dim lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Call EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click() EnableStartButton False "Bouton START est désactivé End Sub Private Sub Command2_Click() EnableStartButton True "Le bouton START n'est pas désactivé End Sub

Lecture des paramètres du fichier INI

Le programme se connecte à FTP et le fichier ini contient les paramètres - serveur, login, port, mot de passe.

Tout d'abord, créez un fichier INI :

Nom du serveur=utilisateur du serveur=Connexion pwd=mot de passe port=port

Il doit être placé dans le dossier du programme. Ensuite, insérez dans le module :

Fonction de déclaration privée 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 ​​​"GetPriv" ateProfileStringA" (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 Fonction publique ReadIni (Razdel As String, Param ) As String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Fonction de fin Fonction privée GetValue (Section ByVal sous forme de chaîne, Clé _ ByVal sous forme de chaîne, ByVal fFileName sous forme de chaîne, ByVal facultatif DefaultValue As String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) Si 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

Collez ensuite dans le code du formulaire :

Fonction de déclaration privée 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 Private Declare Function 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 dw Context As Long ) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

Et dans le code du bouton :

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Général", "nomserveur"), "0", _ ReadIni("Général", "utilisateur"), ReadIni( "Général", "pwd"), 1, 0, 0) Si FtpGetFile(rs&, "Votre fichier.txt", "chemin où", False, 0, 1, 0) = False Alors terminez l'appel InternetCloseHandle(rs&) Appel InternetFermeHandle (rc&)

Liste des processus en cours

Ajoutez une Listbox et 1 bouton, insérez le code suivant :

Option Fonction de déclaration privée explicite CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function 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 ) Const privé TH32CS_SNAPPROCESS Aussi long = 2& Const privé MAX_PATH Comme entier = 260 Type privé PROCESSENTRY32 dwSize Aussi long cntUsage Aussi long th32ProcessID Aussi long th32DefaultHeapID Aussi long th32ModuleID Aussi long cntThreads Aussi long th32ParentProcessID Aussi long pcPriClassBase Aussi long dwFlags Aussi long szExeFi le As String * MAX_PATH Type de fin Dim hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Si hSnapShot = 0 Alors quittez Sub End Si uProcess.dwSize = Len(uProcess) r = ProcessFirst (hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Appel en boucle CloseHandle(hSnapShot) End Sub

Mettre un programme au démarrage

Pour que le programme se charge avec Windows, comme certains autres programmes, vous pouvez utiliser le registre :

Ajoutez 2 boutons et le code suivant :

Private Sub Command1_Click() "Entrée de registre Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name de votre programme", _ "Chemin d'accès à votre programme" End Sub Private Sub Command2_Click() "Supprimer du registre Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name de votre programme" End Sub

Et pour que le programme se charge avec Windows, même en mode sans échec, alors le code suivant :

Tout d'abord, une méthode plus sérieuse (faire une copie de sauvegarde du registre au cas où).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Chemin d'accès à votre programme" End Sub Private Sub Command2_Click()" Ceci est pour la récupération Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe", End Sub

Eh bien, d'une manière simple.

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 ,Chemin d'accès à votre programme" End Sub Private Sub Command2_Click()"Pour restaurer Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C : \\WINDOWS\\system32\\userinit.exe," Fin du sous-marin

Masquer la barre des tâches

Ajoutez 2 boutons et collez le code :

Fonction de déclaration privée 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 Fonction FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Masquer le sous-commande privé1_Click() hwnd1 = FindWindow("Shell_traywnd", " ") Appelez SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Affiche le sous-privé Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Appelez SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) Fin du sous-marin

Décompressez les archives RAR

Afin de décompresser l'archive RAR, vous pouvez utiliser le code suivant :

WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "Nom du fichier.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)

Combien de RAM y a-t-il dans l'ordinateur

Ajoutez un bouton et collez le code suivant :

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Type privé TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Dim ms As TMemoryStatus Private Sub Commande1_Clic( ) ms.dwLength = Len(ms) Appeler GlobalMemoryStatus(ms) MsgBox "Total :" & ms.dwTotalPhys & vbCr & "Free :" _ & ms.dwAvailPhys & vbCr & "Utilisé en % :" & ms.dwMemoryLoad End Sub

Masquer les icônes du bureau

Cela se fait comme suit. Ajoutez 2 boutons et collez le code suivant :

Fonction de déclaration privée Showwindow & Lib "User32" (Byval Hwnd &, Byval NCMDSHOW &) Fonction de refus privée Lib _ "User" "ALIAS" Findwindowa (BYVAL LPCL LPCL "BYVAL LPCL Assname as String, Byval Lpwindowname as String) As Long Const Sw_Hide = 0 conste SW_normal = 1 Private Sub Command1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Appeler ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWindow("progman" , vbNullString) Appelez ShowWindow (hHandle, SW_NORMAL) End Sub

À l'aide du bouton Command1, les icônes sont masquées, Command2 - elles apparaissent.

C'est tout pour moi, j'espère que les exemples ci-dessus vous seront utiles, au revoir !