Visual basic kodas.

Taigi reikia viena kodą įrašyti į programą.

dim impulse as integer
dim imp_count as integer
dim RPM as integer
dim time_sec as integer

imp_count = 0
time_sec = 0

'add a timer control to the form

Timer1.Interval = 1000 'set the time interval



while Timer1.Interval < 1000

'open the port for access

Port1 = 888
Inp Port1, impulse

if impulse = 128 then
imp_count = imp_count + 1
else
Inp Port1, 0
end if

wend

'RPM per one-second interval

RPM = (imp_count / Timer1.Interval ) * 60.0

'time in seconds

time_sec = time_sec + 1

'open a file to log data to

open "shaft_RPM.dat" for Append As #1
Put #1, RPM, time_sec
Close #1

'to output to a chart in real time, add the MSChart control to the form

'line chart
Me.MSChart1.chartType = VtVChChartType2dLine
Me.MSChart1.RowCount = 60

Me.MSChart1.Row = time_sec
Me.MSChart1.Data = RPM

Tai turėtų būti RPM matuoklis, skaičiuojanti sujungimus Parallel jungtyje ir juos rodantis ekrane realiu laiku. Šį kodą radau internete ir man reikia išsiaiškinti ar jis išvis veikia. Jeigu kas turit pasiūlymų kaip tai padaryti kitaip prašau susisiekite su manimi!