9.88765132684E+29

[Valenok]

9.88765132684E+29

Подскажите пожалуйсто как вревратить сиё число
в нормальный вид:

9887651326840000000000000000000000000000

или в такую запись:
9.88765132684 * 10^29

[Oxygen]

Format. Есть функция такая.

[Valenok]

А справочник функций не подскажешь?

[Oxygen]

Это не Апи. В МСДН есть точно. Используется так, если упрощенно:

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

Format(Число_или_переменная, формат) 

Формат "#####" количество # - это количество символов, сколько тебе нужно отобразить. Можно использовать точку и запятые.

Caption это не совсем то. Это надпись на кнопке. Насколько я помню.

[Valenok]

Не подскажешь а что же "то" ?

[Valenok]

Это не Апи. В МСДН есть точно. Используется так, если упрощенно:

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

Format(Число_или_переменная, формат) 

Формат "#####" количество # - это количество символов, сколько тебе нужно отобразить. Можно использовать точку и запятые.

Caption это не совсем то. Это надпись на кнопке. Насколько я помню.

Я в поиске был, я вот что не понял..
Я поставил вывод в 15 символов
только теперь он пишет тоже самое при етом съедая надпись E+29
Это не есть лучше..

[Oxygen]

Я поставила знаков 40. У меня все нормально. Ничего не отрезается, и лишнего ничего.

[Valenok]

=)
40 то много.
Мне надо 15 а если в 15 не влезает тогда писать не: E+29
a : * 10^29

[Oxygen]

В нормальный вид приводит даже с одним #. У меня по крайней мере. А второго варианта ты никак не добъешься. По крайней мере программно. Только ручками если анализировать число.

[Valenok]

Так. Понял. Спасибо.
А с кнопкой кстати как?
Мне как то не нравится что для того чтобы нажать на кнопку при помощи клавиатуры надо жать на Alt + ..

[Oxygen]

Наиболее извращенный вариант - переводи фокус на какой-то определенный объект и лови событие у этого объекта. После этого анализируй то, что было нажато, и соответственно уже потом программно выполняй то, что тебе нужно.

[Valenok]

Понятно.
А можно как то ограничить ввод тоесть так чтобы вводились только цифры а не вводится всё что угодно а если не цифра то не добавляем её..

[Oxygen]

Вот функция. Не знаю подойдет она тебе или нет. Писалась давно. Для проверки на валидность (интересовали только числа) в текстбоксе. Исключает ввод всякой ерунды длительным нажатием на клавишу.

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

Private Function CheckValues(str_Val As String) As String
If str_Val <> "" Then
        If Len(str_Val) < 2 Then
                If (Val(Right$(str_Val, 1)) > 0 Or Right$(str_Val, 1) = "0") Then
                CheckValues = str_Val
                Else: CheckValues = Left$(str_Val, Len(str_Val) - 1)
            End If
        Else
            tmp_str$ = ""
            For I = 1 To Len(str_Val)
            If (Val(Mid$(str_Val, I, 1)) > 0 Or Mid$(str_Val, I, 1) = "0") Then tmp_str$ = tmp_str$ + Mid$(str_Val, I, 1)
            Next I
            CheckValues = tmp_str$
        End If
    End If
End Function


[Igor_123]

Есть события _KeyDown, _KeyPress, _KeyUp в параматрах которых передаеться коды нажатых клавиш, анализируй и обрабатывай как нужно. Почитать можно даже в справке к Офису

[Oxygen]

Сообственно функция использовалась для анализа. Я её ставила на change в текстбоксе. работает даже тогда, когда в этот текстбокс пытаются что-то скопировать. Насчет этих событий, иногда бывают глюки. Если человек нажмет и будет долго держать какую-то клавишу, то keyUp сработает только тогда, когда ты её отпустишь.

[Mikle]

Oxygen

переводи фокус на какой-то определенный объект и лови событие у этого объекта

Достаточно включить KeyPreview для формы.

[Saturn.65]

Понятно.
А можно как то ограничить ввод тоесть так чтобы вводились только цифры а не вводится всё что угодно а если не цифра то не добавляем её..

Такой же и у меня вопрос. Работаю над ошибками ввода информации.
Пишу:

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

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
MsgBox "Только цифры"
End If
End Sub


Все работает, если вводишь 25. Но если мне надо ввести 25.1, то выскакивает MsgBox "Только цифры"
Можно ли как победить? Видать точка -это уже не цифра.

[Хакер]

Дробная часть отделяется от целой части запятой (в твоих настройках).
Т.е. "25.1" воспринимается как скажем "25ъ1".

Так что стоит наверное проветь, какой символ установлен в системе как разделитель.

И ещё. Подобную проверку надо делать в _Validate, а не в _Change.

[dr.MIG]

А не лучше будет изменить стиль текстового поля, используя SetWindowLong (с каким флагом не помню)?

[Хакер]

dr.MIG
ES_NUMERIC?

Он АФАИК не пропускат дробные числа.

[dr.MIG]

Оно самое. А вот не помню... Может и не пропускает.

[Proxy]

А почему бы нельзя "+E" Заменить на "*10^"? на выходе ж просто строка. ИМХО Replace очень неплохо справится. Или я чего-то не догнал?

[Proxy]

или в такую запись:
9.88765132684 * 10^29

Ну точно - строка.
А почему нельзя просто заменить? Типа ктулху разгневается?

[Saturn.65]

И ещё. Подобную проверку надо делать в _Validate, а не в _Change.

Я специально так переделал в _Change. Только начинаешь вводить, сразу предупреждение. А так надо с кнопкой и т.д. делать. Если много текст боксов, то после куча предупреждений вылезет, и думай куда не правильно ввел. А так сразу, по ходу ввода.
Еще хочу спросить, есть ли разница написания дробных чисел с запятой или точкой? Мне кажется, что правильно будет ставить точку.
Потому как писал прогу с дробным числом (запятая) и при умножении одного числа на другое была разница в ответе.

[dr.MIG]

Правильно будет ставить разделитель, установленный в региональный настройках. Получить его можно, например, так -- Format(0, "."). А как будет реагировать твоя программа на попытку ввода "неправильного" разделителя -- это твоё дело. Я бы сделал как в виндовом калькуляторе -- автоматическая замена на текущий разделитель.

[Хакер]

Saturn.65
Абсолютно неверная логика.

Если много текст боксов, то после куча предупреждений вылезет, и думай куда не правильно ввел.

Не будет никаких куч. Будет одно предупреждение, в случае неправильного ввода, при попытке перейти к другому текс-боку (кнопке и т.п.), и переход просто не произойдёт.

А так, нажал случайно точку - и на тебе предупреждение (это признак криворукости программиста).

Начал удалять число "12q3456" с конца Backspace-ом и каждый раз получаешь предупреждение.

[Saturn.65]

Начал удалять число "12q3456" с конца Backspace-ом и каждый раз получаешь предупреждение.

Это точно. Два раза MsgBox выскакивает. Надо переделать. А вообще то вот такие разные предупреждения при всяком неверном шаге это не слишком аляписто будет выглядеть? Или может все без всяких MsgBox сделать?

[Хакер]

Saturn.65
Сделай в событии _Validate. Ты ведь наверное даже не пробовал это событие?