Pereiti prie turinio

Despotas

Patvirtinti nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    197

  • Užsiregistravo

  • Lankėsi

  • Laimėta dienų

    2

  • Atsiliepimai

    100%

 Turinio tipas 

Despotas Pranešimai

    Visual basic kodas.

    Programuotojų kampas

    Sukurta

    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!

    Mikrofona girdziu per koloneles

    Kompiuteriai ir programinė įranga

    Atrašyta

    Eini i Volume Control> Options > Properties > pasirenki Recording ir kad būtų varnelė ant Microphone, spaudi Ok.

    Toliau Advanced šalia Microphone ir nuimi varnelę nuo 1 Monitoring

     

    Čia gali būt vienas iš būdu.

    option>properties>OUTPUT, ten uzdejau mute ant microphone ir viskas susitvarke! Manau cia nuo kiekvienos garso plokstes priklauso tie nustatymai. Vienu zodziu viskas susitvarke greiciau nei as maniau. Aciu Cunami kad ant teisingo kelio uzvedei ;)

×
×
  • Pasirinkite naujai kuriamo turinio tipą...