Beiträge von Cartan12

  • Beep-Tonleiter UDF

    Ist eine einfache, aber lustige UDF. Einfach den Ton, Dauer und Anzahl angeben und schon kann man kleine Musikstücke aus dem Systemlautsprecher ausgeben, wie z.B. mit "Alle meine Entchen":

    Spoiler anzeigen
    [autoit]

    #Include <_beepton.au3>
    _beepton("c",500)
    _beepton("d",500)
    _beepton("e",500)
    _beepton("f",500)
    _beepton("g",1000,2)
    _beepton("a",500,4)
    _beepton("g",1500)
    _beepton("a",500,4)
    _beepton("g",1500)
    _beepton("f",500,4)
    _beepton("e",1000,2)
    _beepton("d",500,4)
    _beepton("c",2000)

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

    _beepton("c2",500)
    _beepton("d2",500)
    _beepton("e2",500)
    _beepton("f2",500)
    _beepton("g2",1000,2)
    _beepton("a2",500,4)
    _beepton("g2",1500)
    _beepton("a2",500,4)
    _beepton("g2",1500)
    _beepton("f2",500,4)
    _beepton("e2",1000,2)
    _beepton("d2",500,4)
    _beepton("c2",2000)

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

    _beepton("c3",500)
    _beepton("d3",500)
    _beepton("e3",500)
    _beepton("f3",500)
    _beepton("g3",1000,2)
    _beepton("a3",500,4)
    _beepton("g3",1500)
    _beepton("a3",500,4)
    _beepton("g3",1500)
    _beepton("f3",500,4)
    _beepton("e3",1000,2)
    _beepton("d3",500,4)
    _beepton("c3",2000)

    [/autoit]

    Funktion _beepton(Ton[,Dauer[,Anzahl]])

    Ton - Ton angeben (z.B. "c", "e", "f#", "a#")
    Dauer - Dauer des Tons (Standard = 1000[1s])
    Anzahl - Wie oft dieser Ton abgespielt wird. (Standard = 1)

    _beepton UDF:

    Spoiler anzeigen
    [autoit]

    #include-once
    Func _beepton($v_ton, $i_dauer = 1000, $i_anzahl = 1)
    Local $frequenz = -1, $v_ton2 = $v_ton, $i_oktave = StringRight($v_ton,1)
    Local $aToene[17][2] = [["c", 262],["c#",277],["db",277],["d",294],["d#",311],["eb",311],["e", 330],["f", 349],["f#",370],["gb",370],["g", 392],["g#",415],["ab",415],["a", 440],["a#",466],["b",466],["h", 494]]
    If StringIsInt($i_oktave) Then $v_ton2 = StringTrimRight($v_ton,1)
    If Not StringIsInt($i_oktave) Then $i_oktave = 1
    For $i = 0 To 16
    If $v_ton2 = $aToene[$i][0] Then $frequenz = $aToene[$i][1]
    Next
    If $frequenz = -1 Then
    Return 0
    SetError(1)
    EndIf
    $beepton = ($frequenz*2^$i_oktave)/2
    For $i = 1 To $i_anzahl
    Beep($beepton,$i_dauer)
    Next
    Return 1
    EndFunc

    [/autoit]

    UPDATE: Geht jetzt bis zu drei Tonleitern hoch! Einfach die Zahl der Tonleiter davorsetzen, also z.B. "2c","2f#","3h","3g#"
    UPDATE: Geht jetzt (rein theoretisch) bis zu 7 Tonleitern hoch; Script drastisch gekürzt; Der Anhang "b" wird unterstützt;
    Gibt bei Misserfolg(z.B. durch falsche angaben) 0 zurück und setzt @Error auf 1; Tonleiter wird wie folgt angegeben:

    [autoit]

    _beepton("a") ; normal
    _beepton("a1") ;normal
    _beepton("a3") ;3 Oktaven höher
    _beepton("ab2") ;2 Oktaven höher + einen Halbton tiefer
    _beepton("f#") ;Einen Halbton höher
    _beepton("fb") ;Fehler, da nicht unterstützt

    [/autoit]

  • Suche Mitarbeiter Für autoit-scripts.npage..de

    Spoiler anzeigen

    Beschreibung:
    Version:v1.0
    MyOnlineTelevision ist ein Programm, womit man einzelne online Fernseh Streams angucken kann.Das hat den Vorteil, dass man, wenn man grade am PC sitzt, nicht umbedingt an den Fehrnseher muss.

    Hier der Download:

    DOWNLOAD-LINK

    Überarbeitung

    Spoiler anzeigen

    Beschreibung:Version:v1.0MyOnlineTelevision ist ein Programm, mit dem man am Computer fernsehn kann. Das Programm benutzt dazu online Fernseh Streams. Es hat bis jetzt nur 10 Sender, es werden aber bald noch mehr hinzugefügt.
    Hier Der Download:
    DOWNLOAD-LINK


    Ist jetzt nicht die beste Überarbeitung, ich glaube aber, dass sie das Programm etwas interessanter macht...

  • Listviewitem Hilfe

    [autoit]

    $names = IniReadSectionNames(@scriptdir & "\test.ini")
    For $i = 1 to $names[0]
    $section = IniReadSection(@scriptdir & "\test.ini",[$names[$i]])
    ;...
    next

    [/autoit]

    Ich glaub, den rest bekommst du selber hin

  • vertical_label UDF

    Hmm, ihr habt recht... Ich habe die SUFU nur nach vertikal und Label durchsucht, und nichts gefunden und gedacht, ich mach selber mal eine.
    Und ich hatte mich schon so gefreut, dass keiner vor mir auf die Idee gekommen ist ;( .

  • vertical_label UDF

    Ist ne sehr einfache, kurze UDF zum erstellen von Vertikalen Labels.

    Funktion: _vlabel($s_text[,$i_pos_x = -1[,$i_pos_y = -1[, $i_size_w = -1[, $i_size_h = -1 [, $v_stile = ""[, $v_exstile = ""]]]]]])
    Erstellt ein neues Label mit vertikaler Schrift.

    Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <vlabel.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 192, 124)
    $Label1 = _vlabel("Label15", 216, 160)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

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

    _vertical_label.au3 :

    Spoiler anzeigen
    [autoit]

    #include-once

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

    Local $s_text,$i_pos_x ,$i_pos_y , $i_size_w , $i_size_h , $v_stile , $v_exstile

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

    ; #FUNCTION# ===================================================================
    ; Name ..........: _vlabel
    ; Description ...: Erstellt ein vertikales Label
    ; AutoIt Version : V3.3.4.0
    ; Syntax ........: _vlabel($s_text[,$i_pos_x = -1[,$i_pos_y = -1[, $i_size_w = -1[, $i_size_h = -1 [, $v_stile = ""[, $v_exstile = ""]]]]]])
    ; Parameter(s): .: $s_text - String: Der Beschriftungstext.
    ; $i_pos_y - Optional ; Int: Die linke Seite des Controls. Wird -1 verwendet, dann wird left mit Hilfe von GUICoordMode berechnet.
    ; $i_pos_x - Optional ; Int: Die Oberkante des Controls. Wird -1 verwendet, dann wird top mit Hilfe von GUICoordMode berechnet.
    ; $i_size_w - Optional ; Int: Die Breite des Controls (voreingestellt ist die zuvor verwendete Breite).
    ; $i_size_h - Optional ; Int: Die Höhe des Controls (voreingestellt ist die zuvor verwendete Höhe).
    ; $v_stile - Optional: Legt den Stil des Controls fest.
    ; $v_exstile - Optional: Legt den erweiterten Stil des Controls fest.
    ; Return Value ..: Success - Gibt die Identifikationsnummer (Control-ID) des neuen Controls zurück.
    ; Failure - 0
    ; @ERROR -
    ; Author(s) .....: Cartan12
    ; Date ..........: Freitag, 29. Januar 2010
    ; Link ..........:
    ; Related .......:
    ; Example .......: No
    ; ==============================================================================

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

    Func _vlabel($s_text,$i_pos_x = -1,$i_pos_y = -1, $i_size_w = -1, $i_size_h = -1 , $v_stile = "", $v_exstile = "")
    Local $i, $v_string2, $v_label
    $s_text = StringSplit($s_text,"")
    For $i = 1 To $s_text[0]
    If $i = $s_text[0] Then
    $v_string2 = $v_string2 & $s_text[$i]
    Else
    $v_string2 = $v_string2 & $s_text[$i] & @CRLF
    EndIf
    Next
    $v_label = GUICtrlCreateLabel($v_string2,$i_pos_x,$i_pos_y,$i_size_w,$i_size_h,$v_stile,$v_exstile)
    If $v_label == 0 Then Return 0
    Return $v_label
    EndFunc

    [/autoit]

    (Feedback ist erwünscht ^^)

    edit: Funktion wurde in _vlabel umbenannt.