VPF::График - Форум программистов

Fantomm

Дата 22.4.2011, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

Здравствуйте вот мой код

Код


    Option Explicit
 
Private Sub Command1_Click()
 
Dim r1 As Double
Dim i As Long
Randomize
Dim paramA As Long ' колличество значений
paramA = Val(Text1)
Label3 = ""
For i = 1 To paramA
      r1 = Int(Rnd() * 100) + 1 ' запускаю генератор который выкидывает задаваемое мною колличество значений из промежутка от 0 до 100
      Label3 = Label3 & r1 & vbCrLf ' здесь показывается столбик случайных чиселкоторый при каждом нажатии кнопки обновляется
      Next i
End Sub

Как сделать так чтобы программа при нажатии на кнопку выполнилась 50 раз и выдала график где по оси абцисс будет указываться случайные числа а по оси ординат - колличество раз которое они выпали.

iff

Дата 22.4.2011, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

Располагаем на форме кнопку Command1, изображение Picture1 и устанавлеваем его свойство AutoRedraw=True. Вводи код:

Код


Private Sub Command1_Click()
    Const MinRnd = 0, MaxRnd = 100, Quantity = 50, ScaleY = 5
    Dim i As Integer, j As Integer, Mass(MaxRnd - MinRnd) As Integer
    Randomize Timer
    For i = 1 To Quantity
        j = Int(Rnd * (MaxRnd - MinRnd + 1)) ' + MinRnd - MinRnd
        Mass(j) = Mass(j) + 1
    Next i
    Picture1.Cls
    For i = 1 To MaxRnd - MinRnd
        Picture1.Line ((i - 1) * Picture1.Width / 100, _
            Picture1.Height - Mass(i - 1) * Picture1.Height / ScaleY) _
            -(i * Picture1.Width / 100, _
            Picture1.Height - Mass(i) * Picture1.Height / ScaleY)
    Next i
End Sub

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »