Avatar billede DTP Novice
03. november 2003 - 00:38 Der er 7 kommentarer og
1 løsning

Samle og gemme svar fra modem i en fil

Jeg skal sende AT kommandoer i VB til et modem, hvordan får jeg gemt de kommandoer jeg sender OG collecter de svar der måtte komme fra modemet og også gemme disse i en fil ??

Altså både de kommandoer jeg sender og det svar der kommer fra modemet skal gemmes i en fil.

På Forhånd Tak
Avatar billede martin_moth Mester
03. november 2003 - 11:36 #1
Kan du selv finde ud af at sende kommandoerne og collecte svar?
Jeg har intet forstand på det, men er det blot et spørgsmål om at gemme noget data du selv kan fremskaffe, kan jeg sagtens hjælpe...
Hvis du skal have hjælp til kommunikation med modemet, skal du nok lige smide lidt relevant kode, så andre kan se hvad du mere konkret har gang i...
Avatar billede DTP Novice
03. november 2003 - 13:27 #2
jeg er newbie, men ja jeg kan godt finde ud af at sende kommandoerne, jeg bruger MSComm. 
eksempel på send: MSComm1.Output = "AT+CMGR" & Chr$(13)   
Hvordan gemmer jeg denne AT kommando ("AT+CMGR") i en tekstfil?

eksempel på collect: ind = MSComm1.Input
Hvordan gemmer jeg det der bliver skrevet i variablen ind i samme tekstfil?
Avatar billede martin_moth Mester
03. november 2003 - 13:39 #3
Du læser filens indhold ind i en variabel sådan:

  Dim MinString As String
  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, MinString 'Putter 1. linie i filen ind i MinString
  Close #Filnummer


For at skrive noget til en fil gør du følgende:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  Print #Filnummer, MinString
  Print #Filnummer, "Og så lidt mere tekst i linie 2"
  Close #Filnummer
Avatar billede DTP Novice
03. november 2003 - 14:27 #4
øhmm som sagt så er jeg meget grøn hvad angår VB, og jeg forstår dit svar......men 1) hvad er FreeFile ???
              2) og hvorfor bruger nogen #Filnummer og andre #1 ???
Avatar billede DTP Novice
03. november 2003 - 14:29 #5
tak forresten
Avatar billede martin_moth Mester
03. november 2003 - 14:31 #6
Freefile er en funktion, der returnerer et nummer der ikke er optaget af en anden fil.
Dette bruges hvis der er åbnes flere filer, fx. hvis der er en procedure der åbner filer, og denne procedure kaldes flere gange. Så for at være sikker på at det ikke går galt (altså at flere filer åbnes med det samme nummer), kan man bruge freefile.

Jeg har bare vænnet mig til at bruge freefile i stedet for #1 - men gør hvad du vil, du kan også bruge #117, bare du er sikker på at det ikke er "optaget" i forvejen...
Avatar billede DTP Novice
03. november 2003 - 14:39 #7
kan jeg skrive:
Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  Print #Filnummer, MSComm1.Input  ??? 
  Close #Filnummer
Avatar billede martin_moth Mester
03. november 2003 - 14:43 #8
Ja da, hvis ellers MSComm1.Input returnerer en string...

Ellers er der en god måde at undersøge sådan noget på: Prøv det ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester