Забавный код

[Debugger]

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

    Dim c As Integer
    For c = 0 To 2 Step 0
        'DoSomething :-)
    Next

Синтаксически написан правильно. Результат понятно какой. Странно, что VB разрешает ставить Step 0.

[tyomitch]

см.тж.: viewtopic.php?t=11824

[Debugger]

Еще:

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

CopyMemory 0, 0, -1

эквивалентно

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

End

[Хакер]

Совершенно неэквивалентно.

[Antonariy]

Учитывая то, что End часто закрывает программу с ошибкой — эквивалентно

[Debugger]

Я всмысле по эффекту . Разве что первый убивает VB тоже.
Added:
Только что пришел вопрос:

почему не пашет

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

Dim s As String
Dim b(2) As Byte
s=.....
CopyMemory b(0),s,3

Улыбнуло... Вспомнил, как был молодой, как задал такой же вопрос Хакер'у...

[Debugger]

Нашел еще одну забавную фишку:

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

    Dim i As Integer
    Dim b As Integer
    i = 100
    b = i = 100 'b становится True)
    MsgBox b
    b = i = 200 'b становится False
    MsgBox b

А я думал, что в b сначала запишется 100, а потом 200 . Нет, сначала True (-1), а потом False, потому что второй знак "=" толкуется как сравнение.

[MIT]

Это тебе не Си...

[Saturn.65]

Что-то я сломал голову. Не пойму, почему ошибка. Странные расхождения с калькулятором. Попробуйте.

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

Private Sub Command1_Click()
Text1.Text = 8 * (1 / 280)' Если вместо 1 подставить 2 или 3, то ошибка в вычислениях, а дальше нормально идет.
End Sub


1 = 2,8571428571
2 = 5,714285714
3 = 8,571428571
4 = 0,114285714
5 = 0,1428571428571

[iGrok]

Что-то я сломал голову. Не пойму, почему ошибка. Странные расхождения с калькулятором. Попробуйте.
1 = 2,8571428571
2 = 5,714285714
3 = 8,571428571
4 = 0,114285714
5 = 0,1428571428571

У тебя где-то теряется экспонента:

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

s$= 8 * (5 / 280) : ?s
0,142857142857143
0,114285714285714
8,57142857142857E-02
5,71428571428571E-02
2,85714285714286E-02

Это самое E-02 означает "x10^(-2)"

[Saturn.65]

Даже упрощенно 1 / 280 и то = 3,571428571 вместо 0.0035714

[Хакер]

Да у тебя не 3,571428571, а 3,571428571E-3 это разные вещи. А цифры одинаковые: три, пять, семь, один, четыре, два, восемь и т.д.

[Saturn.65]

... а 3,571428571E-3 это разные вещи.

А откуда это взялось? Я же делю как учили в книге. Как еще правильно разделить?

[Хакер]

Откуда взялось что?

Число? Оно взялось в результате деления.

[Saturn.65]

Я про Е-3 говорю.

[Хакер]

У общественности подозрение, что ты в первые слышишь про научную запись чисел?

[Saturn.65]

...научную запись чисел

Это точно. Про это я и не знал. Дело не в этом. Почему получаются неправильные расчеты при элементарном действии деления? В чем магическая связь именно некоторых цифр? И кто сможет разделить правильно на примере 1/101?
Делю я 1/100 получается 0.01, делю 1/101 и получается 9,90099009. А если бы я расчет орбиты полета на Марс проводил? Фатальная ошибка...плачущие вдовы...

[alibek]

Делю я 1/100 получается 0.01, делю 1/101 и получается 9,90099009. А если бы я расчет орбиты полета на Марс проводил?

С такими знаниями расчет орбиты тебе не доверят, не бойся.

[Viper]

...научную запись чисел

Это точно. Про это я и не знал. Дело не в этом. Почему получаются неправильные расчеты при элементарном действии деления? В чем магическая связь именно некоторых цифр? И кто сможет разделить правильно на примере 1/101?
Делю я 1/100 получается 0.01, делю 1/101 и получается 9,90099009. А если бы я расчет орбиты полета на Марс проводил? Фатальная ошибка...плачущие вдовы...

А ты после 9.9009900990099 E-03 принципиально не замечаешь или как?

[Saturn.65]

А ты после 9.9009900990099 E-03 принципиально не замечаешь или как?

И действительно. Поширше раздвинул Text1.Text и его стало видно E-03. Кто бы мог подумать?
А чтож они (неизвестно) так придумали делать? Это на всех языках такое бывает что ли? Это значит еще что-то надо писать, чтоб при этих вычислениях отделять зерна от плевел? Вот те и простенькая программа калькулятор.

[tyomitch]

На всех.
Это фича.
Это удобно.

[Денис]

Saturn.65
0.0035714 = 3.5714 × 10^-3 = 3.5714E-3
Это - научная (экспоненциальная) запись числа.
_________________

Хе-хе, Saturn.65 = S.aturn65 × 10⁵

[Saturn.65]

Что-то мне не везет с расчетами. Если я 1,9 сложу с 1,9 то получается 2. Прикольное округление.

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

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub


А если 1.9 с 1.9 то нормально. Но у меня текстбоксы то с запятой выводят данные.
Почему так получается? И как сделать, чтоб правильно выводило?

[iGrok]

Что-то мне не везет с расчетами. Если я 1,9 сложу с 1,9 то получается 2. Прикольное округление.

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

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub


А если 1.9 с 1.9 то нормально. Но у меня текстбоксы то с запятой выводят данные.
Почему так получается? И как сделать, чтоб правильно выводило?

Тебе в другой теме Viper дыл ссылку на статью. Прочитай её.

[Saturn.65]

Спасибо всем. Пошел по другому пути. Все перевел в тысячи. Сейчас нет запятых.

[alibek]

Это наверное очень увлекательно.
Saturn.65, когда тебе надоест маятся бездельем, почитай статью Viper-а. Оно может не так увлекательно, зато более результативно.