شمارش اعداد از صفر تا نه

[jaafar1363]

شمارش اعداد از صفر تا نه::عصبانی++::عصبانی++:

تاريخ سؤال:1388/03/26
خواهشا به من كمك كنييييييييييييييييييين.
تو اين برنامه هفت تا كنترل ايميج هست كه بايد خاصيت visibleآنها در بازه زماني مشخص true يا false شود.
timer1.interval=1000

اين عكس همه چي رو ميگه.خواهشا كمكم كنين.فقط يه روز فرصت دارم.

http://upload.iranblog.com/6/1245225825.jpg

حتي اگه تونستيد از طريق تك زدن به شماره زير منو مطلع كنين.ممنون مرسي

09356104059

[miniator]

سلام !
فعلاً كارتو راه بنداز ! :متفکر:

[Tasiyan]

اينجوريشو خود مايكروسافت هم نديده بود

Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
t = Mid(Time, 8, 1) + 1000
Print t
Timer1.Interval = t
If Timer1.Interval = 1000 Then Image1.Visible = True Else Image1.Visible = False
If Timer1.Interval = 1001 Then Image2.Visible = True Else Image2.Visible = False
If Timer1.Interval = 1002 Then Image3.Visible = True Else Image3.Visible = False
End Sub


:گیج::قهقهه::بامزه:

[miniator]

:قهقهه: اين جوريم ميشد ! :لبخند:

[jaafar1363]

آقاي saddad عزيز اين برنامه در خط t = Mid(Time, 8, 1) + 1000
ارور ميده.در ضمن برنامه من داراي هفت كنترل هست نه سه تا.اگه ميشه كاملش كنين.ممنون ميشم.

[ariana4]

اين مربوط به معماري است؟

[ariana4]

يکي جواب بده

[jaafar1363]

اين مربوط به معماري است؟


نه عزيز مربوط به برنامه نويسي پيشرفته است.رشته كامپيوتر

[Tasiyan]

آقاي saddad عزيز اين برنامه در خط t = Mid(Time, 8, 1) + 1000
ارور ميده.در ضمن برنامه من داراي هفت كنترل هست نه سه تا.اگه ميشه كاملش كنين.ممنون ميشم.
اولا من كه اروري نميبينم !
دوما چرا خودتون كامل نميكنيد ؟
سوما كدي كه نوشتم سرار اشكاله كجاشو كامل كنم :قهقهه:

[jaafar1363]

اولا من كه اروري نميبينم !
دوما چرا خودتون كامل نميكنيد ؟
سوما كدي كه نوشتم سرار اشكاله كجاشو كامل كنم :قهقهه:

چرا ناراحت ميشين؟دروغ كه نمي گم.در ضمن اگه مي خواستم خودم بنويسم كه سؤال رو طرح نمي كردم.:متفکر:

شما بهتره به عكس يه نگاهي بكنين بيشتر متوجه ميشين

عكس شمارش اعداد از صفر تا نه (http://upload.iranblog.com/6/1245225825.jpg)

[مهران رسا]

سلام



عکس ها رو کنار و با ترتیب نام 0 تا 9 برنامه قرار بدید
یک عدد کنترل PictureBox یا ImageBox رو فرم قرار بدید
یک عدد کنترل Timer با Interval دلخواه روی فرم قرار بدید
کد زیر رو در قسمت General فرم کپی کنید



Private Sub Timer1_Timer()
Static I As Integer
I = I + 1
If I < 10 Then
Image1.Picture = LoadPicture(App.Path & "\" & CStr(I) & ".jpg")
Else
I = -1
End If
End Sub

[javadt]

بیا دوست عزیز تا 4 رو برات نوشتم بقیش رو خودت بنویس

[jaafar1363]

بیا دوست عزیز تا 4 رو برات نوشتم بقیش رو خودت بنویس

ممنونم دوست عزيز.زحمت كشيدي.من خودم نوشتمش.ولي يه مشكل هست
مي خوام براش يه دكمه بذارم كه دوباره شروع به نمايش اعداد بكنه.ميتوني راهنماييم كني؟اينم سورس منه.

منظور از hوvكنترل هاي ايميج هستند

Dim x As Integer

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
x = 0
End Sub
Private Sub Timer1_Timer()
Select Case x
Case 1
v(2).Visible = True
v(3).Visible = True
Case 2
h(0).Visible = True
h(1).Visible = True
h(2).Visible = True
v(1).Visible = True
v(3).Visible = False
Case 3
v(1).Visible = False
v(3).Visible = True
Case 4
h(0).Visible = False
v(0).Visible = True
h(0).Visible = False
h(2).Visible = False
Case 5
h(0).Visible = True
v(2).Visible = False
h(2).Visible = True
Case 6
v(1).Visible = True
Case 7
v(2).Visible = True
v(0).Visible = False
v(1).Visible = False
h(1).Visible = False
h(2).Visible = False
Case 8
v(0).Visible = True
v(1).Visible = True
h(1).Visible = True
h(2).Visible = True
Case 9
v(1).Visible = False
Case 10
v(0).Visible = False
v(2).Visible = False
h(1).Visible = False
h(2).Visible = False
h(0).Visible = False
v(3).Visible = False
End Select
x = x + 1
If x > 10 Then Timer1.Enabled = False
End Sub

منظور از hوvكنترل هاي ايميج هستند
خيلي ممنونم

[M_P_1374]

فقط اینو به کد کنترلتون اضافه کنید کار حله

Form_Load
Timer1.Enabled = True

[javadt]

می تونید پایین تایمر بنویسید

if x=9 then x=0
اینجوری وقتی به نه برسه دوباره از یک شروع می کنه

[vbhamed]

سلام

اينم يك راه كه البته سورسش رو اينجا هم ميزارم



Option Explicit
Dim Num%

Private Sub Form_Load()

Timer1_Timer

End Sub

Private Sub Timer1_Timer()

Dim s$, i%, j%

s = "012345,12,01346,01236,1256,02356,023456,012,012345 6,012356"

Dim x() As String

x = Split(s, ",")

For i = 0 To 9
If i = Num Then
For j = 0 To 6
Picture1(j).Visible = InStr(x(i), CStr(j))
Next
Exit For
End If
Next

Num = Num + 1
If Num > 9 Then Num = 0

End Sub