כמו שהבטחתי - בדיקת שמיעה
טוב - ברור שלא מדובר בבדיקת שמיעה איכותית כמו בדיקות שמיעה של קופת חולים ואלו הסיבות : - הווליום המינימלי שהתוכנה מסוגלת להוציא גבוהה בהרבה מזה שמשמש בבדיקות שמיעה. - משום מה מתווסף רעש של לחיצת כפתור ניתן לשפר את הבדיקה ע"י 1) בחירת חדר שקט במיוחד 2) שימוש באוזניות בעלות איכות שמע גבוהה 3) שימוש במערכת עם יכולת להנמיך כמו כן - שימו לב שגם התעצלתי - והגרף שיוצא בסוף הוא לא מושקע במיוחד ולא בסקאלת DB כנהוג בבדיקות אלו. לבסוף - ניתן להשתמש בתוכנה לבדוק תגובת מערכת שמע ביתית לצלילים #rsSound3.bas new draw -1 fmx=19000 gosub clrfrms() dim frq(15) dim frq_vol(15) gosub frqstrt() draw str$(fn pen(1),3),40,20 draw str$(fn pen(2),3),40,40 #draw str$(n,3),10,10 for idx1=1 to 14 gosub rpbox(int(frq(idx1)*100/fmx)) gosub rpbox2(frq_vol(idx1)) gosub reprinttxt(frq(idx1),frq_vol(idx1)) sound frq(idx1),500,frq_vol(idx1) n = asc(input$(1)) if n=20 frq_vol(idx1)=frq_vol(idx1)+1 idx1=idx1-1 endif if n=17 idx1=idx1-2 if idx1<0 then idx1=0 endif if n=19 frq_vol(idx1)=frq_vol(idx1)-1 idx1=idx1-1 endif next idx1 form reset 0,0,0,0, "results",-1 form btn 120,147,32,12,"next",1 for i=1 to 14 draw str$(frq(i),3),10,i*10 draw str$(frq_vol(i),3),40,i*10 frq(i)=int(frq(i)/500) frq_vol(i)=30-frq_vol(i) next i n = asc(input$(1)) form reset 0,0,0,0, "plot graph",-1 fn plot (2,"para",14,frq(1),frq_vol(1)) n = asc(input$(1)) end #---- newsube-------- sub wait() while fn pen(0)=0 #sound wend return #----clear forms-------- sub clrfrms() form reset 0,0,0,0, "sound_test",-1 form btn 120,147,32,12,"strt",1 fn setformkey(fn formindex(),16) draw 1,1,158,144,5 form btn 3,30,10,12,"-",1 fn setformkey(fn formindex(),17) form btn 148,30,10,12,"+",1 fn setformkey(fn formindex(),18) form btn 3,50,10,12,"-",1 fn setformkey(fn formindex(),19) form btn 148,50,10,12,"+",1 fn setformkey(fn formindex(),20) draw 18,30,125,15,4 draw 18,50,125,15,4 draw "frq",75,30 draw "vol",75,50 return #----clear forms-------- sub frqstrt() frq(1)=15 : frq(2)=250: frq(3)=500 frq(4)=1000: frq(5)=2000 frq(6)=3000: frq(7)=4000 frq(8)=6000:frq(9)=8000 frq(10)=10000:frq(11)=13500 frq(12)=17000 frq(13)=18000 frq(14)=19000 for i=1 to 15 frq_vol(i)=0 next i return #---- re-print text-------- sub reprinttxt(frq1,vol1) draw "frq",65,30 draw str$(frq1,5),60,30 draw "vol",65,50 draw str$(vol1,5),60,50 return #---- Re print box-------- sub rpbox(cent) draw color 255,255,255,1:'white draw 19,31,123,13,7 dx=int(107*cent/100) draw color 255,0,0,1 draw 19,31,dx,13,7 draw color 0,0,0,1:'black return #---- Re print box2-------- sub rpbox2(ct2) draw color 255,255,255,1:'white draw 19,51,123,13,7 dx=int(ct2/1.07) draw color 255,0,0,1 draw 19,51,dx,13,7 draw color 0,0,0,1:'black return run
טוב - ברור שלא מדובר בבדיקת שמיעה איכותית כמו בדיקות שמיעה של קופת חולים ואלו הסיבות : - הווליום המינימלי שהתוכנה מסוגלת להוציא גבוהה בהרבה מזה שמשמש בבדיקות שמיעה. - משום מה מתווסף רעש של לחיצת כפתור ניתן לשפר את הבדיקה ע"י 1) בחירת חדר שקט במיוחד 2) שימוש באוזניות בעלות איכות שמע גבוהה 3) שימוש במערכת עם יכולת להנמיך כמו כן - שימו לב שגם התעצלתי - והגרף שיוצא בסוף הוא לא מושקע במיוחד ולא בסקאלת DB כנהוג בבדיקות אלו. לבסוף - ניתן להשתמש בתוכנה לבדוק תגובת מערכת שמע ביתית לצלילים #rsSound3.bas new draw -1 fmx=19000 gosub clrfrms() dim frq(15) dim frq_vol(15) gosub frqstrt() draw str$(fn pen(1),3),40,20 draw str$(fn pen(2),3),40,40 #draw str$(n,3),10,10 for idx1=1 to 14 gosub rpbox(int(frq(idx1)*100/fmx)) gosub rpbox2(frq_vol(idx1)) gosub reprinttxt(frq(idx1),frq_vol(idx1)) sound frq(idx1),500,frq_vol(idx1) n = asc(input$(1)) if n=20 frq_vol(idx1)=frq_vol(idx1)+1 idx1=idx1-1 endif if n=17 idx1=idx1-2 if idx1<0 then idx1=0 endif if n=19 frq_vol(idx1)=frq_vol(idx1)-1 idx1=idx1-1 endif next idx1 form reset 0,0,0,0, "results",-1 form btn 120,147,32,12,"next",1 for i=1 to 14 draw str$(frq(i),3),10,i*10 draw str$(frq_vol(i),3),40,i*10 frq(i)=int(frq(i)/500) frq_vol(i)=30-frq_vol(i) next i n = asc(input$(1)) form reset 0,0,0,0, "plot graph",-1 fn plot (2,"para",14,frq(1),frq_vol(1)) n = asc(input$(1)) end #---- newsube-------- sub wait() while fn pen(0)=0 #sound wend return #----clear forms-------- sub clrfrms() form reset 0,0,0,0, "sound_test",-1 form btn 120,147,32,12,"strt",1 fn setformkey(fn formindex(),16) draw 1,1,158,144,5 form btn 3,30,10,12,"-",1 fn setformkey(fn formindex(),17) form btn 148,30,10,12,"+",1 fn setformkey(fn formindex(),18) form btn 3,50,10,12,"-",1 fn setformkey(fn formindex(),19) form btn 148,50,10,12,"+",1 fn setformkey(fn formindex(),20) draw 18,30,125,15,4 draw 18,50,125,15,4 draw "frq",75,30 draw "vol",75,50 return #----clear forms-------- sub frqstrt() frq(1)=15 : frq(2)=250: frq(3)=500 frq(4)=1000: frq(5)=2000 frq(6)=3000: frq(7)=4000 frq(8)=6000:frq(9)=8000 frq(10)=10000:frq(11)=13500 frq(12)=17000 frq(13)=18000 frq(14)=19000 for i=1 to 15 frq_vol(i)=0 next i return #---- re-print text-------- sub reprinttxt(frq1,vol1) draw "frq",65,30 draw str$(frq1,5),60,30 draw "vol",65,50 draw str$(vol1,5),60,50 return #---- Re print box-------- sub rpbox(cent) draw color 255,255,255,1:'white draw 19,31,123,13,7 dx=int(107*cent/100) draw color 255,0,0,1 draw 19,31,dx,13,7 draw color 0,0,0,1:'black return #---- Re print box2-------- sub rpbox2(ct2) draw color 255,255,255,1:'white draw 19,51,123,13,7 dx=int(ct2/1.07) draw color 255,0,0,1 draw 19,51,dx,13,7 draw color 0,0,0,1:'black return run
