Códigos fuente en pequeño básico. Lenguaje Visual Basic - ejemplos de código. Lista de procesos en ejecución

Hola a todos, en este artículo quiero mostrarles códigos útiles para pequeños programas. Que puede usar para escribir sus propios programas más serios, 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, pozo o función es una salida con un mensaje que confirma la salida. En general, abra el entorno de programación de Visual Basic, cree un proyecto estándar, luego coloque un botón en el formulario, haga clic en el botón y abrirá una ventana de edición de código, y allí debe pegar el siguiente código:

Beep Dim mensaje Como Cadena Dim botones e iconos Como Integer Dim título Como Cadena Dim 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("Ingrese la contraseña") Si Pword<>Contraseña Entonces MsgBox "Contraseña incorrecta" Finalizar Finalizar si

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

Salida de mensaje

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

Beep Dim mensaje Como Cadena Dim botones e iconos Como Integer Dim título Como Cadena mensaje = "Mensaje" título = "(!LANG:Mensaje" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Dibujar en el formulario

Private Sub Form_MouseDown(Botón como entero, Shift como entero, X como único, Y como único) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Botón como entero, Shift 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 reemplazar 0 con otro número.

Reinicio de la computadora

Para reiniciar tu computadora: coloca el botón y pega el siguiente código:

Ejecutando el programa en una sola copia

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

Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "¡El proyecto ya comenzó!" Terminar Terminar si

Apagar la computadora

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

Dim strComputer As String strComputer = "." Establecer objWMIService = GetObject("winmgmts:" & "(impersonationLevel=suplantar,(Apagar))!\\" _ & strComputer & "\root\cimv2") Establecer colOperatingSystems = objWMIService.ExecQuery("Seleccionar * de Win32_OperatingSystem") Para Cada ObjOperatingSystem en colOperatingSystems ObjOperatingSystem.ShutDown "Para apagar Siguiente

Terminar cualquier proceso

Para finalizar 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.

cuanto dura una computadora

El siguiente es un ejemplo de cómo puede determinar el tiempo de actividad de la computadora. Este método se basa en el uso de la biblioteca kernel32, por lo que al principio del código del formulario, incluya esta DLL.

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") "total 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 ha estado funcionando " & Str(a_days) & "días" & Str(a_hora) _ & "horas" & Str(a_minuto) & "minutos" & Str(a_segundo) & "segundos"

Hemos cubierto funciones simples que se pueden usar en casi cualquier lugar. Ahora veamos ejemplos más serios, que pueden ser de gran ayuda para escribir sus grandes proyectos.

Ejemplos de carpetas

Eliminar directorio

Crear directorio

Listar todas las carpetas con subcarpetas

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

Ejecución estática Como booleano Dim AllDirs Como nueva colección Dim next_dir Como entero Dim dir_name Como cadena Dim sub_dir Como cadena Dim i Como entero Dim txt Como cadena Si se ejecuta Entonces se ejecuta = False CmdStart.Enabled = False CmdStart.Caption = "Deteniendo" 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" y sub_dir<>"." y sub_dir<>".." Luego sub_dir = dir_name & "\" & sub_dir En caso de error Reanudar 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, entonces salga de 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

Ahora ejecutamos el programa, en el campo de texto StartText escribimos: C:\windows, y hacemos clic en el botón.

Tamaño del directorio

Ejemplos de trabajo con archivos

Copiar

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

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

¡Nota! Si el directorio 2 ya contiene un archivo llamado 1.txt, 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 devuelto "Copiar archivo retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If MsgBox falló" No se puede copiar" Else "If OK MsgBox "Archivo copiado". End If End Sub

Eliminación

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

Matar("C:\1.txt")

forma API

Private Declare Función DeleteFile Lib _ "kernel32.dll" Alias ​​​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() "Delete File C:\Samples\anyfile.txt Dim retval As Long "Return Value retval = DeleteFile( "C:\1.txt") Si retval = 1 Entonces MsgBox "Archivo eliminado con éxito". final sub

Moviente

Puedes, por ejemplo, moverlo así:

Copia de archivo "C:\1.txt","C:\2\1.txt" Matar ("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 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 "Movido con éxito" 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:

Copiar 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 As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " valor de retorno retval = MoveFile("C: \1 .txt", "C:\2.txt") If retval = 1 Then 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 maneras:

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

Dim FileFree como entero Dim FileSize como largo FileFree = FreeFile Abrir "C:\WIN\GENERAL.TXT" para 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 reloj programáticamente

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 As String, ByVal lpWindowName As String) As Long Función de declaración privada 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 = "Ocultar reloj" Command2.Caption = "Mostrar reloj" End Sub

Añadir icono a la bandeja

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

Declare la función 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 Escriba 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 como NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON o NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Icon nidTemp.szTip = tip & Chray$(0) = Shell_NotifyIconA(Modo, nidTemp) Función final

Para usar pegar en el código del formulario:

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

Bloqueo del botón de inicio

Función de declaración privada FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) As Long Función de declaración privada 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 (Opcional habilitado como booleano = 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 Falso "Botón de inicio disabled End Sub Private Sub Command2_Click() EnableStartButton True "El botón de inicio no está deshabilitado 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.

Primero, crea un archivo INI:

Servname=usuario del servidor=Iniciar sesión pwd=contraseña puerto=puerto

Debe colocarse en la carpeta con el programa. A continuación, inserte en el módulo:

Función de declaración privada WritePrivateProfileString Lib _ "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long Función de declaración privada 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 String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Función final Función privada GetValue(Sección ByVal como cadena, _ Clave ByVal como cadena, ByVal fFileName como cadena, ByVal DefaultValue opcional como String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) Si GetPrivateProfileString(Sección, Clave, DefaultValue, Data, 1000, fFileName) > 0 Entonces GetValue = Left$(Data, InStr( Datos$, Chr $(0)) - 1 ) Else GetValue = DefaultValue End If Salir de la función End Function

Luego pegue el código del formulario:

Función de declaración privada 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 Función de declaración privada 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) Como función de declaración privada booleana 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&

Y en el código del botón:

Lista de procesos en ejecución

Agregue un cuadro de lista y 1 botón, pegue el siguiente código:

Opción Declaración privada explícita Función 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 As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlagsExe As Long As s End TypeSnapho DimSnaphot Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Si hSnapShot = 0 Entonces Salir Sub Fin Si 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

Poner un programa en el inicio

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

Agregue 2 botones y el siguiente código:

Private Sub Command1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "Path to your program" End Sub Private Sub Command2_Click() "Eliminar del registro Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program" End Sub

Y para que el programa se cargue con Windows, incluso en modo seguro, entonces el siguiente código:

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

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 recuperación Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

Bueno, la 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 ,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:

Private Declare Función 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 As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Oculta Private Sub Command1_Click() hwnd1 = FindWindow("Shell_traywnd", " ") Llamar a SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Mostrar subcomando privado2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Llamar a SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) Finalizar sub

Descomprimir archivo RAR

Para descomprimir un archivo RAR, puede usar 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)

¿Cuánta RAM hay en la computadora?

Agregue un botón y pegue el siguiente código:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long End Type Dimmory ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Used in % :" & 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 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) Call ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow (hHandle, SW_NORMAL) End Sub

Usando el botón Command1, los íconos se ocultan, Command2 - aparece.

Eso es todo lo que tengo, espero que los ejemplos anteriores te sean útiles, ¡adiós!

Fundamentos de la programación.

Lenguaje de programación pequeña Básico

LECCIÓN 1: Introducción al entorno de programación. pequeña Básico .

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

Tareas:

Empieza a aprender un lenguaje de programación Básico pequeño. Dar el concepto de POO (programación orientada a objetos)

Aprende a trabajar en este entorno de programación. PAGS familiarizarse con el "objeto de texto" del entorno Básico pequeño.

Para dar una primera idea de creación de programas en un entorno de programación.

Las principales tareas educativas del proyecto:

Educación de las cualidades personales: determinació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: Descarga el programa Pequeño Básico. Cree proyectos simples en este entorno de programación. Ser capaz de ingresar funciones matemáticas y escribir expresiones matemáticas en el lenguaje Smal Basic. Escribir programas lineales simples.

Equipo y material: apuntes básicos de clase (cf.Anexo 1 ), tarjetas de tareas, PC, aplicación Small Basic, pizarra, proyector multimedia, pantalla.

Durante las clases:

organizando el tiempo

1. Preparándose para la lección

   Actualización de conocimientos

Explicación del nuevo material.

Consolidación del material estudiado

1. Preguntas relacionadas

resumiendo

1. calificación

   Tareas para el hogar

organizando el tiempo

1. Preparándose para la lección (verifique que esté listo para la lección, marque 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 una computadora en algún editor de texto. ¿De dónde viene el editor de texto? Por supuesto, los programadores lo escribieron. Buscará información en Internet utilizando un navegador que también escribieron los programadores. Después de escribir su ensayo, querrá relajarse y jugar un juego de computadora, que, nuevamente, fue escrito por programadores. En general, trabajar en una computadora es imposible sin el uso de programas que escriben los programadores. Entonces, si no hubiera programación, no habría programas, y la computadora sería un montón de hardware costoso, porque es imposible hacer algo con la ayuda de una computadora sin programas.

Etapas de la resolución de problemas.

Conceptos básicos

Programación - escribir programas.

Programa Un algoritmo escrito en un lenguaje de programación entendible por una computadora.

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

En la programación orientada a objetos se introduce el concepto de objeto, se implementan mecanismos de cálculo que permiten:

Describir la estructura de un objeto.

Describir acciones con objetos.

Use reglas especiales de 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 - lenguaje de programación desarrollado por . Diseñado para desarrolladores novatos que quieren aprender los conceptos básicos de la creación de programas.

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 e iniciar programas.

Lenguaje simple con solo 20 palabras clave

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

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

Se debe considerar una ventaja especial de BASIC la capacidad de trabajar en 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 escribir.

Operador de salida

Muestra una cadena (texto o número )

¡Hola!

Para obtener el resultado, la salida del texto "¡Hola!" en la pantalla - necesitas escribir un programa:

TextWindow.WriteLine("¡Hola!")

El programa se introduce en la ventana.pequeñaBásicoy empieza con un botónlanzar o clave F 5

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

La cadena significa "Presione cualquier tecla para continuar...".

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

el objeto tiene propiedades y métodos.

método de objeto -lo que el objeto puede hacer, es decir,operaciones (operadores )

Parámetro las operaciones están encerradas entre corchetes 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:

amarillo

verde

azul

negro

blanco

rojo

amarillo

verde

azul

el 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 número

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

un = un + 5

Toma el valor de la variable a

sumarle 5

Poner un nuevo valor a la variable a, borrando de ella el anterior

La variable es de dos tipos.: número y línea

10, -5, 3.14 "informática"

Multiplicar *

Dividir /

Acciones matemáticas:

Seno, logaritmo, raíz

pegamento

dividir en partes

Símbolos de búsqueda

Reemplazar caracteres

EJEMPLO con operador "+"

expresión

resultado

expresión

resultado

"ivan" + "ova"

"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

módulo

Matemáticas.Cos( número)

coseno

Techo matemático (número)

redondea a un número entero

Matemáticas.ObtenerGrados( número)

convertir un número de radianes a grados

Matemáticas.ObtenerNúmeroAleatorio( número máximo)

Número aleatorio en el rango de 1 anúmero máximo

Registro Natural(número)

logaritmo natural

Matemáticas pi

Pi

Matemáticas.Potencia( baseNumber, exponente)

A oelevar baseNamber a la potencia del exponente

Matemáticas. máx(número1,número2)

Máximo de dos números

Matemáticas. Resto (dividendo, divisor)

Resto de la división

Matemáticas .Sin(número)

Seno

Matemáticas. Broncearse(número)

Coseno

Matemáticas .RaízCuadrada(número)

Raíz

Matemáticas. Redondo(número)

redondeo normal

Matemáticas .ArcSin(número)

arcoseno

Matemáticas. piso(número)

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

x=VentanaTexto.ReadNumber()

y=matemáticas.Abs(x)

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

Fijación del material

1. Trabajo práctico independiente en una PC

Tareas para el trabajo independiente.

Ejercicio 1:

Definir los resultados finales de las sentencias de asignación

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 : Escriba un programa para calcular el producto de 3 variables:a , b y C .

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

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

Tarea 5: Escriba un programa para encontrar el 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 \u003d (cuando a \u003d 2, b=6, C=4 , X 1=-1, X 2=-2)

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

С= (cuando a=4, b=9, C=13)

Y=cos(x)+sen(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 la "ventana de texto"?

¿Qué significa el operador de asignación?

¿Qué tipos de datos se utilizan en¿Básico pequeño?

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

resumiendo

1. calificación

   Tareas para el hogar

Trabajar con un resumen

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

hacer un programa calcular el area de un triangulo usando la formula de Heron

Solicitud

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

Programación - escribir programas.

ALGORITMO + LENGUAJE DE PROGRAMACIÓN= PROGRAMA

Variable

la variable tienenombre - Letra latina (Por ejemplo,a , A , x1 , C9 )

A una variable se le puede asignar un valor

Ejemplo: a = 5 , donde el signo " = " - esto es operador de asignación

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

10, -5, 3.14 "informática"

Multiplicar *

Dividir /

Acciones matemáticas:

Seno, logaritmo, raíz

pegamento

dividir en partes

Símbolos de búsqueda

Reemplazar caracteres

Programación

Ventana de texto- esto es objeto "ventana con texto" , en el que se puede mostrar el texto.

Parámetro de operación entre paréntesis - WriteLine()

Un objeto caja de texto posee propiedades , por ejemplo

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

Colores usados:

amarillo

verde

azul

negro

blanco

rojo

amarillo

verde

azul

el negro

blanco

Pequeños Operadores Básicos

operador "+"

Uso de funciones matemáticas en una expresión

x=VentanaTexto.ReadNumber()

y=matemáticas.Abs(x)

TextWindow.WriteLine("y es igual "+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=VentanaTexto.ReadNumber()

TextWindow.WriteLine("Ingrese el valor de la variable b")

b=VentanaTexto.NúmeroLeer()

s=a+b

VentanaTexto.WriteLine(" la suma de los numeros es "+s)

El programa se introduce en la ventana.pequeñaBásicoy empieza con un botónlanzar o clave F 5.

Línea Prensa ningún llave Seguir ...medio " Pulse cualquier tecla para continuar

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 un IDE de Java, pero en realidad Eclipse está compuesto por más de 60 proyectos de código abierto diferentes, sección

Gratis Código abierto MacWindowsLinux