[C#][basic][qb64][Excel] Учим C# зная Basic & Excel & qb64

[kvitaliy]

Сообщение от сфинкс

но неизвестно стартуют ли оконные с кнопками
и с элементами без среды программирования

Конечно будет работать. Хотя это извращение, всё руками прописывать, кода придумано куча разных сред визуального программирования кроме MVS (MonoDevelop, SharpDevelop например), но можно и в Блокноте.
Вот код, который это демонстрирует, назовите его WinForm.cs и положите в конень диска C:\

using System;
using System.Windows.Forms;
namespace HelloWorld
{
    public class Program
    {
        static void Main()
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new Form1());
        }
    }
    class Form1 : Form
    {
        TextBox textBox1;
        Button button1;
         
        public Form1()
        {
        	
            //Создаем текстовое поле
            textBox1=new TextBox();
            textBox1.Location = new System.Drawing.Point(50, 50);
            this.Controls.Add(textBox1);
            //Создаем кнопку
            button1 = new Button();
            button1.Location = new System.Drawing.Point(60, 90);
            button1.Text = "Нажми меня";
            button1.Click+=button1_Click;
            this.Controls.Add(button1);
        }
         
        private void button1_Click(object sender, EventArgs e)
        {
            if(textBox1.Text=="")
            {
                MessageBox.Show("Введите текст в текстовое поле");
            }
            else
            {
                MessageBox.Show(textBox1.Text);
            }
        }
    }   
}

Для компиляции нужно вызвать

csc.exe /target:winexe c:\WinForm.cs

Будет создан исполняемый файл WinForm.exe
di-AUPNPJ.png
Если бы мы не использовали target:winexe, то также скомпилировали бы графическое приложение, только тогда при запуске была видна также и консоль.

[сфинкс]

находка данной темы: оформление включая название
для быстрого наименования файлов
и внезапно форматирование влево удобное для форумов
на примере минимального окна из интернета
и есть ещё оконный счётчик пока не разобрался

// name.cs 
// for copypaste filename cs bat exe
using System;
using System.Windows.Forms;
class Program {
	static void Main(string[] args) {
Application.EnableVisualStyles(); //Optional.
MessageBox.Show("Good Cat Good Dog");
	}
}

использую для компиляции name.bat
в каталоге FrameWork где csc.exe
и другие сообщают у них стартует

csc.exe /nologo name.cs
pause

ютюб создающий пример выше в оболочке я нашёл
и про наличие чёрной консоли /target:winexe ещё разберёмся

внезапно форматирование влево удобное для форумов и для распечатки

// name.cs // for copypaste filename cs bat exe
// https://rextester.com/BXWC6536 // adress online 
using System;
using System.Text;
namespace name
{
	class name
	{
static void Main(string[] args) 
	{
int[,] a = new int[22,22];
Random rand = new Random();
	for (int x = 1; x <=12; x++)
	for (int y = 12; y >=1; y--)
a[x,y]=rand.Next(10);
	for (int x = 1; x <=12; x++)
	{
	for (int y = 12; y >=1; y--)
		{
Console.Write(a[x,y]);
Console.Write("  ");
		}
Console.WriteLine();
	}
Console.ReadKey();
	}
	}
}

на предыдущих страницах программы анимации:




напоминаю страницы тысяч программ на разных языках
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

и для проверки текстовые компилируются онлайн

https://rextester.com/RGTBXB16905 текстовые преобразования
https://rextester.com/JRGX29275 угадывает 1 из 1000000000

[Alex11223]

Сообщение от сфинкс

форматирование влево удобное для форумов

што?

[сфинкс]

используя пример сборника программ
и подсказку компиляции получилась программа

решающая квадратное уравнение

//winqua.cs
using System;
using System.Windows.Forms;
 
class winQUA : Form
{
winQUA()
{
Text = "winQUA Например A=6 B=7 C=2";
BackColor = System.Drawing.Color.Green;
ForeColor = System.Drawing.Color.Orange;
ResizeRedraw = true;
Width = 400;
Height = 250;
{

var zc = -7;
	var labelc = new Label();
	labelc.Text = "C= " + zc + ".....";
	labelc.Dock = DockStyle.Top;
	Controls.Add(labelc);
var buttonc = new Button();
buttonc.Text = "C+3";
buttonc.Dock = DockStyle.Bottom;
buttonc.Click += delegate
	{
	zc = zc+3;
	labelc.Text = "C= " + zc + "  ...";
	};
Controls.Add(buttonc);

var zb = 12;
	var labelb = new Label();
	labelb.Text = "B= " + zb + ".....";
	labelb.Dock = DockStyle.Top;
	Controls.Add(labelb);
var buttonb = new Button();
buttonb.Text = "B-1";
buttonb.Dock = DockStyle.Bottom;
buttonb.Click += delegate
	{
	zb--;
	labelb.Text = "B= " + zb + "  ...";
	};
Controls.Add(buttonb);

var za = 2;
	var labela = new Label();
	labela.Text = "A= " + za + ".....";
	labela.Dock = DockStyle.Top;
	Controls.Add(labela);
var buttona = new Button();
buttona.Text = "A+1";
buttona.Dock = DockStyle.Bottom;
buttona.Click += delegate
	{
	za++;
	labela.Text = "A= " + za + "  ...";
	};
Controls.Add(buttona);

var d = (zb * zb - 4 * za * zc);
	var labeld = new Label();
	labeld.Text = "d= " + d;
	labeld.Dock = DockStyle.Top;
	Controls.Add(labeld);
var buttond = new Button();
buttond.Text = "d";
buttond.Dock = DockStyle.Bottom;
buttond.Click += delegate
	{
	d = (zb * zb - 4 * za * zc);
double x1 = (-zb + Math.Sqrt(d)) / (2 * za);
double x2 = (-zb - Math.Sqrt(d)) / (2 * za);
	labeld.Text = "d= " + d + "    X1 = " + x1 + "    X2 = " + x2;
	};
Controls.Add(buttond);
	}
}
	static void Main()
	{
Application.Run(new winQUA());
	}
}

1cs=1exe
и далее испытываю движки и формы внутри окна


квадратное уравнение и ввод значений в поля
возможно без нового окна для сообщения

//poleQUA.cs
using System; 
using System.Windows.Forms;
namespace poleQUA
{
	public class Program
	{
	static void Main()
	{
Application.Run(new poleQUA());
	}
	}
	class poleQUA : Form
	{
	TextBox textBoxA, textBoxB, textBoxC;
	Button buttonD;
public poleQUA()
	{						
	textBoxA=new TextBox();
	textBoxB=new TextBox();
	textBoxC=new TextBox();
textBoxA.Location = new System.Drawing.Point(150, 50);
textBoxB.Location = new System.Drawing.Point(100, 100);
textBoxC.Location = new System.Drawing.Point(50, 150);
	this.Controls.Add(textBoxA); 
	this.Controls.Add(textBoxB); 
	this.Controls.Add(textBoxC); 
var labelq = new Label();
labelq.Text = "Input A= 6 & B= 7 & C= 2";
labelq.Dock = DockStyle.Top;
Controls.Add(labelq);
	var labelA = new Label();
	labelA.Text = "A= ";
	labelA.Location = new System.Drawing.Point(130, 52);
	Controls.Add(labelA);
var labelB = new Label();
labelB.Text = "B= ";
labelB.Location = new System.Drawing.Point(80, 102);
Controls.Add(labelB);
	var labelC = new Label();
	labelC.Text = "C= ";
	labelC.Location = new System.Drawing.Point(30, 152);
	Controls.Add(labelC);
buttonD = new Button();	
	buttonD.Location = new System.Drawing.Point(100, 200);
	buttonD.Text = "D= x1= x2=";
	buttonD.Click+=buttonD_Click;
	this.Controls.Add(buttonD);
	}
private void buttonD_Click(object sender, EventArgs e)
		{
	int za = Convert.ToInt32(textBoxA.Text);
	int zb = Convert.ToInt32(textBoxB.Text);
	int zc = Convert.ToInt32(textBoxC.Text);
double d = (zb * zb - 4 * za * zc);
double x1 = (-zb + Math.Sqrt(d)) / (2 * za);
double x2 = (-zb - Math.Sqrt(d)) / (2 * za);
	string dd = (d.ToString());
	string xx1 = (x1.ToString());
	string xx2 = (x2.ToString());
	string m = "D= " + dd + "  x1= " + xx1 + "  x2= " + xx2;
		{
MessageBox.Show(m);
		}
	}
	}   
}

результаты вычисляются при каждом нажатии
и результаты округляются до 2-х знаков после запятой

[сфинкс]

видя как всё больше спрашивают алгоритмы
про строки стринги
размещаю созданные 2 недели назад этюды
недавно применявшиеся в разрядах 2-чных и 10-чных

//c# строковые функции и операции со строками 
//c# из цифры строка и из строки цифра и код символа
//c# составление строк и разделение строк и сравнение строк 
// https://rextester.com/RGTBXB16905
using System;
using System.Text;
namespace DAV 
{
	class Program
	{
	static void Main(string[] args) 
	{
string s = "";
Random rand = new Random();

for (int i = 1; i <= 64; i++)
{
int a = rand.Next(9);
string dop = (a.ToString());
s=s+dop;
Console.WriteLine(s);
}

int b = 2+rand.Next(8);
Console.WriteLine();
Console.WriteLine("Место ");
Console.WriteLine(b);

if (s[b-1] == s[b]) 
Console.WriteLine("Знаки Равны ");
else Console.WriteLine("Знаки НЕ равны ");

Console.WriteLine(s[b-1]);
Console.WriteLine(s[b]);

string d1 =(s[b-1].ToString());
string d2 =(s[b].ToString());
string d = d1+d2;
Console.WriteLine("Вместе ");
Console.WriteLine(d);
Console.WriteLine();
System.Threading.Thread.Sleep(5000);

string q = "";
int sum = 0;
int k=3;
for (int i = 0; i <= s.Length-k; i++)
{
string e=(s.Substring(i,k));
Console.WriteLine(e);

string f=(s.Substring(i, 1));
q = q+f;
sum = sum + int.Parse(f);
Console.WriteLine(f);
Console.WriteLine(s);
Console.WriteLine(q);
Console.Write("Сумма цифр ");
Console.WriteLine(sum);
Console.WriteLine();
System.Threading.Thread.Sleep(500); 
}
for (int i = 121; i >= 32; i--)
Console.Write(Convert.ToChar(i));
Console.ReadKey(); 
System.Threading.Thread.Sleep(5000);
        }
    }
}

проверить онлайн: https://rextester.com/RGTBXB16905



и для понимания лучше комментировать строки самостоятельно

а я собираю список созданных дос программ C#
ведь использую на 99% мои наработки

видя несколько строчек программы вывода на экран
этюды позже применяют сумму стрингов и вывод в минимум строчек

и в настоящее время изучаю windows forms
пиша вручную без лишнего и соблюдая 1cs=1exe

[сфинкс]

Приложение считывает из окон
заданные или назначенные значения
и создаёт расчёты и оформление
используя данные данные
и далее планируется графика в форме

//SUMCOMB.cs
using System; 
using System.Drawing;
using System.Windows.Forms;
namespace SUMCOMB
{
	public class Program
	{
	static void Main()
	{
Application.Run(new SUMCOMB());
	}
	}
	class SUMCOMB : Form
	{
	ComboBox comboBoxD;
	TextBox textBoxA; 
	Button buttonV;

public SUMCOMB()
	{
var labelD = new Label();
	labelD.Text = "D СТРОК";
	labelD.Location = new System.Drawing.Point(45, 28);
	Controls.Add(labelD);

comboBoxD = new ComboBox();
	comboBoxD.Location = new Point(45, 50);
	comboBoxD.Width = 50;
	comboBoxD.Items.Add("7");
	comboBoxD.Items.Add("5");
	comboBoxD.Items.Add("3");
	comboBoxD.SelectedIndex = 1;
	this.Controls.Add(comboBoxD);

var labelA = new Label();
	labelA.Text = "A СТОЛБЦОВ";
	labelA.Location = new System.Drawing.Point(45, 78);
	Controls.Add(labelA);

textBoxA=new TextBox();
	textBoxA.Text = "4"; 
	textBoxA.Location = new System.Drawing.Point(45, 100);
	this.Controls.Add(textBoxA); 

buttonV = new Button();	
	buttonV.Location = new System.Drawing.Point(45, 200);
	buttonV.Text = "SUMCOMB";
	buttonV.Click+=buttonV_Click;
	Controls.Add(buttonV);
}

private void buttonV_Click(object sender, EventArgs e)
	{
	int dd = int.Parse(comboBoxD.Text);
	int aa = int.Parse(textBoxA.Text);
for (int i = 1; i <= dd; i++)
{
string s= "";
for (int j = 1; j <= aa; j++)
s = s+"  "+(i+j).ToString();
var labelI = new Label();
labelI.Text = s;
labelI.Location = new System.Drawing.Point(145, 25+25*i);
Controls.Add(labelI);
}
		}
	}
}

вчерашняя программа заменена на применяющую
comboBoxD из данных не по порядку

[сфинкс]

визуализация пирамида



возникает при сравнении 2-х данных
вложенными циклами

for (int i = min; i <= max-1; i++)
for (int j = i+1; j <= max; j++)

for i=min to max-1
for j=i+1 to max 
next j: next i

и дарю ютюб: Учу EXCEL за 6 минут
https://www.youtube.com/watch?v=I0QV2AZ5W5E

[сфинкс]

Передача данных между программами
специально 1 признак: число узлов

Data transfer between programs
specifically 1 sign: number of nodes

//GRAF11.cs
using System; 
using System.IO;
using System.Drawing;
using System.Diagnostics;
using System.Windows.Forms;
namespace GRAF11
{
	public class Program
{
static void Main()
	{
Application.Run(new GRAF11());
	}
	}
	class GRAF11 : Form 
	{
int[] x = new int[10];
int[] y = new int[10];
Random rand = new Random();
ComboBox comboBoxD;
Button buttonA;

	public GRAF11()
	{
comboBoxD = new ComboBox();
	comboBoxD.Location = new Point(45, 50);
	comboBoxD.Width = 50;
	comboBoxD.Items.Add("7");
	comboBoxD.Items.Add("5");
	comboBoxD.Items.Add("3");
	comboBoxD.SelectedIndex = 1;
buttonA = new Button();	
	buttonA.Location = new System.Drawing.Point(30, 80);
	buttonA.Text = "START";
	buttonA.Click+=buttonA_Click;
var labelV = new Label();
	labelV.Text = "CIRCLES";
	labelV.Location = new System.Drawing.Point(45, 28);
Controls.Add(comboBoxD);
Controls.Add(buttonA);
Controls.Add(labelV);
	}
private void buttonA_Click(object sender, EventArgs e)
	{
for (int i = 1; i <10; i++)
		{
x[i]=150+rand.Next(100);
y[i]=20+rand.Next(100);
		}
var outFile = new StreamWriter("dan.txt");
outFile.WriteLine(comboBoxD.Text);
for (int i = 1; i <10; i++)
		{
outFile.WriteLine(x[i]);
outFile.WriteLine(y[i]);
		}
outFile.Close();

	Process.Start("GRAF22.exe");
		}
	}
}

//GRAF22.cs
using System; 
using System.IO;
using System.Drawing;
using System.Windows.Forms;
namespace GRAF22
{
	public class Program
{
static void Main()
	{
Application.Run(new GRAF22());
	}
}
	class GRAF22 : Form 
	{
int[] x = new int[10];
int[] y = new int[10];
int[] z = new int[2];

	public GRAF22()
	{
var inpFile = new StreamReader("dan.txt");

z[1] = Convert.ToInt32(inpFile.ReadLine());

for (int i = 1; i <10; i++)
		{
x[i] = Convert.ToInt32(inpFile.ReadLine());
y[i] = Convert.ToInt32(inpFile.ReadLine());
		}
inpFile.Close();
}

protected override void OnPaint(PaintEventArgs dav)
	{
Graphics da = dav.Graphics;
Pen pen = new Pen(ForeColor);
for (int i = 1; i <= z[1]; i++)
da.DrawEllipse(new Pen(Color.Magenta, i), x[i]-5, y[i]-5, 10, 10);

for (int i = 1; i <= z[1]-1; i++)
for (int j = i+1; j <= z[1]; j++)
	{
da.DrawLine(new Pen(Color.Red, i), new Point(x[i], y[i]), new Point(x[j], y[j]));
System.Threading.Thread.Sleep(150);
	}
		}
	}
}

учитывая сообщения мол никто не применяет
название файла в начале листинга программы вида
//program.cs
'program.bas
с целью быстро наименовать скопированный листинг
значит будет моё ноу-хау

[сфинкс]

в свете обсуждений повышения посещаемости форума:

? может быть народ привлекут этюды
и домашние задания ?

возможный простейший этюд:

бегущая строка dos
бегущая строка windows forms

на разных языках именно чтобы было понятно каждому
и чтобы многие могли переделать на другой язык быстро

https://www.youtube.com/watch?v=BapFC4RXCHo

например сайт C# обучения с домашними заданиями
Работа с файлами в Си-шарп
http://mycsharp.ru/post/21/2013_06_1...eamwriter.html
mycsharp.ru/post/21/2013_06_12_rabota_s_fajlami_v_si-sharp_klassy_streamreader_i_streamw riter.html

[сфинкс]

накануне за 2 часа сочинил используя только мои наработки
и надеюсь далее развить элементы управления
и добавится какая-нибудь бегущая строка

особенность: элементы под номерами вместо букв
и важно додумать как внедрить индексы и массивы в формы
и применить всевозможные формы управления



плюс кнопки появляются поочерёдно
плюс применён стиль qbasic блок команд в строке и ещё сплющил на 22 строки
плюс мой выбор 1cs=1exe значит включится у многих без Visual Studio

// POLE.cs
using System; using System.IO;
using System.Drawing; using System.Diagnostics;
using System.Windows.Forms; namespace POLE
{
	public class Program
{
static void Main()
	{
Application.Run(new POLE());
	}
	}
	class POLE : Form 
	{
double[] d = new double[5];Random rand = new Random();
ComboBox comboBox1;ComboBox comboBox2;ComboBox comboBox3;ComboBox comboBox4;
Button button1;	Button button2;
TextBox textBox1; TextBox textBox2; TextBox textBox3; TextBox textBox4; 
TextBox textBox5; TextBox textBox6; TextBox textBox7; TextBox textBox8; 

	public POLE()
	{
comboBox1 = new ComboBox();
	comboBox1.Location = new Point(45, 50); comboBox1.Width = 40;
comboBox1.Items.AddRange(new string[] {"7","8","9","10","11","12"});
	comboBox1.SelectedIndex = 1;
comboBox2 = new ComboBox();
	comboBox2.Location = new Point(105, 50); comboBox2.Width = 40;
comboBox2.Items.AddRange(new string[] {"24","23","22","21","20","19"});
	comboBox2.SelectedIndex = 3;
comboBox3 = new ComboBox();
	comboBox3.Location = new Point(165, 50); comboBox3.Width = 40;
comboBox3.Items.AddRange(new string[] {"3","2","1","4","5","6"});
	comboBox3.SelectedIndex = 4;
comboBox4 = new ComboBox();
	comboBox4.Location = new Point(225, 50); comboBox4.Width = 40;
comboBox4.Items.AddRange(new string[] {"13","15","17","14","15","16"});
	comboBox4.SelectedIndex = 5;

button1 = new Button();	
	button1.Location = new System.Drawing.Point(115, 80);
	button1.Width = 80; button1.Text = "Пиши Читай";
	button1.Click+=button1_Click;

var label1 = new Label(); label1.Text = "HOMEPA";
	label1.Location = new System.Drawing.Point(125, 28);

Controls.Add(comboBox1);Controls.Add(comboBox2);Controls.Add(comboBox3);
Controls.Add(comboBox4);Controls.Add(button1);Controls.Add(label1); 
	}

private void button1_Click(object sender, EventArgs e)
	{ 
var outFile = new StreamWriter("dan.txt");
outFile.WriteLine(comboBox1.Text);outFile.WriteLine(comboBox2.Text);
outFile.WriteLine(comboBox3.Text);outFile.WriteLine(comboBox4.Text);
outFile.Close(); var inpFile = new StreamReader("dan.txt");

textBox1=new TextBox(); this.Controls.Add(textBox1); 
	textBox1.Text = inpFile.ReadLine(); textBox1.Width = 40;
	textBox1.Location = new System.Drawing.Point(225, 120);
textBox2=new TextBox(); this.Controls.Add(textBox2); 
	textBox2.Text = inpFile.ReadLine(); textBox2.Width = 40;
	textBox2.Location = new System.Drawing.Point(165, 120);
textBox3=new TextBox(); this.Controls.Add(textBox3); 
	textBox3.Text = inpFile.ReadLine(); textBox3.Width = 40;
	textBox3.Location = new System.Drawing.Point(105, 120);
textBox4=new TextBox(); this.Controls.Add(textBox4); 
	textBox4.Text = inpFile.ReadLine(); textBox4.Width = 40;
	textBox4.Location = new System.Drawing.Point(45, 120);
inpFile.Close();

button2 = new Button();	button2.Text = "Улучшь";
	button2.Location = new System.Drawing.Point(115, 160);
	button2.Click+=button2_Click; 	Controls.Add(button2);
	}

private void button2_Click(object sender, EventArgs e)
	{
d[1]=double.Parse(textBox1.Text);d[2]=double.Parse(textBox2.Text);
d[3]=double.Parse(textBox3.Text);d[4]=double.Parse(textBox4.Text);

for (int i = 1; i <= 3; i++)
	for (int j = i+1; j <= 4; j++)
	{ if (d[i] > d[j])
	{var temp = d[j];d[j] = d[i];d[i] = temp;}
	}

for (int t = 1; t <= 500; t++)
{textBox5=new TextBox();  
	textBox5.Text = (d[1].ToString()); textBox5.Width = 40;
	textBox5.Location = new System.Drawing.Point(45, 220); 
	this.Controls.Add(textBox5); }
for (int t = 1; t <= 500; t++)
{textBox6=new TextBox();
	textBox6.Text = (d[2].ToString()); textBox6.Width = 40;
	textBox6.Location = new System.Drawing.Point(105, 220);
	this.Controls.Add(textBox6); }
for (int t = 1; t <= 500; t++)
{textBox7=new TextBox();
	textBox7.Text = (d[3].ToString()); textBox7.Width = 40;
	textBox7.Location = new System.Drawing.Point(165, 220);
	this.Controls.Add(textBox7); }
textBox8=new TextBox();
	textBox8.Text = (d[4].ToString()); textBox8.Width = 40;
	textBox8.Location = new System.Drawing.Point(225, 220);
	this.Controls.Add(textBox8); 
}}}

компилирую через pole.bat

csc.exe /target:winexe POLE.cs
pause