PureBoard

Code: Alles auswählen

Ich bin müde@Ich bin müde!
Ich möchte Fernsehen@Ich möchte Fernsehen!
Ich habe hunger@Ich habe hunger!
Ich habe Durst@Ich habe Durst!
Ich möchte raus@Ich möchte raus!
Ich möchte mich hinlegen@Ich möchte mich hinlegen!
Ich möchte Dies@Ich möchte? Dies!
Ich möchte Das@Ich möchte Das!
Ich möchte Jenes@Ich möchte Jenes!
Ich möchte nach Links@Ich möchte nach Links!
Ich möchte nach Rechts@Ich möchte nach Rechts!
Ich möchte nach Oben@Ich möchte nach Oben!
Ich möchte Unten@Ich möchte Unten!
Ich muss mal@Ich muss mal!
Ich möchte ein Buch lesen@Ich möchte ein Buch lesen!
Zeitschrift lesen@Ich möchte gerne ma eine Zeitschrift lesen!
Biertrinken@Hol mir mal 'ne Flasche Bier, Flasche Bier, Flasche Bier 
was auch immer@was auch immer!
was auch immer@was auch immer!
Ich muss noch mal@Ich muss noch mal!
Trinken aber dolle@Trinken aber dolle!
Feierabend@Feiern ohne Ende!
Das Eine@Das Eine!
Das Andere@Das Andere!
der letzte Knopf@Den letzten Knopf drück ich immer sooh gärne!

Code: Alles auswählen

ReadFile(0,"Knopf.txt")
here.s=GetPathPart(ProgramFilename())
Debug here
While Eof(0)=0
  tmp.s=StringField(ReadString(0),2,"@")
  c+1
  DeleteFile (here+Str(c)+".wav ")
  RunProgram("espeak","-p 50 -s 125 -a 200 -v MB-DE5 -w "+here+Str(c)+".wav "+Chr(34)+tmp+Chr(34),"D:\Programme\eSpeak\command_line",#PB_Program_Wait)
Wend
CloseFile(0)

Code: Alles auswählen

Enumeration
  #win
EndEnumeration
InitSound()
NewList bg.i()
OpenWindow(#win,0,0,500,500,"Knopfleiste",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
For y = 0 To WindowHeight(#win)-100 Step 100
  For x = 0 To WindowWidth(#win)-100 Step 100
    AddElement(bg())
    bg()= ButtonGadget(#PB_Any,x,y ,WindowWidth(#win)/5,WindowHeight(#win)/5,"_",#PB_Button_MultiLine );Str(x)+"-"+Str(y))
  Next x
Next y
ReadFile(0,"Knopf.txt")
ResetList(bg())
While Eof(0)=0
  NextElement(bg())
  c+1
  sgadgettext.s = StringField(ReadString(0),1,"@")
  SetGadgetText(bg(),sgadgettext+" ("+Str(c)+")")
Wend
CloseFile(0)
Repeat
  event=WaitWindowEvent()
  gadget=EventGadget()
  If event=#PB_Event_Gadget
    PlaySound(LoadSound(#PB_Any,RemoveString(StringField(GetGadgetText(gadget),2,"("),")")+".Wav"))
    ;MessageRequester("","dieser Knopf hat Inhalt "+GetGadgetText(gadget))
  EndIf
  If event=#PB_Event_CloseWindow
    quit+1
  EndIf
Until quit

Code: Alles auswählen

ReadFile(0,"Knopf.txt")
here.s=GetPathPart(ProgramFilename())
Debug here
While Eof(0)=0
  tmp.s=StringField(ReadString(0),2,"@")
  Debug tmp
  c+1
  RunProgram("espeak","-p 50 -s 125 -a 200 -v MB-DE5 "+Chr(34)+tmp+Chr(34),"D:\Programme\eSpeak\command_line",#PB_Program_Wait)
Wend
CloseFile(0)

Code: Alles auswählen

Enumeration
	#win
EndEnumeration

EnableExplicit

Structure _SOUNDS_
	GadgetID.i
	Name.s
	SpeachText.s
EndStructure

Global NewList Sounds._SOUNDS_()
InitSound()

Procedure main()
	Protected tmp.s, PathTo_eSpeach.s, i, j, f.f, w, h, x, y

	If ReadFile(0, GetPathPart(ProgramFilename()) + "Knopf.txt") = 0
		MessageRequester("Fehler!", "Knopf.txt konnte nicht gefunden werden!")
		End
	Else
		While Eof(0) = 0
			tmp = ReadString(0)
			If tmp
				AddElement(Sounds())
				Sounds()\Name       = StringField(tmp, 1, "@")
				Sounds()\SpeachText = StringField(tmp, 2, "@")
			EndIf
		Wend
		CloseFile(0)
	EndIf

	OpenPreferences(GetEnvironmentVariable("APPDATA") + "\pb_speach.prefs")
	PathTo_eSpeach = ReadPreferenceString("PathTo_eSpeach", "")
	If PathTo_eSpeach = "" Or FileSize(PathTo_eSpeach) <> -2 Or FileSize(PathTo_eSpeach + "TTSApp.exe") <= 0
		PathTo_eSpeach = PathRequester("Select Path to eSpeach", GetEnvironmentVariable("ProgramFiles"))
	EndIf
	WritePreferenceString("PathTo_eSpeach", PathTo_eSpeach)
	ClosePreferences()
	If PathTo_eSpeach = "" Or FileSize(PathTo_eSpeach) <> -2 Or FileSize(PathTo_eSpeach + "TTSApp.exe") <= 0
		MessageRequester("Fehler!", "Kein eSpeach?")
		End
	EndIf

	i = ListSize(Sounds())
	f = Sqr(i)
	w = Int(f)
	h = w * 100
	If (f - w) > 0.0
		h + 100
	EndIf
	w * 100

	OpenWindow(#win, 0, 0, w, h, "Knopfleiste", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

	ResetList(Sounds())
	For y = 0 To h - 100 Step 100
		For x = 0 To w - 100 Step 100
			If NextElement(Sounds())
				Sounds()\GadgetID = ButtonGadget(#PB_Any, x, y, 100, 100, Sounds()\Name, #PB_Button_MultiLine)
			EndIf
		Next x
	Next y

	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_CloseWindow
				Select EventWindow()
					Case #win
						Break
				EndSelect
			Case #PB_Event_Gadget
				i = EventGadget()
				ForEach Sounds()
					If Sounds()\GadgetID = i
						RunProgram("espeak", "-p 60 -s 125 -a 200 -v MB-DE5 " + #DQUOTE$ + Sounds()\SpeachText + #DQUOTE$, PathTo_eSpeach + "command_line", #PB_Program_Hide)
					EndIf
				Next
		EndSelect
	ForEver
EndProcedure

main()