Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=457612 Tue, 14 Sep 2004 09:44:11 +0000 Советы по уменьшению размеров кода https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=457612 Пример:

    Dim Tmp as String
    Tmp = "256;128;64;32;16;8;4;2;1"
    Msgbox Split(Tmp,";")(3)


Вернет "32"]]> SCINER Разное (кодинг) https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=444889 Mon, 30 Aug 2004 01:07:41 +0000 Советы по уменьшению размеров кода https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=444889 от булевого значения.

Например данную конструкцию:
    If X = Y Then
      MsgBox "Выражение верно"
    Else
      MsgBox "Выражение неверно"
    End If


Можно заменить на:
    MsgBox IIf(X = Y, "Выражение верно", "Выражение неверно")
]]> SCINER Разное (кодинг) https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=444244 Sun, 29 Aug 2004 02:51:27 +0000 Советы по уменьшению размеров кода https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=444244 1 Использовать объекты ActivX
2 Выносить общие функции в DLL библиотеки
3 Пользоваться Классами
:))
как провило данное уменьшает код процентов на 30 и делает его более читаемым]]> Mongol Разное (кодинг) https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=443947 Sat, 28 Aug 2004 14:41:01 +0000 Советы по уменьшению размеров кода https://forum.sources.ru/index.php?showtopic=64335&view=findpost&p=443947 Если поменять значение переменной Boolean на противоположное, то лучше писать так:
    Dim a As Boolean
    a=Not a

чем так:
    Dim a As Boolean
    If a=True then
    a=False
    Else
    a=True
    End if
]]> miksayer Разное (кодинг)