[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]


  • Страница 1 из 1
  • 1
Модератор форума: Spidy, blitz3d  
Форум мира Blitz3D » Язык Blitz3D » 2D программирование » Текстовое поле
Текстовое поле
DarkFoxДата: Среда, 21.04.2010, 11:13 | Сообщение # 1
ламер
Группа: Пользователи
Сообщений: 47
Награды: 0
Репутация: 1
Статус: Offline
question Подскажите как создать текстовое поле.
Ну куда логинн и пароль вводят.
"Стрельбу по движущимся мишеням, производить только с разрешения администрации
В случае попадания бое припаса в тело, обращаться к богу!!!"
 
SpidyДата: Среда, 21.04.2010, 11:51 | Сообщение # 2
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
рисуешь прямоугольничек, мигающий курсор ввода и считываешь ASC введенной буквы

Code

a$=Input$("Enter a letter:")  
Print "The ASCII value of the letter is:" + Asc(a$)  
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
 
DarkFoxДата: Среда, 21.04.2010, 22:41 | Сообщение # 3
ламер
Группа: Пользователи
Сообщений: 47
Награды: 0
Репутация: 1
Статус: Offline
Quote (Spidy)
мигающий курсор ввода

ээ, а это как сделать?

Добавлено (21.04.2010, 22:41)
---------------------------------------------
Еще есть некороя проблема с

Quote (Spidy)
считываешь ASC введенной буквы

Сделал так:
Если в в поле курсор и щелкнули то поле активно.

Если поле активно активно
Считывать введенный символ с клавы(Getkey())
конец

На деле же получается какой та прикол.
По умолчанию в поле появляется какой та квадрат.
да и введенный символ выдает тоже квадрат(про обратное конвертирование из ASC не забыл)

"Стрельбу по движущимся мишеням, производить только с разрешения администрации
В случае попадания бое припаса в тело, обращаться к богу!!!"
 
SpidyДата: Четверг, 22.04.2010, 15:04 | Сообщение # 4
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
мигание курсора
Quote

if (MilliSecs() / 5) Mod 2 then ; рисуем палочку

Пример консоли для ввода текста

Quote

Graphics 640,480,16,2

Const UPS=60

period=1000/UPS
time=MilliSecs()-period

Repeat
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
tween#=Float(elapsed Mod period)/Float(period)

For k=1 To ticks
time=time+period
If KeyHit(1) End
Next

key=GetKey()
If key
If key=13
CHAT$ = TILDA_CONSOL_CHAT$
TILDA_CONSOL_CHAT$=""
Else If key=8
If Len(TILDA_CONSOL_CHAT$)>0 Then TILDA_CONSOL_CHAT$=Left$(TILDA_CONSOL_CHAT$,Len(TILDA_CONSOL_CHAT$)-1)
Else If key>=32 And key<127
TILDA_CONSOL_CHAT$=TILDA_CONSOL_CHAT$+Chr$(key)
EndIf
EndIf

Text 10,10,TILDA_CONSOL_CHAT$
Text 10,20,CHAT$


Flip
Cls
Forever


Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
 
Форум мира Blitz3D » Язык Blitz3D » 2D программирование » Текстовое поле
  • Страница 1 из 1
  • 1
Поиск: