Извините, ничего не найдено.

Chuma · 23.12.2006, 16:05

Хм, я тут с проблемой сталкнулся

правильно ли я понимаю что в

Text 12,12, 2,True, True :nam$=Input("ВВЕДИТЕ ИМЯ:"):name$=Lower$(nam$)
Print name$

нелзя использовать русские символы. Есть ли какие нибудь варианты обхода?

И еще как сделать так что бы указанный запрос на ввод имен в цикле появлялся в одном и том же месте (а то при каждом обновлении цикла съезжает вниз на строку)

23.12.2006, 16:33

как сделать так что бы указанный запрос на ввод имен в цикле появлялся в одном и том же месте (а то при каждом обновлении цикла съезжает вниз на строку)

While Not KeyHit(1)
Cls
Locate 1,1
name$=Input()
Wend

Вот так

23.12.2006, 16:37

правильно ли я понимаю что в

Text 12,12, 2,True, True :nam$=Input("ВВЕДИТЕ ИМЯ:"):name$=Lower$(nam$)
Print name$

нелзя использовать русские символы. Есть ли какие нибудь варианты обхода?

нужно читать ASCII-код символов и менять их на нужные

HolyDel · 23.12.2006, 19:56

leo+1.

23.12.2006, 20:39

или от ASCII кода буквы отнять некое число или добавить
ps. число ето количество букв в алфавите

23.12.2006, 21:50

Сообщение от jimon

или от ASCII кода буквы отнять некое число или добавить
ps. число ето количество букв в алфавите

А я это и имел в виду

23.12.2006, 21:51

Вообщем, надо написать специальную функцию.

23.12.2006, 22:34

Progger_Leo
пиши все в одном сообщении

Chuma · 24.12.2006, 00:44

хм. спасибо Progger_Leo!

Блин.. а с какого символа идут все буквы русского? и сколько надо прибавлять?
блин... уеду нафик в англию =) чтоб проще было.

HolyDel · 24.12.2006, 01:13

держите, соучастнеги
[blitz]
Function Lower2$(txt$)
nt$=""
For i=1 To Len(txt)
m$=Mid(txt,i,1)
If Asc(m$)<128
nt=nt+Lower(m)
Else
If Asc(m)>191 And Asc(m)<225
nt=nt+Chr(Asc(m)+32)
ElseIf Asc(m)=168
nt=nt+Chr(184)
Else
nt=nt+m
EndIf
EndIf
Next
Return nt
End Function
[/blitz]

24.12.2006, 01:41

Сообщение от Chuma

Блин.. а с какого символа идут все буквы русского? и сколько надо прибавлять?
блин... уеду нафик в англию =) чтоб проще было.

Посмотри в хэлпе, там есть.

Chuma · 24.12.2006, 01:46

HolyDel, блин... я те даже не знаю как отплатить - я 20 минут сидел и с альтом высчитывал когда русские буквы пойдут... альт + 128 =))))

блин ну не иду я простыми путями =))))

ЕЩЕ РАЗ СПАСИБО ВСЕМ ОТВЕТИВШИМ! ВСЕМ ПО ПЛЮСУ (Я просто не знаю как вас еще проблагодарить!)

PS немного поправлю
If Asc(m)>191 And Asc(m)<224 иначе буква а вылетает...