Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-07-28 21:52:40 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 15:32:12
карма: 0

0
Ответов: 75
Рейтинг: -3
#2: 2008-07-28 22:00:11 ЛС | профиль | цитата
Так Напиши в поле для ввода 18.09.1991 и появится Восемнадцатого сентября одна тысяча девятьсот девяносто первого года

Add(MainForm,304118,364,301)
{
Left=20
Top=105
Height=282
BorderStyle=4
}
Add(StrList,4584074,469,315)
{
Strings=#79:18.09.1991=Восемнадцатого сентября одна тысяча девятьсот девяносто первого года|
}
Add(RichEdit,7761617,623,371)
{
Width=395
Height=235
ScrollBars=2
}
Add(ArrayEnum,10570131,483,371)
{
link(onItem,10035454:doSplit,[])
link(Array,4584074:Array,[])
}
Add(If_else,8380298,581,371)
{
link(onTrue,7761617:doAdd,[])
link(Op1,10035454:Left,[(587,361)(566,361)(566,421)(531,421)])
link(Op2,2704511:Value,[(594,355)(573,355)(573,415)(447,415)])
}
Add(Memory,2704511,441,371)
{
link(onData,10570131:doEnum,[])
}
Add(StrPart,10035454,525,371)
{
Char="="
Point(Left)
link(onSplit,8380298:doCompare,[])
}
Add(Edit,10104102,357,371)
{
Top=235
Width=395
Text=""
link(onEnter,2704511:doValue,[(415,384)(415,377)])
}
И нажми Enter
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2008-07-28 22:03:57 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 15:32:13
карма: 0

0
Ответов: 563
Рейтинг: 54
#4: 2008-07-28 22:03:35 ЛС | профиль | цитата
ему надо что бы число (дата) отображалась каким ни будь образом словами. мне кажется был компонент такой, возможно ошибаюсь ))
карма: 0

0
Ответов: 75
Рейтинг: -3
#5: 2008-07-28 22:04:03 ЛС | профиль | цитата
Жаль
карма: 1

0
Ответов: 563
Рейтинг: 54
#6: 2008-07-28 22:04:53 ЛС | профиль | цитата
а вообще можно сделать щас сделаю
карма: 0

0
Ответов: 75
Рейтинг: -3
#7: 2008-07-28 22:04:57 ЛС | профиль | цитата
Думаю bublik знает, он сам как гуру
карма: 1

0
Ответов: 563
Рейтинг: 54
#8: 2008-07-28 22:05:04 ЛС | профиль | цитата
немного математики надо
карма: 0

0
Ответов: 75
Рейтинг: -3
#9: 2008-07-28 22:05:14 ЛС | профиль | цитата
Профи гуру
карма: 1

-1
Голосовали:Sniper36
Ответов: 563
Рейтинг: 54
#10: 2008-07-28 23:01:41 ЛС | профиль | цитата
вроде получается )) сегодня поздно завтра закончу и выложу
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#11: 2008-07-29 01:14:53 ЛС | профиль | цитата
Новый писал(а):
как можно сделать следующее:
в Upload->Компоненты должен быть компонент по переводу чисел в слова. Ищи, а там уже дело техники.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: -3
#12: 2008-07-29 13:08:45 ЛС | профиль | цитата
Может так code_9592.txt
------------ Дoбавленo:

Вот так лучше

Add(MainForm,11359905,63,380)
{
Left=20
Top=105
Width=743
Height=263
Color=15780518
}
Add(Label,14642745,476,310)
{
Left=35
Top=90
Width=18
Height=20
Color=15780518
Font=[MS Sans Serif,11,0,0,1]
Caption="18"
Point(onMouseMove)
link(onMouseMove,13921683:doEvent1,[])
}
Add(Edit,3931320,294,310)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,3674139:doEvent1,[])
}
Add(RichEdit,11275539,196,310)
{
Left=315
Top=365
Visible=1
Strings=#14:Восемнадцатого|
link(onChange,3931320:doText,[])
}
Add(Hub,3674139,413,310)
{
InCount=2
OutCount=1
link(onEvent1,14642745:doText,[])
}
Add(RichEdit,374445,175,247)
{
Left=690
Top=290
Visible=1
Strings=#2:18|
link(onChange,10631321:doText,[])
}
Add(Edit,10631321,308,247)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,3674139:doEvent2,[(397,253)(397,323)])
}
Add(Timer,14178202,637,317)
{
link(onTimer,374445:doAdd,[(695,323)(695,212)(137,212)(137,253)])
}
Add(Hub,13921683,532,317)
{
link(onEvent1,14178202:doTimer,[])
link(onEvent2,11275539:doAdd,[(569,330)(569,327)(184,327)(184,316)])
}
Add(Label,6951479,490,492)
{
Left=185
Top=90
Width=18
Height=20
Color=15780518
Font=[MS Sans Serif,11,0,0,1]
Caption=".09."
Point(onMouseMove)
link(onMouseMove,11166480:doEvent1,[])
}
Add(Edit,92990,308,492)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,14098081:doEvent1,[])
}
Add(RichEdit,6234502,210,492)
{
Left=315
Top=365
Visible=1
Strings=#8:сентября|
link(onChange,92990:doText,[])
}
Add(Hub,14098081,434,492)
{
InCount=2
OutCount=1
link(onEvent1,6951479:doText,[])
}
Add(RichEdit,9503916,203,415)
{
Left=640
Top=280
Visible=1
Strings=#4:.09.|
link(onChange,5265783:doText,[])
}
Add(Edit,5265783,357,415)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,14098081:doEvent2,[(411,421)(411,505)])
}
Add(Timer,15106643,644,499)
{
link(onTimer,9503916:doAdd,[(709,505)(709,435)(198,435)(198,421)])
}
Add(Hub,11166480,546,499)
{
link(onEvent1,15106643:doTimer,[])
link(onEvent2,6234502:doAdd,[(583,512)(583,537)(198,537)(198,498)])
}
Add(Label,13827336,504,653)
{
Left=325
Top=90
Width=113
Height=20
Color=15780518
Font=[MS Sans Serif,11,0,0,1]
Caption="1991"
Point(onMouseMove)
link(onMouseMove,1111938:doEvent1,[])
}
Add(Edit,6495792,322,653)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,5618669:doEvent1,[])
}
Add(RichEdit,13938844,224,653)
{
Left=315
Top=365
Visible=1
Strings=#44:одна тысяча девятьсот девяносто первого года|
link(onChange,6495792:doText,[])
}
Add(Hub,5618669,441,653)
{
InCount=2
OutCount=1
link(onEvent1,13827336:doText,[])
}
Add(RichEdit,4173957,203,590)
{
Left=510
Top=285
Visible=1
Strings=#4:1991|
link(onChange,14365587:doText,[])
}
Add(Edit,14365587,378,590)
{
Left=225
Top=360
Visible=1
Text=""
link(onChange,5618669:doEvent2,[(425,596)(425,666)])
}
Add(Timer,11517757,672,660)
{
link(onTimer,4173957:doAdd,[(723,666)(723,568)(191,568)(191,596)])
}
Add(Hub,1111938,560,660)
{
link(onEvent1,11517757:doTimer,[])
link(onEvent2,13938844:doAdd,[(597,673)(597,670)(212,670)(212,659)])
}
карма: 1

0
файлы: 1code_9592.txt [1.5KB] [191]
Разработчик
Ответов: 26163
Рейтинг: 2127
#13: 2008-07-29 13:14:17 ЛС | профиль | цитата
Мдааа... Уж...
карма: 22

0
Ответов: 75
Рейтинг: -3
#14: 2008-07-29 13:18:22 ЛС | профиль | цитата
nesco, а у тебя есть предложения ?
карма: 1

-1
Голосовали:Астрамак
Разработчик
Ответов: 26163
Рейтинг: 2127
#15: 2008-07-29 13:42:59 ЛС | профиль | цитата
alexpro, хотел вчера сделать, но передумал
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)