help with correcting codes!!!!!!!

[tolmega01]

'(*=========================================
'SPEAKPHRASE
'Send text out to DECtalk NT.
'=========================================*)
'PROCEDURE SPEAKPHRASE;
Public sub SPEAKPHRASE() as string

     dim i,j,charin,outcount,settlen,comm_tx,comm_rx,flush as integer
     dim started,charsok,speaking_text,changing_voice as boolean
     
start_pitch:str20;
     trytxt:str255;

'BEGIN { speakphrase }
     punc_tx=0
     punc_rx=0
     comm_tx=0
     comm_rx=0
      IF outtxt="PHONEME ARRAY" THEN speaking_text=false
                               ELSE speaking_text=true
     IF copy(outtxt,1,2)="(:" THEN changing_voice=true
                              ELSE changing_voice=false
     IF NOT speaking_text THEN             '{ * Speak phoneme array * }
          trytxt=""                           '{ Check phonemes are valid }
          charsok=false
          FOR i=phon_start TO phon_fin 
  trytxt=trytxt+phon_name(i)
          
IF length(trytxt)>1 THEN FOR i=1 TO length(trytxt) 
               IF trytxt(i) in ("A".."Z","a".."z") THEN charsok=true
          IF charsok AND (phon_fin-phon_start>1) THEN BEGIN     { Phons OK? }
               outtxt=phon_name(phon_fin)           { Process last phoneme }
               while (i=length(outtxt))
   do
                    IF outtxt(i)=space THEN 
                         outtxt=copy(outtxt,1,i-1)
                         dec(i)
                         END
                   loop (i=1) OR (outtxt(i)<>space)
               IF NOT (outtxt(i) in (".","!","?",")")) THEN
                    outtxt=outtxt+"."
               phon_name(phon_fin)=outtxt           '{ Copy it back to array }
               FOR i=phon_start TO phon_fin DO      '{ Count ">" terminators }
                    
FOR j=1 TO length(phon_name(i)) 
                         IF phon_name(i)(j)=">" THEN inc(punc_tx)
               str(phon_pitch(phon_start),start_pitch)    { Add start + end }
               phon_name(phon_start-1)="(_<10,"+start_pitch+">) ("
               phon_name(phon_fin+1)=")"
               i=phon_start-1                             { Add in returns }
               outcount=0
               while
                    outcount=outcount+length(phon_name(i))
                    IF (outcount>65) AND (phon_num(i) in phons) THEN 
                         phon_name(i)=phon_name(i)+#13+#10
                         outcount=0
                         END
                    inc(i)
                    UNTIL i=phon_fin
               IF (saving) THEN 
                    settlen=0
                    FOR i=1 TO 3 DO IF length(sett_rule(i))>0 THEN BEGIN
                         FOR j=1 TO length(sett_rule(i)) DO { Make lower case }
                              IF sett_rule(i)(j) in ("A".."Z") THEN
                                   sett_rule(i)(j)=chr(ord(sett_rule(i)(j))+32)
                         write(fileout,sett_rule(i))
                         settlen=settlen+length(sett_rule(i))
                         END
                    IF settlen>0 THEN writeln(fileout)
                    FOR i=phon_start-1 TO phon_fin+1 DO
                         write(fileout,phon_name(i))
                    END
                    ELSE IF synth_avail THEN BEGIN
IF NOT prog_version THEN FOR i=phon_start-1 TO phon_fin+1 DO write(phon_name(i),space)
IF NOT prog_version THEN writeln
     writeln(fileout,"(:phoneme arpabet on)")
                    FOR i=phon_start-1 TO phon_fin+1 DO
                         FOR j=1 TO length(phon_name(i)) DO BEGIN
     write(fileout,phon_name(i)(j))
                              END
     writeln(fileout)                               
     writeln(fileout,"(:phoneme arpabet off)")
     IF speaknow THEN 
          close(fileout)                  { Close file and speak }
          swapvectors
          EXEC(dirsystem,"/C SAY < "+dirtemp+"\HAMLET.TXT")
          EXEC(dirsystem,"/C COPY "+dirtemp+"\HAMLET.TXT "+dirtemp+"\HAMLPREV.TXT > NUL")
          IF doserror<>0 then writeln("DOS error",doserror)
          swapvectors                     { Reopen file }
          assign(fileout,dirtemp+"\HAMLET.TXT")
          rewrite(fileout)
          END
                    END
               END
          END { * Speak phoneme array * }
          ELSE BEGIN { * Speak normal text string * }
          REPEAT
               i=length(outtxt)
               IF outtxt(i)=space THEN BEGIN
                    outtxt=copy(outtxt,1,i-1)
                    dec(i)
                    END
               UNTIL (i=1) OR (outtxt(i)<>space)    { Add "." if required }
          IF (NOT (outtxt(i) in (".","!","?",")")) AND
             (NOT (copy(outtxt,1,2)="(:"))) THEN outtxt=outtxt+"."
          IF synth_avail THEN BEGIN
     IF saving THEN writeln(fileout,"(:log phonemes on)")
     writeln(fileout,outtxt)
     IF saving THEN writeln(fileout,"(:log phonemes off)")
     IF speaknow THEN BEGIN
          close(fileout)
          swapvectors
          EXEC(dirsystem,"/C SAY < "+dirtemp+"\HAMLET.TXT")
          EXEC(dirsystem,"/C COPY "+dirtemp+"\HAMLET.TXT "+dirtemp+"\HAMLPREV.TXT > NUL")
          IF doserror<>0 then writeln("DOS error",doserror)
          swapvectors
          assign(fileout,dirtemp+"\HAMLET.TXT")
          rewrite(fileout)    
          END
               END
          END { * Speak normal text string * }
END { speakphrase }
 
 
 
'(*==============================================
'SPEAK PHONEMES TO DECTALK
'Procedure to speak standard phoneme arrays to DECtalk synthesiser.
'Phoneme strings in array phon_str
'Phoneme numbers in array phon_num
'Phoneme pitches in array phon_pitch
'Phoneme durations in array phon_dur
'==============================================*)
'PROCEDURE SPEAK_PHONEMES_TO_DECTALK
Public sub SPEAK_PHONEMES_TO_DECTALK() as string
      dim i as integer
'BEGIN { speak phonemes to dectalk }
     vowel_total=0
     FOR i=1 TO phon_total 
          IF phon_num(i) in vowels THEN inc(vowel_total)
     synth_vox=1
     voice_init
     phon_start=1
     phon_fin=phon_total-1
'(* 
 full_info=false
     demo_mode=false
     do_dd_rules=true
     do_pd_rules=true  
'*)

'{    set_duration_defaults(180,false)   }
'{    set_pitch_defaults(false)          }
     synth_avail=true
     add_in_values
     speakphrase(false,true,"PHONEME ARRAY")
end sub '{ speak phonemes to dectalk }
 
 
'(*=========================================
'ADD IN VALUES
'Change phoneme durations and pitches from integer to string,
'and add to phoneme strings.
'=========================================*)
'PROCEDURE ADD_IN_VALUES
 Public sub ADD_IN_VALUES() as string
   i,j,vptr:integer
     pitch,oldpitch,duration:str20
BEGIN { add in values }
     dur_total=0
     max_pitch=0
     FOR i=2 TO phon_total DO              ' { Eliminate non-phoneme params }
          IF (phon_num(i) in nonphons) AND NOT (phon_num(i)=silence) THEN
               IF phon_num(i) in stress THEN phon_name(i)=""
                                        ELSE 
                    phon_pitch(i)=phon_pitch(i-1)
                    phon_dur(i)=0
                    END
     IF phon_num(1) in nonphons THEN BEGIN  ' { Process initial non-phonemes }
          i=1
          WHILE phon_num(i+1) in nonphons DO inc(i)
          FOR j=i DOWNTO 1 
               phon_pitch(j)=phon_pitch(j+1)
               phon_dur(j)=0
               END
          END
     oldpitch="0"
     FOR i=phon_start TO phon_fin
          IF vibrato THEN                     ' { Add vibrato effects }
               vptr=1
               WHILE phon_pitch(i)>vtone(vptr) DO inc(vptr)
               str(vptr,pitch)
               END  
 ELSE str(phon_pitch(i),pitch)
          str(phon_dur(i),duration)
          IF (((phon_dur(i)>0) OR (pitch<>oldpitch)) AND NOT
             ((i=phon_start) AND (phon_num(i) in nonphons))) THEN
               phon_name(i)=phon_name(i)+"<"
          IF (phon_dur(i)>0) THEN phon_name(i)=phon_name(i)+duration
          IF phon_num(i) in phons THEN BEGIN    '{ Add pitch if normal phon }
               IF pitch<>oldpitch THEN          '{ .. and pitch changed }
                    phon_name(i)=phon_name(i)+","+pitch
               oldpitch=pitch
               END
          IF (((phon_dur(i)>0) OR (pitch<>oldpitch)) AND NOT
             ((i=phon_start) AND (phon_num(i) in nonphons))) THEN
               phon_name(i)=phon_name(i)+">"
          dur_total=dur_total+phon_dur(i)
          IF phon_num(i)=punc_strt THEN phon_name(i)="_<250>"    { Comma }
          IF phon_pitch(i)>max_pitch THEN max_pitch=phon_pitch(i)
          END
end sub
'END { add in values }

[PeejAvery]

Wow, you can't get more vague than that.

Seriously! Do you expect people to just grab code and work on it without any explanation?

[DataMiser]

LOL it would help if there was at least a hint as to whatever problem may be happening here.

[dglienna]

Press "1" to have code written for you
Press "2" to speak to a live operator
Press "0" to hang up!

next number in queue...

[tolmega01]

The code is to help convert text to phonemes and send it to an application to speak it.. ..... Sorry for being very vague... Just tryin to find an easy way out cos I am in a tight corner

[dglienna]

What kind of app is this, that has you posting other people's code?

[DataMiser]

The code is to help convert text to phonemes and send it to an application to speak it.. ..... Sorry for being very vague... Just tryin to find an easy way out cos I am in a tight corner

And still not even a hint as to what the problem is that you are seekign help on.

Here's a little tip for ya. if you want people to give thier time in an effort to help you you should be willing to give some of your time to actually explain your problem.

[DataMiser]

BTW what kind of code is that, Is that supposed to be VB.Net code? If so there are lots of errors in it.

[HanneSThEGreaT]

This looks like delphi code. It seems like tolmega01 is inputting characters, then trying to output them to a "talk processor", so that it can speak out what he / she has written.

tolmega01, in future, when asking for help, make sure you give the facts to everyone. We are all helping voluntary, we don't get paid for doing this, just the pleasure and satisfaction of helping others. We cannot help if we don't know what you're trying to do, and what went wrong...

Have a look at Gremmy's brilliant articles on working with Microsoft's Speech engine :

http://www.codeguru.com/vb/gen/vb_mi...le.php/c11019/

http://www.codeguru.com/vb/gen/vb_mi...cle.php/c11085

http://www.codeguru.com/vb/gen/vb_mi...php/c11223__2/

http://www.codeguru.com/vb/gen/vb_mi...cle.php/c11381

[tolmega01]

I am really sorry for that and I appreciate your contributions.... Thanks all