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

   
   
     

Форум - .NET

Страница: 1 | 2 |

 

  Вопрос: римские цыфры Добавлено: 22.11.08 19:21  

Автор вопроса:  mishaprogrammer

Ответить

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

Номер ответа: 16
Автор ответа:
 Vugar Miriyev



ICQ: 321950466 

Вопросов: 24
Ответов: 28
  Web-сайт: www.novadotnet.com
 Профиль | | #16 		Добавлено: 27.11.08 08:16
Можно сделать так чтобы пользователь видел на лету результат в римских цифрах, но если пользователь вынужден будет вводить их именно как римские зачем ему вообще этот контрол.

Ответить

Номер ответа: 17
Автор ответа:
 tz-man



ICQ: 369431909 

Вопросов: 6
Ответов: 11
  Web-сайт: terabayt.info
 Профиль | | #17 		Добавлено: 27.11.08 10:51
Ну вот, размял немного моск с утреца.
  1.  
  2. Function ArabicToRoman(Source As Integer) As String
  3. Dim mLen As Byte
  4. Dim Category(1 To 4) As String
  5. Dim RCategory(1 To 4) As String
  6. Dim i As Byte
  7. If Source < 1 Or Source > 3999 Then
  8.     MsgBox "Число не удовлетворяет условиям", vbCritical, "Ошибка"
  9. Else
  10. mLen = Len(CStr(Source))
  11. For i = 1 To mLen
  12. Category(i) = Mid(CStr(Source), mLen + 1 - i, 1)
  13.     Select Case i
  14.     Case 1
  15.     Select Case Category(i)
  16.         Case 0
  17.         RCategory(i) = ""
  18.         Case 1
  19.         RCategory(i) = "I"
  20.         Case 2
  21.         RCategory(i) = "II"
  22.         Case 3
  23.         RCategory(i) = "III"
  24.         Case 4
  25.         RCategory(i) = "IV"
  26.         Case 5
  27.         RCategory(i) = "V"
  28.         Case 6
  29.         RCategory(i) = "VI"
  30.         Case 7
  31.         RCategory(i) = "VII"
  32.         Case 8
  33.         RCategory(i) = "VIII"
  34.         Case 9
  35.         RCategory(i) = "IX"
  36.     End Select
  37.     Case 2
  38.         Select Case Category(i)
  39.         Case 0
  40.         RCategory(i) = ""
  41.         Case 1
  42.         RCategory(i) = "X"
  43.         Case 2
  44.         RCategory(i) = "XX"
  45.         Case 3
  46.         RCategory(i) = "XXX"
  47.         Case 4
  48.         RCategory(i) = "XL"
  49.         Case 5
  50.         RCategory(i) = "L"
  51.         Case 6
  52.         RCategory(i) = "LX"
  53.         Case 7
  54.         RCategory(i) = "LXX"
  55.         Case 8
  56.         RCategory(i) = "LXXX"
  57.         Case 9
  58.         RCategory(i) = "XC"
  59.     End Select
  60.     Case 3
  61.         Select Case Category(i)
  62.         Case 0
  63.         RCategory(i) = ""
  64.         Case 1
  65.         RCategory(i) = "C"
  66.         Case 2
  67.         RCategory(i) = "CC"
  68.         Case 3
  69.         RCategory(i) = "CCC"
  70.         Case 4
  71.         RCategory(i) = "CD"
  72.         Case 5
  73.         RCategory(i) = "D"
  74.         Case 6
  75.         RCategory(i) = "DC"
  76.         Case 7
  77.         RCategory(i) = "DCC"
  78.         Case 8
  79.         RCategory(i) = "DCCC"
  80.         Case 9
  81.         RCategory(i) = "CM"
  82.     End Select
  83.     Case 4
  84.         Select Case Category(i)
  85.         Case 0
  86.         RCategory(i) = ""
  87.         Case 1
  88.         RCategory(i) = "M"
  89.         Case 2
  90.         RCategory(i) = "MM"
  91.         Case 3
  92.         RCategory(i) = "MMM"
  93.     End Select
  94.     End Select
  95. Next i
  96. For i = 1 To 4
  97. ArabicToRoman = ArabicToRoman & RCategory(5 - i)
  98. Next i
  99. End If
  100. End Function

Ответить

Номер ответа: 18
Автор ответа:
 Медведь



Вопросов: 3
Ответов: 7
  Профиль | | #18 Добавлено: 30.11.08 02:21
Steel Brand, я конечно не профи, но 4000 строк - это "чё орёшь"!

Ответить

Страница: 1 | 2 |

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



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