自我学习之一:淡入淡出(抄)

原创 2001年11月24日 02:11:00

Option Explicit

Public Sub IntervalX(ByVal intI As Integer)
If intI > 0 Then Sleep (intI)  '制造千分之intI秒的时间间隔
End Sub

Public Sub ShowTransparency(SrcDC As Long, _
                    ByVal SrcX As Long, _
                    ByVal SrcY As Long, _
                    ByVal SrcHeight As Long, _
                    ByVal SrcWidth As Long, _
                    DestDC As Long, _
                    ByVal DestX, _
                    ByVal DestY, _
                    ByVal DestHeight As Long, _
                    ByVal DestWidth As Long, _
                    ByVal nLevel As Byte)
   
    Dim LrProps As rBlendProps
    Dim LnBlendPtr As Long

    LrProps.tBlendAmount = nLevel
    CopyMemory LnBlendPtr, LrProps, 4
    AlphaBlend DestDC, DestX, DestY, DestWidth, DestHeight, _
        SrcDC, SrcX, SrcY, SrcWidth, SrcHeight, LnBlendPtr
End Sub

Public Sub CopyPictureX(ByVal dcSour As Long, _
                        ByVal SourX As Long, _
                        ByVal SourY As Long, _
                        ByVal dcDest As Long, _
                        ByVal DestX As Long, _
                        ByVal DestY As Long, _
                        ByVal DestWidth As Long, _
                        ByVal DestHeight As Long)
'dcSour——>dcDest

    BitBlt dcDest, DestX, DestY, DestWidth, DestHeight, dcSour, SourX, SourY, SRCCOPY

End Sub

Public Sub ScreenCls()

    '刷新桌面
    InvalidateRectAsAny 0, ByVal 0&, True

End Sub

Private Sub Form_Load()

    Dim i, l, t

    Picture2.Height = Picture1.Height
    Picture2.Width = Picture1.Width

    l = (Screen.Width / Screen.TwipsPerPixelX - Picture1.ScaleWidth) / 2
    t = (Screen.Height / Screen.TwipsPerPixelY - Picture1.ScaleHeight) / 2

    CopyPictureX GetDC(0), l, t, Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.Height

    For i = 0 To 150 Step 7
        IntervalX 150 - i
        DoEvents
        ShowTransparency Picture1.hdc, 0, 0, Picture1.ScaleHeight, _
        Picture1.ScaleWidth, GetDC(0), l, t, _
        Picture1.ScaleHeight, Picture1.ScaleWidth, i
    Next i

    IntervalX 1000
   
    For i = 0 To 150 Step 7
        IntervalX 150 - i
        DoEvents
        ShowTransparency Picture2.hdc, 0, 0, Picture2.ScaleHeight, _
        Picture2.ScaleWidth, GetDC(0), l, t, _
        Picture2.ScaleHeight, Picture2.ScaleWidth, i
    Next i

    ScreenCls

    Unload Me
   
End Sub

ufldl 深度学习入门 第三发: 自我学习与无监督特征学习

目的:使用稀疏自编码器提取特征,使用softmax做分类器,实现手写字符识别分类。 好处:相比较前面直接使用softmax分类器(92%识别率),能够提升分类器的效果,达到98%以上。 体会:通过自学...
  • sloanqin
  • sloanqin
  • 2015年09月28日 22:10
  • 715

计算机可以这样玩—自我学习,自我思维,自我工作(编程)

如果让计算机产生自我意识,那一定件很好玩的事情。               我在想,怎么让计算机产生自我意识和自我学习的思维能力呢,特别是在工业集群中的应用。               由这个...
  • luozhonghua2014
  • luozhonghua2014
  • 2014年08月06日 22:06
  • 1158

JAVA 学习 自我总结

学习总结: 孔子曰学而时习之 不亦悦乎 。学习了新的东西,一定要及时练习和总结,并多次回想记忆,这样才能将知识记忆的牢固; 之前我学习东西只知道贪多,想一口吃一个胖子;但是每次都是事倍功半,这样又...
  • u010582345
  • u010582345
  • 2016年04月08日 23:58
  • 350

深度学习UFLDL教程翻译之自我学习

一、概述        假设我们有足够强大的学习算法,得到较好结果的其中一种最靠谱的方法是给算法提供更多的数据。这验证了在机器学习的那句格言:“有时候获胜的不是谁有最好的算法,而是谁有最多的数据。” ...
  • hunterlew
  • hunterlew
  • 2016年08月18日 22:31
  • 1269

自我学习从阅读和记录开始

斯坦福大学的大学公开课:编程范式和Python的第一步
  • u013659598
  • u013659598
  • 2017年11月20日 09:52
  • 17

自我学习与半监督学习的区别

From http://deeplearning.stanford.edu/wiki/index.php/Self-Taught_Learning There are two common un...
  • FacingTheSunCN
  • FacingTheSunCN
  • 2014年03月26日 17:16
  • 1195

c++面向对象基础学习自我总结

1、c语言是面向过程的,是针对具体一个功能,有一个个函数来实现的。但是当工程巨大的时候,直接面向一个功能就会显得很复杂。比如一个工厂的老板直接安排甲员工加工A产品,一会又安排乙员工加工B产品。如果把他...
  • wangjun_huster
  • wangjun_huster
  • 2017年02月17日 16:30
  • 199

写一个安卓APP来抄表

现在很多地方抄表方式都在向远采集抄发展,但作为条件相对落后的地方,大都还以手工抄表为主,今天就针对还在用手工抄表的小伙伴提供一个参考的思路。正常情况下手工抄表都是拿着纸质的抄表卡,一个人抄表读数一个人...
  • dewfn1983
  • dewfn1983
  • 2014年03月11日 22:19
  • 1602

web前端初步学习的自我总结

谈到网页制作,作为一个大二的软件工程专业的学生,不得不惭愧得说一句自己是个菜鸟,不是一般的菜。前阵子完成一个15个html文件的网页都弄了好几天,折腾在HTML,CSS,Javascript三者之间。...
  • fwj958683305
  • fwj958683305
  • 2015年11月16日 20:17
  • 1168

程序员的自我修养读书笔记

1.进程直接使用物理内存的坏处:第一、地址空间不隔离,一个进程可能改写另一个进程的数据,从而导致系统崩溃。第二、内存使用效率低,频繁的数据换入换出,效率低。第三、程序运行地址不稳定,每次重新装载的空闲...
  • Deep_l_zh
  • Deep_l_zh
  • 2016年06月26日 19:45
  • 2519
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自我学习之一:淡入淡出(抄)
举报原因:
原因补充:

(最多只允许输入30个字)