• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

BUZZ ! Hiệu ứng rung chuyển của Y!M

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

BUZZ ! Hiệu ứng rung chuyển của Y!M

Gửi bàigửi bởi clarkkent » T.Sáu 13/06/2008 9:45 am

Thủ thuật: BUZZ ! Hiệu ứng rung chuyển của Y!M
Tác giả: Nguyễn Trung Tín sưu tầm
Mô tả: BUZZ ! Hiệu ứng rung chuyển của Y!M... :D


Cần 1 Timer1, interval=1. Nhấn F5 và Click vào Form... :D

Mã: Chọn hết

  1. Public Flg1 As Integer
  2. Public FTOP As Integer
  3. Public FLEFT As Integer
  4.  
  5. Private Sub Form_Load()
  6. Flg1 = 0
  7. End Sub
  8.  
  9. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  10. Timer1.Enabled = True
  11. End Sub
  12.  
  13. Private Sub Timer1_Timer()
  14. Select Case Flg1
  15. Case 0
  16. FTOP = Form1.Top
  17. FLEFT = Form1.Left
  18. Form1.Left = Form1.Left + 30
  19. Form1.Top = Form1.Top + 30
  20. Flg1 = Flg1 + 1
  21. Case 1
  22. Form1.Left = Form1.Left - 45
  23. Form1.Top = Form1.Top - 45
  24. Flg1 = Flg1 + 1
  25. Case 2
  26. Form1.Left = Form1.Left + 60
  27. Form1.Top = Form1.Top + 60
  28. Flg1 = Flg1 + 1
  29. Case 3
  30. Form1.Left = Form1.Left - 75
  31. Form1.Top = Form1.Top - 75
  32. Flg1 = Flg1 + 1
  33. Case 4
  34. Form1.Left = Form1.Left + 90
  35. Form1.Top = Form1.Top + 90
  36. Flg1 = Flg1 + 1
  37. Case 5
  38. Form1.Left = Form1.Left - 105
  39. Form1.Top = Form1.Top - 105
  40. Flg1 = Flg1 + 1
  41. Case 6
  42. Form1.Left = Form1.Left + 105
  43. Form1.Top = Form1.Top + 105
  44. Flg1 = Flg1 + 1
  45. Case 7
  46. Form1.Left = Form1.Left - 75
  47. Form1.Top = Form1.Top - 75
  48. Flg1 = Flg1 + 1
  49. Case 8
  50. Form1.Left = Form1.Left + 90
  51. Form1.Top = Form1.Top + 90
  52. Flg1 = Flg1 + 1
  53. Case 9
  54. Form1.Left = Form1.Left - 135
  55. Form1.Top = Form1.Top - 135
  56. Flg1 = Flg1 + 1
  57. Case 10
  58. Form1.Left = Form1.Left + 90
  59. Form1.Top = Form1.Top + 90
  60. Flg1 = Flg1 + 1
  61. Case 11
  62. Form1.Left = Form1.Left - 105
  63. Form1.Top = Form1.Top - 105
  64. Flg1 = Flg1 + 1
  65. Case 12
  66. Form1.Left = Form1.Left + 135
  67. Form1.Top = Form1.Top + 135
  68. Flg1 = Flg1 + 1
  69. Case 13
  70. Form1.Left = Form1.Left - 90
  71. Form1.Top = Form1.Top - 90
  72. Flg1 = Flg1 + 1
  73. Case 14
  74. Form1.Left = Form1.Left + 75
  75. Form1.Top = Form1.Top + 75
  76. Flg1 = Flg1 + 1
  77. Case 15
  78. Form1.Left = Form1.Left - 150
  79. Form1.Top = Form1.Top - 150
  80. Flg1 = Flg1 + 1
  81. Case 16
  82. Form1.Left = Form1.Left + 105
  83. Form1.Top = Form1.Top + 105
  84. Flg1 = Flg1 + 1
  85. Case 17
  86. Form1.Left = Form1.Left - 75
  87. Form1.Top = Form1.Top - 75
  88. Flg1 = Flg1 + 1
  89. Case 18
  90. Form1.Left = Form1.Left + 90
  91. Form1.Top = Form1.Top + 90
  92. Flg1 = Flg1 + 1
  93. Case 19
  94. Form1.Left = Form1.Left - 105
  95. Form1.Top = Form1.Top - 105
  96. Flg1 = Flg1 + 1
  97. Case 20
  98. Form1.Left = Form1.Left + 135
  99. Form1.Top = Form1.Top + 135
  100. Flg1 = Flg1 + 1
  101. Case 21
  102. Form1.Left = Form1.Left - 150
  103. Form1.Top = Form1.Top - 150
  104. Flg1 = Flg1 + 1
  105. Case 22
  106. Form1.Left = Form1.Left + 180
  107. Form1.Top = Form1.Top + 180
  108. Flg1 = Flg1 + 1
  109. Case 23
  110. Form1.Left = Form1.Left - 150
  111. Form1.Top = Form1.Top - 150
  112. Flg1 = Flg1 + 1
  113. Case 24
  114. Form1.Left = Form1.Left + 195
  115. Form1.Top = Form1.Top + 195
  116. Flg1 = Flg1 + 1
  117. Case 25
  118. Form1.Left = FLEFT
  119. Form1.Top = FTOP
  120. Flg1 = 0
  121. Timer1.Enabled = False
  122. End Select
  123. End Sub


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

chickenlittle
Bài viết: 2
Ngày tham gia: T.Năm 27/03/2008 10:35 am

Re: BUZZ ! Hiệu ứng rung chuyển của Y!M

Gửi bàigửi bởi chickenlittle » T.Bảy 14/06/2008 5:52 pm

rung chyuển thì có nhưng ko có tiếng ! thêm tiếng nữa mới vui :))

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: BUZZ ! Hiệu ứng rung chuyển của Y!M

Gửi bàigửi bởi clarkkent » T.Bảy 14/06/2008 7:59 pm

Thì đặt

Mã: Chọn hết

  1. Beep

ở cuối Timer. :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
duy_huy2008
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 86
Ngày tham gia: T.Hai 31/03/2008 1:18 pm

Re: BUZZ ! Hiệu ứng rung chuyển của Y!M

Gửi bàigửi bởi duy_huy2008 » CN 15/06/2008 12:45 pm

Tìm file âm thanh trong thư mục Media của Y!M rồi Play trước khi BUZZ
"When I was eighteen, I Caught sight of the future and based my career on what I saw. I turned out to have been right."

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: BUZZ ! Hiệu ứng rung chuyển của Y!M

Gửi bàigửi bởi giongto35 » CN 15/06/2008 1:57 pm

MẮC MỚ gì chứ ;)) rừm rà , phải vác theo file âm thanh nữa , làm beep liên tục cũng chả sao, vả lại cũng hơi giống
________________________________________________________________________________________________
. . . . . . . . . . . . .. .


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách