konsoleniii.pb

来自「利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合」· PB 代码 · 共 59 行

;   /////////////////////////////
;   AmLinger
;       by 2008 02 05
;   /////////////////////////////

;   将英文站点的一些代码注释一下.
;   新手可以进步更快
;   用PureBasic写一个控制台程序
;原代码中,这一个是空的,所以决定写一点什么..
;这个程序中用 Delay(3000) 延时3000 毫秒后退出
;这里我们模拟用C中的Getch() 请按任意键退出

Declare Getch()
OpenConsole()

;原代码中没有下面这一句 这一句是我自己加的.
;因为要使用 ConsoleLocate 定位函数 在 4.1 版本以上
;首要要开启图形模式才可以正常                                     
EnableGraphicalConsole(#True)

ConsoleTitle("定位输出")
;定位输出
ConsoleLocate(35,0)
;
PrintN("定位测试")

ConsoleLocate(30,10)           
 
Print("请把你的名字写在这里好吗?(以回车结束): ") 

;接收控制台输入内容,以回车结束
Name$ = Input()                                 

;清除之前屏幕显示,也必须在开启图形模式之后才可以正常工作                                                
ClearConsole()                                 

ConsoleLocate(30,10)                            
   
PrintN("哇喔 "+Name$+" 这个名很不错哟.")  
;延时3000毫秒    

;Delay(3000)
Getch()             

CloseConsole()


Procedure Getch()
    Print("请按任意键退出...")
    Repeat
    Key$=Inkey()
    Until Key$
    
EndProcedure

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 52
; FirstLine = 21
; Folding = -