VPF::ПРоцентное появление окна. - Форум программистов

Pilger

Дата 19.12.2009, 01:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Да ничего. Виноват. Признаю. Переработал на этой недельке и не выспался, мозги не варят^^.
Можно даже упростить:

Код


Dim rnd As New Random()
Dim buf As Integer = rnd.Next(0, 100)
If (buf<=10) Then //куда то пишем текст бла бла
else If (buf<=40) Then //куда то пишем текст ля ля
else If (buf<=100) Then //куда то пишем текст бу бу

Код


        Dim rnd As New Random()
        Dim buf As Integer = rnd.Next(1, 100)

        If (buf <= 10) Then
            MsgBox("1 - 10%")
        ElseIf (buf <= 40) Then
            MsgBox("11 - 40%")
        ElseIf (buf <= 90) Then
            MsgBox("41% - 90%")
        Else
            MsgBox("91% - 100%")
        End If

Это сообщение отредактировал(а) Pilger - 19.12.2009, 01:29

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

Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.

diadiavova

Дата 19.12.2009, 07:04 (ссылка)

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

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

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

Ну ладно, раз уж пошла такая пьянка smile

Код


        Dim s As String
        Dim rnd As New Random
        Select Case rnd.Next(1, 100)
            Case 1 To 10
                s = "1-10"
            Case 11 To 40
                s = "11-40"
            Case 41 To 90
                s = "41-90"
            Case 91 To 100
                s = "91-100"
            Case Else
                s = "нихт"
        End Select
        MsgBox(s)

Это сообщение отредактировал(а) diadiavova - 19.12.2009, 07:06

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

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Natapro

Дата 19.12.2009, 22:31 (ссылка)

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

Загрузка ...

Опытный

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

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

я говорила что уже работает ) я нашла просто проблему и решила smile

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

Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...

diadiavova

Дата 20.12.2009, 07:02 (ссылка)

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

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

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

Цитата(Natapro @ 19.12.2009, 22:31

)

я говорила что уже работает ) я нашла просто проблему и решила

кабута эта камута ынтиресна smile

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

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

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