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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
6 L% C6 J% A! M! k( J2 c$ y) @# w- p  E! t4 G& }; s& d5 y
簡單VBA練習  U4 ^: b' y6 c6 ~- a
三球限制在方框,並僅可做相切碰觸,不可相互交集.8 ~# C' O, Z5 e1 A7 q
0 w2 Q" Z5 }2 |# p* T$ T
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
- Y1 ?3 {/ `  `7 H思維來源參考如上) y. ?  g4 j! z5 Y

, f3 ~7 d) y; U9 y# P4 G) { dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
: e# F& q& s) m; \# G: z7 U0 X$ y: B1 f9 s- ?" a
分享原檔,有興趣練練VBA了8 c# h0 q0 G, z+ _
編程應該可以再簡化# n9 q$ F6 n5 F* ?1 b
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
/ V8 ?/ \2 k7 r. w簡介:6 Q, g8 s/ v9 i0 k- o. Q
    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,; l8 e  R+ v1 Z1 x8 i+ X
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???1 k1 f7 q3 \4 X
所以就越想越有味道了!. ?2 Y- f" q* C; f$ n
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.8 r! E( H! Y: |1 q6 u2 @& v/ j! ?4 l
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,
- q' n$ x1 X2 K0 z但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.5 H9 b$ ]0 Q) N! {4 }

$ z6 B# y" y$ M4 ~$ Q
8 g" _. e8 q5 @& H/ E8 e 1.png 0 d  a2 @7 ?/ ?
; O! Y1 |! ~$ H) Z' W$ v$ V
2.png
6 `" O  o+ G2 u9 u  Z& r6 T
/ c& e( g# v" Y5 p$ M 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简体版中不能运行，文字也有乱码。
: y* K, A; o" ]6 T9 J$ ?  A
% m2 p. F6 j% Y( x7 p  h$ G; t Snap1.jpg
, P" h( a# }! u( h3 `& l
, l, h3 c: j) t Snap2.jpg
& ]6 G! W2 L9 c  v2 H5 V& @+ I' z, Z) n
Snap3.jpg
) k0 s* e& u5 J
1 r% [1 w) _/ s; z0 r( t

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif! O+ m. s& ]8 ]  u/ u7 q
试了一下，在2012简体版中不能运行，文字也有乱码。
- v8 L8 v2 K) k
如圖試試了
. V; Q! ^; p& z( y
; n& V# f7 N7 `! }4 r- R8 D HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
" |0 v3 P7 R6 U* s4 J% G6 I4 n) e% o; @* X9 m; {/ V
看了下，梁大图中都是默认打勾的。1 i3 W2 v# f: ]2 `0 H8 L
& z% E$ T9 l8 |
Snap2.jpg ) `! B+ y6 ^" ~$ A" d& [) w2 N3 I
, D& z0 o# M4 K# r# G* _
Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑 7 F4 f) F4 ]* d% x) L3 w1 Z

0 t; q( t" P! u真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!0 y4 C8 X4 ~* M$ d8 Y' f; K
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
$ n/ r" f" Q4 l我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
7 ~- t/ S9 W# [' a9 |; A建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif, E( m& A0 d& k7 S( I
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。9 D+ D* l% _5 Z! M
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
! {( L" Q$ h% e& _! p9 H
另看看結合是否正常
7 V: [% l$ w  b8 e1 g5 w& I2 G; S. S2 w4 J. ^' {$ z- y9 b5 S8 s  g8 ^
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
. W3 a  L$ T4 @- e# ^8 d0 J) ]1 `  L9 M
哎呀，我误导梁大了，实在汗颜。6 W3 ~7 t4 ~- y+ o2 f
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。: }+ x: g: w0 D; o4 c: V8 P
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 编辑
& v7 t0 T4 V' L3 f# V3 v% \7 f& j* n) P7 V3 _
非常强大的VBA，2013间体版测试一次通过，谢谢了~~6 t! H7 w' F7 t! j$ ~5 q

- e' j0 l. m5 h* G1 f ddd.gif
* A; [/ [- X1 C

点评

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 编辑 $ m: l/ A$ G6 v* ]1 ^6 r- o
8 W" p% ?/ @0 `! `' j4 H: L
順便提供簡繁體字之轉換,
4 Y- F9 V/ m6 w如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
5 b  O- Z+ H3 R' i1 r- F/ n2 _; ]測試簡版的宏,是先用這軟件做轉換再執行的.1 F  i" f! V8 }$ S# B3 ?- e
操作詳看裡面的說明! V  a3 G. s6 |8 K. k/ |
' d1 W* M3 h$ }: o
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
$ _8 `$ i' g# G; {& h" F我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
5 R( v5 a* J  W9 ^3 R% 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
6 p% m& b2 X& D$ Y+ U# I順便提供簡繁體字之轉換,
3 B& J* P, \7 p0 ^9 {* u如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
2 {7 C" x' A2 V- I, ~測試簡版的宏 ...

( }& i/ G& v$ ]  j2 x/ N; b谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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