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

[p51x]

Еще раз запостите этот бред в виде картинки, а то не всем понятно, что вы идиот. Давайте приводите код на шарпе, который writeln(2+2); выдаст 5. А потом аргументы, почему на шарпе нельзя сделать диаграммы. Только учтите, что на ваше qb64 диаграммы получаются, потому что за вас собрали парсер васика (не на васике написанный) + добавили граф.либу (не на васике) + "компонент"... и чем это отличается от кидания какого-нибыдь TChart в шарпе?

[сфинкс]

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

Console.Write("2+2=5");

моя остроумная картинка показывает:
хоть что крутое созданное на бэйсик
в 21-м веке вызывает отторжение публики

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

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

? почему негативный выворачивает наизнанку ?

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

[p51x]

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

моя остроумная картинка показывает:

вы себе слшком льстите

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

хоть что крутое созданное на бэйсик
в 21-м веке вызывает отторжение публики

Только в вашей голове или среди таких же фанатиков

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

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

То-то тут полно тем от студней с простейшими программами и от этих тем так и веет восторгом...

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

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

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

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

? почему негативный выворачивает наизнанку ?

хорошо, раз перешли на личности, то буду стараться иначе как идиот вас не называть

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

просто защищает псевдо элитарность C#
от знающих бэйсик

врунишка, покажешь, где я говорил про элитарность шарпа или что те, кто знает васик, плохие люди?

[сфинкс]

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

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

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

важнейшее из букв выше

"вход в псевдо элиту реален переделывая программы из бэйсик в C#"
и
"на любые вопросы - иди самостоятельно, долго и не в этой теме учи язык"

здесь ответы простейшие:

1. мне никто не подсказывает и ищу сам
2. большинство тем ещё не рассмотрены: циклы массивы и др.

1. + 2. = 3. развитие тем поможет в будущем читателям
переделывать программы бэйсик на си шарп и обратно

в принципе тема лучше для ветки "свободное общение"

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

[сфинкс]

обнаружен онлайн компилятор 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

результаты на диапазоне до 100:

1    40    11    MORE
2    40    55    less
3    40    33    MORE
4    40    44    less
5    40    38    MORE
6    40    41    less
7    40    39    MORE
8    40    40    win by  8  steps

[kvitaliy]

PureBasic:

;milliion
 OpenConsole()
Define t=1,h1=0,h2=1000000
c = Random(h2) ;comp
h = Random(h2) ;human

Repeat
  PrintN("Step " + t + " Human = "  + h + " CPU = " + c)  
  t=t+1  
  If h < c
    PrintN ( " MORE"): a = h: h = Int((h+h2)/2): h1 = a  
  ElseIf h > c 
    PrintN  (" less"): a = h: h = Int((h1+h)/2): h2 = a
  EndIf
Until h = c
PrintN( "win by " + t + " steps.")
Input()
End

[сфинкс]

рисуем 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

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



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

[p51x]

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

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

Да и вообще, код - гавно. Очень долго бить по рукам тому, кто написал такой код... одно забивание на нумерацию с 0 чего стоит (а что? просто увеличим размер массива, чтоб можно было с 1 ). Вы серьезно не заметили Pens.Red и не поняли как с этим работать?.. Как же вы учить C# собрались, если базовых понятий не имеете?..

[сфинкс]

массив дальновидно увеличен для динамики
чтобы в дальнейшем получился мультик
про перемещение по 5Д рельефу

тема называется не "учу" но: "учим" и ведь
уводить в сторону от решения недальновидно все умеют

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

и за неимением работающих программ C# графических
о чём бы сочинить сообщение
приходится менять единственные стартовавшие

и обязательно чтоб было 1bas=1exe & 1cs=1exe
и ещё ищу программы построения рельефа

[p51x]

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

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

Как самокритично.

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

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

Ну так вперед. Зачем вам таймер с 200 мс задержкой? Крутите как на васике в цикле. И создания объекта рандома вынеесите из цикла, как на васике. И цвет задавайте, а не тупо вставили один и "как же ппоменять"... Тема же вроде про передлки васика в шарп, а пока бред один.