Простые программы на VB - помогите

[Конь]

GAGArin
Блин, ты меня с толку вообще сбил, не знаю как делать!

МОЖЕТ КТО ОБЪЯСНИТ???!!!

[tyomitch]

CBool

[Конь]

tyomitch
Это, как ни странно, я уже понял.
Но как?

MsgBox (CBool(Var1) And CBool(Var2))

или

MsgBox CBool(Var1 And Var2)

[tyomitch]

первое

[Конь]

Ща сделаю, thanks.

[Debugger]

Во они...
Кажется, это то...
Если не то и не так, я удалю это сообщение...

[Конь]

Debugger
Я, кажется, это делал, нет?

Счас я замутил второе.

Вот только скажите, что писать в окошке результата?
Просто надо пояснить, какой результат куда.

[Конь]

Я хреновато все-таки в этом разбираюсь, сделал по шаблону "Res = Res & (CBool(Var1) oper & CBool(Var2))"

Но вот проблема: когда я пишу CBool(Var1) Not CBool(Var2), VB заменяет это строкой Not CBool(Var1). Что делать?


В результате получилось вот что:

Код: Выделить всё

Option Explicit
Dim Var1, Var2 As Long
Dim Res As String

Sub Main()

    Var1 = Val(InputBox("Введите первое целое число"))
    Var2 = Val(InputBox("Введите второе целое число"))
   
    Res = (CBool(Var1) And CBool(Var2)) & vbCrLf & _
    (CBool(Var1) Eqv CBool(Var2)) & vbCrLf & _
    (CBool(Var1) Imp CBool(Var2)) & vbCrLf & _
    (Not CBool(Var1)) & vbCrLf & _
    (CBool(Var1) Or CBool(Var2)) & vbCrLf & _
    (CBool(Var1) Xor CBool(Var2))
   
    MsgBox Res

End Sub

Да, кстати, объясните мне, что такое "эквивалентность", "импликация" и "исключающее" ? Первый раз слышу эти слова в VB, а второе - первый раз в жизни ...

[tyomitch]

Not -- унарная операция. Её нельзя применять к паре аргументов.

[GAGArin]

Я ворде для всех для них написал переводы в привычный And и Or
Логическое отрицание как ни странно требует лишь одной переменной.
Вот таблицы истинности если надо:

Not:
А С
1 0
0 1
And:
A B C
1 1 1
1 0 0
0 1 0
0 0 0
Or:
A B C
1 1 1
1 0 1
0 1 1
0 0 0
Xor:
A B C
1 1 0
1 0 1
0 1 1
0 0 0
Eqv
A B C
1 1 1
1 0 0
0 1 0
0 0 1
Imp:
A B C
1 1 1
1 0 0
0 1 1
0 0 1

[Денис Победря]

Danya aka Spiridon
А этот пример я видел в книжке "VB для новичков" на 10 странице (вроде б)

[Конь]

GAGArin
Омг, эт шо такое?

[Конь]

[Омг]

Код: Выделить всё

    Res = (bV1 And bV2) & vbCrLf & _
    (Not ((bV1 Or bV2) And (Not (bV1 And bV2)))) & vbCrLf & _
    (Not (bV1 And Not (bV1 And bV2))) & vbCrLf & _
    (bV1 Or bV2) & vbCrLf & _
    (Not (Not ((bV1 Or bV2) And (Not (bV1 And bV2)))))

[/Омг]

[GAGArin]

Конь
Нафиг? Просто оставь всё как было, а Not примени к обоим по очереди.

Ты просто спросил что есть что я дал расшифровки. Не покатило, дал таблицу истинности. Писать по расшифровкам не стоит, это просто для понимания.

[Конь]

Ну ясно...
Счас выложу готовый вариант без дебаггинга.

[Конь]

Ух, запарило!

Ктати, скажи мне, что это за таблица?

[GAGArin]

Возвращаемые функцией значения в зависимости от входных A и B

[Конь]

Ммм... И с какой стороны на нее смотреть?
Т.е. как ей пользоваться?
Просто интересно.

[NIC]

*как то непроизвольно дернулся левый глаз*

С тобой полностью СОГЛАСЕН!