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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
1 T6 s# U$ [1 }# U5 W) t% {5 u+ u
簡單VBA練習
0 K  Y3 }' V. A; o4 y% {$ A" `三球限制在方框,並僅可做相切碰觸,不可相互交集.0 h' T3 Y5 i  V) S9 K4 u
- m* n  j  ?0 y; M6 |7 i5 t6 q! {
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
. ^+ p. q6 f4 H& p. [8 d9 Y思維來源參考如上
1 q, L2 o% ^6 N6 \! F8 k' h" F- z4 `# p6 T& ?
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 5 [0 c4 N! g2 g
8 P# L$ T0 p9 e
分享原檔,有興趣練練VBA了! m0 q: V. ]4 h- i
編程應該可以再簡化; ^/ V% a  Z2 W+ T9 K5 h9 m0 w' @
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
0 I( ?1 s7 A$ |6 C簡介:
9 A) m! ]0 {+ `/ v8 f' w' d) y    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
5 |1 y( p7 e8 r1 c4 U# w, Q3 _, k如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???7 {: {) v7 Z  P
所以就越想越有味道了!, ^. ?% |2 r0 r5 E3 U3 d
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
1 J! S* F' z( A    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,
, C$ S) U- L4 x& s  p但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.; D9 |& N3 |2 F& ~
( j' i" j; H: N1 D" k

" H$ I8 k, h. @ 1.png # i0 ^( E4 b* L# B0 o
2 f) V/ K9 F3 c. {! v5 l. K
2.png - |* i* t! A1 J' n  G5 L

/ _/ A5 L& a: o  P. ] 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简体版中不能运行，文字也有乱码。8 F+ `5 G! v6 \# J8 }

) X4 K" m! `4 E0 j Snap1.jpg
9 L( ^! @, C, ?9 ]; |) c/ ?( V1 N, h+ I& \) w: ?% P" Y
Snap2.jpg . P4 ^7 {- g8 {4 O  {

( c7 }/ ~) b) v- Y0 d2 ?$ y Snap3.jpg 8 V, m7 R" \5 V  c7 ?

6 W. g/ g6 G; w

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif* I- K. ^! F! T; R" b( \
试了一下，在2012简体版中不能运行，文字也有乱码。

- N( ^8 L- G/ U4 \/ T如圖試試了+ w7 {6 [) Z( y2 n$ H) }
: q* Y4 J& {2 R! s
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑 " i% e& o" Q9 |, t

- B7 Q' p  G( d6 T* |" n$ V, {看了下，梁大图中都是默认打勾的。
$ N: H1 Z& p  E2 R5 y: z; f
0 t/ e* v5 n, C2 ~+ F! U" N Snap2.jpg
' v  [8 N. y; x, |2 B8 }
; ~0 A+ X/ M3 `3 T! B6 u, t' ?- m Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
5 W( t' n& A8 B
' J2 p( R( i: H真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
  }' v& n4 a  T也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。/ l5 e$ d( _: G
我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。4 h1 T/ E- ~9 B% K6 j
建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif! T0 b( ^" q/ v9 {9 j- Z
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
* r% i5 z+ T# z我一台电脑有几个硬盘，分别装了不同的系统，想 ...

( Y, X$ Q' O3 [$ D. B" P, |另看看結合是否正常
4 I  }8 j% R  Q! h1 X: ?( U+ t9 Z' ^5 y1 w# D
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
0 I- f3 Z  [9 B: D3 f+ ^& E  w; X/ L- ]% i
哎呀，我误导梁大了，实在汗颜。' i0 e- ?8 `% ^
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。' J; q' J2 D1 F: J; 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 编辑
* z: V7 U. F4 }1 x+ F* N/ b2 f' l* z" z# V3 k; c7 ]+ ~5 ?
非常强大的VBA，2013间体版测试一次通过，谢谢了~~
0 f* t7 B2 q& G" W; R. |7 l) e) f3 {
ddd.gif / a8 E$ _$ u9 K% {' w

点评

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 编辑 9 r' ]* [- @) g" y0 t, d  t

4 }8 F) `' q4 y! M順便提供簡繁體字之轉換,
* r9 D5 Y. V% A; T! u1 l如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
2 n  f. g; v9 Q測試簡版的宏,是先用這軟件做轉換再執行的.
& T, d  s* R: i- L操作詳看裡面的說明
" A* C( u7 U: C: E/ Q! X
- L: f" m8 B5 w convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。8 L9 m2 x$ K" ~! X, M8 k
我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
1 i# V, a& R& ~( K, d) `) \ 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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* p5 c8 o+ T( ~
順便提供簡繁體字之轉換,
! m- }+ H7 d# v( n/ A( i如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
1 e  o/ Q  u5 l, Y; Q測試簡版的宏 ...

9 B7 R: l/ u/ k  `" W. q" \' y谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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