PDA

View Full Version : مبتدی: کد دکمه "Buzz" یاهو مسنجر!



Poria.Net
سه شنبه 19 اردیبهشت 1391, 14:00 عصر
سلام دوستان امروز یه کد ساده نوشتم که کار دکمه Buzz یاهو مسنجرو انجام می ده .


Private WithEvents TimerA As New Timer
Dim Number As Byte

Private Sub Buzz()
TimerA.Interval = 10
TimerA.Enabled = True
End Sub

Private Sub TimerA_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TimerA.Tick
Number += 1
Select Case Number
Case 1
Me.Left -= 13
Case 2
Me.Top += 13
Case 3
Me.Left += 13
Case 4
Me.Top -= 13
Case 5
Me.Left -= 8
Case 6
Me.Top += 8
Case 7
Me.Left += 8
Case 8
Me.Top -= 8
Number = 0
TimerA.Enabled = False
End Select
End Sub

Hybrid
سه شنبه 19 اردیبهشت 1391, 17:33 عصر
سلام ، کدت زیادی طولانی هست

یک نمونه واست نوشتم (همراه با صدا).

Poria.Net
سه شنبه 19 اردیبهشت 1391, 21:08 عصر
سلام ، کدت زیادی طولانی هست و خیلی خشک عمل میکنه !

یک نمونه واست نوشتم (همراه با صدا).

شما استاد ما هستی . من برنامه شما رو نگاه کردم به نظر من کد من بهتر عمل می کنه .
دوستان شما نظر بدبد !

sinaone1
سه شنبه 19 اردیبهشت 1391, 21:15 عصر
به نظر من دومی حرفه ای تره ولی باز هم مشکل اولی رو داره و اینه که کاری که یه بار انجام شده چرا توی timer گذاشته شده

Poria.Net
سه شنبه 19 اردیبهشت 1391, 21:31 عصر
به نظر من دومی حرفه ای تره ولی باز هم مشکل اولی رو داره و اینه که کاری که یه بار انجام شده چرا توی timer گذاشته شده

به نظر من هم کد اقای "Vb.Boss" حرفه ای تره اما اگه تستشون کنی می بینی که اولی بهتر کار می کنه.

younes221
سه شنبه 19 اردیبهشت 1391, 23:18 عصر
سلام دوستان ، فکر کنم جناب vbBoss پروژه رو بازنویسی کردن این یکی خیلی بهتره

نمونه برنامه ی پایینی خیلی بهتره ، فکر کنم به Buzz یاهو نزدیکتر باشه ( از لحاظ لرزشی ) منظورمه.

Poria.Net
چهارشنبه 20 اردیبهشت 1391, 00:29 صبح
بهر حال من از اقا vbboss ممنونم .

saman_h
جمعه 12 خرداد 1391, 21:02 عصر
مرسی از همگی . من کد دومی رو با C# نوشتم گفتم شاید مورد استفاده باشه :

public void Buzz()
{
int or_left = this.Left;
int or_top = this.Top;
int rnd_number = 0;
Random rndb = new Random();
for (int i = 0; i < 25; i++)
{
rnd_number = rndb.Next(or_left - 10, or_left + 8);
this.Left = rnd_number;
rnd_number = rndb.Next(or_top - 15, or_top + 9);
this.Top = rnd_number;
}
this.Left = or_left;
this.Top = or_top;
}

nakhodasokoot
چهارشنبه 17 خرداد 1391, 19:26 عصر
سلام دوستان
این برنامه هایی که نوشتین خیلی جالب بود
اما Buzz یاهو توی بعضی از Skin ها تصویری رو هم روی صفحه میندازه
برای نوشتن برنامه ای مثل اون چیکار باید کرد؟

Hybrid
پنج شنبه 18 خرداد 1391, 21:22 عصر
اما Buzz یاهو توی بعضی از Skin ها تصویری رو هم روی صفحه میندازه
برای نوشتن برنامه ای مثل اون چیکار باید کرد؟

تصویری رو روی صفحه میندازه ؟ راستش منظورت رو خوب نگرفتم ، میشه با عکس بزاری ؟