سوالات برنامه نويسي : VB

[saeedsmk]

منظورت اينكه اگه مقدار يه استرينگ برابر "12.12" بود مقدار عددي برابر 12/12 برگردونه

يا
dim tempstr as string
dim i as double
"tempstr="12.12
i=val(tempstr)
msgbox i*100
كه مقدار 1212 برميگردونه

از دستور val براي برگردوندن عدد استفاده ميشه

راستي براي لود كردن icon مي توني از loadicon و براي كرسر از LoadCursor استفاده كني يه سرچي توي google كني هزار تا مورد پيدا ميكني

 

[balabala]

منظورت اينكه اگه مقدار يه استرينگ برابر "12.12" بود مقدار عددي برابر 12/12 برگردونه

يا
dim tempstr as string
dim i as double
"tempstr="12.12
i=val(tempstr)
msgbox i*100
كه مقدار 1212 برميگردونه

از دستور val براي برگردوندن عدد استفاده ميشه

راستي براي لود كردن icon مي توني از loadicon و براي كرسر از LoadCursor استفاده كني يه سرچي توي google كني هزار تا مورد پيدا ميكني

من الان اینو دیدم برگشتم سوال شایان رو خوندم. بعد! :wacko: :blush: بابا من فکر کردم میگه int رو str کنه! :blush:

آره دیگه از ()Val میشه استفاده کرد.

 

[شايان]

دمه جفتتون گرم ! من الان جفتش رو ديدم !

راستي يه چيزي ! چرا تو VB من به بعضي از اين كارا ( مثلا يه مدل متغيير رو بريزي تو يه مدل ديگه ) گير نميده ... ولي رو يه كامپيوتر ديگه گير ميده ؟

چي كار كنم تو VB منم گير بده ؟!

 

[balabala]

دقیقا به چی گیر میده؟ بگو شاید ما هم گیر دادیم؟

ارروری چیزی نمیده؟ شاید سرریز بافر میشه.

مثلا توی اون کامپیوتر تایپ میکنی 400000 که برای integer زیاده ولی تو کامپیوتر خودت میزنی 400!

 

[شايان]

الان دقيقا مثالش يادم نيست ... يه بار String و ريختم تو Boolean يا يه همچين چيزي .... خلاصه رو كامپيوتر خودم گير نميداد ! اونجا گير ميداد ... گفتم شايد دستوري چيزي داره ... اخه تو پاسكال ( يا C ... اينم يادم نيست ) يه دستوري بود كه ميشد بزني بعضي Error هارو run Time بده ... گفتم شايد VB هم اينطوريه.

 

[balabala]

اگر تو ساب روتینی که دستور رو گذاشتی از on error استفاده نکنی، زمان اجرا خطاش رو اعلام میکنه.

درضمن سعی کن string رو مستقیم به boolean تبدیل نکنی. چون boolean دوتا حالت بیشتر نیست ولی استرینگ هر چیزی میتونه باشه که بسته به جمع بایتهاش یا وجود 1 و 0 یا کلمه های True و False میتونه خیلی جوابها رو برگردونه. بهتره از یک شرط استفاده بشه که مشکلی پیش نیاد. یعنی از cbool() استفاده نکن بلکه مقدار استرینگ رو مقایسه کن.

بازم میگم باید خطا یا کد باشه تا فهمید به چی گیر میداده.

 

[شايان]

اقا يه كاري دارم كه ديگه پست زدن حل نميشه !

يه PM ميشه بدي تو yahoo ?

id = script_tag

 

[balabala]

خصوصی؟ :blink:
متاسفانه از IM استفاده نمیکنم. :blush: ولی اگر روی اون دل توی امضام بری ایمیلم هست. درخدمتم یا اگر خواستی پی ام همینجارو استفاده کن.

 

[شايان]

بذار همين جا بگم ... شايد انلاين نباشم .

http://shayan.ws/var.php

اين صفحه رو ببين ... توش چند تا متغيير هست !

ميخوام اينارو تو vb بخونم ... و استفاده كنم ... چطوري ميشه ؟

با اين ياور ( اسمش يادم رفت ) ميتونم بخونم ... ولي همش رو باهم ميخونه و دردسر جدا كردن متغيير ها رو داره

در كل ! براي خوندن چند تا متغير از يه سرور چه راهي بهتره ؟ اصلا شايد تو يه صفحه php يا html نباشه ... بهتره باشه ...

راهنمايي لطفا

مخلصيم

 

[saeedsmk]

شايان جان براي سئوالت بايد ابتدا با سرور ارتباط برقرار كني كه دو تا راه حل داري
1- استفاده از كامپونت winsocket
2- استفاده از api هاي ويندوز

در صورت اول هميشه برنامت به كامپوننت مصرفي نياز منده يعني به MSWINSCK.OCX نياز داره
برنامه نويسيش راحته و خيلي فايل در موردش هست

اما حالت دوم يه ذره سختره و در بيشتر موارد دنگ و فنگ داره ولي وقتي جواب داد بهتر جواب ميده

يه برنامه داشتم كه قبلا همچين كاري ميكرد يعني از روي يه سرور اطلاعاتي رو ميخوند ( يه نوع پروكسي سرور) برات تغييرش دادم گذاشتم اينجا ببيني چه طوري كار ميكنه

فعلا
:lol:

 

[balabala]

عرض کنم که این آقا سعید کارو کاسبی ما رو کساد کرد!
همینه دیگه. ولی اگر خواستی میشه از API هم استفاده کرد که دیگه از کامپوننت استفاده نکنی...

 

[saeedsmk]

عرض کنم که این آقا سعید کارو کاسبی ما رو کساد کرد!
همینه دیگه. ولی اگر خواستی میشه از API هم استفاده کرد که دیگه از کامپوننت استفاده نکنی...

اقا بيكاري بد چيزي منتظر باشي تا بگن ok شد يا نه ديدم بيكار گفتم پامو توكفشتون كنم ببخشيد

راستي بحث كركر ها بيان تو رو ادامه نميدي يا هنوز عصباني

 

[balabala]

اقا بيكاري بد چيزي منتظر باشي تا بگن ok شد يا نه ديدم بيكار گفتم پامو توكفشتون كنم ببخشيد

راستي بحث كركر ها بيان تو رو ادامه نميدي يا هنوز عصباني

شما هم یک جورایی مثل خودمی... کرکرها رو سر میزنم... ولی چیزی بنظرم نمیرسه کد کنم... یکم هم سرم شلوغه!!!!!

 

[شايان]

اقا دمه شما گرم ! من ديروز به دليل عجله .. قبل از جواب هاي شما ... مشكلم رو حل كردم يه جورايي !

با : Microsoft Internet Transfer Control 6.0

خيلي خوبه ! هيچ مشكلي هم ندارم باهاش ... به جز يه مشكل خيلي بزرگ !!!

اين چرا وقتي به Time Out ميرسه ... يهو Run Time ميده ؟!؟!؟!؟!؟!

نميشه اينو كاريش كرد ؟ يه جور بشه حالا Run Time نده ... كاره ديگه ميكنه مهم نيست !

 

[techmix]

اقا دمه شما گرم ! من ديروز به دليل عجله .. قبل از جواب هاي شما ... مشكلم رو حل كردم يه جورايي !

با : Microsoft Internet Transfer Control 6.0

خيلي خوبه ! هيچ مشكلي هم ندارم باهاش ... به جز يه مشكل خيلي بزرگ !!!

اين چرا وقتي به Time Out ميرسه ... يهو Run Time ميده ؟!؟!؟!؟!؟!

نميشه اينو كاريش كرد ؟ يه جور بشه حالا Run Time نده ... كاره ديگه ميكنه مهم نيست !

ميتوني از شيوه مديريت ارور ها بهره بگيري . تو MSDN كه نگاه كردم ، اين طوري ازش استفاده كرده بود :

Const BADURL = 35761      ' Error value constant
   On Error GoTo ErrorHandler:
   Inet1.RequestTimeout = 4
   txtHTML.Text = Inet1.OpenURL(txtURL.Text)
   Exit Sub
   ErrorHandler:
   Select Case Err.Number
      Case BADURL
          MsgBox "The URL '" & txtURL.Text & "' could not be found."
       Case Else
          MsgBox "Error accessing " & txtURL.Text
   End Select

گفتيم ما هم ثواب كنيم :lol:

 

[balabala]

اقا دمه شما گرم ! من ديروز به دليل عجله .. قبل از جواب هاي شما ... مشكلم رو حل كردم يه جورايي !

با : Microsoft Internet Transfer Control 6.0

خيلي خوبه ! هيچ مشكلي هم ندارم باهاش ... به جز يه مشكل خيلي بزرگ !!!

اين چرا وقتي به Time Out ميرسه ... يهو Run Time ميده ؟!؟!؟!؟!؟!

نميشه اينو كاريش كرد ؟ يه جور بشه حالا Run Time نده ... كاره ديگه ميكنه مهم نيست !

شما میتونید RequestTime ش رو بیشتر بکنی. فکر کنم دیفالتش 60 باشه. بعد هم از On error استفاده کن همون جوری که techmix گفتش.

اگر از API میخوای استفاده کنی و از هیچ کامپوننتی استفاده نکنی این کد هم هستش....

 

[شايان]

بلا بلا جان ... من نميخوام RequestTime رو زياد كنم ... ميخوام RequestTime داشته باشه ... ولي Error ه Runtime نده . از همين Component هم ميخوام استفاده كنم ترجيحا .

از اين روشي كه تك ميكس جان گفت هم نتونستم استفاده كنم .

تك ميكس جان ميشه يه Sample برام بذاري ... ممنون .

 

[balabala]

بلا بلا جان ... من نميخوام RequestTime رو زياد كنم ... ميخوام RequestTime داشته باشه ... ولي Error ه Runtime نده . از همين Component هم ميخوام استفاده كنم ترجيحا .

از اين روشي كه تك ميكس جان گفت هم نتونستم استفاده كنم .

تك ميكس جان ميشه يه Sample برام بذاري ... ممنون .

خوب شما میتونید اول ساب یک on error resume next بگذارید که دیگه خطاها رو در نظر نگیره. اگر مقدار برگشتی داشت یعنی همه چیز OK هست و گرنه خطایی بوده ولی نمایش داده نمیشه.

Private Sub fetch()
On Local Error Resume Next
t$ = Inet1.OpenURL("[URL="http://www/"]http://www[/URL]")
If t$ <> "" Then
    MsgBox "TODO: add parser here.", vbExclamation
End If
End Sub

 

[شايان]

اقا دمت گرم ... مشكل حل شد .

براي دوستاني كه بعدا به اين مشكل ميخورن ... اين خط رو بذاريد حله قضيه

On Local Error Resume Next

 

[balabala]

اقا دمت گرم ... مشكل حل شد .

براي دوستاني كه بعدا به اين مشكل ميخورن ... اين خط رو بذاريد حله قضيه

On Local Error Resume Next

میدونی شایان جان، دیشب یه خواب قشنگی میدیدم،

همه بروبچز دورم بودن تو هم همینجوری نشسته بودی جلوم، داشتید می گفتید، فعال! فعال! فعااااال! :lol: