А нужны ли программы?

Программы для анализа и игры в лотереи

Модераторы: nord73, bubumbr

Ответить
Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1485
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 191 раз
Поблагодарили: 90 раз
Контактная информация:

Re: А нужны ли программы?

Сообщение DANILIN78 » Чт апр 11, 2019 1:14 pm

за считанные дни продвинулся в Windows Forms
используя мои наработки на 99%
и далее изучаю теорию написанную для среды яп
переделывая для системы 1-страничной 1cs=1exe

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

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



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

Код: Выделить всё

//winquall.cs
using System;
using System.Windows.Forms;
using System.IO;

class winQUAll : Form
{
winQUAll()
{
Text= "winQUAll Например A=6 B=7 C=2";
BackColor = System.Drawing.Color.Green;
ForeColor = System.Drawing.Color.White;
ResizeRedraw = true;
Width = 400;
Height = 250;
{
var buttons = new Button();
buttons.Text= "SAVE";
buttons.Dock = DockStyle.Top;
	var zc = -7;
	var labelc = new Label();
	var buttonc = new Button();
	buttonc.Text= "C+3";
	buttonc.Dock = DockStyle.Bottom;
var zb = 12;
var labelb = new Label();
var buttonb = new Button();
buttonb.Text= "B-1";
buttonb.Dock = DockStyle.Bottom;
	var za = 2;
	var labela = new Label();
	var buttona = new Button();
	buttona.Text= "A+1";
	buttona.Dock = DockStyle.Bottom;
var labelx = new Label();
	var d = (zb * zb - 4 * za * zc);
	double x1 = (-zb + Math.Sqrt(d)) / (2 * za);
	double x2 = (-zb - Math.Sqrt(d)) / (2 * za);
	var labeld = new Label();
labeld.Text= "d= " + d +"   X1= " + x1 + "   X2= " + x2 + "  ";
labeld.Dock = DockStyle.Top;
x1 = (Math.Truncate(x1 * 100))/100;
x2 = (Math.Truncate(x2 * 100))/100;
	//labeld.Location = new System.Drawing.Point(80, 15);
labelx.Text= "X1=" + x1 + " X2=" + x2 + "  ";
labelx.Location = new System.Drawing.Point(125, 125);
Controls.Add(labeld);
Controls.Add(labelx);
	labelc.Text= "C=" + zc + ".....";
	labelc.Location = new System.Drawing.Point(20, 100);
Controls.Add(labelc);
buttonc.Click += delegate
	{
	zc = zc+3;
	d = (zb * zb - 4 * za * zc);
	x1 = (-zb + Math.Sqrt(d)) / (2 * za);
	x2 = (-zb - Math.Sqrt(d)) / (2 * za);
labeld.Text= "d= " + d +"   X1= " + x1 + "   X2= " + x2 + "  ";
labeld.Dock = DockStyle.Top;
x1 = (Math.Truncate(x1 * 100))/100;
x2 = (Math.Truncate(x2 * 100))/100;
	//labeld.Location = new System.Drawing.Point(80, 15);
labelx.Text= "X1=" + x1 + " X2=" + x2 + "  ";
labelx.Location = new System.Drawing.Point(125, 125);
labelc.Text= "C=" + zc + "  ...";
labelc.Location = new System.Drawing.Point(20, 100);
	};
Controls.Add(buttonc);
Controls.Add(labeld);
Controls.Add(labelx);
	labelb.Text= "B=" + zb + ".....";
	labelb.Location = new System.Drawing.Point(50, 80);
Controls.Add(labelb);
buttonb.Click += delegate
	{
	zb--;
	d = (zb * zb - 4 * za * zc);
	x1 = (-zb + Math.Sqrt(d)) / (2 * za);
	x2 = (-zb - Math.Sqrt(d)) / (2 * za);
labeld.Text= "d= " + d +"   X1= " + x1 + "   X2= " + x2 + "  ";
labeld.Dock = DockStyle.Top;
x1 = (Math.Truncate(x1 * 100))/100;
x2 = (Math.Truncate(x2 * 100))/100;
	//labeld.Location = new System.Drawing.Point(80, 15);
labelx.Text= "X1=" + x1 + " X2=" + x2 + "  ";
labelx.Location = new System.Drawing.Point(125, 125);
labelb.Text= "B=" + zb + "  ...";
labelb.Location = new System.Drawing.Point(50, 80);
	};
Controls.Add(buttonb);
Controls.Add(labeld);
Controls.Add(labelx);
	labela.Text= "A=" + za + ".....";
	labela.Location = new System.Drawing.Point(80, 60);
Controls.Add(labela);
buttona.Click += delegate
	{
	za++;
	d = (zb * zb - 4 * za * zc);
	x1 = (-zb + Math.Sqrt(d)) / (2 * za);
	x2 = (-zb - Math.Sqrt(d)) / (2 * za);
labeld.Text= "d= " + d +"   X1= " + x1 + "   X2= " + x2 + "  ";
labeld.Dock = DockStyle.Top;
x1 = (Math.Truncate(x1 * 100))/100;
x2 = (Math.Truncate(x2 * 100))/100;
	//labeld.Location = new System.Drawing.Point(80, 15);
labelx.Text= "X1=" + x1 + " X2=" + x2 + "  ";
labelx.Location = new System.Drawing.Point(125, 125);
labela.Text= "A=" + za + "  ...";
labela.Location = new System.Drawing.Point(80, 60);
	};
Controls.Add(buttons);
buttons.Click += delegate
	{
var outFile = new StreamWriter("dan.txt");
outFile.WriteLine(za);
outFile.WriteLine(zb);
outFile.WriteLine(zc);
outFile.WriteLine(d);
outFile.WriteLine(x1);
outFile.WriteLine(x2);
outFile.Close();
	};
Controls.Add(buttona);
Controls.Add(labeld);
Controls.Add(labelx);
	};
}
	static void Main()
	{
Application.Run(new winQUAll());
	}
}
новейший этюд: нажатие кнопки



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

Код: Выделить всё

//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);
}
		}
	}
}
компилируется через bat создающий winexe

csc.exe /target:winexe SUMTAB.cs
pause



Сборники тысяч программ на дюжинах языков программирования
rosettacode.org/wiki/Category:C_sharp
rosettacode.org/wiki/Category:QB64

DJON
Новичок
Новичок
Сообщения: 10
Зарегистрирован: Пн мар 11, 2019 4:29 am
Благодарил (а): 2 раза

Re: А нужны ли программы?

Сообщение DJON » Пт апр 12, 2019 7:10 am

DANILIN78 писал(а):
Чт апр 11, 2019 1:14 pm
Сборники тысяч программ на дюжинах языков программирования
rosettacode.org/wiki/Category:C_sharp
rosettacode.org/wiki/Category:QB64
DANILIN78 скажи пожалуйста твоя прога на кено двойки работает ? Я смотрел видео толком не чего не понял,сам пользуюсь только телефоном ищу ставки вручную.Есть смысл включать комп ?

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1485
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 191 раз
Поблагодарили: 90 раз
Контактная информация:

Re: А нужны ли программы?

Сообщение DANILIN78 » Пт апр 12, 2019 10:25 am

моя прога на кено двойки работает только в компьютере

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

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

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

и опережая вопросы: windows & смартфонные версии
программ для лотерей создавать не предполагаю

зато новейшие графики подтверждают: выгодны кено 2-йки


и ещё обновил ютюб Учу EXCEL за 6 минут

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1485
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 191 раз
Поблагодарили: 90 раз
Контактная информация:

Re: А нужны ли программы?

Сообщение DANILIN78 » Пт апр 12, 2019 3:17 pm

системы с доступными шансами угадать
около 1/2 ... 1/3 ... 1/4
освещаются в сообщениях

"Волны вероятности повышают надёжность"

viewtopic.php?p=120981#p120981
viewtopic.php?p=121000#p121000
viewtopic.php?p=121095#p121095

как контроль 0 и 1
как контроль нулей и единиц

DJON
Новичок
Новичок
Сообщения: 10
Зарегистрирован: Пн мар 11, 2019 4:29 am
Благодарил (а): 2 раза

Re: А нужны ли программы?

Сообщение DJON » Ср апр 17, 2019 6:16 pm

DANILIN78 писал(а):
Пт апр 12, 2019 10:25 am
моя прога на кено двойки работает только в компьютере

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

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

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

и опережая вопросы: windows & смартфонные версии
программ для лотерей создавать не предполагаю

зато новейшие графики подтверждают: выгодны кено 2-йки


и ещё обновил ютюб Учу EXCEL за 6 минут
Ок,сп

Ответить

Вернуться в «Программы для лотереи»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя