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

сфинкс · 26.03.2019

Учим 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"; A
INPUT "INPUT B"; B
INPUT "INPUT C"; C

D = B ^ 2 - 4 * A * C

IF D < 0 THEN PRINT "D<0 ": END

PRINT "OTBET: "
PRINT "D ="; D

X1 = (-B + SQR(D)) / (2 * A)
X2 = (-B - SQR(D)) / (2 * A)

PRINT "X1 ="; X1
PRINT "X2 ="; X2

END

квадратное уравнение 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

Код:

6
7
2
=A2^2-4*A1*A3
=(-A2+КОРЕНЬ(A4))/(2*A1)
=(-A2-КОРЕНЬ(A4))/(2*A1)

дальше нужно изучить условия
создав игрушку "угадай число"

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

сфинкс · 27.03.2019

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

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

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

Код:

//milliard & billion
using System;
using System.Text;
namespace DAV 
{
	class Program
	{
	static void Main(string[] args) 
	{
int h2 = 1000000000;//or 500
int h1 = 0;
Random rand = new Random();
int c = rand.Next(h2); //computer
int h = rand.Next(h2); //human or h2/2; 
int t = 0;

dav: 
t++;
Console.WriteLine();
Console.Write(t);
Console.Write("  ");
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 гораздо короче

Код:

'milliion
RANDOMIZE TIMER
t=0:h1=0:h2=10^6
c=INT(RND*h2) 'comp
h=INT(RND*h2) 'human
10 t=t+1: PRINT t; c; h;
IF h<c THEN PRINT "MORE": a=h: h=INT((h+h2)/2): h1=a: GOTO 10
IF h>c THEN PRINT "less": a=h: h=INT((h1+h)/2): h2=a: GOTO 10
PRINT "win by "; t; " steps"
END

сборник сравнений программ на разных языках программирования
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

сфинкс · 28.03.2019

рисуем 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 12
a(x,y)=INT(RND*20)'высоты
    NEXT: NEXT: CLS
    FOR y=1 TO 12: FOR x=1 TO 11
LINE (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 11
LINE (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 1
NEXT
END

на C# использована программа маятник
из-за чего остались непонятные строки про таймер
и от вне/внутри циклов зависит функция случайных
и чтоб понять создана другая программа случайных

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

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

Код:

//RELIEF
using 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

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

сфинкс · 29.03.2019

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

Результат:

Код:

9637969396873988583975733385868348533496694797543675795793797746

*   * * *    *     *                  *  *  *        *  *  *
*   * * * *  *** * *      * * *  *    *  *  *        *  *  *
*  ** * * ** *** * ** *   * * *  *    *  * ***    * ** ** ****
** **** **** *** * ** *   * ***  *    **** ***   ** ** ** **** *
** **** **** ***** ****   *****  **   **** ****  ******** **** *
** **** **** ***** ****   ***** ***  *********** ******** ******
****************************************************************
****************************************************************
****************************************************************
                                  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.SetCursorPosition(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(); 
}
}
}

Важно: для обучения используется моя главная программа

сфинкс · 30.03.2019

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

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

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

Код:

//DAV.cs
using 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
		}//k
System.Threading.Thread.Sleep(5000);
	Array.Clear(x, 0, 10);
	Array.Clear(y, 0, 10);
	}
}

очевидно программа создана без бэйсик
и далее переделаю без таймера рельеф

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

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

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

сфинкс · 01.04.2019

1 апреля

1 april

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

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

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

сфинкс · 03.04.2019

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

Код:

//cat.cs
using 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/5
dav.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/5
dav.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);
}
}
}

сфинкс · 06.04.2019

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

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

Код:

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

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

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

Код:

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

сфинкс · 11.04.2019

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

Код:

//SUMTAB.cs
using 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);
}
		}
	}
}

сфинкс · 14.04.2019

Передача данных между программами
специально 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);
	}
		}
	}
}

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

сфинкс · 07.08.2019

WarCraft2 всепоглощающие новые миры
WarCraft2 allconsuming new worlds

новейшие карты включают все постройки
новейшие сохранения включают всё развитие

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

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

сфинкс · 02.09.2019

новейший ютюб: WarCraft2 на экране 1600 про 5 моих карт за 2 минуты

newest youtube: warcraft2 on screen 1600 about 5 of my maps in 2 minutes

WarCraft2 1600 Russian 5 PUD Danilin всепоглощающие allconsuming Wargus

монетизировать пытаюсь выйдя на иностранные форумы

Ирина48 · 15.01.2020

Выполняю дорогостоящие задания и тем самым узнаю много нового и интересного из них.

webnewsgroup · 15.01.2020

не поленился всю ветку прочитать)) очень интересно и познавательно, но ТС видно с форумами напутал :biggrin2:

Здесь уважаемый, люди все больше по хайпам и другим финансовым вопросам прибиваются и ваш кот в бейсике даже очень хорош, но вот как его монетизировать :dirol:

вопрос...

mihail1 · 19.01.2020

Ирина48 написал(а):
Выполняю дорогостоящие задания и тем самым узнаю много нового и интересного из них.

12 руб на форумах и соц. сетях за благие посты о хайпе рой-клуб и псевдокрипту призм.
Это не дорогостоящее занятие, а пейдпостерство, соучастие в мошенничестве за деньги. Ст. 159 УК РФ

webnewsgroup это и вам ответ. Нафик такая "монетизация" нужна, если даже на этом форуме легально, законно можно зарабатывать в платных темах, но меньше.

Ирина48 · 08.02.2020

Каждый выбирает своё.Только общение не подразумевает хамство и хаянье чужого труда.Типа вы один здесь самый умный,а все остальные так себе,годятся только дерьмо за вами убирать наа земле.Прежде,чем хаять других,представьте ,что на их месте ваша мама или жена, или дочь ...У них своё мнение и имеет место быть и жить,не взирая на то ,нравится это лично вам или нет.Мы не имеем права навязывать своё мнение никому.Высказаться можем,но не более и то вежливо и не навязчиво.

MarketIT · 11.02.2020

Монетизирую регулярно свои навыки в СЕО, помимо основной работы, занимаясь менторством

mihail1 · 14.02.2020

Ирина48 написал(а):
Только общение не подразумевает хамство и хаянье чужого труда.

Не всякий труд полезен. Более того, конкретно, в вашем случае, он категорически вреден и может принести другим ущерб и боли. В пирамиду людей зазываете из собственной корысти.

Вот подобный труд, как раз таки и надо, по вашему же выражению - "хаять". Вы что же, другого отношения ожидали?

Уж государство так ещё круче "обхаит" таких субъектов, вплоть до залёта на нары.

Ирина48 · 18.02.2020

Я даже не буду с вами спорить или что-то доказывать.Это бессмысленно."Юнцы безусые "всегда страдают юношеским максимализмом.С возрастом это пройдёт и вы станете добрее .А насчёт корысти..,тут уж вы,батенька заврались....Или вообще судите о предмете,даже не удосужившись изучить.Ай-яй-я,как не хорошо.Моей корысти нет,по той причине,что я ничего не буду с этого иметь вообще .Там нет Никаких материальных вознаграждений .Мне всё равно,будут люди там работать по моей информации или по чье-то другой.У вас не получилось? Не расстраивайтесь,учитесь .И всё у вас получится.А пиариться за чужой счёт ,это гадко.И хватит мне косточки перемывать .Тема закрыта.

mihail1 · 20.02.2020

Ирина48 написал(а):
Я даже не буду с вами спорить или что-то доказывать.Это бессмысленно."Юнцы безусые "всегда страдают юношеским максимализмом.С возрастом это пройдёт и вы станете добрее

Э, учила внучка бабушку...

Заметил- строите во всю из себя умудрённую жизненным опытом тётку.
Только на этом форуме я уже 7 лет. И опыта у меня уж куда побольше вашего. Ваш же неведомый никому "опыт" только на словах.
Когда дело касается денег - в ходу только доказанные факты. Эмоции не к месту и выглядят всего лишь, как попытка развеса лапши по ушам. Вы на форуме инвестиций.
У меня всё с фактами в профиле как раз порядок.

Ирина48 написал(а):
Или вообще судите о предмете,даже не удосужившись изучить.Ай-яй-я,как не хорошо.Моей корысти нет,по той причине,что я ничего не буду с этого иметь вообще .

Уж кто бы тут ай-яй-якал, но со стороны пейдпостерка ну до того же лицемерно выглядит.
Корысти не имеете? И чисто из сострадания к бедным и желания сделать всех богатыми вкидываете лохозывальные посты?

Пример https://mmgp.com/showthread.php?t=631814&page=30#post16921969

"Я не знаю как кому,а лично мне очень нравится,у меня прям азарт проснулся.За месяц(это если суммарно взять)я заработала на Рой движении более 700 монет.Ну и плюс чуть--чуть инвестиций,плюс процент парамайнинга,итог -почти 1500 монет.Ну разве я не молодец?"

Ага, "молодец" по пустословию. Ни скрина, ничего нет с подтверждением.
Впрочем, по любому это грязные деньги. Но доказательства даже такому "заработку" обязательны.

Ваш и весь профиль - почти одни лохозазывальные посты.https://mmgp.com/member.php?u=486831
Так что никакой возраст жадности и лжи не помеха.

Всем набивалам постов на форумах и соц. сетях мошенники рой-клуба платят деньги. Так сказать, "официально" для зазыва дурачков.
Вот и набивают совершенно тупые посты. Вот и все ваши "заработки".

Повторяю- это соучастие в мошенничестве ст. 159 УК РФ
У подобных пейдпостеров жадность бежит впереди разума.

Перестаньте врать.

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

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

МАСТЕР

Интересующийся

Любитель

ТОП-МАСТЕР

Интересующийся

Интересующийся

ТОП-МАСТЕР

Интересующийся

ТОП-МАСТЕР

Похожие темы