查看: 2869|回复: 23

「开源」一个很简单的软件,可以给不会代码的人学习代码

[复制链接]

3

主题

48

帖子

277

积分

中级会员

Rank: 3Rank: 3

积分
277
发表于 2014-2-16 15:04:25 来自手机 | 显示全部楼层 |阅读模式
有安装包,有源码,供不懂基本代码的小白学习。软件不是很厉害,不喜勿喷!
回复

使用道具 举报

1

主题

97

帖子

909

积分

高级会员

Rank: 4

积分
909
发表于 2014-7-24 07:01:30 | 显示全部楼层
回复 支持 1 反对 0

使用道具 举报

3

主题

48

帖子

277

积分

中级会员

Rank: 3Rank: 3

积分
277
 楼主| 发表于 2014-2-16 15:05:22 来自手机 | 显示全部楼层
安装包和源码都在这:http://pan.baidu.com/share/link?shareid=1984867781&uk=3325139097
回复 支持 反对

使用道具 举报

3

主题

48

帖子

277

积分

中级会员

Rank: 3Rank: 3

积分
277
 楼主| 发表于 2014-2-16 15:07:29 | 显示全部楼层
鍦ㄨ繖閲
回复 支持 反对

使用道具 举报

2

主题

82

帖子

1119

积分

VIP商业用户

Rank: 8Rank: 8

积分
1119
发表于 2014-2-25 18:21:08 | 显示全部楼层
看看什么东西
回复 支持 反对

使用道具 举报

0

主题

20

帖子

127

积分

初级会员

Rank: 2

积分
127
发表于 2014-7-14 19:54:34 | 显示全部楼层
变量 当前经度 为 双精度小数型 变量 当前纬度 为 双精度小数型 变量 启动时间 为 长整数型 变量 开屏 为 面板 事件 开始监测.被单击() 如果 监测GPS()=真 则 位置传感器1.开始监测() 否则 信息框("提示","请开启GPS后,再试!","确定") 位置传感器1.打开设置界面() 结束 如果 结束 事件 事件 主窗口.创建完毕() 开屏图片() 标签1.背景颜色=无色 标签2.背景颜色=无色 标签3.背景颜色=无色 浏览框1.启用JS=真 浏览框1.可视=假 面板1.可视=真 面板1.背景图片="wozana.jpg" 结束 事件 过程 开屏图片() 开屏=创建 面板 位于 主窗口 开屏.可视=真 开屏.左边=0 开屏.顶边=0 开屏.宽度=取屏幕宽度() 开屏.高度=取屏幕高度()-100 开屏.背景图片="wozana.jpg" 结束 过程 事件 主窗口.触摸手势(方向 为 整数型) 判断 方向 分支 0 开屏.可视=假 结束 判断 结束 事件 事件 停止监测.被单击() 如果 监测GPS()=真 则 位置传感器1.开始监测() 否则 信息框("提示","请开启GPS后,再试!","确定") 位置传感器1.打开设置界面() 结束 如果 标签2.标题="" 标签3.标题="" 结束 事件 函数 监测GPS() 为 逻辑型 如果 位置传感器1.设备是否有效()=真 则 如果 位置传感器1.设备是否已开启()=真 则 监测GPS=真 否则 监测GPS=假 结束 如果 否则 信息框("错误","GPS设备无效,该软件不能使用!","确定") 结束 如果 结束 函数 事件 位置传感器1.位置改变(纬度 为 双精度小数型,经度 为 双精度小数型,海拔 为 双精度小数型,速度 为 双精度小数型,方向 为 双精度小数型) 当前经度=经度 当前纬度=纬度 标签2.标题="速度:"& 取文本左边(到文本(速度),4) &"km/h" 标签3.标题="海拔:" & 海拔 &"m" 结束 事件 事件 看看我在哪.被单击() 变量 返回文本 为 文本型 变量 纠偏百度 为 文本型 变量 纠偏百度经度 为 文本型 变量 纠偏百度纬度 为 文本型 面板1.可视=假 浏览框1.可视=真 如果 监测GPS()=真 则 位置传感器1.开始监测() 否则 信息框("提示","请开启GPS后,再试!","确定") 位置传感器1.打开设置界面() 退出 结束 如果 如果 到文本(当前纬度)<>"" 且 到文本(当前经度)<>"" 则 纠偏百度=GPS百度纠编(当前经度,当前纬度,1,3) 纠偏百度经度=JSON解析(纠偏百度,"","jd",1) 纠偏百度纬度=JSON解析(纠偏百度,"","wd",1) 返回文本=读入资源文件("qqmap.html","UTF-8") 返回文本=子文本替换(返回文本,"{jwd}",到文本(纠偏百度经度) &","& 到文本(纠偏百度纬度)) 写出文本文件(取存储卡路径() &"/qqmap.html",返回文本) 浏览框1.跳转("file://"& 取存储卡路径() &"/qqmap.html") 结束 如果  结束 事件  事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型) 如果 键代码 = 返回键 则 如果 取启动时间() - 启动时间 >2000 则 弹出提示("再按一次退出程序") 启动时间 = 取启动时间() 否则  结束程序() 结束 如果 结束 如果 结束 事件 函数 GPS百度纠编(经度 为 文本型,纬度 为 文本型,计次 为 整数型,循环次数 为 整数型) 为 文本型 变量 返回位置 为 文本型  如果 计次<= 循环次数 则 返回位置=取网页源码("http://*****/gpsapi.php?jd="& 经度 &"&wd="& 纬度,"UTF-8",3000) 如果 返回位置<>"" 则 GPS百度纠编=返回位置 退出 结束 如果 计次=计次+1 结束 如果 GPS百度纠编=返回位置 结束 函数
回复 支持 反对

使用道具 举报

0

主题

2

帖子

18

积分

新手上路

Rank: 1

积分
18
发表于 2014-7-15 21:22:53 | 显示全部楼层
看看啊呜呜呜呜呜呜嗷嗷嗷
回复 支持 反对

使用道具 举报

0

主题

6

帖子

48

积分

新手上路

Rank: 1

积分
48
发表于 2014-7-23 14:43:06 | 显示全部楼层
看看什么东西
回复 支持 反对

使用道具 举报

4

主题

269

帖子

1593

积分

资深会员

Rank: 6Rank: 6

积分
1593
发表于 2014-8-4 18:48:51 | 显示全部楼层
awd aw dawd awd awd awd
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表