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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
- x- S5 w, T, N. W0 |% C; U1 |
2 Z8 s0 I6 t- `3 E$ U  ~$ g* b簡單VBA練習
" R1 r$ Y& L  J三球限制在方框,並僅可做相切碰觸,不可相互交集.
$ f" |9 E( g2 Z+ o+ y6 w: ^* Z
& f% r- J; ]; i2 @: |http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D17 T1 @* D/ e9 x$ O' a+ }
思維來源參考如上
6 `6 ~, w  `1 O6 [- Q; C
7 t& H4 [, ^; X dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 3 K% D) n8 F6 g3 m  A4 s

# @" V+ ]( e/ E; b分享原檔,有興趣練練VBA了( M) d  e; I' @$ k6 t/ t0 G$ Q  B
編程應該可以再簡化
* S  X* |1 \# C$ h0 S因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了." m- F: H  ]2 m
簡介:
' E2 w/ t8 o7 T    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,5 t' n9 Z" i9 R+ D- {
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
6 d, n+ p/ @) _4 N$ |7 V所以就越想越有味道了!- ]/ Q, {% {# L! S: }$ g) z8 c
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
  q/ Y4 C; v, T& E& ]5 q    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,9 I8 g4 k, p& T/ U7 n3 O
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的." D; s4 L) m1 L! q0 y
2 s. |, |+ U  i

7 P/ i$ F% x9 V 1.png 8 [  b1 {4 m+ k/ i5 w
& X: N/ b0 r/ w
2.png : v% g9 F2 T' ?0 c# a
+ P) Z) ^" D' {: |$ D( s  ]
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简体版中不能运行，文字也有乱码。- u2 }- y+ w% B- ~2 l1 T

; Z: l" w% i, c Snap1.jpg ' V, _9 p8 U$ Z; S& g2 o/ w

* _9 f* n; u6 k2 {7 y  p8 C Snap2.jpg " E' m: {& G6 h

6 T+ C4 Q9 R: U" M Snap3.jpg 1 z/ Q! ]* `5 s8 P& I" \- X7 J

* ~( w0 o5 V4 K' C* {; j( M9 E- h

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif
% n" j! H: C) \" m1 L* ?6 ^6 A试了一下，在2012简体版中不能运行，文字也有乱码。

0 Q# t0 g/ x" e  C0 |3 r2 N9 W/ o如圖試試了* r) V6 u# A% ^! O' i4 S
2 o8 o7 C' W9 f2 q& z
HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑 . E) C# K; e  f% r, k" k% y; Q
' k' v7 r* Z+ I: p5 e; Z
看了下，梁大图中都是默认打勾的。
- O1 x2 w# M: j8 W7 w% F$ F8 b
9 o9 \! d% C$ l! r* b1 G( J Snap2.jpg 3 I, D% m7 c; _3 K& Y! C

5 C4 F2 q$ I9 Z: i Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
% k) _1 Q, V/ [; e
. E/ N) z3 L2 k1 w+ i真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!+ Z( ~8 q" s) `' N$ R6 t
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。. Q6 P3 g8 O6 z1 L6 H/ b
我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。) q* Y4 {: j  R+ |: Q; H
建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif
* {! p0 W1 o* R7 Z% t; o- V宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。8 f+ T4 \8 o* o) h+ j' C/ @
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
7 Q% f2 j% i) z/ W; {7 l! ]
另看看結合是否正常
# E1 V0 o! K0 N  D6 j
& {2 F7 C3 @$ ]" |+ }" _ KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑 $ Z* \3 b4 `2 F5 f- Q

' E( I3 e, p- D3 Y$ w" k哎呀，我误导梁大了，实在汗颜。
0 Z$ |3 U7 u  V在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
4 t5 i5 m, Y' U# z3 P# v 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 编辑
8 \0 R$ b0 E; K, _
6 z  }2 _3 {+ M非常强大的VBA，2013间体版测试一次通过，谢谢了~~
2 |* F" ]3 s' Q8 ]. Z/ M+ F
$ ~* P6 [8 d3 N- p- J4 L5 E2 m ddd.gif . e  Q- I0 r* N6 R7 Q0 ]4 o

点评

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 编辑   s+ w' k4 @* ]! `7 G
* Q% l# l) B; h- M; P* a# ?( I
順便提供簡繁體字之轉換,6 ?! k7 `2 S. L; V0 H4 z6 p1 a4 F$ c
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
$ u' K% D' b; m, k測試簡版的宏,是先用這軟件做轉換再執行的.
1 m$ e. S" P0 u操作詳看裡面的說明
7 W  K& w* N0 c9 J. |& V4 X' r9 D) C5 F9 ]. n, k- Q7 w4 l
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。1 Q& H5 \: u! Y" V( N$ h7 O! E6 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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的! t' E2 R% k1 Z$ ?1 l& m+ h. S
也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-7 07:03:55 | 显示全部楼层 来自： 中国浙江嘉兴
但能肯定的是有這樣的思想學習態度是學不好什麼的!
回复 支持 反对

举报

qiminger
发表于 2015-1-7 08:11:05 | 显示全部楼层 来自： 中国辽宁抚顺
ryouss 发表于 2015-1-6 19:51 static/image/common/back.gif0 w' q- a+ @' M" u# w
順便提供簡繁體字之轉換,
5 \. t; E8 T6 o( s如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,$ m7 c. B( s0 d9 ?9 x7 Q
測試簡版的宏 ...
) x8 m8 ?# l) E2 }' T/ e; X
谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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