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
s=GetKey()
If s>32 s_$=s_$+Chr(s)
;;If s_="1234567890" And KeyHit(57) End
;;If btstatus=2 And click=1 Then ;click=1 когда нажимаешь на мышь
If MouseHit(1) Then ; если id кнопки такой, то:
If s_$="1234567890"
FileReg=WriteFile("file.txt")
WriteLine(FileReg,"ab729c")
CloseFile(FileReg)
EndIf
If s_$="1234567890" ; здесь делал разное: Else, If not EnterKey$= , != и т.д.
s_$=""
SimKol=0
End ; если вылетает, значит выполняется это условие
EndIf
EndIf
click=0
Text 0,0,s_
If KeyHit(1) End
Next
Flip
Cls
Forever
|
вот врубил твой код...МОЖЕТ неправильно набираешь просто,у меня всё работает.......S_=EnterKEy(),может просто нет процедуры нажатия кнопки
что за !=,блитз разве знает такую функцию???