Dieses Programm ist eigentlich ein Bestandteil meines Programmes "Surprise!". Ich plane, in unregelmäßigen Abständen einzelne Programme von dort seperat vorzustellen, die ich besonders gut finde, um sie mit der Menschheit zu teilen oder Verbesserungsvorschläge zu bekommen.
Ich habe so etwas in der Art schon mal im Internet gesehen, also dachte ich mir, ich baue das mal mit AutoIt nach.
Es ist ein GUI, welches immer die Anzahl von etwas am heutigen Tag anzeigt. Also z.B.die Anzahl der heutigen "Geburten". Wie das aussieht, seht ihr unten auf dem Screenshot.
Die Werte aktuallisieren sich jede Sekunde und ich habe sie anhand von Statistiken ausgerechnet, es sind natürlich nicht immer die Live-Daten ;).
Spoiler anzeigen
#Include <Date.au3>
#include <GUIConstantsEx.au3>
Global $InfoX[10],$15Label[10],$15LabelTitle[10]
Dim $Info[11][2]
; Kategorie | Anz/Sek
$InfoX[0]="Geburten|4.250175"
$InfoX[1]="Tote|1.808620"
$InfoX[2]="Bevölkerungswachstum|2.441554"
$InfoX[3]="Abtreibungen|1.457683"
$InfoX[4]="HIV Infektionen|0.079221"
$InfoX[5]="Krebskranke|0.348576"
$InfoX[6]="Ausgestorbene Arten|0.000855"
$InfoX[7]="Abgeholzter Wald (ha)|0.411953"
$InfoX[8]="Gefördertes Öl (bbl)|960.0112"
$InfoX[9]="Produzierte Autos|1.140795"
For $i=0 To 9
$Temp=StringSplit($InfoX[$i],"|")
$Info[$i][0]=$Temp[1]
$Info[$i][1]=$Temp[2]
Next
$15Form1 = GUICreate("Heute", 250, 250)
$15Label1 = GUICtrlCreateLabel("Heute", 8, 8, 38, 17)
GUICtrlSetFont(-1, 8.5, 800)
$15Label2 = GUICtrlCreateLabel("( Minuten)", 48, 8,150)
For $i=0 To 9
$15LabelTitle[$i] = GUICtrlCreateLabel($Info[$i][0], 0, 40+$i*20, 120,-1, 0x0002)
$15Label[$i] = GUICtrlCreateLabel("-1", 130, 40+$i*20,150)
Next
GUISetState(@SW_SHOW)
$u=18
While 1
Sleep(50)
If $u=18 Then
$SecTod=_DateDiff("s",@YEAR&"/"&@MON&"/"&@MDAY&" 00:00:00",_NowCalc())
GUICtrlSetData($15Label2,"("&Round($SecTod/60,0)&" Minuten)")
For $i=0 To 9
GUICtrlSetData($15Label[$i],Round($Info[$i][1]*$SecTod,0))
Next
$u=0
Else
$u+=1
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Man findet auch relativ einfach selbst Informationen für dieses Programm, wenn man bei den Nachrichten etwas die Ohren offen hält (Bspw. "Fahrraddiebstähle").