Исходники на Visual Basic .NET

--Блокнот
--http://www.lua.org/manual/5.2/manual.html
--https://neolua.codeplex.com/documentation
const Window typeof System.Windows.Forms.Form;
const Application typeof System.Windows.Forms.Application;
const Size typeof System.Drawing.Size;
const SystemIcons typeof System.Drawing.SystemIcons;
const TextBox typeof System.Windows.Forms.TextBox;
const DockStyle typeof System.Windows.Forms.DockStyle;
const OpenFileDialog typeof System.Windows.Forms.OpenFileDialog;
const SaveFileDialog typeof System.Windows.Forms.SaveFileDialog;
const ScrollBars typeof System.Windows.Forms.ScrollBars;
const Font typeof System.Drawing.Font;
const DialogResult typeof System.Windows.Forms.DialogResult;
const MainMenu typeof System.Windows.Forms.MainMenu;
const File typeof System.IO.File;
const Path typeof System.IO.Path;
const FormStartPosition typeof System.Windows.Forms.FormStartPosition;
const Label typeof System.Windows.Forms.Label;
const ContentAlignment typeof System.Drawing.ContentAlignment;
 
Window MainWindow = Window()
Window dlgAbout = Window() 
Label lbl1 = Label()
MainMenu MainMenuStrip = MainMenu();
TextBox Input = TextBox();
 
function InitializeComponent() : void
--Input
Input.Dock = DockStyle.Fill;
Input.Multiline = true;
Input.Parent = MainWindow;
Input.Font = Font("Consolas",9);
Input.ScrollBars = ScrollBars.Both;
Input.AcceptsReturn = true;
Input.AcceptsTab = true;
 
--MainMenuStrip
local MenuFile = MainMenuStrip.MenuItems.Add("Файл")
 
MenuFile.MenuItems.Add("Новый файл").Click:add(function(sender, e) : void
Input.Text = string.Empty;
MainWindow.Text = "Блокнот - Новый файл.txt";
end)
 
 
MenuFile.MenuItems.Add("-")
 
 
MenuFile.MenuItems.Add("Открыть файл...").Click:add(function(sender, e) : void
OpenFileDialog dlgOpenFile = OpenFileDialog();
dlgOpenFile.FileName = string.Empty;
dlgOpenFile.Filter = "Текстовой документ (*.txt)|*.txt"
if dlgOpenFile.ShowDialog() == DialogResult.OK then
Input.Text = File.ReadAllText(dlgOpenFile.FileName);
MainWindow.Text = "Блокнот - "..Path.GetFileName(dlgOpenFile.FileName)
dlgOpenFile.Dispose();
end
end)
 
 
MenuFile.MenuItems.Add("Сохранить файл как...").Click:add(function(sender, e) : void
SaveFileDialog dlgSaveFile = SaveFileDialog();
dlgSaveFile.FileName = string.Empty;
dlgSaveFile.Filter = "Текстовой документ (*.txt)|*.txt";
if dlgSaveFile.ShowDialog() == DialogResult.OK then
File.WriteAllText(dlgSaveFile.FileName,Input.Text);
MainWindow.Text = "Блокнот - "..Path.GetFileName(dlgSaveFile.FileName)
dlgSaveFile.Dispose();
end
end)
 
 
MenuFile.MenuItems.Add("-")
MenuFile.MenuItems.Add("Выход").Click:add(function(sender, e) : void
MainWindow.Close();
end)
 
local MenuEdit = MainMenuStrip.MenuItems.Add("Правка")
MenuEdit.MenuItems.Add("Отмена").Click:add(function(sender, e) : void
Input.Undo();
end)
 
 
 
MenuEdit.MenuItems.Add("-")
MenuEdit.MenuItems.Add("Вырезать").Click:add(function(sender, e) : void
Input.Cut();
end)
MenuEdit.MenuItems.Add("Копировать").Click:add(function(sender, e) : void
Input.Copy();
end)
MenuEdit.MenuItems.Add("Вырезать").Click:add(function(sender, e) : void
Input.Paste();
end)
 
local MenuAbout = MainMenuStrip.MenuItems.Add("Справка")
MenuAbout.MenuItems.Add("О программе...").Click:add(function(sender, e) : void
dlgAbout.Text = "О программе..."
dlgAbout.ControlBox = false;
dlgAbout.Size = Size(400,250);
dlgAbout.StartPosition = FormStartPosition.CenterParent;
lbl1.Parent  = dlgAbout;
lbl1.Dock = DockStyle.Fill;
lbl1.AutoSize = false;
lbl1.Font = Font("Consolas",9)
lbl1.Text = "Notepad\r\rАвтор: Nord790\rРазработано на LUA (.NET)\r\rlua.dll\r\rhttp://www.lua.org/manual/5.2/manual.html\rhttps://neolua.codeplex.com/documentation"
lbl1.TextAlign = ContentAlignment.MiddleCenter;
lbl1.Click:add(function(sender,e) : void
dlgAbout.Close();
end)
dlgAbout.ShowDialog();
end)
--MainWindow
MainWindow.Text = "Блокнот - Новый файл.txt";
MainWindow.Icon = SystemIcons.Application;
MainWindow.Size = Size(640,420);
MainWindow.Menu = MainMenuStrip;
end
 
 
 
function Main()
InitializeComponent()
Application.Run(MainWindow)
end
 
Main();

--Создадим EXE файл на VisualBasic и С#
const ICodeCompiler typeof System.CodeDom.Compiler.ICodeCompiler;
const VBCodeProvider typeof Microsoft.VisualBasic.VBCodeProvider;
const CSharpCodeProvider typeof Microsoft.CSharp.CSharpCodeProvider;
const CompilerParameters typeof System.CodeDom.Compiler.CompilerParameters;
const CompilerResults typeof System.CodeDom.Compiler.CompilerResults;
const MessageBox typeof System.Windows.Forms.MessageBox;
 
CompilerParameters Param = CompilerParameters();
Param.CompilerOptions = "/target:winexe /optimize"
Param.GenerateExecutable = False
Param.OutputAssembly = "D:\\APP_VB.exe"
Param.ReferencedAssemblies.Add("System.dll")
Param.ReferencedAssemblies.Add("System.Windows.Forms.dll")
Param.ReferencedAssemblies.Add("System.Drawing.dll")
Param.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
 
 
 
ICodeCompiler VBCompiler = VBCodeProvider()
ICodeCompiler CSharpCompiler = CSharpCodeProvider();
 
string VBCode = [[Imports System
Imports System.Windows.Forms
Module Program
    Sub Main()
        Dim frm As New Form
        frm.Text = "Visual Basic"
        Application.Run(frm)
    End Sub
End Module]];
 
CompilerResults Result = VBCompiler.CompileAssemblyFromSource(Param, VBCode)
if Result.Errors.HasErrors then
MessageBox.Show(Result.Errors[1].ErrorText);
end
 
 
CompilerParameters CSharpParam = CompilerParameters();
CSharpParam.CompilerOptions = "/target:winexe /optimize"
CSharpParam.GenerateExecutable = False
CSharpParam.OutputAssembly = "D:\\APP_CSharp.exe"
CSharpParam.ReferencedAssemblies.Add("System.dll")
CSharpParam.ReferencedAssemblies.Add("System.Windows.Forms.dll")
CSharpParam.ReferencedAssemblies.Add("System.Drawing.dll")
 
 
string CSharpCode = [[using System;
using System.Windows.Forms;
static class Program
{
    static void Main()
    {   
        Form frm = new Form();
        frm.Text ="CSharp";
        Application.Run(frm);
    }
}
 
]];
 
CompilerResults ResultC = CSharpCompiler.CompileAssemblyFromSource(CSharpParam, CSharpCode)
if ResultC.Errors.HasErrors then
MessageBox.Show(ResultC.Errors[1].ErrorText);
end

--------------------------------------------------------------------------
-----------------------Пример перебора символов---------------------------
--------------------------------------------------------------------------
 
const Strings typeof Microsoft.VisualBasic.Strings;
const MessageBox typeof System.Windows.Forms.MessageBox;
const Console typeof System.Console;
AllocConsole();
Console.Clear()
string a = "1234567890";
string b = {a[0]};
 
 
while true do
local array = toarray(b);
local result : string = Strings.Join(array,string.Empty);
Console.WriteLine(result);
 
for n = 0,array.Length - 1 do
int IndexFind = a.IndexOf(b[n]) ;
if IndexFind < a.Length - 1 and n < array.Length - 1 then
b[n] = a[IndexFind + 1]
break;
elseif IndexFind == a.Length - 1 and n < array.Length  - 1 then
b[n] = a[1];
elseif IndexFind < a.Length - 1 and n == array.Length  - 1 then
b[n] = a[IndexFind + 1]
break;
elseif IndexFind == a.Length - 1 and n == array.Length - 1 then
b[n] = a[1];
b[array.Length] = a[1];
break;
end
end
end