Eclipse est une plate-forme de développement extensible avec des runtimes et des plates-formes d'application pour créer, utiliser et gérer des logiciels tout au long de leur vie. cycle de la vie. Beaucoup de gens connaissent Eclipse en tant qu'IDE Java, mais Eclipse est en fait composé de plus de 60 projets open source différents, section

Open source gratuit Mac Windows Linux

NetBeans

IDE gratuit et open source pour les développeurs Logiciel. Vous disposez de tous les outils dont vous avez besoin pour créer des postes de travail professionnels, d'entreprise, Web et Applications mobiles en langage Java, C/C++ et même dans des langages dynamiques comme PHP, JavaScript, Groovy et Ruby

Open source gratuit 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 en ligne et travail conjoint pour vous aider, vous et votre équipe, à en faire plus. Comprend la prise en charge de PHP, CSS, FTP et plus encore.

Open source gratuit Mac Windows Linux

Komodo Modifier

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

Open source gratuit Mac Windows Linux

xcode

Xcode d'Apple est le principal environnement de développement pour Mac OS X. En plus d'être fourni sur disque avec chaque achat de Mac OS X, le plus une nouvelle version aussi toujours disponible pour Téléchargement Gratuit pour les membres de l'ADC ( réseau social pour les développeurs d'applications sur toutes les plates-formes Apple) et comprend tous les outils dont vous avez besoin pour créer, modifier et optimiser les applications que vous créez

Libre Mac

MonoDevelop

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 Web de bureau et ASP.NET pour Linux, Windows et Mac OSX. MonoDevelop permet aux développeurs de porter facilement des applications .NET créées dans Visual Studio vers Linux et Mac OSX tout en conservant une base de code unique sur toutes les plateformes

Open source gratuit Mac Windows Linux. NET Framework Studio Xamarin

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 manquante du puzzle qui vous permettra de développer des programmes de type Delphi pour toutes les plateformes ci-dessus. Étant donné que le même compilateur est disponible sur toutes les plates-formes ci-dessus, cela signifie que vous n'avez pas à recoder pour créer des produits identiques pour différentes plates-formes.

Open source gratuit Mac Windows Linux BSD OpenSolaris

webstorm

JetBrains WebStorm est un environnement de développement commercial JavaScript, CSS et HTML basé sur la plate-forme JetBrains IntelliJ IDEA.
WebStorm fournit complétion automatique analyse de code, analyse de code à la volée, prise en charge de la refactorisation et 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 Plateforme Microsoft. C'est 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 De base

LEÇON 1: Introduction à l'environnement de programmation petit De base .

Cible: introduire avec le langage de programmation Small Basic.

Tâches:

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

Apprenez à travailler dans cet environnement de programmation. P se familiariser avec "l'objet texte" de l'environnement Petit Basique.

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

Les principales missions pédagogiques du projet :

Éducation des qualités personnelles : détermination, attention, précision, objectivité dans l'estime de soi, responsabilité, intérêt cognitif.

Les principales tâches de développement du projet :

Former chez les étudiants des compétences clés qui contribuent à une adaptation sociale réussie;

Développer le désir d'auto-développement et de croissance personnelle par l'activité cognitive.

Connaître: Concepts de base : objet, variables, affectation, types de données, entrée-sortie.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. Ecrire des programmes linéaires simples.

Equipement et matériel : notes de cours de base (cf.Pièce jointe 1 ), cartes à tâches, PC, application Small Basic, tableau blanc, projecteur multimédia, écran.

Pendant les cours :

Organisation du temps

1. Préparation de la leçon

   Mise à jour des connaissances

Explication du nouveau matériel

Consolidation du matériel étudié

1. Questions connexes

Résumé

1. Classement

   Devoirs

Organisation du temps

1. Préparation de la leçon (vérifier l'état de préparation pour la leçon, marquer absent)

   Mise à jour des connaissances

A quoi sert la programmation ?

Vous voulez écrire un résumé en biologie. Très probablement, vous l'écrivez sur un ordinateur dans un éditeur de texte. Et d'où vient-il éditeur de texte? Bien sûr, les programmeurs l'ont écrit. Vous chercherez des informations sur Internet à l'aide d'un navigateur que les programmeurs ont également écrit. Après avoir écrit votre essai, vous voudrez vous détendre et jouer jeu d'ordinateur, qui à nouveau a été écrit par des programmeurs. En général, travailler sur un ordinateur est impossible sans l'utilisation de programmes que les programmeurs écrivent. Donc, s'il n'y avait pas de programmation, il n'y aurait pas de programmes, et l'ordinateur serait un tas de matériel coûteux, car il est impossible de faire quelque chose avec l'aide d'un ordinateur sans programmes.

Étapes de la résolution de problèmes.

Concepts de base

Programmation - programmes d'écriture.

Programme Algorithme écrit dans un langage de programmation compréhensible par un ordinateur.

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

En programmation orientée objet la notion d'objet est introduite, des mécanismes de calcul sont mis en place qui permettent :

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

La théorie

Première rencontre

Microsoft Small Basic - langage de programmation développé par . Conçu pour les développeurs novices 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 intégrée à l'environnement de développement pour tous les éléments du langage

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

Un avantage particulier de BASIC doit être considéré comme 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 de sortie

WriteLine("Bonjour !")

Affiche une chaîne (texte ou Numéro )

Bonjour!

Pour obtenir le résultat - la sortie du texte "Hello!" à l'écran - vous devez écrire un programme :

TextWindow.WriteLine("Salut !")

Le programme est entré dans la fenêtrepetitDe baseet commencer avec un boutonlancement ou clé F 5

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

La chaîne 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 que l'objet peut faire, c'est-à-dire qu'ilopérations (les opérateurs )

Paramètre les opérations sont entre parenthèses WriteLine()

Même 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

le noir

blanche

rouge

jaune

vert

bleu

le noir

blanche

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'un nombre

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

valeur de chaîne

un = un + 5

Prendre la valeur de la variable a

Ajoutez-y 5

Attribuez une nouvelle valeur à la variable a, en supprimant la précédente

La variable est de deux types: Numéro et ligne

10, -5, 3.14 "informatique"

Plier +

Multiplier *

Diviser /

Actions mathématiques :

Sinus, logarithme, racine

colle

Diviser en parties

Symboles de recherche

Remplacer les caractères

EXEMPLE avec opérateur "+"

expression

résultat

expression

résultat

"ivan" + "ova"

"ivanova"

"classe" + 10

"classe 10"

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( Numéro)

cosinus

Plafond mathématique (nombre)

arrondit à un nombre entier

Math.GetDegrees( Numéro)

convertir un nombre de radians en degrés

Math. GetRandomNumber( nombremax)

Nombre aléatoire dans la plage de 1 ànombremax

NaturalLog(nombre)

un algorithme naturel

Math Pi

Pi

Math.Puissance( baseNumber, exposant)

À oélever baseNamber à la puissance de l'exposant

Math. max(nombre1,nombre2)

Maximum de deux numéros

Math. Reste (dividende, diviseur)

Reste de la division

Math .Sin(nombre)

Sinus

Math. bronzer(Numéro)

Cosinus

Math .ScuareRoot(nombre)

Racine

Math. Tour(Numéro)

Arrondi normal

Math .ArcSin(nombre)

Arcsinus

Math. sol(Numéro)

Arrondit au plus petit entier le plus proche

x=TextWindow.ReadNumber()

y=Math.Abs(x)

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

Math Pi

Fixation du matériel

1. Indépendant Travaux pratiques pour PC

Tâches pour le travail indépendant

Exercice 1 :

Définir les résultats finaux des déclarations d'affectation

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

Tâche 2 : Ecrire un programme pour calculer le produit de 3 variables :un , b et c .

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

Tâche 4 : Ecrire un programme pour sortir les valeurs de X etOui, selon la tâche 1.

Tâche 5 : Écrire un programme pour trouver le discriminant

Tâche 6 : évaluer des 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 \u003d (quand un \u003d 2, b=6, c=4 , X 1=-1, X 2=-2)

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

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

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

Des questions

Qu'est-ce qu'un programme ?

A quoi servent les langages de programmation ?

Nom éléments basiques programmation orientée objet?

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

Que signifie l'opérateur d'affectation :

Quels types de données sont utilisés dans Petit basique ?

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

Résumé

1. Classement

   Devoirs

Travailler avec un résumé

préparer un message sur le thème : "Une variété de langages de programmation"

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

Application

OK 1 : Fondamentaux de la programmation dans le langage petit De base .

Programmation - programmes d'écriture.

ALGORITHME + LANGAGE DE PROGRAMMATION= PROGRAMME

Variable

la variable aNom - Lettre latine (Par exemple,un , À , x1 , C9 )

Une variable peut être affectée d'une valeur

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

La variable est de deux types: Numéro et ligne (séquence de caractères)

10, -5, 3.14 "informatique"

Plier +

Multiplier *

Diviser /

Actions mathématiques :

Sinus, logarithme, racine

colle

Diviser en parties

Symboles de recherche

Remplacer les caractères

Programmation

TextWindow- c'est objet "fenêtre avec texte" , dans lequel le texte peut être affiché.

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

le noir

blanche

rouge

jaune

vert

bleu

le noir

blanche

Petits opérateurs de base

Opérateur "+"

Principaux opérateurs

Utiliser dans une expression fonctions mathématiques

Écrire 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 à "+y)

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êtrepetitDe baseet commencer avec un boutonlancement ou clé F 5.

Ligne Presse n'importe quel clé Continuez ...moyens " Appuyez sur n'importe quelle touche pour continuer

Bonjour à tous, dans cet article je veux vous montrer des codes utiles pour les petits programmes. Que vous pouvez utiliser pour écrire vos propres programmes plus sérieux, ou vous recherchiez exactement ces fonctions qui sont 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, eh bien, 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 vous ouvrirez une fenêtre d'édition de code, et là vous devez coller le code suivant :

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String Dim response As String message = "Voulez-vous quitter ?" 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 Password, Pword PassWord = "12345" Pword = InputBox("Entrez le mot de passe") Si Pword<>PassWord Then MsgBox "Mot de passe incorrect" End End If

Où, 12345 est le mot de passe pour exécuter le programme. Mais ce code peut être utilisé où vous voulez.

Sortie des messages

Si vous voulez juste afficher un message pour quelque chose, alors mettez ceci dans :

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

Dessiner sur le formulaire

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

Vous pouvez modifier la couleur à l'aide du paramètre QBColor(0), c'est-à-dire remplacer 0 par un autre nombre.

Redémarrage de l'ordinateur

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

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

Exécution du programme en une seule copie

L'exemple suivant vous aidera à exécuter le programme une seule fois, c'est-à-dire en cas de redémarrage, il émettra un message correspondant. Collez le code du formulaire :

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

Éteindre l'ordinateur

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

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

Terminer 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 de ICQlite.exe, il peut y avoir n'importe quel processus.

Combien de temps fonctionne un ordinateur

Voici un exemple de la façon dont vous pouvez déterminer la disponibilité de l'ordinateur. Cette méthode est basé sur l'utilisation de la bibliothèque kernel32, donc au tout début du code du formulaire, incluez cette DLL.

Private Declare Function GetTickCount Lib "kernel32" () As Long "Et dans le code du bouton : Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "nombre total de 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 a fonctionné " & Str(a_days) & " jours " & Str(a_hour) _ & " heures " & Str(a_minute) & " minutes" & Str(a_second) & " secondes"

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

Exemples de dossiers

Supprimer le répertoire

Private Declare Function RemoveDirectory& Lib _ "kernel32" Alias ​​​​"RemoveDirectoryA" (ByVal lpPathName As String) "Suppression du répertoire (vide !) PathName$ = "D:\t" code& = RemoveDirectory(PathName) If code& = 0 Then "Erreur suppression du répertoire Sinon "Répertoire supprimé Fin Si

Créer un répertoire

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 , une)<>":" 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\ ") Fin de sous-titre

Lister tous les dossiers avec 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

Exécution statique 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 = "Stopping" Else running = 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 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) Loop DoEvents If Not running Then Exit Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If

Maintenant, nous exécutons le programme, dans le champ de texte StartText, nous écrivons : C:\windows, et cliquez sur le bouton.

Taille du répertoire

Const MAX_PATH = 260 Type privé FILETIME dwLowDateTime As Long dwHighDateTime As Long Type de fin Type privé 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_PATH cAlternate As 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 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 Resume Next x = GetAttr(DirPath) If Err Then SizeOf = 0 : Quitter la fonction Si (x et vbDirectory) = vbDirectory Alors dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & "*.*", vbSystem Ou vbHidden Ou vbDirectory) Si Err.Number = 0 Alors hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) If hFind = 0 Then Exit Function Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Si sName<>"." Et sName<>".." Alors 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 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 de MsgBox SizeOf("D:\soft") / 1000000 End Sub

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 cela nous écrivons le code suivant :

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

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

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() " Copier le fichier C:\1.txt to D :\1.txt. Dim retval As Long " return value "Copy file retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If MsgBox échec" Impossible de copier" Sinon "Si OK MsgBox "Fichier copié." End If End Sub

Suppression

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

Tuer("C:\1.txt")

Méthode API

Private Declare Function 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 "Return Value retval = DeleteFile( "C:\1.txt") Si retval = 1 Then MsgBox "Fichier supprimé avec succès." fin sous

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):

Private Declare Function 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") If retval = 1 Then MsgBox "Déplacement réussi" Else MsgBox "Error" 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

Private Declare Function 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") If retval = 1 Then MsgBox "Success" Else MsgBox "Error" 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 Open "C:\WIN\GENERAL.TXT" For Input As FileFree FileSize = LOF(FileFree) Close FileFree

Ou utilisez la fonction FileLen

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

Masquer l'horloge par programmation

Ajoutez 2 boutons et collez le code :

Option Explicit Private Declare Function FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib _ "user32" Alias ​​​​"FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function 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 au plateau

Ajoutez un module, collez-y le code :

Déclarez 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 Type de fin Fonction publique 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 Ou NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Icône nidTemp.szTip = tip & Chray$(0) = Shell_NotifyIconA(Mode, nidTemp) End Function

Pour utiliser coller dans le code du formulaire :

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

Blocage du 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(Optional Enabled As 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 "Start button désactivé End Sub Private Sub Command2_Click() EnableStartButton True "Le bouton Démarrer n'est pas désactivé End Sub

Lecture des paramètres du fichier INI

Le programme se connecte au FTP et les paramètres sont écrits dans le fichier ini - serveur, identifiant, port, mot de passe.

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

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

Il doit être placé dans le dossier avec le 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 Fonction de déclaration privée 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 Public Function ReadIni(Razdel As String, Param) As Chaîne ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") End Function Private Function GetValue(ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, ByVal DefaultValue As facultatif String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) Si GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Alors GetValue = Left$(Data, InStr( Données$, Chr$(0)) - 1 ) Sinon GetValue = DefaultValue Fin si Quitter la fonction Fin de la fonction

Collez ensuite 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 Fonction de déclaration privée 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&

Et dans le code du bouton :

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

Liste des processus en cours d'exécution

Ajoutez une Listbox et 1 bouton, collez le code suivant :

Option Explicit Private Declare Function 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 ) Privé Const TH32CS_SNAPPROCESS As Long = 2& Privé Const MAX_PATH As Integer = 260 Type privé 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 As String dwFlags As Long *MAX_ExeFile End TypeSnapho DimSnaphot Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If hSnapShot = 0 Then Exit Sub End If 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

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() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "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\Nom de votre programme" End Sub

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

Pour commencer, une manière plus sérieuse (à faire au cas où sauvegarde enregistrement).

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, le moyen le plus 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," End Sub

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 "Masque la sous-commande privée1_Click() hwnd1 = FindWindow("Shell_traywnd", " ") Appelez SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Show Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Appelez SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Décompressez l'archive RAR

Pour décompresser une 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 est 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 dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwAvailPageFile As Long As Long End Type Dimmory ) ms.dwLength = Len(ms) Call 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 de la manière suivante. Ajoutez 2 boutons et collez le code suivant :

Fonction de déclaration privée ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Fonction de déclaration privée FindWindow Lib _ "user32" Alias ​​"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) Appel ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Appel ShowWindow (hHandle , SW_NORMAL) End Sub

En utilisant le bouton Command1, les icônes sont masquées, Command2 - apparaît.

C'est tout ce que j'ai, j'espère que les exemples ci-dessus vous seront utiles, bye !