nexpay

عموها مي‌تونيد كمكم كنيد؟؟؟

شروع موضوع توسط Mamylo ‏13 مارس 2006 در انجمن Visual Basic 6

  1. Mamylo

    Mamylo کاربر فعال بازیهای کامپیوتری کاربر فعال

    تاریخ عضویت:
    ‏19 مارس 2005
    نوشته ها:
    947
    تشکر شده:
    12
    محل سکونت:
    In the heart of any lover in the world
    سلام.
    من با VB يه برنامه نوشتم كه به صورت باينري توي يه فايل يه عبارت رو مي‌نوشت، ولي هر كاريش مي‌كنم دوتا مستطيل مي‌ذاره اولش. كسي نمي‌دونه چيكار بايد بكنم؟؟؟:eek:

    راستي، من از دستور Put به صورت زير استفاده مي‌كنم:
    Put #1, , Message
     
  2. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,344
    تشکر شده:
    1,314
    محل سکونت:
    یه خورده اونورتر
    message از چه نوعی هست؟ استرینگه؟
    ببین این درستش میکنه:
    کد:
     
    Put #1,,StrConv(message,vbUnicode)
    
     
  3. saeedsmk

    saeedsmk مدیر بازنشسته

    تاریخ عضویت:
    ‏6 سپتامبر 2003
    نوشته ها:
    1,519
    تشکر شده:
    4
    سلام
    يا از روش بلا بلا استفاده كنيد يا كد تون رو بگذاريد تا بشه بهتر بشه ديباگش كرد
     
  4. Mamylo

    Mamylo کاربر فعال بازیهای کامپیوتری کاربر فعال

    تاریخ عضویت:
    ‏19 مارس 2005
    نوشته ها:
    947
    تشکر شده:
    12
    محل سکونت:
    In the heart of any lover in the world
    تو اين مسيج از هر 256 كاراكتر مي‌تونه توش بياد.
    اين راه هم درست نشد.
    آقايون جون مادرتون بهم كمك كنيد.
    اينجوري مي‌كنه: مثلا وقتي عدد 11 رو مي‌خوام بريزم تو فايل اينجوري مي‌نويسه: 11  
     
  5. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,344
    تشکر شده:
    1,314
    محل سکونت:
    یه خورده اونورتر
    مشکلت از یونی کدهست. شما باید سورس اون قسمت رو بگذارید تا ببینم، اینطوری نمیشه.
     
  6. saeedsmk

    saeedsmk مدیر بازنشسته

    تاریخ عضویت:
    ‏6 سپتامبر 2003
    نوشته ها:
    1,519
    تشکر شده:
    4
    سلام خوب هستيد
    فكر كنم شما يك عدد رو از ورودي ميگيرد و بعد عدد رو يك راست توي فايل ميزيرد منطورم اينكه message تعريف نشده است (بايد از نوع بايت باشه تا درست عمل كنه يا از نوع استرينگ )
    به احتمال زياد مسيج از نوي Variant يا از نوع Double تعريف شده كه اين مشكل پيش مياد چون اين نوع تعريف 4 بايت ميگره و شما وقتي اون رو روي فايل ميريزيد 4 بايت روي فايل ذخيره ميشه
    شايد اين كد كمك كنه
    کد:
    dim strtemp as string
    strtemp=str(message )
    for i=1 to len(strtemp)
    put #1,,mid(strtemp,i,1)
    next
    
    اميدوارم كمك كنه
     
  7. Mamylo

    Mamylo کاربر فعال بازیهای کامپیوتری کاربر فعال

    تاریخ عضویت:
    ‏19 مارس 2005
    نوشته ها:
    947
    تشکر شده:
    12
    محل سکونت:
    In the heart of any lover in the world
    من هنوز اين چيزي كه گفتيدو امتحان نكردم، ولي مسيج من هميشه هم از نوع عدد نيست.
    سورس كدش رو هم فردا مي‌ذارم.
     
zarpopخرید بک لینک عسل طبیعی و گرده گل ایرانیfootbal