Ich bin ja dabei einen Wecker zu Scripten ,
und nach unzähligen versuchen , habe ich endlich etwas zu stande gebracht
Auch wen mit etwas hilfe ...
Also
Hier der Source Code
PHP Code:
MsgBox(1,"Alpha Phase","Der Wecker ist noch in der Testphase ! Es könnte also zu Problemen kommen ! Danke ")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Wecker = GUICreate("Wecker Version 1.0", 376, 222, 192, 124)
$Label1 = GUICtrlCreateLabel("Hier bitte die Zeit eingeben ", 0, 16, 134, 17)
$Label2 = GUICtrlCreateLabel("Weckzeit", 8, 40, 85, 30)
GUICtrlSetFont(-1, 15, 400, 0, "@Arial Unicode MS")
GUICtrlSetColor(-1, 0xFF0000)
$Stunden = GUICtrlCreateInput("", 96, 40, 73, 21)
$Minuten = GUICtrlCreateInput("", 184, 40, 81, 21)
$Label3 = GUICtrlCreateLabel(":", 176, 40, 7, 17)
$Button1 = GUICtrlCreateButton("Wecker Starten", 0, 168, 91, 49)
$Button2 = GUICtrlCreateButton("Wecker Aus", 96, 168, 91, 49)
$Button3 = GUICtrlCreateButton("Credits", 192, 168, 91, 49)
$Label4 = GUICtrlCreateLabel("Erinnerung", 0, 80, 55, 17)
$Erinerung = GUICtrlCreateInput("", 56, 80, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Start()
Case $Button2
_Stop()
Case $Button3
_Credits()
EndSwitch
WEnd
Func _Stop()
Exit 0
EndFunc
Func _Credits()
MsgBox(1,"Credits","Made By Hackerfreack1")
EndFunc
Func _Start()
While 1
WinSetState($Wecker,"",2)
If @HOUR = GUICtrlRead($Stunden) And @MIN = GUICtrlRead($Minuten) Then
$msg = MsgBox(1, "ACHTUNG", GUICtrlRead($Erinerung))
EndIf
If $msg = 1 Then ExitLoop
WEnd
EndFunc
Und hier die Frage:
Wie schafe ich es , das wen die "Weckzeit" ist , das er dan einen Ton macht.?
Und das man sich dan etwas auswählen kann
mit einem Pfad zu einem Lied z.B.
das man aber den Pfad sehen kann
Hoffe ihr habt meine Frage verstanden [ konnte sie gerade net sooo gut Formulieren <.< ]
und hoffe auf eine Meeeenge Antworten , und hoffentlich auch die Richtige
MsgBox(1,"Alpha Phase","Der Wecker ist noch in der Testphase ! Es könnte also zu Problemen kommen ! Danke ") #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Wecker = GUICreate("Wecker Version 1.0", 385, 222, 192, 124) $Label1 = GUICtrlCreateLabel("Hier bitte die Zeit eingeben ", 0, 16, 134, 17) $Label2 = GUICtrlCreateLabel("Weckzeit", 8, 40, 85, 30) GUICtrlSetFont(-1, 15, 400, 0, "@Arial Unicode MS") GUICtrlSetColor(-1, 0xFF0000) $Stunden = GUICtrlCreateInput("", 96, 40, 73, 21) $Minuten = GUICtrlCreateInput("", 184, 40, 81, 21) $Label3 = GUICtrlCreateLabel(":", 176, 40, 7, 17) $Button1 = GUICtrlCreateButton("Wecker Starten", 0, 168, 91, 49) $Button2 = GUICtrlCreateButton("Wecker Aus", 96, 168, 91, 49) $Button3 = GUICtrlCreateButton("Credits", 192, 168, 91, 49) $tonbutton = GUICtrlCreateButton("Ton auswählen", 288, 168, 91, 49) $Label4 = GUICtrlCreateLabel("Erinnerung", 0, 80, 55, 17) $Erinerung = GUICtrlCreateInput("", 56, 80, 121, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _Start() Case $Button2 _Stop() Case $Button3 _Credits() Case $tonbutton $sound = FileOpenDialog("Bitte eine .mp3 datei auswählen", @MyDocumentsDir, "(*.mp3)", 1) EndSwitch WEnd
Func _Stop() Exit 0 EndFunc
Func _Credits() MsgBox(1,"Credits","Made By Hackerfreack1") EndFunc
Func _Start() Local $msg While 1 WinSetState($Wecker,"",2)
If @HOUR = GUICtrlRead($Stunden) And @MIN = GUICtrlRead($Minuten) Then SoundPlay($sound) $msg = MsgBox(1, "ACHTUNG", GUICtrlRead($Erinerung)) EndIf If $msg = 1 Then ExitLoop WEnd EndFunc
[VB] Wecker Problem 01/12/2011 - .NET Languages - 7 Replies Hi,
ich habe mich mal ein Tag lang mit VB beschäftigt und mich dann an einem Wecker versucht.
Das ist das Script:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not IsNumeric(TextBox1.Text) Then
MsgBox("Enter a value.")
Autoit-"Wecker" 10/27/2010 - AutoIt - 16 Replies Hi,
Ich habe euin Problem (wie viele hier) und das ist bei diesem Skript:
#include<IE.au3>
$Fenstertitel = WinGetTitle("bigFM")
$std = 05
$min = 50
While 1
Map einbauen? 09/16/2010 - Metin2 Private Server - 0 Replies Hallo Liebe comm,
ich weis ich nerv voll oft in letzter zeit aber ich habe nochn problem ! ich habe mich bei einem einbau einer map genau an ein vidtut gehalten. Jetzt kommt da aber wenn ich /warp 955100 955100 eingebe : You warped to(955100 , 955100) aber es passiert einfach nichts -.-. Weis jemand woran das liegt bzw. kann mir jemadn vieleicht über tv die map richtig einbauen ! ?
Danke im Voraus ich press auch imma wieda thx
mfg
minimolli
[Tut]VB 2008 Wecker erstellen 07/11/2010 - Coding Tutorials - 3 Replies Hallo Elitepvpers! Heute zeige ich euch, wie ihr einen Wecker erstellt. Gleichzeitig, könnt ihr euch nicht nur wach machen lassen, sondern auch als Timer benutzen, das wenn ihr z.B euch um 15:00 mit einem Freund trefft, dann kann man einstellen, dass er eine Warnung abgibt. Let's Goo!
Zuerst einmal startet ihr Visual Basic 2008 Express Edition und macht eine neue Windows Forms anwendung, die Ihr Wecker nennt.
Nun fügt ihr 2 Timer, 1 Textbox Steuerelement und ein Label hinzu. Das Label...
nokia 5530 wecker 05/08/2010 - Technical Support - 3 Replies also ich hab mir gestern das nokia 5530 gekauft. Als ich es dann aufgemacht hab und ein bischen " durchgecheckt " hab, hab ich festgestellt das es keinen Wecker hat ... Ich finde ihn einfach nicht. Google hab ich schon benutzt. Ich finde da nur listen wo steht welche funktionen das Handy hat. Wecker ist in jeder liste auch dabei.
Kann mir einer helfen wo ich den wecker finde?
Das ist das was ich am meisten und dringendsten brauche. :(
