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

[Danya aka Spiridon]

GluKoBuG
я не заморачивался вообще-то по этому поводу... написал за 2 минуты... мне главное сделать чтобы работало

[Amed]

Предлагаю пришить GluKoBuG.

[Danya aka Spiridon]

Ребят, я на самом деле прошу помочь мне. Прошу по-человечески... В свою очередь, если вам будет нужна помощь с Фотошопом или поиском каких-либо саундтреков - я помогу вам. Спасибо. Я не хотел никого провоцировать на грубости.

[AjaxVS]

Видишь ли, в чем тут дело, Danya aka Spiridon..

1. на этом форуме давно осевшие тут личности ввели правило не помогать новичкам. Принципиально. Исключения есть, но не так уж и много..

2. вопросы настолько легкие, что вместо того, чтобы тратить время на посты в этой Конференции, ты бы лучше потратил время на какую-нибудь "Главу Первую" какого-нибудь обычного справочника VB.. За час, максимум, пять, ты бы постиг азы VB и сам бы решил эти задачи.. Вместо того, чтобы сутками ждать ответа здесь. Остается вопрос - почему ты так не сделал?

[Конь]

AjaxVS
Правило не помогать новичкам?
Мне ведь помогали. И не раз.

[GluKoBuG]

Новички и новички отлиичаются. Одни просто на форуме новички, другие просто в VB новички. Одни используют API (Конь такой), другие думаю над программным 2+2.
К сожалению, все из нас занимались когда-нибудь такой фигнёй. Просто кто-то дольше, кто-тьо меньше. Кто-то раньше, кто-то позже. Я вот таким занимался 2 месяца в 10 лет. Потом надоело.

[Конь]

Вопрос: почему VB считает, что 123<45 ?

[tyomitch]

А, калькулятор на текстбоксах?

[Конь]

tyomitch
Не,
1. Не калькулятор.
2. Не на текстбоксах, а на инпутбоксах:D

[Конь]

Пытаюсь помочь Danya aka Spiridon
Но вот запарочка вышла.

Кстати, что подразумевается под "логическими операциями"?

[tyomitch]

And, Eqv, Imp, Not, Or, Xor

а к возвращаемому инпутбоксом значению применяй Val.

[Конь]

And, Eqv, Imp, Not, Or, Xor

1. Половины не знаю.
2. Как это применить в соответствии с п. 2?

[keks-n]

Msgbox (число1 And число2)
Аналогично с остальными.

[Конь]

Еще вопрос: типы переменных Integer и Long ведь могут содержать в себе дробную часть числа? Почему у меня только целые?
Допустим, Var1 = Val(InputBox(""))
В InputBox'е вводим 22,35
А Var1 = 22.....

[Конь]

Еще вопрос: как описать действия этих операторов?

Например, п. 4: MsgBox "Длина гипотенузы:" & vbCrLf & Var3

А тут как быть?

[Danya aka Spiridon]

Конь
спасибо, что взялся помочь

[Конь]

Danya aka Spiridon
Да не за что, просто понимаю я тебя:)

Когда делаешь для себя, долбаешься, не знаешь как сделать, это уже хреново!
А тут экзамен!..

Если будет немного непрофессионально написано, ничего?

[Конь]

Еще вопрос: как описать действия этих операторов?

Например, п. 4: MsgBox "Длина гипотенузы:" & vbCrLf & Var3

А тут как быть?

Может кто ответит?!

[IIIypuk]

Ладно, начнем с простейших и по возростанию сложности Не судите строго, счас С++ штудирую, так что ошибки могут быть, как это не смешно :

1.

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

Private Function Zd1_done() As Boolean
Dim number(1 To 2) As Long
On Error GoTo err_:

   number(1) = CLng(InputBox("Число №1: ", "Введите число", "0"))
   number(2) = CLng(InputBox("Число №2: ", "Введите число", "0"))
   If number(2) = 0 Then
         MsgBox "Это совсем уже нужно ох...ть. На 0 делить нельзя!!!", vbCritical, "Ошибка"
         GoTo err_:
      Else
         Print Format(number(1) / number(2), "#.######")   'подкорректировать надо, но не хАчу!
   End If
   
   Zd1_done = True
Exit Function
err_:
   Zd1_done = False
End Function


[IIIypuk]

[Конь]

Вот все, кроме №2. Юзать Group.vbg

Без дебаггинга, правда. Надо - могу сделать.

[GAGArin]

Tипы переменных Integer и Long ведь могут содержать в себе дробную часть числа?

Что-то первый раз слышу.

And - логическое И
Eqv - эквивалентность по сути не((А или Б) и (не (А и Б)))
Imp - логическая импликация по сути не(А и не(А и Б))
А imp B <> B imp A
Not - Просто логическое Не
Or - просто логическое Или
Xor - Исключающее или (А или Б) и (не (А и Б))

Xor = not Eqv Add: Я опечатался, а никто не поправил.

Не забудь привести их к Булям, иначе будешь операции делать над байтами, и результат тебя не восхитит.

[Конь]

IIIypuk
Перестань перебивать!

[Конь]

Попозже сделаю. Ждите.

[IIIypuk]

Конь, ups, ладно, я просто до конца не дочитал топик. Смотрю, вы так парня запинали. Ладно, наслаждайся сам

[Danya aka Spiridon]

Конь
спасибо

[IIIypuk]

GluKoBuG
http://bbs.vbstreets.ru/viewtopic.php?p=6611657#6611657
Это ведь ты писал, правда? А ведь это гораздо более высокий этаж.

Гыыы, это точно

[Конь]

Danya aka Spiridon
Качай еще раз - обновил. Ошибку нашел.

[Конь]

Не забудь привести их к Булям

Объясни плз.

Кстати, мне немного другое описание надо. Чтобы выводить его в окне результата.

[Danya aka Spiridon]

Конь
спасиб. скачал