roboforum.ru

Технический форум по робототехнике.

Помогите с Visual Basic

Все здесь

Помогите с Visual Basic

Сообщение Master » 17 дек 2009, 18:24

Попросили помочь написать программку на VB6, я на нем раньше никогда не писал. Вобщем вроде асилил, но я не знаю как вывести результат.
Есть набор результатов вычисления, к примеру

0,135315313___0,646816156___0,614651681
0,641561561___0,51561-Е5___0,1616516
1___0,1616516___0,51561-Е14

мне бы это округлить, до 3-го знака и получить вот такой формат
0,135__0,647__0,615
0,642__0,000__0,167
1,000__0,162__0,000

или так
0,135__0,647__0,615
0,642__0______0,167
1______0,162__0

или может таблицу сделать, сейчас я вывожу все это в List

Программа считает корень кубический из числа методом итераций.
Вот исходник

Добавлено спустя 1 минуту 43 секунды:
Нижнее подчеркивание это пробелы :)
Вложения
VB6.zip
(1.47 КиБ) Скачиваний: 6
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

Re: Помогите с Visual Basic

Сообщение MiBBiM » 17 дек 2009, 18:39

Tomorrow will be. Better
Аватара пользователя
MiBBiM
 
Сообщения: 1866
Зарегистрирован: 29 окт 2007, 18:11
Откуда: Пермь
прог. языки: Brainfuck/Basic/Delphi/C++/Lisp/x86asm/JavaScript

Re: Помогите с Visual Basic

Сообщение -= Александр =- » 18 дек 2009, 01:19

Помнится еще функция Round была. Ей даешь значение и количество цифер после запятой.
Ниндзя - круче всех. Они умеют ходить по воде, делить на ноль и угадывать шаффл в АйПоде.
Аватара пользователя
-= Александр =-
Мастер Самоделкин
 
Сообщения: 3678
Зарегистрирован: 11 окт 2004, 19:20
Откуда: Россия, СПб
прог. языки: C/C++, Python, asm
ФИО: Курмис Александр Андреевич

Re: Помогите с Visual Basic

Сообщение Master » 18 дек 2009, 12:19

Блин не получается :(
Вложения
round.JPG
Round(z, 6)
format.JPG
Format(z, "#.######")
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

Re: Помогите с Visual Basic

Сообщение SSG » 18 дек 2009, 13:42

Взято с http://www.visual.2000.ru/develop/ms-vb/tips/0002-1.htm
Порой бывает нужно вывести числа с фиксированным количеством цифр, когда спереди добавляются нули. Например, если требуется представить число 12345 в виде 0012345. Это легко осуществимо с помощью такой функции:

Код: Выделить всёРазвернуть
Public Function FixNumber$(SourceNumber, Lend%)
  '
  ' Преобразование числа в строку с фиксированным
  ' количеством цифр (добавляем нули спереди)
  ' =======================================
  ' SourceNumber — исходное число
  ' Lend — количество цифр
  '
  Dim MaxNumber
  MaxNumber = 10 ^ Lend
  If SourceNumber >= MaxNumber Then ' превышен предел
    ' тут могут быть разные варианты
    FixNumber$ = SourceNumber      ' вывод числа полностью
    ' или
    ' FixNumber$ = String$(Lend, "?")  ' замена на знаки вопроса
  Else ' укладывается в рамки
    FixNumber$ = Right$(MaxNumber + SourceNumber, Lend)
  End If
End Function
I live My life!
Аватара пользователя
SSG
 
Сообщения: 1058
Зарегистрирован: 15 янв 2007, 19:23
Откуда: Беларусь, Барановичи
прог. языки: С для МК, Delphi для ПК

Re: Помогите с Visual Basic

Сообщение Master » 21 дек 2009, 03:16

Как я понял стандартной функции нет, а писать самому не охота, а то точно не примут РГР :)
Всем спасибо за помощь. :beer:
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

Re: Помогите с Visual Basic

Сообщение Michael_K » 21 дек 2009, 03:53

Да, блин... ЕСТЬ функция формат.
Почитайте хелп по ней.

Вам в МСДН труднее зайти, чем форум парить?
"0.00000" - вот как вам нужно писать.

MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".



RTFM
Аватара пользователя
Michael_K
 
Сообщения: 6028
Зарегистрирован: 07 окт 2009, 00:29
Откуда: СПб

Re: Помогите с Visual Basic

Сообщение Master » 21 дек 2009, 11:31

:) уже поздно
Просто нужно было срочно, а я все не успевал и кодить, и хелп читать, поэтому и запостил.
Но все равно спасибо.
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С


Вернуться в Свободное общение

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0