ваш опыт монетизации ваших ежедневных дел

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

? почему C# & Basic & Excel & qb64 ?
потому что C# & qb64 компилируемые

у меня компилятор C# csc.exe в Win7
и компилирую через индивидуальный bat

Excel: среды даже микро размера
Basic: qb64 совместимый с Win7

квадратное уравнение qb64:

Код: ' quadratic equation QB64 DAV INPUT "INPUT A"; AINPUT "INPUT B"; BINPUT "INPUT C"; CD = B ^ 2 - 4 * A * CIF D < 0 THEN PRINT "D<0 ": ENDPRINT "OTBET: "PRINT "D ="; DX1 = (-B + SQR(D)) / (2 * A)X2 = (-B - SQR(D)) / (2 * A)PRINT "X1 ="; X1PRINT "X2 ="; X2ENDквадратное уравнение C# без проверки d<0:

Код: // quadratic equation C# DAV using System;using System.Text;using System.IO;namespace DAV { class Program { static void Main(string[] args) {Console.Write("INPUT A: ");long a = Convert.ToInt32(Console.ReadLine());Console.Write( "INPUT B: ");long b = Convert.ToInt32(Console.ReadLine());Console.Write( "INPUT C: ");long c = Convert.ToInt32(Console.ReadLine());long d = (b * b - 4 * a * c);Console.WriteLine("OTBET: ");Console.Write("D = "); Console.WriteLine(d);var x1 = (-b + Math.Sqrt(d)) / (2 * a);var x2 = (-b - Math.Sqrt(d)) / (2 * a);Console.Write("X1 = "); Console.WriteLine(x1);Console.Write("X2 = "); Console.WriteLine(x2); Console.ReadKey(); } }}квадратное уравнение excel без проверки d<0:
excel: скопировать и вставить в A1

Код: 672=A2^2-4*A1*A3=(-A2+КОРЕНЬ(A4))/(2*A1)=(-A2-КОРЕНЬ(A4))/(2*A1)дальше нужно изучить условия
создав игрушку "угадай число"

анимация компиляции Win7 Framework

обнаружен онлайн компилятор C#
и ещё десятков языков без qbasic
работающий без регистрации

и там набрав программу возможно
сохранить состояние с программой

например программа C# Миллиард
угадывающая 1 из 1'000'OOO'ooo
за =log(10^9;2) за 30 ходов

Код: //milliard & billionusing System;using System.Text;namespace DAV { class Program { static void Main(string[] args) {int h2 = 1000000000;//or 500int h1 = 0;Random rand = new Random();int c = rand.Next(h2); //computerint h = rand.Next(h2); //human or h2/2; int t = 0;dav: t++;Console.WriteLine();Console.Write(t);Console.W rite(" ");Console.Write(c);Console.Write(" ");Console.Write(h);Console.Write(" ");if(h < c) { Console.Write("MORE"); int a = h; h = (h + h2) / 2; h1 = a; goto dav; }else if(h > c) { Console.Write("less"); int a = h; h = (h1 + h) / 2; h2 = a; goto dav; }Console.Write("win by ");Console.Write(t);Console.Write(" steps"); Console.ReadKey(); } }}rextester.com/JRGX29275

поискав вижу программы хранятся ... 5 лет
и наверняка есть онлайн компилятор C#
и реально ещё находятся через яндекс поиск

но т.к. интересует графика
пока пользуюсь cs & bat

та же программа на qbasic million гораздо короче

Код: 'milliionRANDOMIZE TIMERt=0:h1=0:h2=10^6c=INT(RND*h2) 'comph=INT(RND*h2) 'human10 t=t+1: PRINT t; c; h;IF h<c THEN PRINT "MORE": a=h: h=INT((h+h2)/2): h1=a: GOTO 10IF h>c THEN PRINT "less": a=h: h=INT((h1+h)/2): h2=a: GOTO 10PRINT "win by "; t; " steps"ENDсборник сравнений программ на разных языках программирования
https://rosettacode.org/wiki/Category:C_sharp
https://rosettacode.org/wiki/Category:QB64

рисуем 5D рельеф создав случайный массив высот

на QB64 за 5 минут и плюс за час
красота и универсальность



Код: ' 5д рельеф и массив SCREEN 12: RANDOMIZE TIMER: DIM a(12,12)FOR t=1 TO 12 ' количество FOR x=1 TO 12: FOR y=1 TO 12a(x,y)=INT(RND*20)'высоты NEXT: NEXT: CLS FOR y=1 TO 12: FOR x=1 TO 11LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*y-a(x+1,y)), y NEXT: NEXT FOR x=1 TO 12: FOR y=1 TO 11LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*(y+1)-a(x,y+1)), x NEXT: NEXT:SLEEP 1NEXTENDна C# использована программа маятник
из-за чего остались непонятные строки про таймер
и от вне/внутри циклов зависит функция случайных
и чтоб понять создана другая программа случайных

как очищать экран пока неясно и строит медленно
и неясно как задавать цвет линиям переменными



ещё как показывает диспетчер задач
простая C# программа или массив заполняет память
и только в конце строка очистки памяти спасает

Код: //RELIEFusing System;using System.Drawing;using System.Windows.Forms;class RELIEF{Timer timer; // неясно Form form; int[,] a = new int[22, 22];static void Main(string[] args) {var p = new RELIEF();}public RELIEF(){ form = new Form() { Text = "RELIEF", Width = 600, Height = 360 }; timer = new Timer() { Interval = 200 }; // неясно timer.Tick += delegate(object sender, EventArgs e) // неясно { Random rand = new Random();// высоты for (int x = 1; x <=12; x++) { for (int y = 1; y <=12; y++) a[x,y]=rand.Next(20); }// параллели Х for (int y = 1; y <=12; y++) { for (int x = 1; x <=11; x++) { var x1 = 50 + 20*x + 20*y; var y1 = 300 - 20*y - a[x,y]; var x2 = 50 + 20*(x+1) + 20*y; var y2 = 300 - 20*y - a[x+1,y]; Bitmap dblBuffer = new Bitmap(form.Width, form.Height); Graphics g = Graphics.FromImage(dblBuffer); Graphics f = Graphics.FromHwnd(form.Handle); g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));// f.Clear(Color.Green); // оч.экрана не здесь f.DrawImage(dblBuffer, new Point(0, 0)); } }// параллели У for (int x = 1; x <=12; x++) { for (int y = 1; y <=11; y++) { var x1 = 50 + 20*x + 20*y; var y1 = 300 - 20*y - a[x, y]; var x2 = 50 + 20*(x+1) + 20*y; var y2 = 300 - 20*(y+1) - a[x, y+1]; Bitmap dblBuffer = new Bitmap(form.Width, form.Height); Graphics g = Graphics.FromImage(dblBuffer); Graphics f = Graphics.FromHwnd(form.Handle); g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));// f.Clear(Color.Green); // оч.экрана не здесь f.DrawImage(dblBuffer, new Point(0, 0)); } }Array.Clear(a, 0, 22); // очищает память }; timer.Start(); // неясно Application.Run(form); } }кроме C# маятник есть C# диагонали проще
и больше ни одна программа C# не включилась
чтобы как в basic: 1 файл = 1 программа

поэтому важна моя данная программа 5D рельеф
рисующая хоть что-то предсказуемо
и одновременно изучаем вложенные циклы

и ещё ищу графические программы компилируемые:

1 файл = 1 программа
1bas=1exe & 1cs=1exe

и уже созданы этюды про строки

Программа сразу создана в C# и изучены:
случайные файл запись чтение курсор пауза время

Результат:
Код: 96379693968739885839757333858683485334966947975436 75795793797746* * * * * * * * * * * ** * * * * *** * * * * * * * * * * * ** ** * * ** *** * ** * * * * * * * *** * ** ** ****** **** **** *** * ** * * *** * **** *** ** ** ** **** *** **** **** ***** **** ***** ** **** **** ******** **** *** **** **** ***** **** ***** *** *********** ******** ************************************************** ************************************************** ************************************************** ************************************************ 0.0468зато каждый: может + должен = обязан

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

1bas=1 exe & 1cs=1exe

Код: // rand file write read cursor pause time // случайные файл запись чтение курсор пауза время using System;using System.Text;using System.IO;namespace DAV { class Program { static void Main(string[] args) {var start = DateTime.Now;Random rand = new Random();var outFile = new StreamWriter("dav.txt");for (int i = 1; i <= 64; i++){int a = 3+rand.Next(7);outFile.WriteLine(a);}outFile.Close ();var inpFile = new StreamReader("dav.txt");Console.Clear();for (int i = 1; i <= 64; i++){int b = Convert.ToInt32(inpFile.ReadLine());Console.SetCur sorPosition(i+5,5); Console.Write(b); for (int j = 1; j <= b; j++){Console.SetCursorPosition(i+5,16-j); Console.Write("*"); System.Threading.Thread.Sleep(100);}}inpFile.Close ();var finish = DateTime.Now;Console.SetCursorPosition(30,17); Console.Write(finish-start);Console.ReadKey(); }}}Важно: для обучения используется моя главная программа

новая программа соединяет 8 случайных точек



причём пауза между рисованием линий специально
и заодно иллюстрируется комбинаторика



мои любимые пирамиды (с) сфинкс
где главное: связь именно 2-х точек

Код: //DAV.csusing System; using System.Drawing;using System.Windows.Forms;class DAV: Form { public static void Main() { Application.Run(new DAV()); } public DAV() { Text = "DAV"; BackColor = SystemColors.WindowText; ForeColor = SystemColors.Window; ResizeRedraw = true; Width = 600; Height = 360; } protected override void OnPaint(PaintEventArgs dan) {int[] x = new int[10];int[] y = new int[10];Random rand = new Random();for (int k = 1; k < 2; k++) { for (int i = 1; i <=8; i++) {x[i]=50+rand.Next(400);y[i]=50+rand.Next(200); } Graphics da = dan.Graphics; Pen pen = new Pen(ForeColor);for (int i = 1; i <=8; i++)da.DrawEllipse(new Pen(Color.Magenta, i), x[i]-10, y[i]-5, 20, 10);for (int i = 1; i <= 7; i++) {for (int j = i+1; j <= 8; j++) { Graphics dav = dan.Graphics;dav.DrawLine(new Pen(Color.Red, i), new Point(x[i], y[i]), new Point(x[j], y[j]));System.Threading.Thread.Sleep(200); } // j }//i }//kSystem.Threading.Thread.Sleep(5000); Array.Clear(x, 0, 10); Array.Clear(y, 0, 10); }}очевидно программа создана без бэйсик
и далее переделаю без таймера рельеф

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

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

напоминаю страницы созвучные данной моей теме
https://rosettacode.org/wiki/Category:C_sharp
https://rosettacode.org/wiki/Category:QB64

1 апреля



1 april



? легко нарисовать данные картинки на basic & c# ?

? is it easy to draw these pictures on basic & c# ?

https://rosettacode.org/wiki/Category:C_sharp
https://rosettacode.org/wiki/Category:QB64

анимация "Кот Бэйсик" и далее возможна параметризация
animation "Cat Basic" and further parameterization is possible

Код: //cat.csusing System; using System.Drawing;using System.Windows.Forms;class cat: Form { public static void Main() { Application.Run(new cat()); } public cat() { Text = "cat"; BackColor = System.Drawing.Color.Blue; ForeColor = System.Drawing.Color.Red; ResizeRedraw = true; Width = 600; Height = 360; } protected override void OnPaint(PaintEventArgs dan) {Pen pen = new Pen(ForeColor);SolidBrush BlueBrush = new SolidBrush(Color.Blue);Graphics dav = dan.Graphics; for (int k = 1; k <=5; k++) for (int x = -50; x <=50; x++) {int y=0;if (x< 50) y=-x/5;if (x< 25) y= x/5;if (x<-25) y=-x/5;if (x<-50) y= x/5;dav.FillRectangle(BlueBrush, 0, 120, 600, 200);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+195, 225, 10, -80);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+200, 200, 100, y+50);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+280, y+170, 50, 50);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+290, y+190, 10, 10);//x/5, x/5dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+294, y+194, 2, 2);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+310, y+190, 10, 10);//x/5, x/5dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+314, y+194, 2, 2);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+280, y+205, 25, 10);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+310, y+205, 25, 10);dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+280, y+190), new Point(x*k+280, y+160));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+290, y+175), new Point(x*k+280, y+160));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+330, y+190), new Point(x*k+330, y+160));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+320, y+175), new Point(x*k+330, y+160));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+210, 240), new Point(x*k+210, 280));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+220, 230), new Point(x*k+220, 290));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+280, 230), new Point(x*k+280, 290));dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+290, 240), new Point(x*k+290, 280));dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+205, 275, 10, 10);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+215, 285, 10, 10);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+275, 285, 10, 10);dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+285, 275, 10, 10);System.Threading.Thread.Sleep(10);}}}

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

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



Код: //winqua.csusing 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
и далее испытываю движки и формы внутри окна

добавлено через 2 часа 2 минуты

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



Код: //poleQUA.csusing 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-х знаков после запятой
и заодно стиль оформления удобный для форумов и для распечатки

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

Код: //SUMTAB.csusing System; using System.Windows.Forms;namespace SUMTAB{ public class Program { static void Main() {Application.Run(new SUMTAB()); } } class SUMTAB : Form { TextBox textBoxD; TextBox textBoxA; Button buttonV;public SUMTAB() {var labelD = new Label(); labelD.Text = "D СТРОК"; labelD.Location = new System.Drawing.Point(45, 28); Controls.Add(labelD);textBoxD=new TextBox(); textBoxD.Text = "3"; textBoxD.Location = new System.Drawing.Point(45, 50); this.Controls.Add(textBoxD); 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 = "SUMTAB"; buttonV.Click+=buttonV_Click; Controls.Add(buttonV);}private void buttonV_Click(object sender, EventArgs e) { int dd = int.Parse(textBoxD.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);} } }}

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

Data transfer between programs
specifically 1 sign: number of nodes



Код: //GRAF11.csusing 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(comboBox D.Text);for (int i = 1; i <10; i++) {outFile.WriteLine(x[i]);outFile.WriteLine(y[i]); }outFile.Close(); Process.Start("GRAF22.exe"); } }}
Код: //GRAF22.csusing 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); } } }}

Учу EXCEL за 6 минут
YouTube YouTube

От создателя АСС и Web token profit,стартует новый проект Prizm Wector.Уже сейчас на предстарте идет покупки лицензий,старт начнется 12 октября.Могут быть сумасшедшие очереди на их токен который будет расти в цене,поспешите:https://prizmwector.com/partner/1852711

Ещё есть 2 денька до конца промокода?