Beiträge von button421

button421

Wenn ich jetzt 10 mal bei der Anzahl eingebe, sagt ne MsgBox: 1,5 ?
Meint der 1,50 oder 1,05?

button421

Hi Leute!
Ich habe mal die Idee bekommen - nur so zum Spaß, ein Programm zu erstellen, womit man was Kaufen kann.
Allerdings kann AutoIT nicht mit Kommazahlen rechen (nach meiner Vorstellung).
weil

[autoit]

$karottegesamt = $anzahlkarotte*"0,15" ;Das funktioniert nicht.

[/autoit]

Mein Skript

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
Opt("MustDeclareVars")
Global $summe="0,00 EURO", $gegeben=" 8,88"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Virtual Cash - Waren kaufen", 431, 340, 192, 124)
$ListView1 = GUICtrlCreateListView("Waren|Preis/ stk", 8, 8, 257, 297)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 190)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 63)
$Karotte = GUICtrlCreateListViewItem("Karotte|0,15€", $ListView1)
$Banane = GUICtrlCreateListViewItem("Banane|0,30€", $ListView1)
$Birne = GUICtrlCreateListViewItem("Birne|0,45€", $ListView1)
$Orange = GUICtrlCreateListViewItem("Orange|1,20€", $ListView1)
$Apfelsine = GUICtrlCreateListViewItem("Apfelsine|2,00€", $ListView1)
$Erdbeere = GUICtrlCreateListViewItem("Erdbeere|1,50€", $ListView1)
$Label1 = GUICtrlCreateLabel("Hinweis: Du kannst im 1.Level nur Früchte kaufen!", 8, 312, 243, 17)
$ListView2 = GUICtrlCreateListView("Einkaufwagen", 272, 8, 153, 297)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 149)
$kaufen = GUICtrlCreateButton("Kaufen", 352, 312, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 620, 198, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\display_oben.jpg", 0, 0, 617, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\display_links.jpg", 0, 40, 41, 121, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\display_rechts.jpg", 584, 40, 33, 121, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\display_unten.jpg", 0, 160, 617, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$gegebenl = GUICtrlCreateLabel("Gegeben:", 288, 128, 51, 17)
$gegeben = GUICtrlCreateInput("", 344, 128, 153, 21)
$bezahlen = GUICtrlCreateButton("Bezahlen!", 504, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$JA_NEIN = MsgBox(36,"Beenden?","Wirklich beenden? Alle Käufe gehen verloren!")
If $JA_NEIN = 6 Then
Exit
EndIf
Case $bezahlen
$display = GUICtrlCreateLabel(" "&GUICtrlRead($gegeben), 64, 40, 494, 83)
GUICtrlSetFont(-1, 72, 800, 0, "LCD")
GUICtrlSetColor(-1, 0x00FF00)
Case $Karotte
$anzahlkarotte = InputBox("Anzahl der Karotten","Gebe eine Anzahl an Karotten ein!")
$karottebuy = GUICtrlCreateListViewItem($anzahlkarotte&"x Karotte", $ListView2)
Case $Banane
$anzahlbanane = InputBox("Anzahl der Bananen","Gebe eine Anzahl an Bananen ein!")
$bananebuy = GUICtrlCreateListViewItem($anzahlbanane&"x Banane", $ListView2)
Case $Birne
$anzahlbirne = InputBox("Anzahl der Birnen","Gebe eine Anzahl an Birnen ein!")
$birnebuy = GUICtrlCreateListViewItem($anzahlbirne&"x Birne", $ListView2)
Case $Orange
$anzahlorange = InputBox("Anzahl der Orangen","Gebe eine Anzahl an Orangen ein!")
$orangebuy = GUICtrlCreateListViewItem($anzahlorange&"x Orange", $ListView2)
Case $Apfelsine
$anzahlapfelsine = InputBox("Anzahl der Apfelsinen","Gebe eine Anzahl an Apfelsinen ein!")
$apfelsinebuy = GUICtrlCreateListViewItem($anzahlapfelsine&"x Apfelsine", $ListView2)
Case $Erdbeere
$anzahlerdbeere = InputBox("Anzahl der Erdbeeren","Gebe eine Anzahl an Erbeeren ein!")
$erdbeerebuy = GUICtrlCreateListViewItem($anzahlerdbeere&"x Erdbeere",$ListView2)
Case $kaufen
;Summe ausrechnen - Wie? Der kann nicht mit Kommazahlen rechnen ; Test an MsgBox!
$karottegesamt = $anzahlkarotte*"0,15"

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

MfG button421

button421

Hab ich doch: Der Text wird im Label nicht angezeigt(Sendername) und bei Zeile 18 wird eine .ini erstellt und in Zeile 35 in eine ListView geladen. Da erscheint dann ein Eintrag der Default heißt

button421

Danke name22! Ich lade mir die AVIWriter UDF runter, und kümmere mich um ne GUI! Du kümmerst die dann um die Funktion und ich mache dann den einfachen Rest! Ich fange morgen mit der GUI an, da ich mich jetzt fertigmache und dann Deutschland gegen Ghana gucke! Wenn du die Funktion fertig hast, schreib den Skript als PM!

Mfg button421

button421

Ich rede von einem Programm, womit man alle Aktionen die man macht, in eine avi-datei aufnimmt!
Praktisch das gleiche wie Camtasia
name22: Danke! Wann fangen wir an? Soll ich mich zuerst um die Benutzeroberfläche kümmern?

button421

Danke! OK! Lösche GDI+ Betriebsystem! Hat vlt. einer eine Idee wie man ein Programm, so änlich wie Camtasia programmieren könnte? @Higggii: Soll das "Desktopaufnahme" bei dir heißen?

button421

Meins:

Spoiler anzeigen

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaa

button421

Hallo Leute!
Könnt ihr mir mal ein Paar von euren Programmier-Ideen sagen, damit ich was neues progen kann?
Ihr werdet in den Credits natürlich erwähnt!

Meine Ideen

-Mailprogramm
-FileBrowser
-Downloadmanager
-Programm änlich Selingua
-Rechtschreib/Grammatik-Trainer
-GDI+ Betriebsystem
-Textbasiertes Betriebsystem
-Texteditor
-Bildschirmtastatur
-Organizer
-Mediaplayer(Video und Audio)
-Autologger autoit,de
-CD-Brennprogramm
-Installation für Programme
-Schnellstartbox für Programme

Sicherlich kriege ich das GDI+ Betriebsystem nicht hin, aber man weis nicht.
Trotzdem würde ich gerne nochmal ein paar Ideen hinzuschreiben!

Mfg Button421

button421

Mein Skript

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <_Radio.au3>
#include <Array.au3>
If Not FileExists(@ScriptDir&"\Eigene Sender.ini")Then
IniWriteSection(@ScriptDir&"\Eigene Sender.ini","SENDER","")
ConsoleWrite("INI-Datei wurde erstellt!")
Else
ConsoleWrite("INI-Datei existiert schon. :)")
EndIf
$no = "---Kein Sender---"
Global $sender, $readtitle, $senderselbst, $ListView1
$ini = IniRead(@ScriptDir&"\Eigene Sender.ini","SENDER",Default,Default)
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("RadioStream - Radio einfach streamen!", 626, 315, 192, 124)
$Group1 = GUICtrlCreateGroup("", 96, 0, 521, 65)
$Label1 = GUICtrlCreateLabel($no, 104, 16, 497, 40)
GUICtrlSetFont(-1, 28, 800, 0, "LCD")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1 = GUICtrlCreateListView("Sender", 8, 72, 129, 233)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 125)
$Bremen1 = GUICtrlCreateListViewItem("Bremen 1", $ListView1)
$Bremen4 = GUICtrlCreateListViewItem("Bremen 4", $ListView1)
$HitRadioAntenne = GUICtrlCreateListViewItem("Hit Radio Antenne", $ListView1)
$FFN = GUICtrlCreateListViewItem("FFN", $ListView1)
$NDR2 = GUICtrlCreateListViewItem("NDR2", $ListView1)
$NDR1 = GUICtrlCreateListViewItem("NDR1", $ListView1)
$NJOY = GUICtrlCreateListViewItem("N-JOY", $ListView1)
#cs
Beim ersten "" soll das stehen was er unten hingeschreiben hat, aber das muss ja beim nächsten Programmstart immer noch da stehen.
Beim zweiten "" muss dann wie oben das was beim letzten Programmstart darein geschrieben wurde, drinstehen.
#ce
$Button2 = GUICtrlCreateButton("Play!", 152, 80, 83, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Pause!", 248, 80, 83, 41, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Stop!", 336, 80, 83, 41, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Eigenen Sender!", 424, 80, 99, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Lautstärke:", 472, 248, 57, 17)
$Slider1 = GUICtrlCreateSlider(464, 272, 150, 29)
GUICtrlSetLimit(-1, 10, 0)
GUICtrlSetData(-1, 9)
$WMP = _Radio_Create("WMP Example",$Form1_1, 140, 260)
$Pic1 = GUICtrlCreatePic("", 184, 144, 241, 153, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateIcon("", -0, 8, 40, 25, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neuen Radiosender hinzufügen", 460, 100, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Name:", 8, 8, 35, 17)
$Input1 = GUICtrlCreateInput("z.B. Radio 7", 56, 8, 401, 21)
$Label2 = GUICtrlCreateLabel("Stream-URL:", 8, 32, 65, 17)
$Input2 = GUICtrlCreateInput("", 80, 32, 377, 21)
$Label3 = GUICtrlCreateLabel("Tipp: Unter http://www.linupedia.org/opensuse/Radiosender findest du alle URL von Sendern.", 0, 56, 454, 17)
$OKNEWRD = GUICtrlCreateButton("OK", 384, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
$ini = IniReadSection(@ScriptDir&"\Eigene Sender.ini","SENDER")
$senderselbst = GUICtrlCreateListViewItem($ini, $ListView1)
While 1
SoundSetWaveVolume(GUICTRLREAD($Slider1)) ;Problem 1: Lautstärke reguliert sich nicht mit dem Slider!
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Bremen1
_Radio_Action_SetItem($WMP, "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w48a")
_Radio_Action_Play($WMP)
Dim $sender="Bremen 1" ;Text wird nicht geändert!
Case $Bremen4
_Radio_Action_SetItem($WMP,"http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w49a")
_Radio_Action_Play($WMP)
$sender="Bremen 4" ;Text wird nicht geändert!
Case $HitRadioAntenne
_Radio_Action_SetItem($WMP,"http://edge.live.mp3.mdn.newmedia.nacamar.net/stbantennebremen/livestream.mp3")
_Radio_Action_Play($WMP)
Dim $sender="Hit Radio Antenne" ;Text wird nicht geändert!
Case $FFN
_Radio_Action_SetItem($WMP,"http://rs35.stream24.org/stream")
_Radio_Action_Play($WMP)
Dim $sender="FFN" ;Text wird nicht geändert!
Case $NDR2
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr2_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NDR1
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr1wellenord_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NJOY
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_n-joy_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $Button2
_Radio_Action_Play($WMP)
Case $Button3
_Radio_Action_Pause($WMP)
Case $Button4
_Radio_Action_Stop($WMP)
Case $Button5
GUISetState(@SW_SHOW, $Form2)
Case $OKNEWRD
GUISetState(@SW_HIDE, $Form2)
$senderselbst = GUICtrlCreateListViewItem(GUICtrlRead($Input1), $ListView1)
IniWrite(@ScriptDir&"\Eigene Sender.ini","SENDER",GUICtrlRead($Input1),GUICtrlRead($Input2))
_Radio_Action_SetItem($WMP, GUICtrlRead($Input2))
_Radio_Action_Play($WMP)
Dim $sender=GUICtrlRead($Input1) ;Text wird nicht geändert!
EndSwitch
WEnd

[/autoit]

button421

Ja, aber dann ist in der ListView ein leerer Eintrag, der nerft .
Sollte ich das vlt. so machen:

[autoit]

$ini = IniReadSection(@ScriptDir&"\Eigene Sender.ini","SENDER")
$senderselbst = GUICtrlCreateListViewItem($ini, $ListView1)

[/autoit]

button421

Ja, warum hab ich das nur nicht gelesen? Naja: Jetzt steht in der Liste aber Default!
Sollte ich denn bei beiden (Key und Value) Default hinschreiben, und muss ich dass:

[autoit]

"default"

[/autoit]

oder so

[autoit]

Default

[/autoit]

schreiben?

button421

Die Errors kommen warscheinlich deswegen:

[autoit]

$senderselbst = GUICtrlCreateListViewItem(IniRead(@ScriptDir&"\Eigene Sender.ini","SENDER","","", $ListView1)

[/autoit]

Das hab ich mal schnell in das umgeändert:

[autoit]

$senderselbst = GUICtrlCreateListViewItem(IniRead(@ScriptDir&"\Eigene Sender.ini","SENDER","?","?"),$ListView1)

[/autoit]

Habs oben editiert. Aber "?" muss dann natürlich umgeändert werden; in irgendwas; ich weiß nicht wie mann "?" ersetzen soll; mit IniReadSection ?

button421

Danke; konnte gestern nicht antworten, weil da immer irgendein error auf dieser seite war!
Warum kommen bei meinem Skript immer Errors? Was kommt? Bei mir geht alles!

button421

autoBert: Ich habe nur gefragt ob ihrs verstanden habt und ob noch jmd. da ist! Ist das pushen?
Könnt ihr mir nicht trotzdem helfen?

button421

Noch jemand da?

button421

habters verstanden

button421

Hey Leute!
Ich hab mit dem RadioUDF mal ein Programm gemacht, womit man vorgegebene Radiosender hören kann, und womit man eigene Sender hinzufügen kann. Die Stream URL kann man dann hier ablesen. Das Problem:
Man soll ja mehrere Sender hinzufügen können, aber das sind dann ja mehrere Variablen.
Die müssen dann doch so: $selbstsender[0usw.] geschrieben werden. Das wird dann doch mit _ArrayAdd($selbstsender, 1) gemacht oder? Nja, mit meinem kleinen Arraywissen kann ich das noch nicht.
Schon n Wunder dass ich überhaupt jetzt erst For-Schleifen gelernt habe .
Überarbeitet das mal, und mit IniWrite gibt es auch n paar Probleme, die ich im Skript geschildert habe.

Skript

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <_Radio.au3>
#include <Array.au3>
$no = "---Kein Sender---"
Global $sender, $readtitle, $senderselbst
$ini = IniReadSection(@ScriptDir&"\Eigene Sender.ini","SENDER")
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("RadioStream - Radio einfach streamen!", 626, 315, 192, 124)
$Group1 = GUICtrlCreateGroup("", 96, 0, 521, 65)
$Label1 = GUICtrlCreateLabel($readtitle, 104, 16, 497, 40)
GUICtrlSetFont(-1, 28, 800, 0, "LCD")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1 = GUICtrlCreateListView("Sender", 8, 72, 129, 233)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 125)
$Bremen1 = GUICtrlCreateListViewItem("Bremen 1", $ListView1)
$Bremen4 = GUICtrlCreateListViewItem("Bremen 4", $ListView1)
$HitRadioAntenne = GUICtrlCreateListViewItem("Hit Radio Antenne", $ListView1)
$FFN = GUICtrlCreateListViewItem("FFN", $ListView1)
$NDR2 = GUICtrlCreateListViewItem("NDR2", $ListView1)
$NDR1 = GUICtrlCreateListViewItem("NDR1", $ListView1)
$NJOY = GUICtrlCreateListViewItem("N-JOY", $ListView1)
$senderselbst = GUICtrlCreateListViewItem(IniRead(@ScriptDir&"\Eigene Sender.ini","SENDER","","", $ListView1)
#cs
Beim ersten "" soll das stehen was er unten hingeschreiben hat, aber das muss ja beim nächsten Programmstart immer noch da stehen.
Beim zweiten "" muss dann wie oben das was beim letzten Programmstart darein geschrieben wurde, drinstehen.
#ce
$Button2 = GUICtrlCreateButton("Play!", 152, 80, 83, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Pause!", 248, 80, 83, 41, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Stop!", 336, 80, 83, 41, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Eigenen Sender!", 424, 80, 99, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Lautstärke:", 472, 248, 57, 17)
$Slider1 = GUICtrlCreateSlider(464, 272, 150, 29)
GUICtrlSetLimit(-1, 10, 0)
GUICtrlSetData(-1, 9)
$WMP = _Radio_Create("WMP Example",$Form1_1, 140, 260)
$Pic1 = GUICtrlCreatePic("", 184, 144, 241, 153, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateIcon("", -0, 8, 40, 25, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neuen Radiosender hinzufügen", 460, 100, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Name:", 8, 8, 35, 17)
$Input1 = GUICtrlCreateInput("z.B. Radio 7", 56, 8, 401, 21)
$Label2 = GUICtrlCreateLabel("Stream-URL:", 8, 32, 65, 17)
$Input2 = GUICtrlCreateInput("", 80, 32, 377, 21)
$Label3 = GUICtrlCreateLabel("Tipp: Unter http://www.linupedia.org/opensuse/Radiosender findest du alle URL von Sendern.", 0, 56, 454, 17)
$OKNEWRD = GUICtrlCreateButton("OK", 384, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
SoundSetWaveVolume(GUICTRLREAD($Slider1)) ;Problem 1: Lautstärke reguliert sich nicht mit dem Slider!
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Bremen1
_Radio_Action_SetItem($WMP, "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w48a")
_Radio_Action_Play($WMP)
Dim $sender="Bremen 1" ;Text wird nicht geändert!
Case $Bremen4
_Radio_Action_SetItem($WMP,"http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w49a")
_Radio_Action_Play($WMP)
$sender="Bremen 4" ;Text wird nicht geändert!
Case $HitRadioAntenne
_Radio_Action_SetItem($WMP,"http://edge.live.mp3.mdn.newmedia.nacamar.net/stbantennebremen/livestream.mp3")
_Radio_Action_Play($WMP)
Dim $sender="Hit Radio Antenne" ;Text wird nicht geändert!
Case $FFN
_Radio_Action_SetItem($WMP,"http://rs35.stream24.org/stream")
_Radio_Action_Play($WMP)
Dim $sender="FFN" ;Text wird nicht geändert!
Case $NDR2
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr2_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NDR1
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_ndr1wellenord_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $NJOY
_Radio_Action_SetItem($WMP,"http://ndr.ic.llnwd.net/stream/ndr_n-joy_hi_mp3")
_Radio_Action_Play($WMP)
Dim $sender="NDR2" ;Text wird nicht geändert!
Case $Button2
_Radio_Action_Play($WMP)
Case $Button3
_Radio_Action_Pause($WMP)
Case $Button4
_Radio_Action_Stop($WMP)
Case $Button5
GUISetState(@SW_SHOW, $Form2)
Case $OKNEWRD
GUISetState(@SW_HIDE, $Form2)
$senderselbst = GUICtrlCreateListViewItem(GUICtrlRead($Input1), $ListView1)
IniWrite(@ScriptDir&"\Eigene Sender.ini","SENDER",GUICtrlRead($Input1),GUICtrlRead($Input2))
_Radio_Action_SetItem($WMP, GUICtrlRead($Input2))
_Radio_Action_Play($WMP)
Dim $sender=GUICtrlRead($Input1) ;Text wird nicht geändert!
EndSwitch
WEnd

[/autoit]

MfG button421!!!

button421

Gibt es auch was, was den Titel des Liedes ermittelt?

button421

Kennt ihr ein gutes Programm, womit man Cartoons machen kann?
Was sagt ihr zu CrazyTalk5SE?

button421

Soll _Radio_ReadTitleFromASX bedeuten, dass er den Titel und/oder den Sendernamen rausfindet?
Wenn ja, klappt das nicht

Beiträge von button421

Kassenprogramm - AutoIT kann nicht mit Kommazahlen rechnen :(

Kassenprogramm - AutoIT kann nicht mit Kommazahlen rechnen :(

Radioprogramm - Paar Fehler

Projektideen

Projektideen

Projektideen

Forumsspiel - Luft anhalten

Projektideen

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

Radioprogramm - Paar Fehler

_Radio UDF

Simpsons Stimme?

_Radio UDF