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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑 3 T% u6 k( G8 d% Z5 i
0 ^$ `7 U1 z; Q% J
簡單VBA練習6 s& b5 ]1 i8 M9 @5 o
三球限制在方框,並僅可做相切碰觸,不可相互交集.
3 _8 b2 S2 V4 g$ N' _, m& E
4 H* |2 B; q1 _4 h4 q( l# Lhttp://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
9 i% f8 z' [1 _/ K3 H; ]思維來源參考如上% ?4 X: C" v/ u* P; M+ f: K
+ Z2 |; K0 g! ?3 n8 v
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 * O* L2 F0 D' N3 Y7 ^1 Q

' N6 q) P; K8 m6 R分享原檔,有興趣練練VBA了0 T) F. S  ^) V3 `6 k4 e- }" G; P
編程應該可以再簡化
7 |; d" N# F: `2 y因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
# I' |3 r( n2 V8 y簡介:
3 z1 Y* _/ p2 Z( e! z' q, S    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,* O/ x* p$ g( r$ J2 |% T% k4 S8 N+ {
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
6 `& g6 t) E3 q# c所以就越想越有味道了!
8 ?+ C" d" ]4 b    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
8 j6 ?1 v* ~& l+ s    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,
4 f2 _& K4 ]5 o* d但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.
, T) y$ ?4 U0 k, D' F
7 M  {9 h1 ~: x) a( ^0 ~2 {/ V6 U/ A7 r4 i0 H! i- h
1.png ! f6 ]8 B3 @" c" c7 {7 L& ?& D- p& m6 s
5 c+ ~6 W& ]; z9 \4 f- y
2.png ( u# f, w+ ^# L# [, R& x

4 L3 T- [( h0 ?  X# U9 O 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简体版中不能运行，文字也有乱码。! Z+ `+ [" N$ |  p) R. n. O

4 R% q" O5 k( O* Y Snap1.jpg
8 h2 c3 d& j/ T9 K# c& c0 p& r
9 e" W' H1 a# D/ Y# s! U Snap2.jpg 7 E- i% K/ ^3 a: }) j0 S% e5 Q- S

+ h' ?- C. P( `: l( M Snap3.jpg
6 R0 z: \6 f3 n/ b
" _7 K7 J8 }& H5 I

点评

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 ^  C8 l! \试了一下，在2012简体版中不能运行，文字也有乱码。
6 N: c# [3 R. c: K1 A5 q/ X
如圖試試了
  ]) V' d' D$ W. I' r1 A0 x
0 J+ R0 l( Q4 _% `: S HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
% ^) ^; }7 Q3 e1 l
; ~' m+ Q8 x! I: p  G$ b' x: R, `看了下，梁大图中都是默认打勾的。& V( s: [8 x8 ?" L

( p) f/ Y, t& e. t4 t. J Snap2.jpg
% Y9 ?1 ?. X3 h& h6 \
/ B+ l: `; M. [  e6 g9 l  a Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑 8 ^0 r. V1 N/ U8 \6 ^) ~% t4 \* `

1 c+ x: _# Y- F" t真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!# E* I& k- ~- u% Z
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
3 ^4 l. A" t# I我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
, t+ e/ |, e' Z; A; E建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif1 K  i4 U. N+ C
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
- Q4 t0 U6 {$ ^' O我一台电脑有几个硬盘，分别装了不同的系统，想 ...

/ S' X. [1 p7 }( a% u. p  ~: D& ^另看看結合是否正常
6 w  g* {% t8 M  X" J, a4 s2 o( [1 `2 ?
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑   m2 k% |( [. W, R) X5 \- N0 V
1 h- ~# L1 ^' S) X8 g
哎呀，我误导梁大了，实在汗颜。$ B" h" _2 F. P0 r
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
" B, Z' y. ~# ]' i# a8 M 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 编辑 + S3 A( X' _0 z5 s/ o) Z( H

9 R& [% Z5 p2 q0 m+ T5 G) f非常强大的VBA，2013间体版测试一次通过，谢谢了~~1 u. {9 _' D( |3 W6 Z6 r* o$ m. y

- n0 J# ~$ K# f  V. V) p ddd.gif
# o( e0 T+ T4 @1 y

点评

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 编辑 - A9 ]. F  ]/ c- a- J# e

5 r+ T) |* I( B, K順便提供簡繁體字之轉換,. A( W% f8 t' o. M, u
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,  w  K8 R+ R! w0 J- Z
測試簡版的宏,是先用這軟件做轉換再執行的.
& e) i8 K0 o- R操作詳看裡面的說明  u7 [7 c9 E& Z2 [& p6 A' w% X3 J

  T" X( T, z4 Q# @ convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
5 N* O2 ^+ o4 j1 S我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的; X2 F) S0 W* d7 Q
也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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
5 c1 r7 v4 M, T/ A順便提供簡繁體字之轉換,
- A2 s* f8 H9 Z, p8 s% _如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
" m+ z3 z6 b. o) f4 U2 J: _測試簡版的宏 ...
4 F" O. G3 `2 S1 g. k0 R, V
谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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