Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 11.09.2019, 17:07   #51
oldsnowman
Форумчанин
 
Аватар для oldsnowman
 
Регистрация: 20.02.2015
Сообщений: 952
По умолчанию

Какая полезная, и очень нужная программа!
oldsnowman вне форума   Ответить с цитированием
Старый 12.09.2019, 14:12   #52
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 327
По умолчанию

qbasic игра угадай число: 1 строка
Код:
1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 ' guessnum.bas
1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'guessnum.bas

qbasic version of "guess my number game" 1 line

c# игра угадай число: 1 строка
Код:
using System; using System.Text;namespace GURU { class Program { static void Main(string[] args) { Random rand = new Random(); int Russia = 0; int n = 0; int num = 0; dav: if(Russia == 0) {Russia = 2222; num = rand.Next(100)+1; goto dav; }else if (Russia != 0) {Console.Write("? "); n = Convert.ToInt32(Console.ReadLine());} if (n < num) { Console.WriteLine("MORE"); goto dav;}else if (n > num) { Console.WriteLine("less"); goto dav;}else if (n == num) {Console.Write("da"); Console.ReadKey(); }else goto dav;}}}// DANILIN Russia 9-9-2019 guessnum.cs
using System; using System.Text;namespace GURU { class Program { static void Main(string[] args) { Random rand = new Random(); int Russia = 0; int n = 0; int num = 0; dav: if(Russia == 0) {Russia = 2222; num = rand.Next(100)+1; goto dav; }else if (Russia != 0) {Console.Write("? "); n = Convert.ToInt32(Console.ReadLine()) ;} if (n < num) { Console.WriteLine("MORE"); goto dav;}else if (n > num) { Console.WriteLine("less"); goto dav;}else if (n == num) {Console.Write("da"); Console.ReadKey(); }else goto dav;}}}// DANILIN Russia 9-9-2019 guessnum.cs

c# version of "guess my number game" 1 line
учим C# зная basic & excel

Последний раз редактировалось сфинкс; 12.09.2019 в 18:05.
сфинкс вне форума   Ответить с цитированием
Старый 17.09.2019, 15:00   #53
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 327
По умолчанию

qbasic qb64 бегущая строка running string c# dos

Код:
// strundos.cs
// строка бегущая с востока на запад и слева направо 
// вводятся тексты и ширина экрана влияет на скорость 
// https://rextester.com/TQFHVE3360
// http://ideone.com/MoC86R

using System; using System.Text; namespace DAV
{ class Program { static void Main(string[] args) 

{ int ekran = 44; string space = " ";
string ost = "Экспорт Ориентированное Импорто Замещение";
string west = "Export Oriented Replace of Import";
for (int i = 1; i <= ekran+20; i++) {space = space + " ";}

ost = space + ost + space; west = space + west + space; 

for (int i = 1; i <= west.Length-ekran -1; i++)
{ Console.SetCursorPosition(0,2); 
Console.Write(ost.Substring(i, ekran )); 
Console.SetCursorPosition(0,5); 
Console.Write(west.Substring(west.Length-ekran +1-i, ekran )); 
System.Threading.Thread.Sleep(100-ekran);}

Console.ReadKey(); System.Threading.Thread.Sleep(100); }}}
добавляю на qbasic qb64:
Код:
' strunqb64.bas
' running strings from ost to west and from left to right
' plus width of screen include in velocity

ost$ = "Russian Export Orientirovannoe Importo Zameschenie"
west$ = "Russian Export Oriented Replace of Import"
ekran = 66: s$ = " ": FOR i = 1 TO ekran + 10: s$ = s$ + " ": NEXT

ost$ = s$ + ost$ + s$: west$ = s$ + west$ + s$
ost = LEN(ost$): west = LEN(west$)

FOR i = 1 TO west - ekran
    LOCATE 2, 1: PRINT MID$(ost$, i, ekran)
    LOCATE 5, 1: PRINT MID$(west$, west - ekran + 1 - i, ekran)
    _DELAY (.1 - ekran / 1000)
    ' FOR j = 1 TO 10 ^ 7 - ekran ^ (1.5) * 1 * 10 ^ 4: NEXT
NEXT
учим C# зная basic & excel

Последний раз редактировалось сфинкс; 18.09.2019 в 12:41.
сфинкс вне форума   Ответить с цитированием
Старый 30.09.2019, 16:58   #54
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 327
По умолчанию

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

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

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

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


Код:
// ELEMENTS.cs
// csc.exe /target:winexe ELEMENTS.cs
// pause
using System; using System.IO;
using System.Drawing; using System.Diagnostics;
using System.Windows.Forms; namespace ELEMENTS
{
	public class Program

{static void Main()
{Application.Run(new ELEMENTS());}}
	class ELEMENTS : Form 
	{
ComboBox comboBox1; TextBox textBox1, textBox2; 
CheckBox checkBox41, checkBox42; Button button1; 
RadioButton radioButton31, radioButton32, radioButton33;
Label label1, label2, label3, label31, label33; 
Label label4, label41, label42, label5, label6; ListBox listBox5; 
CheckedListBox checkedlistBox6;

	public ELEMENTS()

{ Text = "ELEMENTS"; BackColor = SystemColors.WindowText;
ForeColor = SystemColors.Window; 
ResizeRedraw = true; Width = 480; Height = 240; }

	protected override void OnPaint(PaintEventArgs dan)
	{

comboBox1 = new ComboBox(); 
	comboBox1.Location = new Point(10, 50); comboBox1.Width = 40;
	comboBox1.Items.AddRange(new string[] {"3","2","1","4","5","6"});
	comboBox1.SelectedIndex = 2; comboBox1.BackColor = Color.Red;

textBox2=new TextBox(); textBox2.Text = "2"; textBox2.Width = 20;
textBox2.Location = new Point(70, 50); textBox2.BackColor = Color.Orange;

radioButton31 = new RadioButton(); radioButton31.Location = new Point(170, 50);
	radioButton31.Checked = true; radioButton31.Width = 20;
radioButton32 = new RadioButton(); radioButton32.Location = new Point(150, 70);
	radioButton32.Checked = false; radioButton32.Width = 20;
radioButton33 = new RadioButton(); radioButton33.Location = new Point(130, 90);
	radioButton33.Checked = false; radioButton33.Width = 20;
radioButton33.BackColor = Color.Yellow;

checkBox41 = new CheckBox(); checkBox41.Location = new Point(220, 50);
checkBox41.Checked = true; checkBox41.Width = 20;
checkBox42 = new CheckBox(); checkBox42.Location = new Point(200, 70);
checkBox42.Checked = false; checkBox42.Width = 20;
checkBox42.BackColor = Color.Green; // checkBox42.Appearance = 1; // true

listBox5 = new ListBox(); listBox5.Location = new Point(280, 50);
listBox5.Items.AddRange(new string[] {"6","5","4","1","2","3"}); 
listBox5.Width = 40; listBox5.SelectedIndex = 1; listBox5.BackColor = Color.Blue;

checkedlistBox6 = new CheckedListBox(); checkedlistBox6.Location = new Point(360, 50);
checkedlistBox6.Items.AddRange(new string[] {"1","3","5","2","4","6"}); 
checkedlistBox6.Width = 40; checkedlistBox6.SelectedIndex = 5; 
checkedlistBox6.BackColor = Color.Magenta;

label1 = new Label(); label1.Text = "comboBox";
	label1.Location = new Point(10, 20); label1.Width = 60;
label2 = new Label(); label2.Text = "textBox";
	label2.Location = new Point(70, 20); label2.Width = 60;

label3 = new Label(); label3.Text = "radioButton";
	label3.Location = new Point(130, 20); label3.Width = 80;
label31 = new Label(); label31.Text = "31";
	label31.Location = new Point(130, 50); label31.Width = 20;
label33 = new Label(); label33.Text = "33";
	label33.Location = new Point(170, 90); label33.Width = 20;

label4 = new Label(); label4.Text = "checkBox";
	label4.Location = new Point(210, 20); label4.Width = 60;
label41 = new Label(); label41.Text = "41";
	label41.Location = new Point(240, 53); label41.Width = 20;
label42 = new Label(); label42.Text = "42";
	label42.Location = new Point(230, 78); label42.Width = 20;

label5 = new Label(); label5.Text = "listBox";
	label5.Location = new Point(280, 20); label5.Width = 60;
label6 = new Label(); label6.Text = "checkedlistBox";
	label6.Location = new Point(360, 20); label6.Width = 100;

Controls.Add(comboBox1); Controls.Add(textBox2); Controls.Add(listBox5); 
Controls.Add(checkBox41); Controls.Add(checkBox42); Controls.Add(radioButton31); 
Controls.Add(radioButton32); Controls.Add(radioButton33); 
Controls.Add(checkedlistBox6); 

Controls.Add(label1); Controls.Add(label2); Controls.Add(label3); 
Controls.Add(label4); Controls.Add(label41); Controls.Add(label42); 
Controls.Add(label31); Controls.Add(label33); Controls.Add(label5);
Controls.Add(label6);

button1 = new Button();	button1.Click+=button1_Click;
	button1.Location = new System.Drawing.Point(10, 80);
	button1.Width = 80; button1.Text = "Переставить";

Controls.Add(button1); 
	}

private void button1_Click(object sender, EventArgs e)
	{ 

textBox1=new TextBox(); textBox1.Text = listBox5.Text; 
textBox1.Width = 40;
	textBox1.Location = new Point(10, 120);
Controls.Add(textBox1);
}}}
перечислять через запятые в начале это хорошо
но уменьшить бы листинг где всякие label
вставляются легко да занимают место
учим C# зная basic & excel
сфинкс вне форума   Ответить с цитированием
Старый 10.10.2019, 12:55   #55
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 327
По умолчанию

решил сегодня за 15 минут студенческую задачку
компилируя чисто онлайн C# rextester.com/YWSN67420

Код:
// func.cs
using System; using System.Linq;
using System.Collections.Generic;
using System.Text.RegularExpressions;

namespace Rextester
{ public class Program
    { public static void Main(string[] args)
        {  double A = 3.1416/4; double B = 3.1416; int M = 22; 
Console.WriteLine(A); Console.WriteLine(B); Console.WriteLine(M); 
Console.WriteLine();Console.WriteLine();
for (double x = A; x <= B; x=x+(B-A)/M)
Console.WriteLine(5+Math.Cos(x)); 
} } }
всё благодаря данной моей учебной теме
и вдобавок то решение реально для многих функций

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

парадоксально: это моё 314-е сообщение как 100пи

изучить Math.PI - домашнее задание

https://www.youtube.com/watch?v=V3gfrGL2yro
учим C# зная basic & excel

Последний раз редактировалось сфинкс; 10.10.2019 в 13:06.
сфинкс вне форума   Ответить с цитированием
Старый 10.10.2019, 12:57   #56
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,047
По умолчанию

Не используйте 3.1416
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 18.10.2019, 14:42   #57
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 327
По умолчанию

в мою программу: бегущая строка
горизонтальная мульти строчная
американский qb64 форум включил
вертикальную бегущую строку мульти строчную
Код:
    ' struniq.bas
    ' running strings from ost to west and from left to right
    ' multi-string plus width of screen include in velocity
     
    DIM q$(5): ekran = 66: s$ = " "
    FOR i = 1 TO ekran + 10: s$ = s$ + " ": NEXT
     
    q$(1) = "RRR  U U  SSS  SSS  I   A   N  N    III  QQ  "
    q$(2) = "R R  U U  S    S    I  AAA  NN N     I  Q  Q "
    q$(3) = "RR   U U  SSS  SSS  I  A A  N NN     I  Q  Q "
    q$(4) = "R R  U U    S    S  I  AAA  N  N     I  Q QQ "
    q$(5) = "R R  UUU  SSS  SSS  I  A A  N  N    III  QQ Q"
     
    DIM p$(5), q1, iQ
    FOR i = 1 TO 5: p$(i) = " " + q$(i) + " ": NEXT i: q1 = LEN(p$(1)): iQ = 0
     
    FOR i = 1 TO 5: q$(i) = s$ + q$(i) + s$: NEXT: q = LEN(q$(1))
     
    FOR n = 1 TO 5
        FOR i = 1 TO q - ekran
            FOR j = 1 TO 5
                LOCATE j + 5, 5: COLOR j + i / 15: PRINT MID$(q$(j), i, ekran)
                LOCATE j + 15, 5: COLOR j + i / 22: PRINT MID$(q$(j), q - ekran + 1 - i, ekran)
                GOSUB vertical
    NEXT: _DELAY (.1 - ekran / 3000): NEXT: NEXT
    END
     
    vertical:
    FOR i2 = 1 TO 25
        FOR j2 = 1 TO 5
            COLOR j2 + i2 / 15
            LOCATE i2, (_WIDTH / 2) - 8 + j2
            PRINT MID$(p$(j2), i2 + iQ, 1);
            COLOR j2 + i2 / 22
            LOCATE 26 - i2, (_WIDTH / 2) + 8 - j2
            PRINT MID$(p$(j2), q1 - i2 - iQ, 1);
        NEXT
    NEXT
    _DELAY .1
    IF iQ < q1 THEN iQ = iQ + 1 ELSE iQ = 0
    RETURN
Изображения
 
учим C# зная basic & excel
сфинкс вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос Excel Visual Basic arly123 Помощь студентам 0 20.04.2013 01:43
Visual Basic Microsoft Excel Людмила. Помощь студентам 3 23.11.2012 19:51
Задача Basic Excel tooooool Помощь студентам 0 20.04.2012 20:00
Kак связать Visual Basic с Excel Vceznayka Microsoft Office Excel 2 23.12.2011 04:12
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 20:53


09:09.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.