Библейские денежно-весовые единицы и меры.

[t116]

t116
4) Код ужасен.

Тогда так:

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

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46 Then Exit Sub Else KeyAscii = vbNull

[Хакер]

Может быть ты забыл Randomize ?

[GSerg]

Тогда так:

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

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46 Then Exit Sub Else KeyAscii = vbNull

И это мерзкий код.
И в плане использования чисел вместо именованных констант, и в плане абсолютного непонимания автором, что такое vbNull.

[t116]

Тогда так:

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

If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46 Then Exit Sub Else KeyAscii = vbNull

И это мерзкий код.
И в плане использования чисел вместо именованных констант, и в плане абсолютного непонимания автором, что такое vbNull.

Тогда так

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

If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Or KeyAscii = 46 Then Exit Sub Else KeyAscii = 0


Если и в этот раз не так, то напиши как правильно.

[alibek]

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

Select Case KeyAscii
  Case < 32
  Case vbKey0 To vbKey9
  Case Asc("."), Asc(",")
    KeyAscii = Asc(".")
  Case Else
    KeyAscii = Cos(3.1415926/2)
End Select

[t116]

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

Select Case KeyAscii
  Case < 32
  Case vbKey0 To vbKey9
  Case Asc("."), Asc(",")
    KeyAscii = Asc(".")
  Case Else
    KeyAscii = Cos(3.1415926/2)
End Select

Оказывается я еще мало знаю по поводу Case

Тогда можно и так:

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

Select Case KeyAscii
  Case Is < 32
  Case vbKey0 To vbKey9
  Case Asc("."), Asc(",")
    KeyAscii = IIf(InStr(TextBox.Text, "."), 0, Asc("."))
  Case Else
    KeyAscii = Cos(3.1415926 / 2)
End Select


Чтобы дважды точку не поставить в одном числе.


PS.

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

KeyAscii = Cos(3.1415926 / 2)

[Crio]

tyomitch
Не, я знаю, что иногда 1 и 1 будет 2 а иногда "11".
(там про это, да?)

Просто странно, что для работы со строками кроме оператора & есть ещё и оператор +, абсолютно избыточный. Или нет?
Кроме того, нам на лекции минут пять втолковывали, что "1" + "1" будет "b".

ОК, это уже не по теме. (если у меня и дальше непонятки будут, я по ЛС спрашивать буду, можно?)

Nazarej
Так что ввести, чтобы программа запустилась?

[Хакер]

Не, я знаю, что иногда 1 и 1 будет 2 а иногда "11".

Нда, в голове каша.
1 + 1 будет 2

"1" + "1" будет "11"

1 & 1 будет "11"

"1" & "1" будет "11"

"1" & 1 будет "11"

1 & "1" будет "11"

в то время как:
1 + "1" будет 2
"1" + 1 будет 2

Иными словами:

string + string = string
numeric + numeric = numeric
Если типы операндов одинаковы.

Если не одинаковы:
string + numeric = numeric
numeric + string = numeric

string & numeric = string
numeric & string = string

это всё условно, конечно. Но для понимания достаточно.

Кроме того, нам на лекции минут пять втолковывали, что "1" + "1" будет "b".

Нет. Не будет. '1' + '1' будет 'b' -- да, в си. Можешь проверить:

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

#include <iostream.h>
int main()
{
   char za;
   za = '1' + '1';
   cout<<(za=='b' ? "yes" : "no");
}