Código fuente en lenguaje sencillo

Oh, oh, déjame darte el código fuente del Bloc de notas de la siguiente manera

Versión 2

Biblioteca compatible iext2

. >

.Soporte de biblioteca eAPI

.Programa Programa de Windows 1

.Ruta del archivo de variable de ensamblaje, tipo de texto

.La variable de ensamblaje se está escribiendo actualmente. Tipo lógico

. Subroutine_SuperEditBox1_ContentsChanged, , cambia el color del cuadro de súper edición

. Color de variable local, formato de carácter

color. Color del texto = obtener valor de color (tomar un número aleatorio (0, 255), obtener un número aleatorio (0, 255), obtener un número aleatorio (0, 255))

Super EditBox1. área de selección (Color)

StatusBar1.Establecer texto (0, "Línea" + a texto (Super EditBox1.Obtener líneas ()) + "Longitud del texto" + a texto (Super Edit Box 1.Obtener texto Longitud () ))

.Subrutina __Iniciar ventana_Creada, , , establecer cuadro de diálogo general

Cuadro de diálogo general 1.Filter = "txt|*.txt"

Cuadro de diálogo general 1.Sufijo de archivo predeterminado = "txt"

Cuadro de diálogo general 1.Título = "Cuadro de diálogo para guardar leyenda del Bloc de notas...".

_TimeDate_Selected()

_DazzleSilverSkin_Selected()

MemoReminder()

Subrutina __Iniciar ventana_ cambios de posición, cambios de posición, Superedición. cambios de cuadro (cambios del botón 1)

.Obtener altura de pantalla () - StatusBar1.Height - 100

Button1.Width = Obtener ancho de pantalla () - 5

Button1.Height = StatusBar1.Height + 10

.Si es verdadero final

.Si es verdadero (_Iniciar ventana. Posición = 0)

SuperEditBox1. _StartWindow.Width - 10

SuperEditBox1.Height = _LaunchWindow.Height - 55 - Button1.Height - 10

Button1.Borde superior = 200

Button1 .Width = 560

.End if true

.Subroutine_New_Selected, , , New file

.If true (Super cuadro de edición 1. Contenido ≠"")

.Si es verdadero (cuadro de mensaje ("¡Aún no has guardado! ¿Quieres guardar, por favor?", 4, ) = Botón #Sí)

Diálogo genérico 1. Tipo = 1

Diálogo genérico 1.Open ()

Escribir en archivo (Diálogo genérico 1.Nombre de archivo, en conjunto de bytes (Super EditBox 1.Contenido))

.Finalizar si es verdadero

.Finalizar si es verdadero

.Subrutina_Open_Selected, , , Abrir archivo

Cuadro de diálogo común 1.Tipo = 0

Diálogo genérico 1.Open()

.Si es verdadero (Diálogo genérico 1.Nombre de archivo ≠ "")

SuperEditBox1.Contents = a texto (leer en archivo (Diálogo genérico 1 .Filename))

Ruta del archivo = Diálogo genérico 1.Filename

.Fin si es verdadero

Programa _Guardar_, para guardar el archivo

. Si es verdadero (ruta del archivo = "")

Diálogo genérico 1.Tipo = 1

Diálogo genérico 1.Abrir ()

Escribir en el archivo (Diálogo genérico 1.Nombre de archivo, al conjunto de bytes (SuperEditBox 1.Contenido))

Si es verdadero, finalice

.

Si es verdadero (ruta de archivo ≠"")

Escribir en el archivo (ruta de archivo, tobytegroup(superedit1.content))

. Terminar si es verdadero

. Subrutina _Guardar en _Seleccionado, , , Guardar como archivo

Cuadro de diálogo general 1.Tipo = 1

Cuadro de diálogo general 1.Abrir ()

.Si es verdadero (Diálogo genérico 1.Nombre de archivo ≠ "")

Escribir en archivo (Diálogo genérico 1.Nombre de archivo, en conjunto de bytes (SuperEditBox 1.Contenido))

.Finalizar si es verdadero

. Subroutine_Undo_Selected, , , Deshacer texto

Super cuadro de edición 1.Undo ()

Subroutine_Cut_Selected, , Cortar texto

Super cuadro de edición 1.Undo ()<. /p>

.Subroutine_Copy_Selected, copiar texto

Cuadro de súper edición 1. Subrutina _Paste_Selected, , Pegar texto

Cuadro de súper edición 1. Subroutine_Delete_Selected, , Eliminar texto

SuperEditBox1.Delete()

SuperEditBox1.Contents = Obtener el lado izquierdo del texto (SuperEditBox1.Contents, Obtener la longitud del texto (SuperEditBox1.Contents ) - 1)

.Subrutina _Find_Selected, , Buscar texto

Cargar (buscar ventana,, verdadero)

.Subrutina _Find_Next_Selected, , , Aún no resuelto

. Subrutina _Text_Replace_Selected, , , Text_Replace

Cargar (Text_Replace_Window, , true)

.

Subroutine_Jump_To_Selected, , , aún no resuelto

Cargar (saltar a ventana, verdadero)

Subroutine_Select All_Selected, , seleccionar todo el texto

Super cuadro de edición 1. Número de caracteres seleccionados = Obtener longitud del texto (cuadro de súper edición 1. contenido)

Subrutina _Hora-Fecha_Seleccionada, , , hora y fecha

Variable local hora, tipo de texto

Variable local minuto, tipo de texto

Fecha de variable local, tipo de texto

Año de variable local, tipo de texto

p>.Variable local mes, tipo de texto

.Variable local día, tipo de texto

Hora = texto (obtener hora (obtener hora actual ()))

Minutos = Texto (Obtener Minutos (Obtener Hora actual ()))

Año = Texto (Obtener Año (Obtener Hora actual ()))

Mes = Texto (Obtener Mes () Obtener la hora actual ())

Día = Convertir a texto (Obtener el día (Obtener la hora actual ()))

Día = Convertir a texto (Obtener el día ( Obtener la hora actual ()) )

Datos = Convertir a texto (obtener mes (obtener hora actual ()))

Fecha = Convertir a texto (obtener día (obtener hora actual) ()))

StatusBar1."-" + día)

Subrutina_Legendary Notepad v13_ Seleccionado, , , Acerca del Bloc de notas

Cuadro de mensaje ("Autor del software: Ancient Legends" + #Newline + "QQ:1041750677" + #Newline + "" + #Newline + "|" + "-" + Mes + "-" + Día)

."MSN:thum_wai_lun @hotmail.com " + # Salto de línea + "Herramienta de escritura: Easy Language" + # Salto de línea + "Versión de software: 1.3 " + # Salto de línea, 0, )

. Se ha seleccionado la subrutina _Protección con contraseña_ , , protección con contraseña

Cargar (ventana de contraseña, , verdadero)

Se ha seleccionado la subrutina _Memo_, , cargar ventana de nota

Cargar (ventana de nota, verdadero). )

p>

. Recordatorio de nota de subrutina, Recordatorio de nota

La variable local divide el texto, tipo de texto, "0"

División de variable local. fecha de hoy, tipo de texto, "0"

. Variable local Dividir Fecha de hoy, tipo de texto, "0"

Dividir texto = Dividir texto (leer la entrada de configuración (tomar el directorio de tiempo de ejecución) () + "\Memo.ini", "Memo", "Fecha de recordatorio", ), "día", )

Fecha de hoy = enviar texto (obtener fecha (obtener hora actual ()))

Dividir la fecha de hoy = dividir el texto (fecha de hoy, "día",)

Si es verdadero (obtener miembro de la matriz (texto dividido) = 1 u obtener miembro de la matriz (texto dividido)>. 1)

. Si es verdadero (dividir texto [1] = dividir la fecha de hoy [1])

Barra de estado 1.text (2, "Tienes una nota hoy ^_^")

. Si es verdadero final

.Si es verdadero final

.Subroutine_Silver_White_Skin_Selected, , , Silver_White_Skin

Cambiar a nueva máscara(1)

.

Subrutina _light_white_skin_selected, , , light_white_skin

Nueva piel (10)

Subrutina _Piel Gris Claro_ seleccionada, , Piel Gris Claro

Nueva Piel (13)

. Subrutina _Light_Blue_Skin_Selected Seleccionado, , , Light_Blue_Skin

Nueva Skin (19)

. Subroutine_LightBlackSkin_Selected, , , LightBlackSkin

Nueva Skin (5)

Subroutine_Silver_Skin_Selected, , , Silver Skin

Nueva Skin (2)

. .Subroutine_Flash White_Selected, , , Flash White

Nueva máscara (15)

. Subroutine_Blue_Skin_Selected, , , Blue_Skin

Nueva máscara (18)

Subroutine_DarkBlackSkin_Selected, , , DarkBlackSkin

Cambiar nueva máscara (14)

. . Subrutina __Launch Window_Can_be_Closed, lógica, operación minimizada de visualización transparente

. Variable local variable 1, entero

Variable 1 = 255

. Cuente el primer bucle (255,)

Establezca la transparencia de la ventana (_start window. Get window handle (), variable 1)

Variable 1 = variable 1 - 1

. Si es verdadero (variable 1 = 1)

Coloca el ícono de la bandeja (#programicon, "Ancient Legend Notepad v1.2")

_Inicia la ventana. Visible = false

.Fin si es verdadero

.Fin del bucle de conteo ()

Retorno (falso)

.Subrutina_ _Launch_Window_Tray_Event, , , Transparent_Display_Launch_Window

Tipo de operación de parámetro, entero

. Variable local variable1, número entero

. Si es verdadero (tipo de acción = 1)

_Inicia la ventana. Visual = verdadero

. Cuente el primer bucle (255, variable 1)

Establezca la transparencia de la ventana (_Start Window. Obtenga el identificador de la ventana (), variable 1)

Calcule la hora de finalización del bucle ()

.Si es verdadero, finalice

.Si es verdadero (tipo de operación = 3)

Menú emergente (menú de íconos, seleccione la posición horizontal del mouse (), seleccione vertical del mouse posición())

. Terminar si es verdadero

. La subrutina __Iniciar ventana_ será destruida, , , Destruir icono de la barra de tareas

Colocar icono de bandeja ({ }, )

La subrutina _Abrir Bloc de notas de leyenda_ está seleccionada, , _Iniciar ventana .

Visible=True

__Launch_Window_Tray_Event (1)

. La subrutina _Destroy_ está seleccionada, , Destruir software

Destruir ()

. presiona una tecla, que es lógica, y está ingresando...

código de tecla de parámetro, número entero

. Estado de la tecla de función del parámetro, tipo entero

Si está escribiendo actualmente = Verdadero

Botón 1.Título = "Escribiendo..."

Reloj 1.reloj period = 800

Retorno (verdadero)

. Subrutina_SuperEditBox1_Liberar una clave, tipo lógico, Pausa para escribir...

Código de clave de parámetro, entero<. /p>

Estado de la tecla de función del parámetro, entero

Escrito actual = falso

Devuelve (verdadero)

. Subrutina _clock1_cycle_event, , , pausa escribiendo….

.Si es verdadero (escritura actual = falso)

Botón 1.Title = "Pausar escritura..."

.

p>

.End if true

.Subroutine_SuperEditBox1_Selection Area Changed, , , SuperEditBox1.Scroll

SuperEditBox1.Scroll (1).