-14 / -8 / 0
Регистрация: 18.07.2016
Сообщений: 85
1

Генерация случайных чисел в заданном диапазоне

25.10.2016, 20:42. Показов 5460. Ответов 16
Метки нет (Все метки)

Требуется создать код на языке VB.NeT для создание рандомных чисел, с минимальным и максимальным пределом - 9 (не меньше не больше). И при этом после каждого третьего числа поставить знак отделения (* _ - и т.д.).
Пример 573.663.683
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2016, 20:42
Ответы с готовыми решениями:

Создать массив из 6 случайных чисел в диапазоне [10,110]
Задача: Создать массив из 6 сл. чисел в диапазоне , найти мин, максим, среднее. Массив и результаты...

Найти среднее арифметическое элементов массива случайных чисел в определенном диапазоне
подскажите пожалуйста, как найти среднее арифметическое элементов массива случайных чисел в...

В заданном диапазоне натуральных чисел найти все палиндромы
Помогите пожалуйста, я новичок в Visual Basic, мне задали сделать: Приложение, которое в заданном...

Генерация строки из случайных символов, как в генераторах ключей
Возможно ли на visual basic сделать что-то типа кейгена, ну к примеру чтобы рандомно выводились...

16
Почетный модератор
21362 / 9096 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
26.10.2016, 06:08 2
Цитата Сообщение от GeorgyTheBlack Посмотреть сообщение
с минимальным и максимальным пределом - 9 (не меньше не больше)
Это не понял
Вариант
VB.NET
1
2
3
4
5
6
        Dim Section(2) As Integer
        Dim R As New Random
        For I As Integer = 0 To Section.Length - 1
            Section(I) = R.Next(100, 1000)
        Next
        MsgBox(String.Join(".", Section.[Select](Function(x) x.ToString()).ToArray()))
2
-14 / -8 / 0
Регистрация: 18.07.2016
Сообщений: 85
26.10.2016, 13:49  [ТС] 3
Памирыч, вообщем чтобы цифр было всего 9, не больше не меньше. Пример 202.303.404.
Нужно чтобы отображал в textbox и чтобы он их генерировал до остановки (кнопкой например)
0
Почетный модератор
21362 / 9096 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
26.10.2016, 13:50 4
GeorgyTheBlack, тогда я правильно понял
1
-14 / -8 / 0
Регистрация: 18.07.2016
Сообщений: 85
26.10.2016, 14:01  [ТС] 5
Памирыч, как сделать так, чтобы он без остановки в textbox генерировал (после нажатия на кнопку останавливался генератор).
Я новичок в VB.NeT, не суди строго.
0
Лень — мое второе и
3163 / 2361 / 676
Регистрация: 28.11.2014
Сообщений: 3,564
Записей в блоге: 3
26.10.2016, 14:15 6
GeorgyTheBlack, создай объект timer и впиши в его тик этот код. Должно получиться как-то так
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Form1
    Sub GenerateNumbers() 'процедура генерации чисел
        Dim Section(2) As Integer
        Dim R As New Random
        For I As Integer = 0 To Section.Length - 1
            Section(I) = R.Next(100, 1000)
        Next
        TextBox1.Text = String.Join(".", Section.[Select](Function(x) x.ToString()).ToArray())
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        GenerateNumbers() ' по тику вызываем процедуру
    End Sub
    Dim k As Integer = 0 ' переменная следит за тем, нажата кнопка или нет
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If k = 0 Then
            Button1.Text = "Stop" ' присваиваем новый текст кнопке
            Timer1.Interval = 1000 'задаем интервал таймера (1 секунда)
            Timer1.Enabled = True ' запускаем таймер
            k = k + 1
            GenerateNumbers() ' сразу генерируем число
        Else
            Button1.Text = "Generate"
            Timer1.Enabled = False
            k = 0
        End If
    End Sub
 
End Class
1
-14 / -8 / 0
Регистрация: 18.07.2016
Сообщений: 85
26.10.2016, 16:13  [ТС] 7
Orlangur1991, нужно чтобы он не пересоздавался, а сохранялся в полном виде в textbox1. Чтобы он много раз генерировался и вписывался в textbox1, а в Вашем случае он один раз создается, удаляется и пересоздается рандомный.
0
Лень — мое второе и
3163 / 2361 / 676
Регистрация: 28.11.2014
Сообщений: 3,564
Записей в блоге: 3
26.10.2016, 16:38 8
Лучший ответ Сообщение было отмечено GeorgyTheBlack как решение

Решение

GeorgyTheBlack, может проще тогда использовать listbox?
Код для textbox
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class Form1
    Sub GenerateNumbers() 'процедура генерации чисел
        Dim Section(2) As Integer
        Dim R As New Random
        For I As Integer = 0 To Section.Length - 1
            Section(I) = R.Next(100, 1000)
        Next
        TextBox1.Text = TextBox1.Text & String.Join(".", Section.[Select](Function(x) x.ToString()).ToArray()) & vbNewLine
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        GenerateNumbers() ' по тику вызываем процедуру
    End Sub
    Dim k As Integer = 0 ' переменная следит за тем, нажата кнопка или нет
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If k = 0 Then
            Button1.Text = "Stop" ' присваиваем новый текст кнопке
            Timer1.Interval = 100 'задаем интервал таймера (0,1 секунда)
            Timer1.Enabled = True ' запускаем таймер
            k = k + 1
            GenerateNumbers() ' сразу генерируем число
        Else
            Button1.Text = "Generate"
            Timer1.Enabled = False
            k = 0
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Multiline = True
        TextBox1.ScrollBars = ScrollBars.Vertical
    End Sub
End Class
2
1 / 1 / 0
Регистрация: 13.01.2021
Сообщений: 100
06.12.2021, 21:56 9
Подскажите как сделать что бы получать рандомно числа в диапазоне от 36.0 до 36.9, то есть что бы ответ был именно в этом диапазоне и давал результат 36.1 потом к примеру 36.5 но не менее 36.0 и не более 36.9

Заранее спасибо за помощь!
0
1397 / 1463 / 278
Регистрация: 17.02.2019
Сообщений: 2,269
06.12.2021, 22:10 10
Цитата Сообщение от mast_12 Посмотреть сообщение
рандомно числа в диапазоне от 36.0 до 36.9
VB.NET
1
2
            Dim R As New Random
            Dim D As Double = R.Next(360, 369) / 10
3
1 / 1 / 0
Регистрация: 13.01.2021
Сообщений: 100
06.12.2021, 22:30 11
Цитата Сообщение от January29 Посмотреть сообщение
Dim R As New Random
            Dim D As Double = R.Next(360, 369) / 10
Спасибо Огромное всё круто работает !!!!
0
1397 / 1463 / 278
Регистрация: 17.02.2019
Сообщений: 2,269
06.12.2021, 22:32 12
Del
0
bite
2984 / 2634 / 613
Регистрация: 13.04.2015
Сообщений: 6,258
06.12.2021, 22:40 13
Цитата Сообщение от mast_12 Посмотреть сообщение
круто работает
Нет. 36.9 не сгенерирует никогда.
2
1397 / 1463 / 278
Регистрация: 17.02.2019
Сообщений: 2,269
06.12.2021, 22:47 14
Цитата Сообщение от I can Посмотреть сообщение
Нет. 36.9 не
а если 370
2
bite
2984 / 2634 / 613
Регистрация: 13.04.2015
Сообщений: 6,258
06.12.2021, 22:53 15
Цитата Сообщение от January29 Посмотреть сообщение
а если 370
Ессстественно.
2
1 / 1 / 0
Регистрация: 13.01.2021
Сообщений: 100
07.12.2021, 00:29 16
36.9 не выдаёт действительно, со значением 370 выдаёт и 39.9 (фото прилагаю)
Миниатюры
Генерация случайных чисел в заданном диапазоне   Генерация случайных чисел в заданном диапазоне   Генерация случайных чисел в заданном диапазоне  

Генерация случайных чисел в заданном диапазоне  
0
1 / 1 / 0
Регистрация: 13.01.2021
Сообщений: 100
07.12.2021, 00:30 17
Всем Огромное Спасибо За помощь !
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2021, 00:30
Помогаю со студенческими работами здесь

Как получить случайное число в заданном диапазоне
Как сделать случайное событие на vb2010 от 9 до 54 подскажите плз. И это событие придется...

Как получить случайное дробное число в заданном диапазоне
Как получить случайное число с плавающей запятой. Так не получается: Dim cRandom As Random Dim...

В заданном диапазоне у всех отрицательных элементов изменить знак на противоположный
2. В заданном диапазоне у всех отрицательных элементов изменить знак на противоположный.

Генерация случайных чисел в заданном диапазоне
#include <stdio.h> #include <conio.h> #include <stdlib.h> int main() { clrscr();...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru