模拟LED广告屏设计的流动字体（更新算法17楼&18楼）

ctp_119

其实我每次所谓的创作冲动都来源于实际工作或身边人，群友或坛友。这次就是群里面有人说及此事才弄的玩的！{:soso_e113:}{:soso_e113:}
请看截图：


修改后的结果：

ctp_119

1. Public s As Double
   
2. Sub ctp_119()
   
3. Dim bl As Boolean
   
4. Dim bb As Boolean
   
5. Dim i As Long
   
6. Dim k As Double
   
7. Dim str As String
   
8. str = InputBox("请输入流动字符串！！！", "输入对话框", "中华人民共和国万岁")
   
9. [A1] = str
   
10. k = 500000 - s
    
11. Do
    
12. For i = 1 To k
    
13.     VBA.DoEvents
    
14. Next i
    
15. [A1] = Mid(Range("A1"), 2, VBA.Len(Range("A1")) - 1) & VBA.Left(Range("A1"), 1)
    
16. Range("a1").Characters(1, 2).Font.ColorIndex = 5
    
17. Range("a1").Characters(3, 2).Font.ColorIndex = 6
    
18. Range("a1").Characters(5, 2).Font.ColorIndex = 3
    
19. Range("a1").Characters(7, 2).Font.ColorIndex = 4
    
20. If bb Then
    
21.     Range("a1").Interior.ColorIndex = 35
    
22.     bb = False
    
23. Else
    
24.     Range("a1").Interior.ColorIndex = 38
    
25.     bb = True
    
26. End If
    
27. Loop While bl <> True
    
28. End Sub
    
29. Sub stopp()
    
30. End
    
31. End Sub
    

复制代码

以上是核心代码，如果敢兴趣的坛友，不妨提出意见和建议。

ctp_119

具体情况再看看附件………………

dsmch

ctp_119 发表于 2012-12-1 09:24
以上是核心代码，如果敢兴趣的坛友，不妨提出意见和建议。

还要改进一下，一句话不要前后相连。

ctp_119

dsmch 发表于 2012-12-1 09:31
还要改进一下，一句话不要前后相连。

呵呵，谢谢dsmch光顾。不要前后相连更好弄些。。。

ctp_119

1. Public s As Double
   
2. Sub ctp_119()
   
3. Dim bl As Boolean
   
4. Dim bb As Boolean
   
5. Dim i As Long
   
6. Dim k As Double
   
7. Dim str As String
   
8. str = InputBox("请输入流动字符串！！！", "输入对话框", "中华人民共和国万岁")
   
9. [a1] = str
   
10. k = 500000 - s
    
11. Do
    
12. For i = 1 To k
    
13.     VBA.DoEvents
    
14. Next i
    
15. If Len(Range("a1")) = 0 Then
    
16.     [a1] = str
    
17. End If
    
18. [a1] = Mid(Range("A1"), 2, VBA.Len(Range("A1")) - 1)
    
19. Range("a1").Characters(1, 2).Font.ColorIndex = 5
    
20. Range("a1").Characters(3, 2).Font.ColorIndex = 6
    
21. Range("a1").Characters(5, 2).Font.ColorIndex = 3
    
22. Range("a1").Characters(7, 2).Font.ColorIndex = 4
    
23. If bb Then
    
24.     Range("a1").Interior.ColorIndex = 35
    
25.     bb = False
    
26. Else
    
27.     Range("a1").Interior.ColorIndex = 38
    
28.     bb = True
    
29. End If
    
30. Loop While bl <> True
    
31. End Sub
    

复制代码

dsmch兄，是不是这样的效果？呵呵，如果不是再做修改！！！

少如

很棒! 太棒了!   老师能给标示一下代码吗?
谢谢!

少如

ctp_119 发表于 2012-12-1 09:44
dsmch兄，是不是这样的效果？呵呵，如果不是再做修改！！！

呵呵!   一句话不要前后相连, 中间有一二个空格好一些。现在只是每次少一个字, 直至没有字了再重现
另人不习贯, 显得不连贯, 不知我说的对不对?

ctp_119

少如 发表于 2012-12-1 10:59
呵呵!   一句话不要前后相连, 中间有一二个空格好一些。现在只是每次少一个字, 直至没有字了再重现
另 ...

谢谢，我有空再考虑当完成第一次后，后面的慢慢出现，再慢慢减少，尽量模拟街头巷尾的LED广告屏效果，，谢谢少如兄！！！

ctp_119

少如 发表于 2012-12-1 10:46
很棒! 太棒了!   老师能给标示一下代码吗?
谢谢!

实际上就是DO循环和doevents让操作系统转换控制权，也没有什么其他技术。。。