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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 " k2 `/ Z" L' X1 \2 P2 b
) n( J9 \' |0 [* h, P, P
簡單VBA練習
  d* p  b0 F1 p/ @! g7 u6 t三球限制在方框,並僅可做相切碰觸,不可相互交集.
4 J- ^. {- O, H6 Q
2 L- ^; ]+ @8 k( Y9 ]http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1+ v0 O6 O  }+ w, ~
思維來源參考如上: {& `' B! X9 b

) _5 P+ V! h( M$ G1 ]6 G dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
1 \& f; d8 r" H$ T8 n; X! B! I3 G6 F- @# k, g/ m* t
分享原檔,有興趣練練VBA了
! f; E/ U( m: j. g6 E編程應該可以再簡化  l' l$ `4 v* I$ N  Z6 w9 \
因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
; I8 S* P$ t9 d, _! k; L簡介:
( B/ [2 g. M) I6 J8 t" y7 ~    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
$ K# D% ~" X7 z如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???3 _( X. C6 T7 J; `
所以就越想越有味道了!
6 R5 a" }+ C6 b0 A5 @    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
% [! _8 {+ m/ l/ u: e4 Q    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,+ }- [' u. q2 J. r# K
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.
) ]- {( k  W0 e' S& z
7 @' E7 r2 Z+ R0 K1 R( S% S( L: C* q8 x: w& p) |
1.png ( r: H& m: W+ N2 N3 Z+ c

0 I$ Y) y0 Y% h$ \$ d 2.png
5 v# S! h$ V  H+ H: F/ \, C
2 T* @$ [6 g. C" a 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简体版中不能运行，文字也有乱码。
* Q' w+ N4 N8 x4 M6 b- _6 m% D4 O+ L
Snap1.jpg
) l" e9 W+ u+ h
' q/ u1 Y1 z7 f2 a! J) q  i: F Snap2.jpg
) G1 ?: K1 J$ b8 [0 Z
. M2 w- z% _* I; ~ Snap3.jpg
, Z, O+ l2 [+ p9 H- S& Z% d8 _! w( H, V; U

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif
8 w# u! A- g: c试了一下，在2012简体版中不能运行，文字也有乱码。
: A& u0 V$ P) ]& O$ k* \
如圖試試了( H! D5 T0 S9 N/ G6 z7 z, ]
* ^6 q0 O6 e( a  b
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
# m. |: P  k' r% j% d, s  j4 x
8 E2 i8 _8 }2 [  i" F3 c2 g看了下，梁大图中都是默认打勾的。
6 A  R5 K" l! Y7 z) I3 {4 z6 _
+ F# o, Q% K, z9 H5 h; Q" @ Snap2.jpg
7 S$ k& J, d8 B% J( h5 r- v1 ~9 q! `2 l% {1 R# W" y7 S+ `
Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
  ^1 q* N* _+ Y  G/ V9 @
+ F4 U4 [5 e, x" n- L9 l: S真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
5 u5 s5 U8 `  C2 L# N也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
7 ?, K! B3 W" z. e我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。- Y4 }0 I0 R& `; i) t4 ~6 `
建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif
  C! J, t3 C' v% Z7 v宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。+ w2 x5 d9 G1 b1 x
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
9 p2 a, {7 _; Z" h& |0 B
另看看結合是否正常
, @* y3 c7 B; _+ G# R) f. J+ P8 f* j# p" z% S
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
1 T( t2 r0 x0 v
* Y2 i" \/ u& m9 I, t( @) G哎呀，我误导梁大了，实在汗颜。0 r8 _" G& G- ]8 E" \2 S* }
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
& I- }0 r, a4 n' u3 P; P9 ^; ]$ | 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 编辑
6 V4 e; q3 N- q6 f5 @, L) }/ O+ ^! \1 E8 \4 O/ }/ ^
非常强大的VBA，2013间体版测试一次通过，谢谢了~~2 J& d2 \; ^: F6 o

" Z/ I: I) P4 {. c3 N ddd.gif
3 Y" _  j# V/ ]& Y! W! y$ m) 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 编辑
5 B+ w6 k9 ~9 \! U: K
9 u, _6 U9 B7 w順便提供簡繁體字之轉換,& n6 Y4 t8 J& Q$ G6 S/ i1 J& M" m
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,+ T( R6 W3 X0 t0 ?+ r% k
測試簡版的宏,是先用這軟件做轉換再執行的.
" o! t0 x* ]  g2 u操作詳看裡面的說明
# D* I% \5 I8 M8 y: q) g0 c% {0 S9 ?
0 K4 v# w" a$ N# b convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
9 e6 T4 V3 @+ I$ u' r5 Z' V' P! Z我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
3 M! }& q$ u# I; E3 w& U 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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, O/ c, u8 {5 d
順便提供簡繁體字之轉換,
+ N. l) m6 r( Z& t$ C如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
" y+ v% z, b4 `測試簡版的宏 ...
" R; ^- n  G5 S5 T% p
谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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