| Вопрос: Помогите написать простенькую программку в VB | Добавлено: 25.09.08 19:42 |
Автор вопроса:  MadMag | ICQ: 239-791 |
| Здравствуйте, не могли бы мне помочь сделать простенькую программку, которая делает два рандомных числа от 1 до 28, и показывает их, предварительно сохранив в файл, чтобы потом из него считывать, и проверять, последние 10 чисел, если два новых рнд числа совпадают, то то число, которое совпадает, заново рандомить. Спасибо |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 25.09.08 20:37 |
|
не могли бы вы скинуть 5 баксов мне на телефон
задание напиши понятнее mc-black[собака]yandex[точка]ru |
||
|
Номер ответа: 2 Автор ответа:  supaplex777 ICQ: 397711309 Вопросов: 5 Ответов: 13 |
Web-сайт: Профиль | | #2 | Добавлено: 25.09.08 21:43 |
|
Вот, вроде как ты просил... Нужно Form1, Command1 и крупный Text1 с взведённым Text1.MultiLine=True
***НАЧАЛО-FORM1*** Dim num1(9), num2(9) Private Sub Command1_Click() For j = 9 To 1 Step -1 num1(j) = num1(j - 1) num2(j) = num2(j - 1) Next j Do num1(0) = Int(Rnd * 27 + 1) num2(0) = Int(Rnd * 27 + 1) Loop While num1(0) = num2(0) SaveNum 'Вот зачем тебе понадобится эта функция я не понял ShowNum End Sub Private Sub Form_Load() ShowNum End Sub Private Sub SaveNum() For j = 0 To 9 Open App.Path + "\a" + Str(j) + ".txt" For Output As #1 Print #1, num1(j) Close #1 Open App.Path + "\b" + Str(j) + ".txt" For Output As #1 Print #1, num2(j) Close #1 Next j End Sub Private Sub ShowNum() Text1.Text = "" For j = 0 To 9 Text1.Text = Text1.Text + Str(j) + ": " + Str(num1(j)) + " - " + Str(num2(j)) + vbCrLf Next j End Sub ***КОНЕЦ-FORM1*** |
||
|
Номер ответа: 3 Автор ответа: MadMag ICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #3 | Добавлено: 25.09.08 22:55 |
|
Ты спросил, зачем,мне понадобилась эта функция, вот зачем, мне нужно, чтобы num1 и num2 не повторялись чтоб не было например
2: 8 - 11 3: 8 - 2 такого, как такое сделать?, чтоб он снова loop делал? |
||
|
Номер ответа: 4 Автор ответа: MadMagICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #4 | Добавлено: 25.09.08 22:57 |
| соответственно надо, чтоб сохранялось все в одном файле. | ||
|
Номер ответа: 5 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 25.09.08 23:14 |
| Ты сам вообще понимаешь условие? Лично я нифига не понял... | ||
|
Номер ответа: 6 Автор ответа:  supaplex777ICQ: 397711309 Вопросов: 5 Ответов: 13 |
Web-сайт: Профиль | | #6 | Добавлено: 25.09.08 23:29 |
|
Да, здесь тогда действительно нужно подправить Do-Loop:
****** Do num1(0) = Int(Rnd * 27 + 1) num2(0) = Int(Rnd * 27 + 1) Loop While num1(0) = num2(0) Or num1(1) = num1(0) Or num2(1) = num2(0) ****** И еще функцию SaveNum: ****** Private Sub SaveNum() Open App.Path + "\rand.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub ****** Ой, кстати номер моего вечно безденежного телефона - 89606100666 Запиши - забудешь 
|
||
|
Номер ответа: 7 Автор ответа: supaplex777ICQ: 397711309 Вопросов: 5 Ответов: 13 |
Web-сайт: Профиль | | #7 | Добавлено: 25.09.08 23:35 |
|
Тааак, последние поправки:
****** Do num1(0) = Int(Rnd * 28 + 1) num2(0) = Int(Rnd * 28 + 1) Loop While num1(0) = num2(0) Or num1(1) = num1(0) Or num2(1) = num2(0) Or num1(1) = num2(0) Or num2(1) = num1(0) ****** |
||
|
Номер ответа: 8 Автор ответа: MadMagICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #8 | Добавлено: 25.09.08 23:41 |
|
а если мне например нужно до скажем j=7 переменные перебирать, точно также тада?
|
||
|
Номер ответа: 9 Автор ответа: MadMagICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #9 | Добавлено: 25.09.08 23:42 |
| закину деньги завтра, спс)) надо ка самому учиться) | ||
|
Номер ответа: 10 Автор ответа: MadMagICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #10 | Добавлено: 25.09.08 23:49 |
| Ладно, перейдем в Асю))) | ||
|
Номер ответа: 11 Автор ответа: supaplex777ICQ: 397711309 Вопросов: 5 Ответов: 13 |
Web-сайт: Профиль | | #11 | Добавлено: 26.09.08 00:23 |
|
Так, а теперь, надеюсь, совсем уж последнее замечание - нужно поменять местами две функции:
****** Do num1(0) = Int(Rnd * 28 + 1) num2(0) = Int(Rnd * 28 + 1) Loop While num1(0) = num2(0) Or num1(1) = num1(0) Or num2(1) = num2(0) Or num1(1) = num2(0) Or num2(1) = num1(0) ShowNum SaveNum ****** Вот. А то иначе будут сохраняться в файл застарелые данные с необновлённого Text1 |
||
|
Номер ответа: 12 Автор ответа: MadMagICQ: 239-791 Вопросов: 1 Ответов: 8 |
Профиль | | #12 | Добавлено: 26.09.08 00:52 |
| Слушай, а что у тебя за оператор такой? | ||
Страница: 1 |