دستت درد نکنهنقل قول:
Printable View
دستت درد نکنهنقل قول:
1- (ويرايش شد : حذف ! )
2- مي خوام سر ساعت 12:01:30 رو فرمم A پرينت كنم ، كدي كه ميزارم نميدونم كجاش ايراد داره ، راهنمايي كنيد :
لطفا به سايت هاي ديگه پاس نديد ، اگه مي دونيد همينجا راهنمايي كنيدنقل قول:
Private Sub Timer_Timer()
If Time = #12:01:30 PM# Then
Print "A"
End If
End Sub
1- تو تاپیک دیگه جواب دادن !نقل قول:
2- Timer.Interval = 1000 به اول کدتون اضافه کنید !
خوب اينكه هر 1 ثانيه "A" رو پرينت ميگره !!نقل قول:
2- Timer.Interval = 1000 به اول کدتون اضافه کنید !
قبل از اينكه به اونجا سر بزنم متن رو تايپ كردم ، بعد از ديدن يادم رفت اين قسمت رو جذف كنم و ارسال رو زدم ( ويرايش شد )نقل قول:
1- تو تاپیک دیگه جواب دادن !
اشتباهي نوشتمش !!!
نه ، من گفتم به اول کدتون اضافه کنید ... یعنی اون رو در FormLoad بنویسید + کد خودتون :نقل قول:
کد:Private Sub Form_Load()
Timer.Interval = 1000
End Sub
* این کد باعث میشه هر ثانیه تایم سیستمتون رو چک کنه و وقتی به 12:01:30 رسید حرف A رو چاپ کنه !کد:Private Sub Timer_Timer()
If Time = #12:01:30 PM# Then
Print "A"
End If
End Sub
* راستی PM و AM با هم فرق میکنند ... به این نکته هم توجه کنید !
AM = قبل از ظهر
PM = بعد از ظهر
مرسي ممنون !نقل قول:
* این کد باعث میشه هر ثانیه تایم سیستمتون رو چک کنه و وقتی به 12:01:30 رسید حرف A رو چاپ کنه !
* راستی PM و AM با هم فرق میکنند ... به این نکته هم توجه کنید !
AM = قبل از ظهر
PM = بعد از ظهر
2تا سئوال فني ديگه :
الف) من دوتا تكس باكس دارم كه توي اولي اسم و توي دومي نام خانوادگي رو تايپ ميكنيم تو درايو C با اسم 1.TXT ذخيره ميكنه ، تكس1 = نام ، تكس2= نام خانوادگي و وقتي اونو سيو ميكنه نام خط اوله و فاميلي خط دوم . ( تا اينجاشـو بلدم :))
حالا ميخوام يه دكمه بذارم كه وقتي طرف رو اون كليك كرد اون فايل رو بخونه و خط اول رو تو برچسب1 نشون بده و خط دوم رو تو برچسب2 .
چيكار كنم ؟
ب) حالا همين متن كلش تو يه برچسب نمايش داده بشه ؟
خواهش میکنم ! ( ولی مشکلتون حل شد ؟ )نقل قول:
----
خب شما متن رو بصورت ترتیبی سیو کردید یا تصادفی ؟
بله ، يه پروژه تقويم داشتم ، ميخواستم پيغام "صبح به خير" و "شب خوش" و از اينجور پيام ها بده .نقل قول:
خواهش میکنم ! ( ولی مشکلتون حل شد ؟ )
راستش نميدونم ، كدي كه ازش استفاده ميكنم اينه :نقل قول:
خب شما متن رو بصورت ترتیبی سیو کردید یا تصادفی ؟
[HTML]Private Sub Save_Click()
Open ("c:1.txt") For Output As #1
Print #1, "Name= " + Text.Text
Print #1, "Family = " + Text1.Text
Close #1
End Sub
[/HTML]
ترتیبیه !نقل قول:
====
برای سوال اولتون :
و برای سوال دومتون :کد:Open "c:/1.txt" For Input As #1
Input #1, a(0)
Input #1, a(1)
Close
Label1.Caption = a(0)
Label2.Caption = a(1)
* a(1) را در بخش جنرال تعریف کنید و کد بالا را بنویسید !کد:Open "c:/1.txt" For Input As #1
Input #1, a(0)
Input #1, a(1)
Close
Label1.Caption = a(0) + a(1)
سلام
من میخوام برای Command1 که در رویداد کلیک آن form2 نمایش داده میشه یک میانبر از صفحه کلید بزارم مثلا Shift+A
لطفا کمکم کنید.
یک سوال دیگه:
این Option Explicit چی کار میکنه که در جنرال وارد میکنند.
----------------------------------------