From pc-sig-request@tkyux.phys.s.u-tokyo.ac.jp Fri Oct 13 16:51:58 1995
Date: Fri, 13 Oct 95 16:50:33 JST
From: Hirofumi Fujii <keibun@onlnews.kek.jp>
Message-Id: <9510130750.AA03347@onlnews.kek.jp>
To: pc-sig@phys.s.u-tokyo.ac.jp
Subject: My toy program Part II

藤井啓文＠ＫＥＫです

Microsoft Visial Basic Verion 2.0 による「１０分 de プログラム」
第２弾 "ちょうちょ" です。
羽をはばたかせるために、前作の "もみじ" よりは少し複雑になっています。

基本的にはパッケージについてくるサンプルプログラムの「ちょうちょ」と
同じですが、、まあ一応リストなどをつけておきます。

前作の "もみじ" 同様、写真を背景にちょうちょを飛ばすために、ちょうちょ
本体以外を Transparent にするところがミソですが、、その方法はちょっと
考えればすぐわかることなので、ヒ、ミ、ツ。(^^;)

例によって

     ftp://onlnews.kek.jp/pub/kek/keibun/vb/choucho.lzh

として置いておきます。
---------------------------------------------------------------------
Sub Timer1_Timer ()
  Static MyFlag As Integer

  If MyFlag Then
    Image1.Picture = Image2.Picture
  Else
    Image1.Picture = Image3.Picture
  End If
  MyFlag = Not MyFlag

  Image1.Left = Rnd * Image1.Width + Image1.Left
  Image1.Top = (Rnd - .5) * Image1.Height + Image1.Top

  If Image1.Left > Form1.ScaleWidth Then
    Image1.Left = 0
    Image1.Top = Rnd * Form1.ScaleHeight
  End If

  If Image1.Top < 0 Then
    Image1.Top = 0
  End If

  If Image1.Top > Form1.ScaleHeight Then
    Image1.Top = Form1.ScaleHeight
  End If

End Sub
------------------------------------------------------------------
# こんなの BASIC って呼ぶなよな！
-----
Hirofumi Fujii
keibun@onlnews.kek.jp