Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Проценты Добавлено: 13.04.10 19:59  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 
Здравствуйте!Мне надо чтоб моя программа выводила результат в процентах,например(это просто пример у меня другая прога):3текстбокса в них пишешь сколько у тебя 5,4,3 и при нажатии на кнопку он выводит статистику в процентах,например:78%-пятерок и тд......
Подскажите пожалуйста как это сделать!

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #1 		Добавлено: 13.04.10 20:14
как-то так наверное
  1. Dim vall as single, v1 as single, v2 as single, v3 as single
  2. v1=val(Text1.text)
  3. v2=val(Text2.text)
  4. v3=val(Text3.text)
  5. vall=v1+v2+v3
  6. msgbox int(v1/vall*100) & "%"
  7. msgbox int(v2/vall*100) & "%"
  8. msgbox int(v3/vall*100) & "%"

Ответить

Номер ответа: 2
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #2 Добавлено: 13.04.10 21:04
Спасибо,а можно это как нибудь на шкале выразить?(или я думаю все видели окружность разделенную на части)??

Ответить

Номер ответа: 3
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #3 		Добавлено: 13.04.10 22:12
  1. Option Explicit
  2. Private Const pi As Double = 3.14159265358979
  3.  
  4. Private Sub Form_Load()
  5.     ScaleMode = vbPixels
  6.     FillStyle = vbSolid
  7.     AutoRedraw = True
  8.     
  9.     Dim vall As Single, v1 As Single, v2 As Single, v3 As Single
  10.     v1 = Val(54)
  11.     v2 = Val(23)
  12.     v3 = Val(13)
  13.     vall = v1 + v2 + v3
  14. '    MsgBox Int(v1 / vall * 100) & "%"
  15. '    MsgBox Int(v2 / vall * 100) & "%"
  16. '    MsgBox Int(v3 / vall * 100) & "%"
  17.     v1 = -2 * pi * (v1 / vall)
  18.     v2 = -2 * pi * (v2 / vall)
  19.     v3 = -2 * pi * (v3 / vall)
  20.     FillColor = vbBlue
  21.     Circle (100, 100), 100, vbBlue, v1 + v2 + v3, v1
  22.     FillColor = vbRed
  23.     Circle (100, 100), 100, vbRed, v1, v1 + v2
  24.     FillColor = vbGreen
  25.     Circle (100, 100), 100, vbGreen, v1 + v2, v1 + v2 + v3
  26. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #4 Добавлено: 14.04.10 17:11
Спасибо1

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам