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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 # [& @5 J" A  K% d$ P

8 k' Y4 [0 ?* |: ]: G! \簡單VBA練習
# g- P" k) p# t5 J' G) V三球限制在方框,並僅可做相切碰觸,不可相互交集.
2 r7 q. ?; ?% r% G1 F$ P( y; D( [# M, F5 r2 [0 L
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D19 _! b% w) H6 D3 X. n( e/ q
思維來源參考如上/ A5 |2 E6 ?- \' j; v3 i
8 T1 W9 v# V& k1 G
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
& ^. M& S* A( g; N5 G- h9 p" k  h( p; T/ p+ [
分享原檔,有興趣練練VBA了5 z1 Y! U+ }, e7 i5 P% B. N/ g8 @4 X
編程應該可以再簡化
7 X8 D: v# f2 L+ j因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.8 `7 r: \. U7 u6 ?& ?
簡介:2 \' @, w7 U0 {, K$ ^7 W5 ^4 }
    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
& H( B1 M8 v9 f6 f  q; [如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
. K5 @0 W0 \( m8 F( D" \2 J所以就越想越有味道了!
4 y( K: T& S" x+ K9 S6 h  Q$ A    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
7 L3 K/ F- ~$ ?' l$ E    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,6 C2 ]4 y, c1 w9 e( a1 V0 W: W
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.& ]  n6 h; `! ?. g$ \# A

9 m. s1 n% @' L. ~* ]$ A5 X. ?3 v" ^1 M" P7 S8 E
1.png ' p5 n" K! R/ y% @) C

. F5 [: }, _4 L; c( U% M 2.png * O4 `  {) ^# ~$ l8 y* i1 N1 c

; {: K6 B3 z% D% G 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简体版中不能运行，文字也有乱码。* K4 l! o* a1 m

7 C2 [) d: f6 Y! y& U" N( k: B) u Snap1.jpg ! B0 f  O! p* ?, ~

4 m1 v& V2 @- T' c0 Y, |8 V Snap2.jpg & C  y1 P3 A3 @, X
1 m' [! @% B1 _( F5 c0 F
Snap3.jpg
( A% m( E$ r" j% q, ?1 Q; U/ i4 ]* D9 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& I/ ^/ N& g' [$ d; r6 T2 w试了一下，在2012简体版中不能运行，文字也有乱码。
! R% W& S% ~# F  e" E
如圖試試了) p& T6 G) u8 V

. J- b) F' }( Q1 p HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
) E% N! }! b; C' k# J9 g" B& w( p0 L
! t; _: y* O6 a' Y; \+ D看了下，梁大图中都是默认打勾的。
- r  A3 b( w+ m$ u5 B) G0 R" X4 z  l* h- g0 }. {
Snap2.jpg * _4 Y0 {/ B8 Q9 Q, j) }  n7 t

% ]$ R6 g9 {7 a) R* q1 F' J& J Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
6 z' V, S* H2 M7 n8 X1 M4 h3 l& b* @! m
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
& D  G3 t+ D3 Q# a- `* m$ L, t/ Q也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。# A% R6 ~: Z+ }! p; m# c* i
我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。8 q+ H  _( ^- h/ ?* r
建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif
5 J/ c$ h' ~, Q3 S7 P2 K8 [宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。' a8 y3 G3 y" E( ^; I/ k0 P
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
: `! _4 E+ H, [. x  E1 M
另看看結合是否正常
& v0 g  ?2 j$ `' c3 {: }+ G1 f, |% Z+ k
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
, O9 z/ V0 \& P' G; n1 y
% s1 r  i) j3 ^哎呀，我误导梁大了，实在汗颜。
( _4 @- J% b5 Q1 m" c8 @在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
6 J1 E, D* {  S9 V0 s5 [ 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 编辑
3 J, z" v$ v0 q! F- k6 O0 b
% h) p" o9 h  e4 Q4 e非常强大的VBA，2013间体版测试一次通过，谢谢了~~
4 W" k: \6 S4 @6 p) [7 L
# s/ x% H0 E* Y( D- s; E/ { ddd.gif
, s0 i! O3 C! 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 编辑 + R: Z1 U2 ]: N& {

0 t, z5 I4 {. k+ _7 n# h- X順便提供簡繁體字之轉換,' r3 U) k. X6 t# Z
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
1 q+ ~0 Z4 m, S( e測試簡版的宏,是先用這軟件做轉換再執行的.
" [: S/ B9 d2 u操作詳看裡面的說明
& n9 @9 B' R! v: r/ O
7 w4 @; w7 H3 x: @" m, J& \" o convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。5 `3 a1 J. L" M; y! q( |; H
我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的! I9 s9 e) P- U1 K3 o' N  _7 f, H* T
也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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! v; Z; v9 s/ s, p4 T8 g/ [
順便提供簡繁體字之轉換,
! `$ i' i6 E6 ]! E  M如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,$ X5 z5 V; ?- e# c# v& |9 O" ?2 {
測試簡版的宏 ...
6 [2 C/ Q8 N# c! C* l# c
谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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