تور لحظه آخری
امروز : شنبه ، 15 دی 1403    احادیث و روایات:  حضرت مهدی (عج):علم ما به شما احاطه دارد و چیزی از اخبار شما بر ما پوشیده نیست
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

اجاره سند در شیراز

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

دریافت دیه موتورسیکلت از بیمه

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

خرید بلیط هواپیما

بلیط اتوبوس پایانه

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

پوستر آنلاین

بهترین وکیل کرج

بهترین وکیل تهران

خرید از چین

خرید از چین

تجهیزات کافی شاپ

خرید سرور اچ پی ماهان شبکه

کاشت ابرو طبیعی و‌ سریع

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

دوره آموزش باریستا

مهاجرت به آلمان

بورس کارتریج پرینتر در تهران

تشریفات روناک

نوار اخطار زرد رنگ

ثبت شرکت فوری

تابلو برق

خودارزیابی چیست

فروشگاه مخازن پلی اتیلن

قیمت و خرید تخت برقی پزشکی

کلینیک زخم تهران

خرید بیت کوین

خرید شب یلدا

پرچم تشریفات با کیفیت بالا و قیمت ارزان

کاشت ابرو طبیعی

پرواز از نگاه دکتر ماکان آریا پارسا

پارتیشن شیشه ای اداری

اقامت یونان

خرید غذای گربه

رزرو هتل خارجی

تولید کننده تخت زیبایی

مشاوره تخصصی تولید محتوا

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

تور بالی نوروز 1404

سوالات لو رفته آیین نامه اصلی

کلینیک دندانپزشکی سعادت آباد

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تجهیزات و دستگاه های کلینیک زیبایی

تعمیر سرووموتور

 






آمار وبسایت

 تعداد کل بازدیدها : 1850313397




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

کار با فایل های تصادفی در vb.net -


واضح آرشیو وب فارسی:سایت ریسک: کار با فایل های تصادفی در vb.net pilevar 26 بهمن 1386, 12:07سلام در vb 6 وقتی میخواستم یک فایل تصادفی تعریف کنیم این کارا رو میکردیم. در یک کلاس ابتدا پارامتر هامون رو تعیرف میکردیم(اینجوری): type omid name as string*20 family as string *50 num as intiger end type برای باز کردن فایل از دستور open استفاده میکردم. و برای فراخوانی و نوشتن هم از دستور های put و get استفاده میکردیم. این کار توی vb.net به چطوری است؟ saalek110 26 بهمن 1386, 12:28شاید این تاپیک مفید باشد: System.IO در سی شارپ () pilevar 26 بهمن 1386, 14:36این مقاله رو خوندم. چیزی متوجه نشدم.(از #C چیزی بلد نیستم) میشه نوع تعریف Type و همچنین دستور open در visual basic.net رو بفرمایید؟ saalek110 26 بهمن 1386, 15:52 شاید این کتاب کمک کنه. Visual Basic NET The Complete Reference 3 مگا. the_king 26 بهمن 1386, 18:05فرض کنید که این کد را در ویژوال بیسیک نوشته ایم : Private Type MyDataType A As Long B As Single C As Byte End Type Private Sub Form_Load() Dim Path As String, MyRecord As MyDataType Path = "C:FolderFile.dat" Open Path For Random As #1 Len = Len(MyRecord) Put #1, 1, MyRecord Close #1 End Sub این کد، یک فایل را برای دسترسی تصادفی با رکوردهایی که از نوع MyDataType هستند باز می کند و یک رکورد را در آن می نویسد. حالا اگه به ویژوال بیسیک دات نت 2005 تبدیلش کنیم میشه : Private Structure MyDataType Dim A As Integer Dim B As Single Dim C As Byte End Structure Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load Dim Path As String Dim MyRecord As MyDataType Path = "C:FolderFile.dat" FileOpen(1, Path, OpenMode.Random, , , Len(MyRecord)) FilePut(1, MyRecord, 1) FileClose(1) End Sub تغییرات کد مشخصه، ساختار MyDataType را بجای Type با Structure ایجاد می کنیم. فایل به جای Open با FileOpen باز میشه. برای نوشتن در فایل بجای Put از FilePut استفاده می کنیم. (FileGet هم معادل جدید Get است) بستن فایل هم بجای Close با FileClose انجام میشه. pilevar 26 بهمن 1386, 21:48the_king جان ممنون تو vb.net چطوری میشه رشته با طول ثابت تعریف کرد؟ تو vb 6 اینجوری بود: Dim king as string*10 توی اینجا که اینو مینوسم ارور میده. چی کار باید بکنم؟ the_king 26 بهمن 1386, 22:01اینطوری متغیر با طول ثابت را تعریف می کنند (البته مایکروسافت توصیه کرده که بی خیال مجموعه VB 6 بشید) : Dim king As New VB 6.FixedLengthString(10) pilevar 26 بهمن 1386, 22:10این دستور توی تعریف در Structure خطا میگیره. new داشته باشه عدد آخر رو گیر نمیده ولی خود new رو خطا میده اونو حذف کنیم عدد آخر رو گیر میده. من باید chakar kenam؟ the_king 26 بهمن 1386, 22:39Option Strict Off Option Explicit On Friend Class Form1 Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load Dim S As New VB 6.FixedLengthString(40) End Sub End Class این عین کدی است که من نوشته ام و بدون خطا اجرا میشه. کد کامل پروژه را ضمیمه این پست می کنم.




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 3399]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن