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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 7 g. R. i# C$ |8 R: H) p
8 O  W  ^; k/ z4 ]+ D/ C* O
簡單VBA練習1 [2 j- s( d. d$ s& w& H
三球限制在方框,並僅可做相切碰觸,不可相互交集.
4 ^4 B8 c( b' b& g( e
% g; W' x$ P4 O6 W1 vhttp://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
: v  t/ F& J0 [2 _/ c$ s) M思維來源參考如上
/ e( v5 c2 y2 z1 y8 ]1 ~/ H- L
5 a! G8 L1 s& K5 [0 o. S! R dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
  q' o! u$ t' z' e  y5 k+ G, b, e* x7 Z8 \# R: N0 T+ H3 c) d
分享原檔,有興趣練練VBA了1 j' ]. h4 g9 \+ _6 y4 g7 M( L* K
編程應該可以再簡化, J4 ?4 `  n: s2 m; |
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
% l2 \0 F4 S3 [4 Y簡介:, |( O: y1 _# p" I- q
    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
- e; F& L) w: i如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???$ L4 n* \# r0 O& C* `
所以就越想越有味道了!
9 o9 r0 k. O( r3 R6 X) b    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.4 k2 Y7 o: J8 E: W7 ^! {
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,- u1 S1 q9 k% [# G) g! }
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.! r# o* d* n# V* Y+ L5 T2 A6 ]6 G

9 a- M; I6 e' b" r, ]2 D' S
8 J8 K. c$ @6 U" k) {2 _ 1.png
$ u# Z" ?6 r) G& H& m% E2 C2 H( M3 Y
2.png
7 z. A5 f0 Y* p' l1 p+ `
, \* R. B! G4 c3 A( r! 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简体版中不能运行，文字也有乱码。* g; @! {5 D; |% a

( I' V2 C7 B" e) @ Snap1.jpg , n3 K! T6 P( ]
( J: i- N. N: r% W# y% Z3 L5 A
Snap2.jpg
4 n8 F! G. {. K/ |3 i) p9 Y2 ^" b( `
* s/ Y* i! J7 ?. ?2 ?+ \3 q& z Snap3.jpg ! p" c1 w+ v0 I6 L) t
: ~; {! c0 `0 i! d- a

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif
% f( F6 q1 N# a% V3 [试了一下，在2012简体版中不能运行，文字也有乱码。

2 u  R1 `2 [' V1 s如圖試試了( i, a/ o- f0 J2 p4 f7 j: V! a
9 c0 H6 T3 m+ ?( {, i5 l
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
0 L# z5 I0 y0 c% `: w  U5 k4 w4 W" n
看了下，梁大图中都是默认打勾的。
3 A& M' X6 Q6 A
. }2 ]6 `; K( U1 i3 [% K) R Snap2.jpg 7 L! W) E5 |" c  G; ]
+ B7 B  Q* _, X. Y' g
Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
+ m" H- z% R- j2 F; _9 G0 w- I- `
# y  @' I5 n5 s7 `2 W真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!3 \: X/ H( I. Z/ M0 A2 R: f7 R6 n' x7 G
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。- t% U% K0 _. Z0 R
我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
# J1 U1 {' W6 \; M$ M建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif
& _' }" h! t/ N) w0 Q& J宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。/ q! B$ ], j  J" Q7 C5 z5 o
我一台电脑有几个硬盘，分别装了不同的系统，想 ...

8 f1 j% G- Q6 o0 d另看看結合是否正常. l7 c4 j, z  u  s
: K8 {* X! v) b" B8 U- q$ j
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
# O( E0 y2 A5 Q! q
- Y8 ]; y) G% [, \- ]9 i哎呀，我误导梁大了，实在汗颜。# M' |' ^/ k% u' l" a6 F: ]
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。( H" b" H8 u  z
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 编辑 4 x8 ]* y- A0 S2 m9 \5 ^5 }

+ u$ q1 R: i% Q% x' ?* Q& O非常强大的VBA，2013间体版测试一次通过，谢谢了~~
) b' c. q* Z( X/ N
6 U8 x- Q  v0 z  H+ w ddd.gif
2 a. x" \/ Q. @! u6 f7 X4 K

点评

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 编辑
: f2 e  ]% ?( B, P
/ u2 u% ^0 `6 `! r$ ?* u5 h0 f順便提供簡繁體字之轉換,8 D0 ^2 e% T# y% z( U% B
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,% y. Q0 V+ f) Q8 I" f, O
測試簡版的宏,是先用這軟件做轉換再執行的./ V/ v; W) B; _% z' T" |' ]! k8 M( ]
操作詳看裡面的說明3 o6 b' Y; e4 o, B* E3 K
& e+ L% ]* k2 Q' c2 I! G
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
; m* _. o& ], v# e3 u( F9 j" L我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
8 I/ k. D, {7 f/ r8 }$ e 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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
: H7 H* A% a3 B' @3 L) \4 X+ w9 y順便提供簡繁體字之轉換,
# v7 O. t0 f& ^& |. a" S如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了," t) @  @# k% d( a, L: |
測試簡版的宏 ...

* k. S' u1 R4 _3 N谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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