Что нового

Существующая либо не существующая переменная

Aganrom

Новичок
Сообщения
2
Репутация
0
Всем привет!
Есть некий код который выводит сообщение состоящее из двух переменных

Код:
MsgBox(4096, $dir  &  $doc)
:

Я хочу сделать так что бы в случайной вероятности 50/50 переменная $doc существовала либо нет.

Тоесть что бы я получал один из двух вариантов : MsgBox(4096, $dir & $doc) или MsgBox(4096, $dir)

НО - делать рандом из двух MsgBox мне не подходит. Мне нужно превратить $doc в некий блок - который 50/50 существует либо нет. Что бы я его мог подключать куда мне надо.

Возможно это может быть какая- то функция по переменной типа _SetTrueFals($doc)....точно не знаю.

В итоге я хотел бы иметь такой результат на примере Send:

$doc = "и черный"

Send("У меня есть свитер красный" & $doc)

В результате я должен получать 50%/50%

либо: У меня есть свитер красный
либо: У меня есть свитер красный и черный

Подскажите как сделать пожалуйста!
 

xXx

╚{■_■}╗
Меценат
Сообщения
248
Репутация
95
переменная $doc существовала либо нет.
Может лучше чтобы она существовала 100%, а вот ее значением можно было управлять?
Код:
Global $doc, $dir = '"У меня есть свитер красный'
For $i = 1 To 10
    $doc = ' и черный"'
    If Mod(@SEC, 2) Then $doc = '"' ; Случайный выбор
    MsgBox(4096, Default, $dir & $doc)
Next
 
Автор
A

Aganrom

Новичок
Сообщения
2
Репутация
0
Может лучше чтобы она существовала 100%, а вот ее значением можно было управлять?
Код:
Global $doc, $dir = '"У меня есть свитер красный'
For $i = 1 To 10
    $doc = ' и черный"'
    If Mod(@SEC, 2) Then $doc = '"' ; Случайный выбор
    MsgBox(4096, Default, $dir & $doc)
Next

Спасибо за скрипт. Как вариант.
Скажите - я правильно понимаю что
Код:
$doc = ' '

Будет давать пустое значение ?
 

xXx

╚{■_■}╗
Меценат
Сообщения
248
Репутация
95
... Будет давать пустое значение ?
Смотря что вы имеете ввиду под словом "пустое".
Код:
$doc = ' '

If $doc Then MsgBox(262144, Default, 'Переменная не пуста') ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>
MsgBox(262144, Default, '$doc = ' & $doc & @LF & '(А так вроде и не видно ничего)' & @LF & _
        'хотя там символ ASCII = ' & Asc($doc)) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>
 
Последнее редактирование:

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Возможно это может быть какая- то функция по переменной типа _SetTrueFals($doc)....точно не знаю.
Код:
;$MyVar = ''

If IsDeclared('MyVar') Then
    MsgBox(0, '', 'Переменная существует')
Else
    MsgBox(0, '', 'Переменная  НЕ существует')
EndIf
 
Верх