Home | Reviews | GUIpedia | Forum | Fun500
| phone portwhat number is the phone port?
I wanna send signals to pc to pc. like wired internet.
Thanks | 2009-03-08 | 8:04 PM |
| pharoah | Re:phone portBy phone port do you mean modem?
Probably it's on COM1. Unfortunately if you have a newer "winmodem" it won't be easy to control. If it's hayes compatible, you can send simple strings to the COM port to tell it what to do (I've done this on a PC-AT I have, and it's kind of fun to play with). | 2009-03-08 | 8:20 PM |
| Re:phone portWell i started off with a SSTV program. microphone was too hard to make work so i decided com ports. | 2009-03-08 | 8:26 PM |
| pharoah | Re:phone portOh... I don't think you'll be able to generate the necessary tones through a modem (it's not designed like a sound card), but then I don't really know that much about specifically how SSTV works. Good luck, though, I think you might find it easier to maybe program a cheap micro controller to output the frequencies (AVR ATtiny2313s are good for this, and cost less than $2 plus you can easily build the programmer). You can write code using BASCOM BASIC which is very easy to do. Then you can send data to the micro and it can encode it. | 2009-03-08 | 8:43 PM |
| Re:phone portI only need a microphone program
'send fle over radio
SCREEN 12
INPUT "File: ", fil$
IF LEFT$(RIGHT$(fil$, 4), 1) = "." THEN
SELECT CASE UCASE$(RIGHT$(fil$, 3))
CASE "BAS"
T$ = "Basic/BAS statement"
CASE "BAT"
T$ = "Batch"
CASE "HLP"
T$ = "Help"
CASE "DOC"
T$ = "Document"
CASE "MSG"
T$ = "Message"
CASE "EXE"
T$ = "Executable"
CASE "ZIP"
T$ = "Zipped"
CASE "RAR"
T$ = "Compressed RAR"
CASE "MID"
T$ = "MIDI"
CASE "MP3"
T$ = "MP3 music"
CASE "WAV"
T$ = "Wave"
CASE "SND"
T$ = "Sound"
CASE "TMP"
T$ = "Temporary"
CASE "DAT"
T$ = "Data"
CASE "INI"
T$ = "Initalize"
CASE "SPT"
T$ = "Script"
CASE "HTM"
T$ = "HTML page"
CASE "PHP"
T$ = "PHP page"
CASE "OBJ"
T$ = "Object"
CASE "LIB"
T$ = "Library"
CASE "QLB"
T$ = "QuickBasic Library"
CASE ELSE
T$ = UCASE$(RIGHT$(fil$, 3))
END SELECT
END IF
OPEN fil$ FOR INPUT AS #1
CLS
DO
INPUT #1, a$
l = l + 1
LOOP UNTIL EOF(1)
CLOSE #1
OPEN fil$ FOR INPUT AS #1
CLS
DO
D$ = INPUT$(1, #1)
c = c + 1
LOOP UNTIL EOF(1)
CLOSE #1
OPEN fil$ FOR INPUT AS #1
PRINT "File: " + fil$
PRINT "Lines: "; l
PRINT "Characters: "; c
PRINT "Estimated time: "; INT(c / 14) + 2; " Seconds"
PRINT "File Type: " + T$
SOUND 40 + 2000, 10
DO
k$ = INPUT$(1, #1)
SOUND 40 + (5 * ASC(k$)), .75
SOUND 40 + 3000, .75 | 2009-03-08 | 11:34 PM |
| Re:phone porthas anyone got a **working** microphone routine? I need one for my sstv app. | 2009-03-09 | 6:07 AM |
BASIC Programming Help
2021 Brandon Cornell
