设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 1475|回复: 16
收起左侧

[分享] 捉迷藏 附檔

[复制链接]
ryouss
发表于 2015-1-3 19:26:47 | 显示全部楼层 |阅读模式 来自： 中国浙江嘉兴

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要 登录 才可以下载或查看，没有帐号？注册

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 5 j# C# J/ l2 h0 l% ?% v* u4 C% p  U, N

0 e5 V$ l4 F, U2 B! V! D) e簡單VBA練習8 I2 u! Z: g0 W8 A
三球限制在方框,並僅可做相切碰觸,不可相互交集.  b8 h" c8 k; ]1 o, B
* Y+ s; ?6 ~7 H" S
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1) I9 H$ r& A% z' p3 E5 |$ M
思維來源參考如上! G+ i) q" v8 s& K

* |6 l2 q5 o' w$ V+ I7 W dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 ) Z/ v4 p5 T0 |4 e; a- I3 t: Y

! |2 v6 r2 Z. I! }- B* |# [分享原檔,有興趣練練VBA了9 h$ A; v! J0 w
編程應該可以再簡化' I, w  ?6 u0 @, H# ~6 v
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
% m& `4 {7 W& ^, q$ y+ I& Q/ E簡介:
/ h- I6 H% ?& G* }) q6 s    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,$ C# [. w/ Q' P: b( ~
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???7 u+ e8 Z3 T$ V+ [
所以就越想越有味道了!% P; @% ~  ~4 J: Z, R, z
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
% q# F* `& E1 r/ m2 e. ~' y( J    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,
9 h0 G1 p- G& K' ], g$ M& e但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.
/ s/ p8 U5 |. c8 O  ?9 {0 r2 i, t
9 r* H. q% T1 J
" |2 i' a2 T$ W9 k- h 1.png 3 e* {2 t: D; @3 Q6 t( G& H

6 J4 B: g/ l9 ]# T+ ] 2.png
% D( b* R1 b' V& T* E4 e) i9 ?& \9 Y" p3 y9 J) h8 j% W
Random movement_X150104.rar (474.82 KB, 下载次数: 18)

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

keilei001
发表于 2015-1-4 19:52:20 | 显示全部楼层 来自： 中国广东肇庆
梁大厉害，如果让我把那一大片的代码抄一遍，我保证绝对会抄错。

点评

ryouss
拜託幫忙測試 是否能在簡版操作  发表于 2015-1-4 19:55
回复 支持 反对

举报

keilei001
发表于 2015-1-4 21:03:16 | 显示全部楼层 来自： 中国广东肇庆
试了一下，在2012简体版中不能运行，文字也有乱码。
- W. ]+ G" j! x" _5 x* q2 A: T! y$ ?: C! p
Snap1.jpg
6 w# @; T2 p0 o& ?( f
$ [- Q) X2 |. M' W, p Snap2.jpg 5 v4 Q, G) m/ F' C
8 F6 ^2 |# q% F& k; Z8 n2 q6 m
Snap3.jpg
3 _1 ?8 A. {9 E7 \7 n; P2 U( f" O3 |, D$ \% C

点评

ryouss
那些亂碼皆是 "註解" 而已不礙事, 記住在 ' 之後的文字 宏 是不執行的, 是何問題 再想想了  发表于 2015-1-4 21:12
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif3 i* s7 Q6 M' L3 N, B5 T
试了一下，在2012简体版中不能运行，文字也有乱码。
! t& E2 ^% L9 I! R/ @8 I
如圖試試了6 w+ B. k. b5 O& E) Z9 V" j
4 a( q: l$ R0 T/ Y
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
) E& ]; T3 }1 G. U7 s$ ]- `2 Y' ]  L, Y
看了下，梁大图中都是默认打勾的。
4 @3 }' E  S$ d! A7 v% l; `6 \' }" D
! l% f, d- Y! S4 W7 @; Z Snap2.jpg : k1 M5 F. I0 s( Y9 c$ |  @) k

5 n& I0 K! {/ i1 C9 y! U. x Snap3.jpg

点评

ryouss
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!  发表于 2015-1-4 22:39
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑   N! I4 d! S+ F/ `) _3 y* \
2 u8 H. n5 L$ D' U
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
4 Y5 F4 q8 [4 ?- d; v! H/ {也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
# E* Z6 j+ z1 ~6 o4 `( w) V: }+ L我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
" q  b% ?# J9 h  ^建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif& e. S7 f, b$ O
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
' g6 _( K0 W% A. W我一台电脑有几个硬盘，分别装了不同的系统，想 ...

8 Z/ {( g, a' O9 ^9 h6 W8 h; b另看看結合是否正常/ g& [8 S4 K' t6 y
/ _7 I& u1 F& z% ?3 R" k
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
2 K9 O5 {# {8 d2 S( b3 c; K. b: A' O# ^* Q. |! b. T6 T
哎呀，我误导梁大了，实在汗颜。' x# ^% d7 v5 ?! I) h6 B, ]2 A
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
! I+ q7 @. `0 d# N 0000.gif

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
表示PC計算太強了  发表于 2015-1-5 00:27
ryouss
非有4个球在乱窜,實際是3球,是人眼視覺問題, 另不用執行鍵 按 F8 鍵可逐步跑程式 試試長按 或 短按  发表于 2015-1-5 00:25
回复 支持 反对

举报

qiminger
发表于 2015-1-6 08:20:16 | 显示全部楼层 来自： 中国辽宁抚顺
本帖最后由 qiminger 于 2015-1-6 10:43 编辑
9 E* E; f/ ]+ [
# \' S9 C7 x  o0 H非常强大的VBA，2013间体版测试一次通过，谢谢了~~" e: v- o: V1 A" n/ t4 s6 K
8 L. \% Z3 i- _# V" _4 a
ddd.gif
5 h9 j8 B) @7 e$ K4 {

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
可否告訴哪個版本試的  发表于 2015-1-6 08:26
ryouss
謝謝 qiminger 大大的測試  发表于 2015-1-6 08:25
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 19:51:44 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-6 19:56 编辑
% E! J- x( z  g7 s2 t8 m, h* A( C8 c8 d3 U
順便提供簡繁體字之轉換,
. Z+ `0 \! W# }4 B; `: F' T如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,+ P( {1 r. |/ M9 Q1 @+ e
測試簡版的宏,是先用這軟件做轉換再執行的.
' _3 h1 X' {' X3 {1 [操作詳看裡面的說明
- x4 l- ~2 N4 J1 W) v0 B  @! Z7 o; F% G9 Q; y3 A
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
0 c. f( y6 n2 b5 E我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

ryouss
但能肯定的是,有這樣的思想學習態度是學不好什麼的!  发表于 2015-1-7 07:03
ryouss
也就是自找麻煩,這樣行嗎!  发表于 2015-1-6 21:41
ryouss
沒事自己找碴的  发表于 2015-1-6 21:40
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 21:42:55 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
* W( D. X. V3 d5 |8 ^4 z) ] 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-7 07:03:55 | 显示全部楼层 来自： 中国浙江嘉兴
但能肯定的是有這樣的思想學習態度是學不好什麼的!
回复 支持 反对

举报

qiminger
发表于 2015-1-7 08:11:05 | 显示全部楼层 来自： 中国辽宁抚顺
ryouss 发表于 2015-1-6 19:51 static/image/common/back.gif
" W$ m6 @: y/ z) ?' P6 b- ?& L順便提供簡繁體字之轉換,4 f( a* L) S% S0 P
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,) |3 Y" q; k. I4 h
測試簡版的宏 ...

1 I% Q. o% p# l, B( G; I谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

kungli03
发表于 2015-1-19 11:20:01 | 显示全部楼层 来自： 中国台湾
虽然看不懂, 还是谢谢分享

点评

ryouss
不用宏也行,可思考裝配件的限制結合.  发表于 2015-1-19 11:25
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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