- هر آنچه که در مورد NET 5. باید بدانید
- بهترین نکات سئو برای وبسایت ASP.NET
- چطور یک برنامه وب پیشرونده (PWA) با استفاده از React بسازیم
- 10 دستور مهم Git که هر توسعهدهندهای باید بداند
- نکاتی برای فریلنسر شدن به عنوان برنامهنویس
- بهترین IDEهای پایتون در سال 2020
- 10 ابزار چت برای ارتباط بهتر تیم
- 5 روش برای انجام تست ها در روش توسعه agile با استفاده از flagهای ویژگی
- 3 گام برای موفقیت در طراحی معماری کلود
- MEAN stack در اپلیکیشن های تحت وب جاوا اسکریپت چیست؟
سلام دوستان من با وی بی دات نت یک برنامه نوشتم که تو ویندوز ایکس پی درست کار میکنه ولی تو ویندوز سون مشکل داره و خطا میده من میام اول برنامه چک میکنم که یک فایل متنی در کنار فایل اجرایی برنامه هست یا نه که اگر بودبازش کنم ولی تو ویندوز سون با اینکه فایل کنار فایل اجرایی هست در کمال تعجب پیام میده که نتونسته اون فایل را از ادرس مورد نظر پیدا کنه!!! در حالی که وقتی که هنوز از برنامه فایل ستاب درست نکردم و اون را تو یک پوشه معمولی تو یک درایو میگذارم اصلا این خطا را نمیده و درست کار میکنه تو پروگرام فایل که میره خطا میده!!!
پیامی هم که میده اینه:12-16-2017 02-00-51 ب.jpg
اون تیکه برنامه را هم اینطوری نوشتمDim address As String = System.IO.Path.Combine(AppDomain.CurrentDomain.Bas eDirectory, "setting.txt")
If My.Computer.FileSystem.FileExists(address) = False ThenDim Fstream As New FileStream(address, FileMode.Create, FileAccess.Write)
' Dim fStream As FileStream = File.Open(filename, FileMode.OpenOrCreate)
Dim Fswriter As New StreamWriter(Fstream)
Fswriter.Flush()
Fswriter.WriteLine("1")
Fswriter.WriteLine("WIFI7CH")
Fswriter.WriteLine("12345678")
Fswriter.WriteLine("خروجی 1")
Fswriter.WriteLine("خروجی 2")
Fswriter.WriteLine("خروجی 3")
Fswriter.WriteLine("خروجی 4")
Fswriter.WriteLine("خروجی 5")
Fswriter.WriteLine("خروجی 6")
Fswriter.WriteLine("خروجی 7")
Fswriter.Close()
PORT_WIFI.Value = 1
NAME_WIFI.Text = "WIFI7CH"
PASSWORD_WIFI.Text = "12345678"
Else
Dim fstream As New FileStream(address, FileMode.Open, FileAccess.ReadWrite)
Dim fsreader As New StreamReader(fstream)
Dim s1, s2 As String
fsreader.BaseStream.Seek(0, SeekOrigin.Begin)
'While fsreader.Peek > -1
s1 = fsreader.ReadLine '+ ControlChars.CrLfNAME_WIFI.Text = fsreader.ReadLine
PASSWORD_WIFI.Text = fsreader.ReadLine
OUT1.Text = fsreader.ReadLine
OUT2.Text = fsreader.ReadLine
OUT3.Text = fsreader.ReadLine
OUT4.Text = fsreader.ReadLine
OUT5.Text = fsreader.ReadLine
OUT6.Text = fsreader.ReadLine
OUT7.Text = fsreader.ReadLine
'End While
fsreader.Close()
PORT_WIFI.Value = Val(s1)
End If