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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
! _+ Y- d  l/ [7 M+ q* M) A( T% ]0 e) d+ F; y5 M0 Z. c- n
簡單VBA練習. M) A3 w( W0 K8 l$ j
三球限制在方框,並僅可做相切碰觸,不可相互交集.
9 Z' Y' h2 N, P/ B# U
4 K$ H- J& ?; w8 L$ `8 E6 R$ Yhttp://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
: B8 w8 V$ v2 J) S/ h. ~2 V7 j& f思維來源參考如上
/ O3 k/ _- t' ]/ V. ]2 C- G8 @3 a2 S0 {$ M) y  Z) r
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑
& Z- {3 u/ H8 K" o3 \) H' A. d- N8 ]# S$ F4 B
分享原檔,有興趣練練VBA了
" |1 G) V) v7 j5 l# ^* ^2 e. N編程應該可以再簡化
. h: [! B% @) v/ L+ |7 h因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
$ D8 M' R% I' R7 `6 S3 D簡介:
$ i& I0 }2 J8 [5 {    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,
7 _- O; i2 q7 P3 {& V  r1 ?6 ?- Z如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
8 E* h: v+ a0 h3 I8 S- R所以就越想越有味道了!/ r4 L, @9 U: I: p4 @( q
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.3 Y' |$ K, q$ K( M% K; W
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,0 y& p+ a8 y& D! G  ^1 F; ]
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.1 v" h2 R8 K* N3 ^. g9 l

$ b4 ?( {* H: w" w) N0 r, Z* e9 ]/ x, \6 T  t/ V6 K2 S: o8 g
1.png - j  r7 T/ C: U* _& ?
7 I( ^# ^; f0 |& c
2.png , I( i7 ~! }9 o

& s: P* q& r, A) w 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简体版中不能运行，文字也有乱码。
& P0 N0 I. j; s% c" F9 g8 }+ a/ S$ n. s$ S; Q
Snap1.jpg
, X0 d$ o% z% h  {) K( W0 v! [
# L: s3 M. T& g: g  E2 s Snap2.jpg ) ]% P5 Q+ H. g1 l. ~

6 T: u- ]3 p8 r: C1 u- c Snap3.jpg
+ H  ^2 j* T% z- g: \; V8 U0 z# N- w- X

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif) i6 U# v" ~1 ^; A0 E7 U
试了一下，在2012简体版中不能运行，文字也有乱码。
5 o: P* w6 N5 q' t: f0 B
如圖試試了
/ c" r/ H' G, l  y% D& t3 v7 Y7 F
% g) u- q  q% E HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑
' x' `1 f% G6 b9 ~. v; S) k! l; s6 |
看了下，梁大图中都是默认打勾的。) u- W1 ]* z3 _* O) W

4 v- Z( C  j! {/ M( A Snap2.jpg $ m" V7 C% D3 V3 K

6 M' n. E0 b0 |& Y  S2 B5 Z Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑
6 i0 g& N- V, M7 y) e  \; L6 G, i. N# k$ ~
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!( Z2 y9 E6 F, K! W
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。  i- ~- g; j- O( o) O6 H  o
我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
3 s& m4 n$ |& n& n( _* X8 m建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif
0 l, ~: S, q( z. S宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。0 D1 S: q) u1 L; E% I' G' e
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
6 U& S9 R- X  V% U3 @
另看看結合是否正常
+ {4 u) N3 ~9 F7 P
* q6 q1 p0 Z8 Y5 `5 q7 K KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑 ( T- y1 l0 h: I/ o

' ^7 [. A# j" r+ A5 g6 M3 ~+ C5 R哎呀，我误导梁大了，实在汗颜。' o; E1 b# X+ j  I% b: d. Z
在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。( C# w: B3 `, ]' x% D' t
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 @8 y& N6 `( U+ e! S9 X
, m$ ^1 ^8 ~$ m  T
非常强大的VBA，2013间体版测试一次通过，谢谢了~~
6 o# C% G, f2 T1 B  U  @# N  f, w( U3 P) J+ M) ]8 t
ddd.gif
' U% @% L! z  J7 ]5 Q  t

点评

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 编辑
! I- p# [7 i$ z: N; v0 h
& }2 b- A8 f7 d/ ?* Q. C順便提供簡繁體字之轉換,
, |! N; e, l4 _如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
; X9 [, @4 L4 K4 `- `2 s測試簡版的宏,是先用這軟件做轉換再執行的.
, D, G. ]" q. w1 s  T% C操作詳看裡面的說明( ^4 Y( f$ v" Q1 G/ q% C0 C# j

4 o) {8 C  J- M% R  I2 c7 [# { convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。5 X9 C2 p0 l& c. o, V" H, \# Y
我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的0 ^9 A: n+ W2 W+ L5 g9 S& O: y& J; G
也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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
, z4 q) ?" b: N順便提供簡繁體字之轉換,% R+ I3 s% l% s" u, p
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
0 u9 e- I* J6 R& O測試簡版的宏 ...
# r% ?4 P' }+ U7 G2 \. s0 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 )

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