Alternativas para reemplazar Microsoft Small Basic. Lección de informática y TIC sobre el tema: "Introducción al entorno de programación Small Basic" Ejemplos de trabajo con carpetas

Conceptos básicos de programación.

Lenguaje de programación Pequeña Básico

LECCIÓN 1: Familiaridad con el entorno de programación. Pequeña Básico .

Objetivo: Familiarizar con el lenguaje de programación Small Basic.

Tareas:

Empiece a aprender un lenguaje de programación Pequeño básico. Dar el concepto de POO (Programación Orientada a Objetos)

Enseñar a trabajar en este entorno de programación. NS familiarizarse con el "objeto de texto" del entorno Pequeño básico.

Dar la primera idea de crear programas en un entorno de programación.

Las principales tareas educativas del proyecto:

Educación de las cualidades personales: dedicación, atención, precisión, objetividad en la autoestima, responsabilidad, interés cognitivo.

Las principales tareas de desarrollo del proyecto:

Formar en los estudiantes competencias clave que contribuyan a una adaptación social exitosa;

Desarrollar el deseo de autodesarrollo y crecimiento personal a través de la actividad cognitiva.

Saber: Conceptos básicos: objeto, variables, asignación, tipos de datos, entrada-salida.Conocer los elementos constitutivos del entorno de programación Small Basic.

Ser capaz de: Cargue el programa Smal Basic. Cree los proyectos más simples en un entorno de programación determinado. Ser capaz de ingresar funciones matemáticas y escribir expresiones matemáticas en el lenguaje Smal Basic. Cree programas lineales simples.

Equipo y material: notas de apoyo de la conferencia (ver.Anexo 1 ), tarjetas de tareas, PC, aplicación Small Basic, pizarra, proyector multimedia, pantalla.

Durante las clases:

Organizando el tiempo

1. Preparación de la lección

   Actualización de conocimientos

Explicación del nuevo material

Consolidación del material estudiado

1. Preguntas sobre el tema

Resumiendo

1. Calificación

   Tarea

Organizando el tiempo

1. Preparación para la lección (verifique la preparación para la lección, marque el ausente)

   Actualización de conocimientos

¿Para qué sirve la programación?

Quieres escribir un resumen en biología. Lo más probable es que lo escriba en su computadora en algún editor de texto. ¿De dónde vino el editor de texto? Por supuesto, los programadores lo escribieron. Buscará información en Internet utilizando un navegador que también fue escrito por programadores. Después de escribir su resumen, querrá descansar y jugar. juego de ordenador, que nuevamente fue escrito por los programadores. En general, trabajar en una computadora es imposible sin utilizar programas escritos por programadores. Esto significa que si no hubiera programación, no habría programas y una computadora sería un montón de hardware costoso, porque es imposible hacer algo usando una computadora sin programas.

Etapas de resolución de problemas.

Conceptos básicos

Programación - programas de escritura.

Programa - un algoritmo escrito en un lenguaje de programación comprensible para una computadora.

Algoritmo - una secuencia clara de acciones destinadas a lograr el objetivo.

En programación orientada a objetos Se ha introducido el concepto de objeto, se han implementado mecanismos de cálculo que permiten:

Describe la estructura de un objeto.

Describe acciones con objetos.

Utilice reglas especiales para la herencia de objetos (La herencia significa crear nuevos objetos a partir de los existentes)

Establecer el grado de protección de los componentes del objeto

Teoría

Primera cita

Microsoft pequeño Básico - un lenguaje de programación desarrollado por la empresa. Diseñado para desarrolladores principiantes que desean comprender los conceptos básicos del desarrollo de software.

Ventajas principales:

Un entorno de desarrollo muy simple: un editor de texto con información sobre herramientas multifuncional y solo unos pocos botones para editar texto y ejecutar programas.

Lenguaje simple con solo 20 palabras clave

Documentación contextual para todos los elementos del lenguaje integrados en el entorno de desarrollo.

La capacidad de ampliar los componentes Small Basic para incluir funciones adicionales. (Por ejemplo, la entrega ya incluye oportunidades para trabajar con servicios)

Una ventaja especial de BASIC debe considerarse la capacidad de trabajar en el modo de interpretación, lo que simplifica enormemente el proceso de depuración de programas: la ejecución de casi todos los comandos se puede verificar inmediatamente después de la escritura.

Declaración de inferencia

WriteLine ("¡Hola!")

Muestra la línea (texto o número )

¡Oye!

Para obtener el resultado, envíe el texto "¡Hola!" a la pantalla - necesitas escribir un programa:

TextWindow.WriteLine ("¡Hola!")

El programa se ingresa en la ventanaPequeñaBásicoy se inicia con el botónCorriendo o por clave F 5

El resultado del programa es la salida del texto: "¡Hola!" vCaja de texto programas.

La línea significa "Presione cualquier tecla para continuar ..."

Una ventana de texto es un objeto de ventana de texto en el que se puede mostrar texto.

El objeto posee propiedades y métodos.

Método de objeto algo que el objeto es capaz de hacer, es decir, esoperaciones (operadores )

Parámetro la operación está entre paréntesis WriteLine()

Mismo objeto caja de texto posee propiedades (estas son las características del objeto) , por ejemplo

Propiedad BackgroundColor: establece el color de fondo del texto,Color de primer plano- color de texto

Colores:

rojo

amarillo

verde

azul

negro

blanco

rojo

amarillo

verde

azul

negro

blanco

Variable

Las variables se utilizan a menudo para crear programas.

La variable tienenombre - letra latina (a)

A una variable se le puede asignar un valor, como un valor numérico

a= 5, donde el signo " = " - este es operador de asignación

Valor de cadena

a = a + 5

Toma el valor de la variable a

Suma 5

Poner el nuevo valor de la variable a, borrando el anterior.

Hay dos tipos de variable: número y línea

10, -5, 3,14 "informática"

Doblar +

Multiplica *

Dividir /

Acciones matemáticas:

Seno, logaritmo, raíz

Pegamento

Dividir en partes

Símbolos de búsqueda

Reemplazar personajes

EJEMPLO con operador "+"

expresión

resultado

expresión

resultado

"Iván" + "óvulos"

"Ivanova"

"Clase" + 10

"Clase 10"

Programación

Ejemplo 1: resultado del programa

Ejemplo 2: resultado del programa

Ejemplo 3: el programa calcula y muestra la suma de dos variablesa y B

Math.Abs ​​(namber)

módulo

Math.Cos ( namber)

coseno

Math.Ceiling (namber)

se redondea a un número entero

Math.GetDegrees ( namber)

convertir un número de radianes a grados

Math.GetRandomNumber ( maxnamber)

Un número aleatorio en el rango de 1 amaxnamber

NaturalLog (namber)

Logaritmo natural

Math.Pi

Pi

Math.Power ( baseNamber, exponente)

V omultiplicar baseNamber por exponente

Matemáticas. Max (número1, número2)

Máximo de dos números

Matemáticas. Resto (dividendo, divisor)

Resto de la división

Matemáticas .Sin (namber)

Seno

Matemáticas. Broncearse(namber)

Coseno

Matemáticas .ScuareRoot (namber)

Raíz

Matemáticas. Ronda(namber)

Redondeo normal

Matemáticas .ArcSin (namber)

Arcsine

Matemáticas. Suelo(namber)

Redondea al entero más pequeño más cercano

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y es igual a "+ y)

Math.Pi

Asegurar el material

1. Uno mismo trabajo practico para PC

Asignaciones para Trabajo independiente

Ejercicio 1:

Determinar los resultados finales de los operadores de asignación

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

Tarea 2 : Cree un programa para calcular el producto de 3 variables:a , B y C .

Tarea 3 : Haz un programa para calcular la expresión:z=5* X+ y/ 2 (siempre que x = 10,y=100)

Tarea 4: Cree un programa para generar los valores de X yY, según la tarea 1.

Tarea 5: Crea un programa para encontrar al discriminante

Tarea 6 : evaluar expresiones

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Porque 2 (Pi/4)+ Pecado 2 (Pi/2) (1 )

( 1)

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

X 1,2 = (para a = 2, B=6, C=4 , X 1=-1, X 2=-2)

Z= ln (y)-3 ( a y = 3, z = -1,901 ...)

С = (para a=4, B=9, C=13)

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

Preguntas

¿Qué es un programa?

¿Para qué sirven los lenguajes de programación?

¿Cuáles son los elementos básicos de la programación orientada a objetos?

¿Qué operaciones se pueden realizar en el "cuadro de texto"?

Qué significa el operador de asignación:

¿Qué tipos de datos se utilizan en¿Pequeño básico?

¿Cómo se escriben las declaraciones de E / S?

Resumiendo

1. Calificación

   Tarea

Trabaja con notas de apoyo

preparar un mensaje sobre el tema: "Una variedad de lenguajes de programación"

Hacer un programa calcular el área de un triángulo usando la fórmula de Heron

Solicitud

OK 1: Fundamentos de la programación en el lenguaje Pequeña Básico .

Programación - programas de escritura.

ALGORITMO + LENGUAJE DE PROGRAMACIÓN= PROGRAMA

Variable

La variable tienenombre - Letra latina (por ejemplo,a , V , x1 , C9 )

A una variable se le puede asignar un valor

Ejemplo: a = 5 , donde la señal " = " - este es operador de asignación

Hay dos tipos de variable: número y línea (secuencia de caracteres)

10, -5, 3,14 "informática"

Doblar +

Multiplica *

Dividir /

Acciones matemáticas:

Seno, logaritmo, raíz

Pegamento

Dividir en partes

Símbolos de búsqueda

Reemplazar personajes

Programación

TextWindow- este es objeto de ventana de texto donde puede mostrar texto.

Parámetro de operación entre corchetes - WriteLine()

Un objeto caja de texto posee propiedades , por ejemplo

Propiedad Color de fondo - establece el color de fondo del texto,Color de primer plano - color de texto

Colores utilizados:

rojo

amarillo

verde

azul

negro

blanco

rojo

amarillo

verde

azul

negro

blanco

Pequeños operadores básicos

operador "+"

Operadores básicos

Usar funciones matemáticas en expresión

Escribir expresiones matemáticas complejas Math.Pi TextWindow.WriteLine ("ingrese un valor para la variable x")

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y es igual a "+ y)

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

Programa para calcular la suma de dos variablesa y B

TextWindow.WriteLine ("ingrese el valor de la variable a")

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("ingrese un valor para b")

b = TextWindow.ReadNumber ()

s = a + b

TextWindow.WriteLine (" la suma de los números es "+ s)

El programa se ingresa en la ventanaPequeñaBásicoy se inicia con el botónCorriendo o por clave F 5.

Línea prensa alguna llave Seguir ... medio " Pulse cualquier tecla para continuar

Hola a todos, en este artículo quiero mostraros códigos útiles pequeños programas. Que puede usar para escribir sus propios programas más serios, bueno, o estaba buscando exactamente estas funciones, que se describen aquí.

Todos los códigos se utilizaron en el entorno de programación Microsoft Visual Basic v6.0.

Salir con confirmación

El primer tipo de programa o función es una salida con un mensaje de confirmación de salida. En general, abierto los miércoles Programación visual Básico, cree un proyecto estándar, luego coloque un botón en el formulario, haga clic en el botón y verá la ventana de edición de código, y allí debe insertar el siguiente código:

Pitido Mensaje atenuado Como cadena Atenuar botones e íconos Como entero Atenuar título Como cadena Atenuar respuesta Como Cadena mensaje = "¿Desea salir?" title = "(! LANG: Salir" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Contraseña para iniciar el programa

Dim Password, Pword PassWord = "12345" Pword = InputBox If Pword<>PassWord Then MsgBox "La contraseña no es correcta" Finalizar Finalizar si

Donde, 12345 es la contraseña para iniciar el programa. Pero este código se puede utilizar donde quieras.

Visualización de un mensaje

Si solo desea mostrar un mensaje, para algo, inserte esto:

Bip Mensaje atenuado Como cadena Botones atenuados e íconos Como entero Atenuado título Como cadena mensaje = "Mensaje" título = "(! LANG: Mensaje" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Dibujando en un formulario

Private Sub Form_MouseDown (Botón como entero, Mayús como entero, X como único, Y como único) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (Botón como entero, Cambio como entero, X como único, Y como Único) Si Botón = 1 Entonces Línea (Form1.CurrentX, Form1.CurrentY) - (X, Y), QBColor (0) End If End Sub

Puede cambiar el color usando el parámetro QBColor (0), es decir reemplace 0 con otro dígito.

Reinicie su computadora

Para reiniciar su computadora: coloque el botón y pegue el siguiente código:

Dim strComputer como cadena strComputer = "." Establecer objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = suplantar, (Apagar))! \\" _ & strComputer & "\ root \ cimv2") Establecer colOperatingSystems = objWMIService.ExeperacQuery ("Seleccione * de Win32_O En colOperatingSystems ObjOperatingSystem.Reboot "Para reiniciar Siguiente

Ejecutando el programa en una sola copia

El siguiente ejemplo le ayudará a hacer que el programa se ejecute solo una vez, es decir, en caso de reinicio, mostrará el mensaje correspondiente. Insertar en el código del formulario:

Private Sub Form_Load () Si App.PrevInstance = True Entonces MsgBox "¡El proyecto ya se está ejecutando!" Fin Fin Si

Apagado de la computadora

Para apagar la computadora, puede usar el siguiente código:

Dim strComputer como cadena strComputer = "." Establecer objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = suplantar, (Apagar))! \\" _ & strComputer & "\ root \ cimv2") Establecer colOperatingSystems = objWMIService.ExeperacQuery ("Seleccionar * de Win32_O En colOperatingSystems ObjOperatingSystem.ShutDown "Para apagar Siguiente

Finalización de cualquier proceso

Para completar el proceso, puede utilizar el siguiente código:

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

Donde, en lugar de ICQlite.exe, puede haber cualquier proceso.

¿Cuánto tiempo funciona la computadora?

A continuación se muestra un ejemplo de cómo puede determinar el tiempo de funcionamiento de su computadora. Este método se basa en el uso de la biblioteca kernel32, así que incluya esta DLL al principio del código del formulario.

Función de declaración privada GetTickCount Lib "kernel32" () As Long "Y en el código del botón: Dim a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" solo segundos 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 "Su computadora está funcionando" & Str (a_days) & "" & Str (a_hour) _ & "hours" & Str (a_minute) & "minutes" & Str (a_second) & "seconds"

Hemos cubierto funciones simples que se pueden usar en casi cualquier lugar. Ahora veamos ejemplos más serios, y pueden ayudarlo enormemente a escribir sus grandes proyectos.

Ejemplos de trabajo con carpetas

Eliminar directorio

Función de declaración privada RemoveDirectory & Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName como cadena) "Eliminar directorio (¡vacío!) PathName $ =" D: \ t "código & = RemoveDirectory (PathName) Si código & = 0 A continuación, "Error al eliminar el directorio. Else" Directorio eliminado Finalizar si

Crear directorio

Sub MakeDir (dirname As String) Dim i As Long, path As String Do i = InStr (i + 1, dirname & "\", "\") path = Left $ (dirname, i - 1) If Right $ (path , 1)<>":" And Dir $ (ruta, vbDirectory) = "" Luego MkDir ruta End If Loop until i> = Len (dirname) End Sub Private Sub Command1_Click () Call MakeDir ("C: \ Soft \ 1 \ 2 \ 3 \ ") Fin Sub

Lista de todas las carpetas con subcarpetas

Agregue 2 campos de texto y un botón al formulario, el nombre del primer campo de texto: StartText, el nombre del segundo campo de texto OutText. Propiedad multilínea = verdadero, nombre del botón = CmdStart

Estático en ejecución como Boolean Dim AllDirs como nueva colección Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i Como Integer Dim txt Como cadena Si se está ejecutando Entonces en ejecución = False CmdStart.Enabled = False CmdStart.Caption = "Deteniendo" Else running = True MousePointer = vbHourglass CmdStart.Caption = "Detener" 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" y sub_dir<>"." Y sub_dir<>".." Entonces sub_dir = dir_name & "\" & sub_dir En caso de error Continuar siguiente Si GetAttr (sub_dir) Y vbDirectory Luego AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) Loop DoEvents Si no se está ejecutando Luego Salir Do Loop txt = "" Para i = 1 A AllDirs.Count txt = txt & AllDirs (i) & vbCrLf Siguiente i OutText.Text = txt MousePointer = vbDefault unning = False End If

Ahora ejecutamos el programa, en el cuadro de texto StartText escriba: C: \ windows, y haga clic en el botón.

Tamaño del catálogo

Const MAX_PATH = 260 Tipo privado FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Privado Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime Asistir como FILETTIME ftLast FILE Asrite FILETIME ftLastWriteTime como FILETHIME Asrite Asrite Asrite FILE Lib _ "kernel32" Alias ​​"FindFirstFileA" (ByVal lpFileName como cadena, lpFindFileData como WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" Alias ​​"FindNextFileA" (Por AsFile Long hFind Declarar WIN32_FIND_DreATA) As FindClose Lib _ "kernel32" (ByVal hFindFile As Long) As Long Función pública 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 Tan largo en error Reanudar Siguiente x = GetAttr (DirPath) If Err Then SizeOf = 0: Función de salida If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & "*. *", VbSystem O vbHidden O vbDirectory) If Err.Number = 0 Then 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<>"." Y sName<>".." Entonces 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 Función privada EndSlash (ByVal PathIn As String) Como String If Right $ (PathIn, 1) = "\" Entonces EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load () "Reemplaza" D: \ soft "con el directorio en el que quieres saber el tamaño de MsgBox SizeOf (" D: \ soft ") / 1000000 End Sub

Ejemplos de trabajo con archivos

Dupdo

Digamos que tenemos un archivo llamado 1.txt en la carpeta C: \ 1 \, y necesitamos copiarlo a C: \ 2 \ para esto escribimos el siguiente código:

Copia de archivo "C: \ 1 \ 1.txt", "C: \ 2 \ 1.txt"

¡Nota! Si ya hay un archivo llamado 1.txt en el directorio 2, será reemplazado por 1.txt del directorio 1.

Función de declaración privada CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click () "Copiar archivo C: \ 1.txt a D: \ 1.txt. Dim retval As Long "valor de retorno" Copiar archivo retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) If retval = 0 Then "If MsgBox error "No se puede copiar" Else "Si todo está bien MsgBox" Archivo copiado ". End If End Sub

Eliminando

Por ejemplo, queremos eliminar el archivo 1.txt de la raíz de la unidad C: \

Matar ("C: \ 1.txt")

Forma API

Función de declaración privada DeleteFile Lib _ "kernel32.dll" Alias ​​"DeleteFileA" (ByVal lpFileName como cadena) As Long Private Sub Command1_Click () "Eliminar archivo C: \ Samples \ anyfile.txt Dim retval As Long" Valor devuelto retval = DeleteFile ("C: \ 1.txt") Si retval = 1 Entonces MsgBox "Archivo eliminado correctamente". End Sub

Moviente

Puede, por ejemplo, moverlo así:

Copia de archivo "C: \ 1.txt", "C: \ 2 \ 1.txt" Kill ("C: \ 1.txt")

Pero es mejor así (a través de API):

Función de declaración privada MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName como cadena, ByVal lpNewFileName como cadena) As Long Private Sub Command1_Click () Dim retval As Long "Valor devuelto retval = MoveFile (" C: \ 1 .txt "," C: \ 2 \ 1.txt ") Si retval = 1 Entonces MsgBox" Movido exitosamente "Else MsgBox" Error "End If End Sub

Renombrar

Para cambiar el nombre del archivo 1.txt ubicado en C: \ a 2.txt, puede usar el siguiente código:

Copia de archivo "C: \ 1.txt", "C: \ 2.txt" Kill ("C: \ 1.txt")

Forma API

Función de declaración privada MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName como cadena, ByVal lpNewFileName como cadena) As Long Private Sub Command1_Click () Dim retval As Long "valor devuelto retval = MoveFile (" C: \ 1 .txt "," C: \ 2.txt ") Si retval = 1 Entonces MsgBox" Success "Else MsgBox" Error "End If End Sub

Determinar el tamaño del archivo

El tamaño del archivo se puede determinar de dos formas:

Si el archivo se puede abrir con la función ABRIR, entonces puede usar la función LOF

Atenuar FileFree como entero Atenuar FileSize As Long FileFree = FreeFile Abrir "C: \ WIN \ GENERAL.TXT" Para la entrada como FileFree FileSize = LOF (FileFree) Cerrar FileFree

O use la función FileLen

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

Ocultar el reloj mediante programación

Agrega 2 botones y pega el código:

Opción Función de declaración privada explícita FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) Como función de declaración privada larga FindWindowEx Lib _ "user32" Alias ​​"FindWindowExA" _ (ByVal hWnd1 como Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Función ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click () ShowW hnd, 0 End Sub Private Sub Command2_Click () ShowWindow hnd, 1 End Sub Private Sub Form_Load () hnd = FindWindow ("Shell_TrayWnd", vbNullString) hnd = FindWindowEx (hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx ( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Ocultar reloj" Command2.Caption = "Mostrar reloj" End Sub

Agregar icono a la bandeja

Agregue un módulo, pegue el código en él:

Declare la función Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage tan largo, lpData como NOTIFYICONDATA) como entero Const público NIM_ADD = 0 Const público NIM_MODIFY = 1 Const público NIM_DELETE = 2 Const público NIF_MESSAGE = 1bONTSOND Tipo NIF_TIF hWnd tan largo uID tan largo uFlags tan largo uCallbackMessage tan largo hIcon tan largo szTip como cadena * 64 Tipo de fin Función pública SetTrayIcon (modo tan largo, hWnd tan largo, icono tan largo, punta como cadena) Tan largo Dim nidTemp como NOTIFYICONDATA nidTemp. cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON O NIF_TIP nidTemp.uCallbackMessage = 0 & nidTraycon = Shell_NotifyIconA (Modo, nidTemp) Función final

Para usar, pegue en el código del formulario:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Prueba" End Sub "Para eliminar Private Sub Command1_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub

Bloquear el botón de inicio

Función de declaración privada FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) Función de declaración privada larga FindWindowEx Lib "user32" Alias ​​"FindWindowExA" _ (ByVal hWnd1 como larga, 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 (Opcional Habilitado como booleano = Verdadero) Dim lHwnd As Long "find hWnd lHwnd & = FindWindowEx (FindWindow (" Shell_TrayWnd "," "), 0 &," Button ", vbNullString) Llame a EnableWindow (lHwnd &, CLng (Enabled)) End Sub Private Sub Command1_Click () EnableStartButton False "El botón START está bloqueado End Sub Private Sub Command2_Click () EnableStartButton True" El botón START no está bloqueado End Sub

Lectura de parámetros del archivo INI

El programa se conecta a FTP y los parámetros se escriben en el archivo ini: servidor, inicio de sesión, puerto, contraseña.

Desde el principio creamos un archivo INI:

Servname = servidor usern = login pwd = contraseña puerto = puerto

Colóquelo en la carpeta del programa. A continuación, insertamos en el módulo:

Función de declaración privada WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpKeyName como cadena, _ ByVal lpString como cadena, ByVal lpFileName como cadena) Como función de declaración privada del núcleo largo "GetPrivateProfias" lpApplicationName como cadena, ByVal lpKeyName como cadena, _ ByVal lpDefault como cadena, ByVal lpReturnedString como cadena, _ ByVal nSize tan largo, ByVal lpFileName como cadena) Función pública larga ReadIni (Razdel como cadena, Param) como cadena ReadIni (Razdel, Param , App.Path & "\ test.ini", "0") End Function Private Function GetValue (ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, Opcional ByVal DefaultValue As String = vbNullString) Como String Dim Data As String Data = String $ (1000, Chr $ (0)) If GetPrivateProfileString (Section, Key, DefaultValue, Data, 1000, fFileName)> 0 Entonces GetValue = Left $ (Data, InStr (Data $, Chr $ (0) ) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

Luego pegamos en el código del formulario:

Función de declaración privada InternetOpen Lib _ "wininet.dll" Alias ​​"InternetOpenA" (ByVal sAgent como cadena, ByVal nAccessType como largo, ByVal sProxyName como cadena, _ ByVal sProxyBypass como cadena, ByVal nFlags como largo) Como largo Función de declaración privada InternetConnect Lib _ "wininet.dll" Alias ​​"InternetConnectA" (ByVal hInternetSession como largo, ByVal sServerName como cadena, _ ByVal nServerPort como entero, ByVal sUserName como cadena, ByVal sPassword como cadena, ByVal nService como largo, _ ByVal dwVFlags como largo , ByVal dwVFlags como largo, ByVal dwVFlags como largo, ByVal largo) Como largo Función de declaración privada FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession como largo, ByVal lpszLocalFile como cadena, _ ByVal lpsz Asz ByVal dwFlags As Long, ByVal dw) AsContext Asole Long Function FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFilegs String, ByValExists Asal, ByValExist Asal , LongAttributes _ 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 &

Y en el código del botón:

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 where", False, 0, 1, 0) = False Luego finalizar llamada InternetCloseHandle (rs &) Llame a InternetCloseHandle (rc &)

Lista de procesos en ejecución

Agregue Listbox y 1 botón, inserte el siguiente código:

Opción Función de declaración privada explícita CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Función de declaración privada ProcessFirst Lib _ "Kernel32" Alias ​​"Process32First" _ (ByVal hSnapShot Siempre que PROCESSENTRY32) As Long Private Declare Función ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess como PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) Privado Const TH32CS_ AsNAPPRO = 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 th32Parent PROCProcessID As Long pcPriClassBase Ashot Tan largo Dim r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) Si hSnapShot = 0 Entonces Salir del Sub End Si uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Hacer mientras se llama r List1.AddItem uProcess.szExeFile) Close rp = Process.szExeFile) End Sub

Poner un programa en inicio

Para que el programa se cargue junto con Windows, como algunos otros programas, puede usar el registro:

Agregue 2 botones y el siguiente código:

Private Sub Command1_Click () "Entrada de registro Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Nombre de su programa ", _" La ruta a su programa "End Sub Private Sub Command2_Click () "Eliminando del registro Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ El nombre de su programa "End Sub

Y para que el programa se cargue junto con Windows, incluso en modo seguro, luego un código como este:

Para empezar, una forma más seria (por si acaso, haga una copia de seguridad del registro).

Private Sub Command1_Click () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Ruta a su programa" End Sub Private Sub Command2_Click () " Esto es para restaurar Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub

Bueno, de una manera fácil.

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 , La ruta a su programa "End Sub Private Sub Command2_Click ()" Para restaurar Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ WINDOWS \\ system32 \\ userinit.exe, "End Sub

Ocultar la barra de tareas

Agrega 2 botones y pega el código:

Función de declaración privada 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 Función FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) Const Long SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Oculta el subcomando privado1_Click () hwnd1 =" FindWindow (" Shell_trawindow ("" Shell_trawindow) Llame a SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Muestra Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Llame a SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Descomprimir archivo RAR

Para descomprimir un archivo RAR, puede utilizar el siguiente código:

WinRarApp = "C: \ Archivos de programa \ WinRAR \ WinRAR.exe x -o +" iPath = "C: \" iArhivName = "Nombre de archivo.rar" adr = WinRarApp & "" "" & iPath & iArhivName & "" " "" "& iPath &" "" "RetVal = Shell (adr, vbHide)

Cuanta RAM hay en la computadora

Agrega un botón y pega el siguiente código:

Privado Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer como TMemoryStatus) Tipo privado TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailwatPageTotal) "& ms.dwTotalPhys & vbCr &" Gratis: "_ & ms.dwAvailPhys & vbCr &" Usado en%: "& ms.dwMemoryLoad End Sub

Ocultar iconos de escritorio

Esto se hace de la siguiente manera. Agregue 2 botones y pegue el siguiente código:

Función de declaración privada ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Función de declaración privada FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) Const Long SW_HIDE = 0 Const SW_NORMAL = 1 Private Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) Llamar a ShowWindow (hHandle, SW_HIDE) Finalizar Sub Private Sub Command2_Click () Dim hHandle As Long hHandle = FindWindow ("progmanNleman", v ShowWindow, SW_NORMAL) End Sub

El botón Command1 oculta los iconos, Command2 hace que aparezcan.

Eso es todo para mí, espero que los ejemplos anteriores te sean útiles, ¡por ahora!

Eclipse es una plataforma de desarrollo extensible con tiempos de ejecución y plataformas de aplicaciones para crear, usar y administrar software a lo largo de su ciclo de vida. Mucha gente conoce a Eclipse como el IDE de Java, pero Eclipse en realidad consta de más de 60 proyectos de código abierto diferentes, consulte

Código abierto gratuito Mac Windows Linux

NetBeans

IDE de código abierto gratuito para desarrolladores software... Obtiene todas las herramientas que necesita para crear equipos de escritorio, empresariales, web y aplicaciones móviles en Java, C / C ++ e incluso lenguajes dinámicos como PHP, JavaScript, Groovy y Ruby

Código abierto gratuito Mac Windows Linux BSD

Estudio aptana

Aptana Studio es un entorno de desarrollo web completo que combina potentes herramientas de desarrollo con un conjunto de servicios de colaboración y alojamiento en línea para ayudarlo a usted y a su equipo a hacer más. Incluye Soporte PHP, CSS, FTP y más.

Código abierto gratuito Mac Windows Linux

Komodo Editar

Komodo Edit es un editor de código abierto rápido, inteligente y gratuito. Intente usar Komodo Edit (o su hermano mayor Komodo IDE), vale la pena.

Código abierto gratuito Mac Windows Linux

Xcode

Xcode de Apple es el principal entorno de desarrollo para Mac OS X. Además de estar incluido en un disco con cada Mac OS X comprado, es el más una nueva version también está siempre disponible para descarga gratuita para miembros de ADC ( red social para desarrolladores de aplicaciones en todas las plataformas de Apple) e incluye todas las herramientas que necesita para crear, ajustar y optimizar las aplicaciones que crea.

Gratis Mac

MonoDevelop

MonoDevelop es un IDE multiplataforma diseñado principalmente para C # y otros lenguajes .NET. MonoDevelop permite a los desarrolladores crear rápidamente aplicaciones web ASP.NET y de escritorio para Linux, Windows y Mac OSX. MonoDevelop permite a los desarrolladores migrar fácilmente aplicaciones .NET creadas en Visual Studio a Linux y Mac OSX mientras se mantiene una única base de código para todas las plataformas.

Código abierto gratuito Mac Windows Linux. NET Framework Estudio Xamarin

Lázaro

Free Pascal es un compilador GPL que funciona en Linux, Win32, OS / 2, 68K y más. Free Pascal está diseñado para comprender y compilar la sintaxis de Delphi. Lazarus es parte de un rompecabezas faltante que le permitirá desarrollar programas similares a Delphi para todas las plataformas anteriores. Dado que el mismo compilador está disponible en todas las plataformas anteriores, esto significa que no es necesario volver a codificar para crear productos idénticos para diferentes plataformas.

Código abierto gratuito Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm es un IDE comercial de JavaScript, CSS y HTML construido sobre el marco JetBrains IntelliJ IDEA.
WebStorm proporciona finalización de código, análisis de código sobre la marcha, soporte de refactorización e integración de VCS.

Pagado Mac Windows Linux

SharpDevelop

#develop (abreviatura de SharpDevelop) es un entorno de desarrollo gratuito para proyectos C #, VB.NET y Boo en la plataforma Microsoft. Es un entorno de código abierto. Puede descargar tanto el código fuente como los ejecutables.