pomoc oko vb 2005

[luka6253]

pozdrav,
imam program u visual basicu 2005 koji kad se upali u programu ispise neki tekst. Taj tekst bi trebao spremiti u neki txt dokument. Probao sam to napraviti ali mi izbacuje neke greske ili mi tekst koji je trebao pisati ne piše.
ovo je kod :
Imports System.IO.Ports
Module Module1

Sub Main()

'Varijabla koju koristimo da prekinemo izvodjenje programa
Dim programEnd As Boolean = False

'Pravimo serijski port
Dim sp As SerialPort = New SerialPort("Com3", 9600)

'Varijabla koju koritimo da detektiramo alarm
Dim zvonoState As Boolean = False

'Otvaramo serijski port
sp.Open()

'Aktiviramo izlazni signal RTS, koristimo ga kao izvor za CTS
sp.RtsEnable = True

System.Console.WriteLine("Pritisni a za izlaz iz programa.")
While Not programEnd
'Da li je pritisnuta neka tipka
If System.Console.KeyAvailable() Then
'Procitaj koja je tipka stisnuta
Dim cki As ConsoleKeyInfo = System.Console.ReadKey(True)
If 0 = String.Compare(cki.KeyChar.ToString.ToLower(), "a") Then
'Ako je stisnuta tipka a postavi programEnd da program zavrsi
programEnd = True
Else
'Neaktivna tipka je stisnuta
System.Console.WriteLine("Neka je tipka pritisnuta.")
System.Console.WriteLine("Pritisni a za izlaz iz programa.")
End If
Else
If zvonoState And Not sp.CtsHolding Then
'Alarma je bio aktivan a sada je nestao signal alarma
'alarm postaje neaktivan
zvonoState = False
System.Console.WriteLine("------")
ElseIf Not zvonoState And sp.CtsHolding Then
'Alarma nije bio aktivan a sada je dosao signal alarma
'alarm postaje aktivan
zvonoState = True
System.Console.WriteLine("Netko je pozvonio {0}", System.DateTime.Now)


End If
'Pauziramo 100ms

End If
End While

'Prije izlaska iz programa zatvaramo serijski port
sp.Close()
End Sub

End Module

u taj koda sam pokusao ubaciti naredbe da mi spremi ono sto mi ispise u programu ali nisam uspio
jel moze neko pomoc
hvala

[ivan 2]

E kolega, nisam bas se bavio vb 2005 nego 2008 iako je to slicno.
Šaljem ti primjer koda programa koji je slican notepadu , znaci mozes spremati i otvarati tekstualne datoteke. Pogledaj malo kod pa mozes napraviti da program sam automatski upisuje i sprema sta gdje treba. Ti naravno ne moras koristiti ekstenziju txt, vec koju god hoces.
Ako ti šta nije jasno pitaj!

Pozz

[luka6253]

e kolega, vidio sam što si poslao, ali sam u međuvremenu našao nešto slično što mi odgovara.
ovo je kod za otvaranje fajla i upisivanje podataka u njega u više navrata.
kod:
Imports System
Imports System.IO
Module Module1

Sub Main()

Dim path As String = "c:/ooooođ.txt"
Dim sw As StreamWriter

' This text is added only once to the file.
If File.Exists(path) = False Then
' Create a file to write to.
sw = File.CreateText(path)

sw.WriteLine("dobrodošli")
sw.WriteLine("-----")

sw.Flush()
sw.Close()
End If

' This text is always added, making the file longer over time
' if it is not deleted.
sw = File.AppendText(path)
sw.WriteLine("netko je pozvonio u :")
sw.WriteLine(System.DateTime.Now)
sw.WriteLine("-------------------------------------")
sw.Flush()
sw.Close()

' Open the file to read from.
Dim sr As StreamReader = File.OpenText(path)
Dim s As String
Do While sr.Peek() >= 0
s = sr.ReadLine()
Console.WriteLine(s)
Loop
sr.Close()
End Sub

End Module

program radi na način da se fajl jednom otvori i sljedeci put se upisuju u njega podaci kad se program pokrene. Jel znaš kako da napravim da se podaci upisu NE KAD UPALIM PROGRAM nego kad nesto stisnem. Npr. if neka tipka pritisnuta then writeline(System.DateTime.Now).
hvala

[ivan 2]

Nisam puno radio u vb 2005 ali pretpostavljam da bih kod koji ti podatak upise u datoteku trebao staviti u kod od nekog gumba. Ja cu ti poslati primjer koda za vb 2008 (iako je i on vec zastarjeo).

Code: Select all

Imports System.IO
Public Class Form1

    Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click
        Dim FileReader As StreamReader

        Dim results As DialogResult

        results = OpenFileDialog1.ShowDialog

        If results = DialogResult.OK Then

            FileReader = New StreamReader(OpenFileDialog1.FileName)

            TextBox1.Text = FileReader.ReadToEnd()

            FileReader.Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileWriter As StreamWriter

        Dim results As DialogResult

        results = SaveFileDialog1.ShowDialog

        If results = DialogResult.OK Then

            FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)

            FileWriter.Write(TextBox1.Text)

            FileWriter.Close()

        End If


    End Sub

End Class

Ako to što nije jasno samo pitaj!
Pozz