ئىنتىل تورى

تىزىملىتىش |كىرىش

ئىنتىل تورى › دەرۋازا › تېما كۆرۈش

قار يېغىۋاتقان ئۇنۇم ھاسىل قىلىش

يوللىغۇچى: alsuyar| يوللانغان ۋاقتى: 2010-9-17 01:10| كۆرۈلۈشى: 87| ئىنكاس سانى: 2

قار يېغىۋاتقان ئۇنۇم ھاسىل قىلىش،
كوزنەك ئېچىڭ ، ئەمدى بۇ كودنى سىناپ بېقىڭ
  1. Dim Snow(1000, 2), Amounty As Integer
  2.     Private Sub Form_Load()
  3.     Form1.Show
  4.     DoEvents
  5.     Randomize
  6.     Amounty = 725
  7.     For J = 1 To Amounty
  8.     Snow(J, 0) = Int(Rnd * Form1.Width)
  9.     Snow(J, 1) = Int(Rnd * Form1.Height)
  10.     Snow(J, 2) = 10 + (Rnd * 40)
  11.     Next J
  12.     Do While Not (DoEvents = 0)
  13.     For LS = 1 To 10
  14.     For I = 1 To Amounty
  15.     OldX = Snow(I, 0): OldY = Snow(I, 1)
  16.     Snow(I, 1) = Snow(I, 1) + Snow(I, 2)
  17.     If Snow(I, 1) > Form1.Height Then
  18.      Snow(I, 1) = 0: Snow(I, 2) = 5 + (Rnd * 80)
  19.      Snow(I, 0) = Int(Rnd * Form1.Width)
  20.      OldX = 0: OldY = 0
  21.     End If
  22.     Coloury = 8 * (Snow(I, 2) - 10): Coloury = 90 + Coloury
  23.     PSet (OldX, OldY), QBColor(0)
  24.     PSet (Snow(I, 0), Snow(I, 1)), RGB(Coloury, Coloury, Coloury)
  25.     Next I
  26.     Next LS
  27.     Loop
  28.     End
  29. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
باشقۇرغۇچى Intil بۇ تېمىنى تەستىقلىغان ۋاقتى 2010-9-17 01:25

يېڭى ئىنكاسلار

tanhakalip 2010-9-17 09:38
بۇ كودىنى نەگە قىستۇرىمىز؟ قانداق ئىجرا قىلىمىز؟ ئاز تولا ئەسكەرتىمە بارمۇ يا؟
alsuyar 2010-9-17 21:07
form دىن بىرنى قۇرۇپ بولغان بولسىڭىز كود يازىدىغان يەرنى ئېچىپلا بۇ كودنى چاپلاپ ئىجرا قىلىپ بېقىڭ

intil.cn 因特乐 知识信息网 Uyghur Office ( 新ICP备10003688号)|ئالاقىلىشىڭ

GMT+8, 2010-9-27 14:53.

Powered by Discuz! X1(NurQut Team)

© 2001-2010 Comsenz Inc.