博文
消息框中按钮之定义(2005-09-20 22:05:00)
摘要：（1）
消息框中按钮之定义
MsgBox strMsg1, c1+c2+c3 , strMsg2
其中 strMsg1 为提示信息
strMsg2 为标题内容
c1+c2+c3 定义按钮形式，具体如下：
c1: 按钮的类型
0 vbOkOnly 只有一个按钮“确定”
1 vbOkCancel 两个按钮“确定”和“取消”
2 vbAbortRetryIgnore 三个按钮“终止”、“重试”和“忽略”
计算机常用端口一览表(2005-09-20 21:30:00)
摘要：计算机常用端口一览表。
1 传输控制协议端口服务多路开关选择器
2 compressnet 管理实用程序
3 压缩进程
5 远程作业登录
7 回显(Echo)
9 丢弃
11 在线用户
13 时间
15 netstat
17 每日引用
18 消息发送协议
19 字符发生器
20 文件传输协议(默认数据口)
21 文件传输协议(控制)
22 SSH远程登录协议
23 telnet 终端仿真协议
24 预留给个人用邮件系统
25 smtp 简单邮件发送协议
27 NSW 用户系统现场工程师
29 MSG ICP
31 MSG验证
33 显示支持协议
35 预留给个人打印机服务
37 时间
38 路由访问协议
39 资源定位协议
41 图形
42 WINS 主机名服务
43 "绰号" who is服务
44 MPM(消息处理模块)标志协议
45 消息处理模块
46 消息处理模块(默认发送口)
47 NI FTP
48 数码音频后台服务
49 TACACS登录主机协议
50 远程邮件检查协议
51 IMP(接口信息处理机)逻辑地址维护
52 施乐网络服务系统时间协议
53 域名服务器
54 施乐网络服务系统票据交换
55 ISI图形语言
56 施乐网络服务系统验证
57 预留个人用终端访问
58 施乐网络服务系统邮件
59 预留个人文件服务
60 未定义
61 NI邮件?
62 异步通讯适配器服务
63 WHOIS+
64 通讯接口
65 TACACS数据库服务
66 Oracle SQL*NET
67 引导程序协议服务端
68 引导程序协议客户端
69 小型文件传输协议
70 信息检索协议
71 远程作业服务
72 远程作业服务
73 远程作业服务
74 远程作业服务
75 预留给个人拨出服务
76 分布式外部对象存储
77 预留给个人远程作业输入服务
78 修正TCP
79 Fi......
文件语句使用讲座(2005-09-20 21:20:00)
摘要：文件语句使用讲座
在qb中学习完基本的语句后，最最值得大家认真学习的内容就是有关文件的部分了,
QB的文件操作在所有编程语言中是最方便、最简单、最强大的，而且和底成DOS中断很配合,学了以后在vb中也可以使用！
我看到初学者有个误区，以为文件操作最难，实际上，这个放在最后一章，并不是最难，在我看来所有的都一样难，也都一样简单，最难的是书上没有讲的，可能写教材的人也不知道如何用(这个应该不可能)，这个才难！
相关知识(充实中....)
文件的扩展名对与qb来说无所谓，都可以用open语句打开
一、体验建立一个文件
初步练习生成一个文件
OPEN "TEMP.TXT" FOR OUTPUT AS #1 '打开,建立一个名字为temp.txt的文件,文件号为1
PRINT #1,"这是一个测试文件" '往1号文件里写
CLOSE #1 '关闭1号文件(只有关闭以后,内容才真正的写进去)
你可以在WIN下用记事本打开TEMP.TXT 这个文件,就会看到你刚刚输入的数！
如果你不会用记事本，就请用下面的代码
OPEN "TEMP.TXT" FOR OUTPUT AS #1
PRINT #1,"这是一个测试文件"
CLOSE #1
SHELL "NOTEPAD temp.TXT" '调用记事本
这时就能看到你生成的文件了!
SHELL 可以调用外部的命令、程序 。 这个NOTEPAD实际上就是WINDOWS的记事本程序
二、有关文件语句的用法
OPEN 语句 的用法
射击(游戏)[转贴](2005-09-20 21:17:00)
摘要：DECLARE SUB zidan ()
DECLARE SUB mubiao ()
DECLARE SUB lose ()
DECLARE SUB win ()
DIM SHARED room(0 TO 24, 0 TO 15) AS INTEGER
DIM SHARED state(127) AS INTEGER
DIM SHARED score AS INTEGER, x0 AS INTEGER
gun = 7: x0 = 20
RANDOMIZE TIMER
VIEW PRINT 1 TO 25: CLS '初始化边界
LOCATE 1, x0 + 1: PRINT CHR$(201); STRING$(30, 205); CHR$(187)
FOR i = 2 TO 24
LOCATE i, x0 + 1: PRINT CHR$(186); SPC(30); CHR$(186)
NEXT i
DEF SEG = &HB800
POKE 24 * 160 + 2 * x0, 200
FOR j = 2 TO 60 STEP 2
POKE 24 * 160 + 2 * x0 + j, 205
NEXT j
POKE 24 * 160 + 2 * x0 + 62, 188
COLOR 9
LOCATE 24, x0 + 2 * gun: PRINT "[]"
DO
CALL mubiao '目标下移
FOR j = 1 TO 15
IF room(0, j) = 24 THEN
CALL lose
&nb......