QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
12小时前
查看: 1496|回复: 16
收起左侧

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 & a, k( J% i: g% @" u

0 p. d- j4 W: X7 E: |- N+ @$ {簡單VBA練習: [' c' |( z3 }0 u
三球限制在方框,並僅可做相切碰觸,不可相互交集.# I! N1 Y6 _( R( S- A0 _4 p. p' x

1 W) c" a, S9 \8 C2 mhttp://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D17 u5 r; U& D( f( O
思維來源參考如上5 {8 o* l8 e* d, X+ v+ L4 I
: O7 e9 O: Q: d+ e. E1 W
dd2.gif
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
/ r7 ]* L7 L, C5 l
% S( I7 \9 R/ {: S# W: _分享原檔,有興趣練練VBA了
& L% {' A2 t' G1 |編程應該可以再簡化/ p; d+ @4 u% J3 |* ^/ o
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了." ~* r/ e1 i3 ^* I  i
簡介:
+ \8 N: C8 U, A5 ?4 W' ~    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
2 r! T/ W. }" f6 I7 i8 {+ a9 M/ ]如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???  o. c# _+ h& P1 o1 s
所以就越想越有味道了!

& {) e1 W0 h# ^$ e  i    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.+ T" e( F0 I% ~5 J. @% N
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,) M2 p" F0 K3 H+ m# [' ]! f
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.  Y/ P' r/ N+ A' Y2 p$ b7 G/ [

+ E9 O- ^) {8 J; U( _, u5 `/ L" c' o" p$ w4 L( c
1.png
  O7 ]% S" u1 Z
% k4 J  S$ C( |; x4 } 2.png ( u% j) K& i3 K5 @$ V
6 a: r- E/ `- ]& o  h
Random movement_X150104.rar (474.82 KB, 下载次数: 18)

评分

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

查看全部评分

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

点评

拜託幫忙測試 是否能在簡版操作  发表于 2015-1-4 19:55
发表于 2015-1-4 21:03:16 | 显示全部楼层 来自: 中国广东肇庆
试了一下,在2012简体版中不能运行,文字也有乱码。
6 a$ t1 o; Y1 e, s* h, s4 b- J' c5 W, w, ^
Snap1.jpg
* f7 h# v4 E; t7 Q. C
7 D$ n$ w7 c: n0 z- R' x Snap2.jpg
. _5 I) s8 o0 H! _$ @0 J$ w5 c; w$ m. [) t% w* G2 C
Snap3.jpg 8 y; z: h/ Q- ]7 u9 g

# M% U# C0 h1 t& ?: b  k( m

点评

那些亂碼皆是 "註解" 而已不礙事, 記住在 ' 之後的文字 宏 是不執行的, 是何問題 再想想了  发表于 2015-1-4 21:12
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自: 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif
% {- ^1 h" X8 J0 [  h+ q试了一下,在2012简体版中不能运行,文字也有乱码。
7 x5 u0 n) g- A3 H
如圖試試了
& ?, N3 ~4 y) t, ?4 l6 W4 a- M
HH-1.png
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自: 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑 . n! r0 m# Z; E* Y+ P
0 v# b( N/ `7 T- E6 U- l/ S: t
看了下,梁大图中都是默认打勾的。3 p2 y1 H9 o) U* g2 i. y

$ ]$ m* l; N6 \$ @/ @8 j( E* F Snap2.jpg 5 D0 ]+ e4 n1 i9 o( t7 \- \1 v8 ^
9 o* H; B& `2 a" L7 S; ~9 U
Snap3.jpg

点评

真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!  发表于 2015-1-4 22:39
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑 * C5 L8 G, V) D* f. h. @

" M1 H8 O9 q9 }2 d' u' x0 W! I真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
+ \' Y; T9 l1 Y- t' f也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自: 中国广东肇庆
宏对我这样的菜鸟来说太高深,帮梁大测试的资格都没有的。
; D( `# d/ H# o# i1 Z我一台电脑有几个硬盘,分别装了不同的系统,想用哪个就插哪个。
( q( b2 B8 E. _( h4 Z2 Q建议梁大买块硬盘装个简体系统和简体SW,这样测试就很方便。
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自: 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif, H* ?* |* ]" a- a! h- d. P
宏对我这样的菜鸟来说太高深,帮梁大测试的资格都没有的。
* Z/ ^" M" x! ?5 O2 ?' \* E( J2 G我一台电脑有几个硬盘,分别装了不同的系统,想 ...

* J: Y0 m. x' \" n4 g4 r另看看結合是否正常
7 U1 t" {( O0 U% V' x+ i9 g5 d! |; L3 {7 ~
KK1.png
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自: 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑 & K& Y0 Y  A- k* `/ O

* Z0 c. v. d% f4 b2 r# f哎呀,我误导梁大了,实在汗颜。
/ W" }' c$ t+ g% N7 w在装配体中运行宏是正常的,只是速度太快,显卡跟不上,显示有4个球在乱窜。$ @( C/ m4 F) J( c; s  e
0000.gif

点评

12# 附簡繁字轉換  发表于 2015-1-6 19:52
表示PC計算太強了  发表于 2015-1-5 00:27
非有4个球在乱窜,實際是3球,是人眼視覺問題, 另不用執行鍵 按 F8 鍵可逐步跑程式 試試長按 或 短按  发表于 2015-1-5 00:25
发表于 2015-1-6 08:20:16 | 显示全部楼层 来自: 中国辽宁抚顺
本帖最后由 qiminger 于 2015-1-6 10:43 编辑 ( A7 Z$ x2 {7 E
( U& O6 q( G( i: J* A4 m( T
非常强大的VBA,2013间体版测试一次通过,谢谢了~~( R- ]3 B6 g- e7 e" ^5 Y! J* y

) {8 B! @- v- }3 Y+ c6 N# U ddd.gif
2 N) G! }5 x9 ]$ i' [

点评

12# 附簡繁字轉換  发表于 2015-1-6 19:52
可否告訴哪個版本試的  发表于 2015-1-6 08:26
謝謝 qiminger 大大的測試  发表于 2015-1-6 08:25
 楼主| 发表于 2015-1-6 19:51:44 | 显示全部楼层 来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-6 19:56 编辑 5 x  v/ r  J- R) `  r+ b2 Z/ Z

2 |! j" I& F+ D0 [* G. ~6 U順便提供簡繁體字之轉換,
2 g. [- K9 w* Y. I! ]8 |; b如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
) Q/ [4 v; I0 \/ j測試簡版的宏,是先用這軟件做轉換再執行的.
4 V5 A( X1 l$ f) H/ P; P操作詳看裡面的說明
7 B  d4 Y7 V8 V" [1 u5 F) z# U" }# v
convertz802.zip (772.5 KB, 下载次数: 13)
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自: 中国山东淄博
我在想,写这些宏有什么作用,可能我是还没见到。" v) g+ M/ U8 v6 O- ]" h
我也是学机械的,曾经对写程序比较痴迷,应该说,这些程序不复杂,但是,不知道具体能有什么作用。

点评

但能肯定的是,有這樣的思想學習態度是學不好什麼的!  发表于 2015-1-7 07:03
也就是自找麻煩,這樣行嗎!  发表于 2015-1-6 21:41
沒事自己找碴的  发表于 2015-1-6 21:40
 楼主| 发表于 2015-1-6 21:42:55 | 显示全部楼层 来自: 中国浙江嘉兴
沒事自己找碴的+ w5 G7 U3 _( k! x0 K* C4 v5 D4 F
也就是自找麻煩,這樣行嗎!
 楼主| 发表于 2015-1-7 07:03:55 | 显示全部楼层 来自: 中国浙江嘉兴
但能肯定的是有這樣的思想學習態度是學不好什麼的!
发表于 2015-1-7 08:11:05 | 显示全部楼层 来自: 中国辽宁抚顺
ryouss 发表于 2015-1-6 19:51 static/image/common/back.gif
: ?4 q6 X) G! p+ x4 q+ L- z/ F順便提供簡繁體字之轉換,0 K/ o+ j3 R& `  k- F
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,+ Q+ k$ h1 I" \8 F6 ]( q
測試簡版的宏 ...
) R4 B8 g: d: g3 x. n# M
谢谢分享如此实用的转换工具,收下了。
发表于 2015-1-19 11:20:01 | 显示全部楼层 来自: 中国台湾
虽然看不懂, 还是谢谢分享

点评

不用宏也行,可思考裝配件的限制結合.  发表于 2015-1-19 11:25
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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