ساخت فایل

[mehrdad hamid reza]

سلام
میخوام با کد یک فایل با یک پسوند مشخص درست کنم

[r.ghost]

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim out As System.IO.StreamWriter
Dim I As Decimal
Dim J As Decimal
Dim K As Decimal

I = textbox1.Text
J = textbox2.Text
K = stepdown.Text

out = IO.File.CreateText("pest.txt")
out.AutoFlush = True

out.WriteLine(CStr("$regfile = ""m8def.dat"))
out.WriteLine(CStr("$crystal = 16000000"))
out.WriteLine(CStr("Config Pinb.0 = Output"))
out.WriteLine()
out.WriteLine(CStr("Do"))

While I > J
I = I - K
out.WriteLine(CStr(" " & "Waitus " & I))
out.WriteLine(CStr(" " & "Set Portb.0"))
out.WriteLine(CStr(" " & "Waitus " & I))
out.WriteLine(CStr(" " & "Reset Portb.0"))
out.WriteLine()
End While
out.WriteLine(CStr("LOOP"))
Process.Start("pest.txt")
End Sub
End Class