[es] - COM Port i snimanje .bin fajla

deniah
Relja Zaimovic

Član broj: 47441
Poruke: 26
77.222.14.*

Profil

^{01.04.2008. u 00:02}

Potrebno mi je da podatke sa com porta preusmjerim u binarni fajl. Evo djela koda koji salje podatke na com port.

Code:

MSComm1.CommPort = Combo1.ListIndex + 1
    MSComm1.PortOpen = True

    For i = 0 To 9
        MSComm1.Output = Chr(251)
    Next

    For i = 0 To Adres - 1
        MSComm1.Output = Mid(Dizi(i), 1, (Len(Dizi(i)) - 1))
    Next

    MSComm1.Output = Chr(251)


    MSComm1.PortOpen = False

Hvala

_{[Ovu poruku je menjao Aleksandar Ružičić dana 01.04.2008. u 02:45 GMT+1]}

^{01.04.2008. u 00:02}

stefanpn
Stefan Kostic
Student, VPS
Paracin (Blace - FAX)

Član broj: 172809
Poruke: 293
77.46.186.*

Sajt: www.stefanpn.co.nr

Profil

Re: COM Port i snimanje .bin fajla

^{01.04.2008. u 01:37}

Code:

dim ff as integer
ff = freefile()
open "c:\binary.bin" for binary as #ff
        For i = 0 To 9
                put #ff, ,251
        Next

        For i = 0 To Adres - 1
                put #ff, , asc(Mid(Dizi(i), 1, (Len(Dizi(i)) - 1)))
        Next

        put #ff, ,251
close #ff

Da sam znao da je internet ovako dobar ja bih to postavio jos pre 30 godina.

^{01.04.2008. u 01:37}