Liniendiagramm


  • P.S.: Darf man die DLL ("rmchart.dll") hier posten? Ansonsten müssen sich Interessierte halt noch das Setup downloaden und installieren.

    mmmm keine ahnung... in meiner Smart Version braucht man die dll nicht mer laden... sie ist mit im Script....
    Bin gerade an einer erweiterten Version am arbeiten Prog@ndy hat mir ja jetzt massig Futter gegeben ^^

    MFG chris :D

  • So...

    Habe die Wichtigsten Funktionen jetzt mal in die RMC_Smart UDF gefüllt....

    damit sind solche sachen möglich....
    [Blockierte Grafik: http://img132.imageshack.us/img132/8/aufzeichnen2.png
    oder diese...

    Spoiler anzeigen


    Ich habe nochmal alle Dateien angehanden...
    Leider ist noch keine Doku fertig ... da werde ich mich dann noch drangeben ^^

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Authors: chrisatack ( Basics by Prog@ndy )

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

    Script Function:
    Beispiel für rmchart_smart

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include 'rmchart_smart.au3'

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

    $hGUI = GUICreate("Chart Test", 700,550)
    $button = GUICtrlCreateButton ( "Nächster Zufall", 5 , 490, 100, 21 )

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

    _RMC_Smart_StartUp() ;Startup...
    $hChart = _RMC_Smart_ChartCreate($hGUI,"Ein Test Diagramm",10,10,600,450 , 0x9c9c9c ) ; GuiHandle , Überschrift , links , oben , breite , höhe , [Hintergrundfarbe]

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

    Dim $data[10][2]
    $data[0][0] = "Menschen"
    $data[0][1] = Random ( 1,100 )
    $data[1][0] = "Tiere"
    $data[1][1] = Random ( 1,100 )
    $data[2][0] = "Elefanten"
    $data[2][1] = Random ( 1,100 )
    $data[3][0] = "Mücken"
    $data[3][1] = Random ( 1,100 )
    $data[4][0] = "Affen"
    $data[4][1] = Random ( 1,100 )
    $data[5][0] = "Affen"
    $data[5][1] = Random ( 1,100 )
    $data[6][0] = "Libellen"
    $data[6][1] = Random ( 1,100 )
    $data[7][0] = "Mäuse"
    $data[7][1] = Random ( 1,100 )
    $data[8][0] = "Spinnen"
    $data[8][1] = Random ( 1,100 )
    $data[9][0] = "Hunde"
    $data[9][1] = Random ( 1,100 )

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

    ; ChartHandle , 2dDataArray , [Axisstyle ( 0,1,2,3,4,5 ), [Barstyle ( 1-10), [AxisColor (0x000000), [BarColor (0x000000), [ Labelcolor (0x000000) ,[ Labelausrichtung (0-4 )]]]]]
    _RMC_Smart_ChartAdd2DArray($hChart,$data,1,7,0x0000ff,0x00ff00, 0xff0000, 4 )

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

    ; Malt den Chart...
    _RMC_Smart_ChartDraw($hChart)

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

    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case -3

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

    Exit
    Case $button

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

    _RMC_Smart_ChartDelete($hChart) ; Löscht den Chart
    $hChart = _RMC_Smart_ChartCreate($hGUI,"Ein Test Diagramm",10,10,600,450 , Random(0x555555,0xCCCCCC,1))

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

    Dim $data[10][2]
    $data[0][0] = "Menschen"
    $data[0][1] = Random ( 1,100 )
    $data[1][0] = "Tiere"
    $data[1][1] = Random ( 1,100 )
    $data[2][0] = "Elefanten"
    $data[2][1] = Random ( 1,100 )
    $data[3][0] = "Mücken"
    $data[3][1] = Random ( 1,100 )
    $data[4][0] = "Affen"
    $data[4][1] = Random ( 1,100 )
    $data[5][0] = "Affen"
    $data[5][1] = Random ( 1,100 )
    $data[6][0] = "Libellen"
    $data[6][1] = Random ( 1,100 )
    $data[7][0] = "Mäuse"
    $data[7][1] = Random ( 1,100 )
    $data[8][0] = "Spinnen"
    $data[8][1] = Random ( 1,100 )
    $data[9][0] = "Hunde"
    $data[9][1] = Random ( 1,100 )

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

    _RMC_Smart_ChartAdd2DArray($hChart,$data,Random(0,5),Random(1,9),Random(0x555555,0xCCCCCC,1),Random(0x555555,0xCCCCCC,1),Random(0x555555,0xCCCCCC,1),Random(0,4))
    _RMC_Smart_ChartDraw($hChart)

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

    EndSwitch
    WEnd

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

    Fertige Version der SMART RMC ist in neuem Post ... [ gelöst ] RMC_Smart UDF ( Säulendiagramme )

    MFG chris :D