omvandla basic till något snabbare?
Postat: 31 juli 2005, 23:01:50
håller på att leka med en AD omvandlare kopplad till ett I/O kort som jag hadde liggandes, efter sju sorger och åtta
bedrövelser så verkar jag få det att fungera, kommer upp i en samplinghastighet av lite över 1 khz, AD'en klarar mycket mera än detta
fundera om det finns något smidigt sätt att få upp hastigheten på det hela
anledningen till att jag ännvänder qbasic är att det är det jag klara någurlunda och att när man håller på och mäter med datorn
ofta vill ändra i programmet för att anpassa det till det man håller på med för tillfället
såg att man kunde köra dosprogram inne i basicen, kanske man kunde göra en liten annat program som gör en sampel snabbare
och köra resten i qbasic
alla allternativ och funderingar uppskattas
sampelsnutten i qbasic ser ut så här
out 770,0 'sampel
out 770,96 'hold
out 770,0 'convert
out 770,224 'vila
out 770,192 'välj AD nr 1
let d=inp(768) 'läs låg byte
let e=inp(769) 'läs hög byte
out 770,224 'paus till byte AD
out 770,160 'välj AD nr 2
let f=inp(768) 'läs låg byte
let g=inp(769) 'läs hög byte
out 770,224 'avsluta i 0 läge
write #1,d,e,f,g 'skriv till fil
och tillbaka till att börja nästa sampel
'stavade som en kratta och rättade till rubriken
bedrövelser så verkar jag få det att fungera, kommer upp i en samplinghastighet av lite över 1 khz, AD'en klarar mycket mera än detta
fundera om det finns något smidigt sätt att få upp hastigheten på det hela
anledningen till att jag ännvänder qbasic är att det är det jag klara någurlunda och att när man håller på och mäter med datorn
ofta vill ändra i programmet för att anpassa det till det man håller på med för tillfället
såg att man kunde köra dosprogram inne i basicen, kanske man kunde göra en liten annat program som gör en sampel snabbare
och köra resten i qbasic
alla allternativ och funderingar uppskattas
sampelsnutten i qbasic ser ut så här
out 770,0 'sampel
out 770,96 'hold
out 770,0 'convert
out 770,224 'vila
out 770,192 'välj AD nr 1
let d=inp(768) 'läs låg byte
let e=inp(769) 'läs hög byte
out 770,224 'paus till byte AD
out 770,160 'välj AD nr 2
let f=inp(768) 'läs låg byte
let g=inp(769) 'läs hög byte
out 770,224 'avsluta i 0 läge
write #1,d,e,f,g 'skriv till fil
och tillbaka till att börja nästa sampel
'stavade som en kratta och rättade till rubriken