用VB设计霓虹灯广告牌制作程序

才10分

你要的是大屏幕字符或者ppt播放程序吧。

给你点代码仅供参考；

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Type ROWRECT

oRT As RECT

sa As String

bMove As Boolean

sOld As String

End Type

Public Declare Function FindWindow Lib "user32" _

Alias "FindWindowA" (ByVal lpClassName As String, _

ByVal lpWindowName As Long) As Long

' To set fram control as the parent of the slide show window

Public Declare Function SetParent Lib "user32" _

(ByVal hWndChild As Long, _

ByVal hWndNewParent As Long) As Long

Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1&

Public Const HWND_NOTOPMOST = -2&

Public Const SWP_NOSIZE = &H1&

Public Const SWP_NOMOVE = &H2&

Public Const SWP_NOACTIVATE = &H10&

Public Const SWP_SHOWWINDOW = &H40&

Public Const DT_BOTTOM = &H8

Public Const DT_CALCRECT = &H400

Public Const DT_CENTER = &H1

Public Const DT_CHARSTREAM = 4 ' Character-stream, PLP

Public Const DT_DISPFILE = 6 ' Display-file

Public Const DT_EXPANDTABS = &H40

Public Const DT_EXTERNALLEADING = &H200

Public Const DT_INTERNAL = &H1000

Public Const DT_LEFT = &H0

Public Const DT_METAFILE = 5 ' Metafile, VDM

Public Const DT_NOCLIP = &H100

Public Const DT_NOPREFIX = &H800

Public Const DT_PLOTTER = 0 ' Vector plotter

Public Const DT_RASCAMERA = 3 ' Raster camera

Public Const DT_RASDISPLAY = 1 ' Raster display

Public Const DT_RASPRINTER = 2 ' Raster printer

Public Const DT_RIGHT = &H2

Public Const DT_SINGLELINE = &H20

Public Const DT_TABSTOP = &H80

Public Const DT_TOP = &H0

Public Const DT_VCENTER = &H4

Public Const DT_WORDBREAK = &H10

下面是timer控件里的代码。定时刷新产生动的效果。

If mBchange And miChange > miShowWorkInfoTime + 1 Then

' moPptAppPresentationsCount

'If opSlideShowSettingsRunViewSlideSlideNumber = 2 Then

If moPptAppPresentationsCount = 0 Then

PicAVisible = False

miChange = 1

'moPptPresentationClose

moPptAppQuit

DoEvents

End If

Else

'PicAVisible = False

'If miChange = miShowWorkInfoTime + miShowWelcomeInfoTime Then miChange = 1 Else miChange = miChange + 1

miChange = miChange + 1

If miChange > 10000000 Then miChange = 0

' If miChange Mod 2 = 0 Then

PicACls ‘屏的左半部清空

picBCls ‘屏的右半部清空

If miChange Mod 100 = 0 Then s_loadData

For iA = 0 To miRows - 1

If moRectA(iA)sa <> "" Then

If moRectA(iA)bMove Then moRectA(iA)oRTLeft = moRectA(iA)oRTLeft - 2

If moRectA(iA)oRTLeft < 80 - miColWidth Then

moRectA(iA)oRTLeft = miColWidth - 80

End If

moRectA(iA)oRTRight = moRectA(iA)oRTLeft + miColWidth

DrawText PicAhdc, moRectA(iA)sa, -1, moRectA(iA)oRT, DT_CENTER Or DT_WORDBREAK ’这个是关键，在屏幕上重新写出字符。

End If

If moRectB(iA)sa <> "" Then

If moRectB(iA)bMove Then moRectB(iA)oRTLeft = moRectB(iA)oRTLeft - 2

If moRectB(iA)oRTLeft < 80 - miColWidth Then

moRectB(iA)oRTLeft = miColWidth - 80

End If

moRectB(iA)oRTRight = moRectB(iA)oRTLeft + miColWidth

DrawText picBhdc, moRectB(iA)sa, -1, moRectB(iA)oRT, DT_CENTER Or DT_WORDBREAK ’这个是关键，在屏幕上重新写出字符。

End If

s_MakeLine

Next

DoEvents

' End If

End If

DoEvents

setInterval方法与requestAnimationFrame方法的区别较为微妙。一方面，最明显的差别表现在setInterval可以手动设定FPS，而requestAnimationFrame则会自动设定FPS；但另一方面，即使是setInterval也不能保证按照给定的FPS执行，在浏览器处理繁忙时，很可能低于设定值。当浏览器达不到设定的调用周期时，requestAnimationFrame采用跳过某些帧的方式来表现动画，虽然会有卡滞的效果但是整体速度不会拖慢，而setInterval会因此使整个程序放慢运行，但是每一帧都会绘制出来；

总而言之，requestAnimationFrame适用于对于时间较为敏感的环境（但是动画逻辑更加复杂），而setInterval则可在保证程序的运算不至于导致延迟的情况下提供更加简洁的逻辑（无需自行处理时间）。

常见的非易失性存储器有以下几种：

一、可编程只读内存：PROM（Programmable read-only memory）

其内部有行列式的镕丝，可依用户（厂商）的需要，利用电流将其烧断，以写入所需的数据及程序，镕丝一经烧断便无法再恢复，亦即数据无法再更改。

二、电可擦可编程只读内存：EEPROM（Electrically erasable programmable read only memory）

电子抹除式可复写只读存储器（Electrically Erasable Programmable Read Only Memory，EEPROM）之运作原理类似EPROM，但是抹除的方式是使用高电场来完成，因此不需要透明窗。

三、可擦可编程只读内存：EPROM（Erasable programmable read only memory）

可利用高电压将数据编程写入，但抹除时需将线路曝光于紫外线下一段时间，数据始可被清空，再供重复使用。因此，在封装外壳上会预留一个石英玻璃所制的透明窗以便进行紫外线曝光。

四、电可改写只读内存：EAROM（Electrically alterable read only memory）

内部所用的芯片与写入原理同EPROM，但是为了节省成本，封装上不设置透明窗，因此编程写入之后就不能再抹除改写。

五、闪存：Flash memory

是一种电子式可清除程序化只读存储器的形式，允许在 *** 作中被多次擦或写的存储器。这种科技主要用于一般性数据存储，以及在电脑与其他数字产品间交换传输数据，如储存卡与U盘。闪存是一种特殊的、以宏块抹写的EEPROM。早期的闪存进行一次抹除，就会清除掉整颗芯片上的数据。

参考资料来源：百度百科-非易失性存储器

以上就是关于用VB设计霓虹灯广告牌制作程序全部的内容，包括:用VB设计霓虹灯广告牌制作程序、setInterval方法与requestAnimationFrame 取舍、常见的非易失性存储器有哪几种等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！