Beiträge von Oscar

**Oscar**

Es war noch ein Update nötig. Da haben sich doch ein paar Bugs eingeschlichen, die behoben werden wollten.
Alles weitere: siehe History in Post #1.

Man beachte auch den neuen Screenshot. Mein Rekord bisher.

**Oscar**

Herzlich willkommen!

Ich habe damals auch in Basic und Assembler programmiert (auf dem C64).
AutoIt ist, was die Möglichkeiten angeht, deutlich überlegen und dank viel schnellerer Prozessoren ist diese Basic-ähnliche Sprache auch für die meisten Projekte ausreichend schnell.

**Oscar**

Bildschirm-Tastatur (Eingabe per Maus) oder alternativ: blocken per USB-Stick.

**Oscar**

Hallo Andy!
Eine super Funktion!
Sie funktioniert bei mir auch unter Win7 (64 Bit). Allerdings gibt es einen kleinen Fehler in Zeile 81:

[autoit]

For $i = 0 To UBound($zeilen) - 2

[/autoit]

das muss "UBound($zeilen) - 1" heissen, sonst wird die letzte Skriptzeile gelöscht.

**Oscar**

Stichwort: GUICtrlSetLimit

**Oscar**

Um die führenden Nullen zu erhalten muss man gar nichts hinzufügen, sondern etwas weglöschen.
Ich hatte die Funktion damals so geschrieben, weil ich die führenden Nullen nicht brauchte.
So wäre es gekürzt:

Spoiler anzeigen

[autoit]

For $i = 0 To 2047
ConsoleWrite(_Dec2Bin($i) & @CR)
Next

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

Func _Dec2Bin($dec)
Local $bin
For $i = 10 To 0 Step -1
$bin &= Number(BitAND($dec, 2 ^ $i) = 2 ^ $i)
Next
Return $bin
EndFunc ;==>_Dec2Bin

[/autoit]

**Oscar**

Probier das Skript doch erstmal aus. Diese Zählweise beruht auf dem Binär- oder Dualsystem und die Skripte machen genau das, was Du verlangst.

**Oscar**

Meinst Du so:

Spoiler anzeigen

[autoit]

For $i = 0 To 2047
ConsoleWrite(_Dec2Bin($i) & @CR)
Next

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

Func _Dec2Bin($dec)
If $dec > (2 ^ 31 - 1) Then Return SetError(1, 0, 0)
Local $bin
For $i = 31 To 0 Step -1
$bin &= Number(BitAND($dec, 2 ^ $i) = 2 ^ $i)
Next
Return StringRegExpReplace($bin, '(\A0+)(\d+)', '$2')
EndFunc ;==>_Dec2Bin

[/autoit]

**Oscar**

Für die Variante mit dem DLL-Call hatte ich mir mal ein Beispiel-Skript erstellt:

Spoiler anzeigen

[autoit]

#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

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

Global $hGui = GUICreate('Klassische Progressbar', 420, 280, -1, -1)

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

DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
Global $hProgress1 = GUICtrlCreateProgress(15, 20, 384, 20, $PBS_SMOOTH) ; obere Progressbar erstellen
GUICtrlSetColor(-1, 0x22FF22)
GUICtrlSetBkColor(-1, 0xEEEEEE)
GUICtrlCreateLabel('|', 18, 40, 20, 16) ; Anzeige von 0%
GUICtrlCreateLabel('0%', 11, 56, 25, 16, $SS_CENTER)
GUICtrlCreateLabel('|', 396, 40, 20, 16) ; Anzeige von 100%
GUICtrlCreateLabel('100%', 389, 56, 25, 16, $SS_CENTER)

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

Global $hLabel1 = GUICtrlCreateLabel('0%', 190, 23, 30, 14, $SS_CENTER) ; Prozentanzeige innerhalb der Progressbar
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) ; Transparenter Hintergrund für das Label

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

Global $hProgress2 = GUICtrlCreateProgress(15, 160, 384, 20, $PBS_SMOOTH) ; untere Progressbar erstellen
GUICtrlSetColor(-1, 0xC83131)
GUICtrlSetBkColor(-1, 0xEEEEEE)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle

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

For $i = 0 To 100 Step 10 ; die Anzeige für die Prozentwerte der unteren Progressbar erstellen
GUICtrlCreateLabel('|', 16 + $i * 3.8, 180, 20, 16)
GUICtrlCreateLabel($i & '%', 9 + $i * 3.8, 196, 25, 16, $SS_CENTER)
Next

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

Global $hSlider = GUICtrlCreateSlider(5, 130, 404, 28, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS))
GUICtrlSetData(-1, 33) ; Sliderwert auf 33% setzen (als Beispiel)

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

Global $hClose = GUICtrlCreateButton('Close', 180, 240, 60, 24)
GUISetState(@SW_SHOW)

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

Global $iAddend = 1 ; globale Variable (dient als Summand für _SetProgress)
AdlibRegister('_SetProgress', 50)

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

While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $hClose
AdlibUnRegister()
Exit
EndSwitch
WEnd

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

Func _SetProgress()
Local $iPercent = GUICtrlRead($hProgress1) ; Prozentwert der oberen Progressbar auslesen
If $iPercent = 100 Or $iPercent = 0 Then $iAddend = -$iAddend ; wenn 100 oder Null, dann den Summand negieren
GUICtrlSetData($hProgress1, $iPercent + $iAddend) ; neuen Wert der oberen Progressbar schreiben
GUICtrlSetData($hLabel1, $iPercent + $iAddend & '%') ; neuen Wert für das Label schreiben
GUICtrlSetData($hProgress2, GUICtrlRead($hSlider)) ; und den Wert vom Slider in die untere Progressbar schreiben
EndFunc ;==>_SetProgress

[/autoit]

So hat man eine farbige Progressbar im klassischen Stil und der Rest der GUI-Elemente kann im modernen Look dargestellt werden.

Wenn Du dagegen mit der roten Progressbar auf die Farben (grün, rot, gelb) bei Vista und Windows7 anspielst, dann kannst Du die Funktion von progandy benutzen:

Spoiler anzeigen

[autoit]

#include-once
#include<SendMessage.au3>
#include<ProgressConstants.au3>
Global Const $PBST_NORMAL = 0x0001
Global Const $PBST_ERROR = 0x0002
Global Const $PBST_PAUSED = 0x0003
Global Const $PBM_SETSTATE = 0x0410
Global Const $PBM_GETSTATE = 0x0411

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

; #FUNCTION# ====================================================================================================================
; Name...........: _GUICtrlProgress_SetState
; Description ...: Sets the state of the progressbar
; Syntax.........: _GUICtrlProgress_SetState($iProgress, $iStyle)
; Parameters ....: $iProgress - handle or CtrlID of progressbar
; $iState - new status of progress:
; |$PBM_NORMAL - normal state (green)
; |$PBM_ERROR - error state (red)
; |$PBM_PAUSED - paused style (yellow)
; Return values .: Success -
; Failure - 0
; Author ........: Prog@ndy
; Modified.......:
; Remarks .......: requires WinVista or above
; Related .......:
; Link ..........; @@MsdnLink@@ PBM_SETSTATE
; Example .......;
; ===============================================================================================================================
Func _GUICtrlProgress_SetState($iProgress, $iState)
; Author: Prog@ndy
Switch IsHWnd($iProgress)
Case True
Return _SendMessage($iProgress, $PBM_SETSTATE, $iState, 0)
Case Else
Return GUICtrlSendMsg($iProgress, $PBM_SETSTATE, $iState, 0)
EndSwitch
EndFunc ;==>_GUICtrlProgress_SetState

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

; #FUNCTION# ====================================================================================================================
; Name...........: _GUICtrlProgress_GetState
; Description ...: Gets the state of the progressbar
; Syntax.........: _GUICtrlProgress_GetState($iProgress)
; Parameters ....: $iProgress - handle or CtrlID of progressbar
; Return values .: Success - status of progress:
; |$PBM_NORMAL - normal state (green)
; |$PBM_ERROR - error state (red)
; |$PBM_PAUSED - paused style (yellow)
; Failure - 0
; Author ........: Prog@ndy
; Modified.......:
; Remarks .......: requires WinVista or above
; Related .......:
; Link ..........; @@MsdnLink@@ PBM_GETSTATE
; Example .......;
; ===============================================================================================================================
Func _GUICtrlProgress_GetState($iProgress)
; Author: Prog@ndy
Switch IsHWnd($iProgress)
Case True
Return _SendMessage($iProgress, $PBM_GETSTATE, 0, 0)
Case Else
Return GUICtrlSendMsg($iProgress, $PBM_GETSTATE, 0, 0)
EndSwitch
EndFunc ;==>_GUICtrlProgress_GetState

[/autoit]

**Oscar**

Weil Du die neue Spielregel (1 oder 2 Bomben = Runde verloren) noch nicht gelesen hast?

**Oscar**

@jackunder: Meinst Du so:

Spoiler anzeigen

[autoit]

Dim $aKaiserslauter[28][3]
$aKaiserslauter[0][0] = "Knaller"
$aKaiserslauter[1][0] = "Sippel"
$aKaiserslauter[2][0] = "Trapp"
$aKaiserslauter[3][0] = "Abel"
$aKaiserslauter[4][0] = "Amedick"
$aKaiserslauter[5][0] = "Bugera"
$aKaiserslauter[6][0] = "Correia"
$aKaiserslauter[7][0] = "Dick"
$aKaiserslauter[8][0] = "Jessen"
$aKaiserslauter[9][0] = "Petsos"
$aKaiserslauter[10][0] = "Rodnei"
$aKaiserslauter[11][0] = "Simunek"
$aKaiserslauter[12][0] = "B. Schulz"
$aKaiserslauter[13][0] = "Bilek"
$aKaiserslauter[14][0] = "D. Fuchs"
$aKaiserslauter[15][0] = "de Wit"
$aKaiserslauter[16][0] = "Ilicevic"
$aKaiserslauter[17][0] = "Kirch"
$aKaiserslauter[18][0] = "Moravek"
$aKaiserslauter[19][0] = "Rivic"
$aKaiserslauter[20][0] = "Stulin"
$aKaiserslauter[21][0] = "Tiffert"
$aKaiserslauter[22][0] = "Walch"
$aKaiserslauter[23][0] = "Amri"
$aKaiserslauter[24][0] = "Hoffer"
$aKaiserslauter[25][0] = "Lakic"
$aKaiserslauter[26][0] = "Micanski"
$aKaiserslauter[27][0] = "Nemec"
Dim $aItems[28]

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

Dim $aKaiserslauterpos[28][3]
$aKaiserslauterpos[0][1] = "Tor"
$aKaiserslauterpos[1][1] = "Tor"
$aKaiserslauterpos[2][1] = "Tor"
$aKaiserslauterpos[3][1] = "Abwehr"
$aKaiserslauterpos[4][1] = "Abwehr"
$aKaiserslauterpos[5][1] = "Abwehr"
$aKaiserslauterpos[6][1] = "Abwehr"
$aKaiserslauterpos[7][1] = "Abwehr"
$aKaiserslauterpos[8][1] = "Abwehr"
$aKaiserslauterpos[9][1] = "Abwehr"
$aKaiserslauterpos[10][1] = "Abwehr"
$aKaiserslauterpos[11][1] = "Abwehr"
$aKaiserslauterpos[12][1] = "Mittelfeld"
$aKaiserslauterpos[13][1] = "Mittelfeld"
$aKaiserslauterpos[14][1] = "Mittelfeld"
$aKaiserslauterpos[15][1] = "Mittelfeld"
$aKaiserslauterpos[16][1] = "Mittelfeld"
$aKaiserslauterpos[17][1] = "Mittelfeld"
$aKaiserslauterpos[18][1] = "Mittelfeld"
$aKaiserslauterpos[19][1] = "Mittelfeld"
$aKaiserslauterpos[20][1] = "Mittelfeld"
$aKaiserslauterpos[21][1] = "Mittelfeld"
$aKaiserslauterpos[22][1] = "Mittelfeld"
$aKaiserslauterpos[23][1] = "Sturm"
$aKaiserslauterpos[24][1] = "Sturm"
$aKaiserslauterpos[25][1] = "Sturm"
$aKaiserslauterpos[26][1] = "Sturm"
$aKaiserslauterpos[27][1] = "Sturm"
Dim $aItems[28]

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

Dim $aKaiserslauterbs[28][3]
$aKaiserslauterbs[0][2] = "Computer"
$aKaiserslauterbs[1][2] = "Computer"
$aKaiserslauterbs[2][2] = "Computer"
$aKaiserslauterbs[3][2] = "Computer"
$aKaiserslauterbs[4][2] = "Computer"
$aKaiserslauterbs[5][2] = "Computer"
$aKaiserslauterbs[6][2] = "Computer"
$aKaiserslauterbs[7][2] = "Computer"
$aKaiserslauterbs[8][2] = "Computer"
$aKaiserslauterbs[9][2] = "Computer"
$aKaiserslauterbs[10][2] = "Computer"
$aKaiserslauterbs[11][2] = "Computer"
$aKaiserslauterbs[12][2] = "Computer"
$aKaiserslauterbs[13][2] = "Computer"
$aKaiserslauterbs[14][2] = "Computer"
$aKaiserslauterbs[15][2] = "Computer"
$aKaiserslauterbs[16][2] = "Computer"
$aKaiserslauterbs[17][2] = "Computer"
$aKaiserslauterbs[18][2] = "Computer"
$aKaiserslauterbs[19][2] = "Computer"
$aKaiserslauterbs[20][2] = "Computer"
$aKaiserslauterbs[21][2] = "Computer"
$aKaiserslauterbs[22][2] = "Computer"
$aKaiserslauterbs[23][2] = "Computer"
$aKaiserslauterbs[24][2] = "Computer"
$aKaiserslauterbs[25][2] = "Computer"
$aKaiserslauterbs[26][2] = "Computer"
$aKaiserslauterbs[27][2] = "Computer"
Dim $aItems[28]

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

Dim $aKaiserslauterp[28][4]
$aKaiserslauterp[0][3] = "0"
$aKaiserslauterp[1][3] = "6"
$aKaiserslauterp[2][3] = "0"
$aKaiserslauterp[3][3] = "0"
$aKaiserslauterp[4][3] = "2"
$aKaiserslauterp[5][3] = "0"
$aKaiserslauterp[6][3] = "0"
$aKaiserslauterp[7][3] = "8"
$aKaiserslauterp[8][3] = "-2"
$aKaiserslauterp[9][3] = "0"
$aKaiserslauterp[10][3] = "18"
$aKaiserslauterp[11][3] = "0"
$aKaiserslauterp[12][3] = "0"
$aKaiserslauterp[13][3] = "8"
$aKaiserslauterp[14][3] = "0"
$aKaiserslauterp[15][3] = "0"
$aKaiserslauterp[16][3] = "23"
$aKaiserslauterp[17][3] = "-8"
$aKaiserslauterp[18][3] = "4"
$aKaiserslauterp[19][3] = "-2"
$aKaiserslauterp[20][3] = "0"
$aKaiserslauterp[21][3] = "16"
$aKaiserslauterp[22][3] = "0"
$aKaiserslauterp[23][3] = "-2"
$aKaiserslauterp[24][3] = "16"
$aKaiserslauterp[25][3] = "36"
$aKaiserslauterp[26][3] = "-2"
$aKaiserslauterp[27][3] = "0"
Dim $aItems[28]

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <Array.au3>

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

Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Comunio Plus (BETA) " & IniRead(@ScriptDir & '\version.ini', 'Allgemein', 'Version', ''), 809, 530, -1, -1)
GUISetFont(8, 400, 0, "Verdana")
GUISetBkColor(0x013300)
$Button1 = GUICtrlCreateButton("1. FC Kaiserslauter", 4, 4, 131, 29, 0)
$Button2 = GUICtrlCreateButton("1. FC Nürnberg", 4, 32, 131, 29, 0)
$Button3 = GUICtrlCreateButton("1. FC Köln", 4, 60, 131, 29, 0)
$Button4 = GUICtrlCreateButton("1. FSV Mainz 05", 4, 88, 131, 29, 0)
$Button5 = GUICtrlCreateButton("Bayer 04 Leverkusen", 4, 116, 131, 29, 0)
$Button6 = GUICtrlCreateButton("1899 Hoffenheim", 4, 144, 131, 29, 0)
$Button7 = GUICtrlCreateButton("Eintracht Frankfurt", 4, 172, 131, 29, 0)
$Button8 = GUICtrlCreateButton("Borussia M'gladbach", 4, 200, 131, 29, 0)
$Button9 = GUICtrlCreateButton("Borussia Dortmund", 4, 228, 131, 29, 0)
$Button10 = GUICtrlCreateButton("FC Bayern München", 4, 256, 131, 29, 0)
$Button11 = GUICtrlCreateButton("FC St. Pauli", 4, 284, 131, 29, 0)
$Button12 = GUICtrlCreateButton("FC Schalke 04", 4, 312, 131, 29, 0)
$Button13 = GUICtrlCreateButton("Hamburger SV", 4, 340, 131, 29, 0)
$Button14 = GUICtrlCreateButton("SC Freiburg", 4, 368, 131, 29, 0)
$Button15 = GUICtrlCreateButton("Hannover 96", 4, 396, 131, 29, 0)
$Button16 = GUICtrlCreateButton("SV Werder Bremen", 4, 424, 131, 29, 0)
$Button17 = GUICtrlCreateButton("VfL Wolfsburg", 4, 452, 131, 29, 0)
$Button18 = GUICtrlCreateButton("VfB Stuttgart", 4, 480, 131, 29, 0)
$ListView1 = GUICtrlCreateListView("", 136, 4, 321, 505)
_GUICtrlListView_InsertColumn($ListView1, 0, "Name", 100)
_GUICtrlListView_InsertColumn($ListView1, 1, "Position", 100)
_GUICtrlListView_InsertColumn($ListView1, 2, "Besitzer", 100)
_GUICtrlListView_InsertColumn($ListView1, 3, "Punkte", 100)
_GUICtrlListView_SetColumnWidth($ListView1, 0, 90)
_GUICtrlListView_SetColumnWidth($ListView1, 1, 75)
_GUICtrlListView_SetColumnWidth($ListView1, 2, 80)
_GUICtrlListView_SetColumnWidth($ListView1, 3, 53)
$Edit1 = GUICtrlCreateEdit("", 460, 52, 341, 421)
GUICtrlSetData(-1, "Edit1")
$Button19 = GUICtrlCreateButton("Ausgabe Löschen", 460, 476, 109, 33, 0)
$Button20 = GUICtrlCreateButton("Meine Team", 568, 476, 109, 33, 0)
$Button21 = GUICtrlCreateButton("Speichern", 676, 476, 103, 33, 0)
$Menudatei = GUICtrlCreateMenu("Datei")
$Menubeenden = GUICtrlCreateMenuItem("Beenden", $Menudatei)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ; Exit
$close = MsgBox(36, "Schließen", "Wollen Sie das Pogramm wirklich beenden?")
If $close = 6 Then Exit
Case $GUI_EVENT_PRIMARYUP
$aInfo = GUIGetCursorInfo($Form1)
If $aInfo[4] = $ListView1 Then
$iItem = GUICtrlRead($ListView1)-$aItems[0]
$sItemText = _GUICtrlListView_GetItemTextString($ListView1, $iItem) ; als Beispiel
GUICtrlSetData($Edit1, $sItemText) ; als Beispiel
EndIf

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

Case $Button1 ; 1. FC Kaiserslauter
For $i = 0 To 27
$aItems[$i] = GUICtrlCreateListViewItem($aKaiserslauter[$i][0] & "|" & $aKaiserslauterpos[$i][1] & "|" & $aKaiserslauterbs[$i][2] & "|" & $aKaiserslauterp[$i][3], $ListView1)
Next

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

Case $Button2

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

Case $Button3

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

Case $Button4

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

Case $Button5

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

Case $Button6

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

Case $Button7

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

Case $Button8

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

Case $Button9

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

Case $Button10

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

Case $Button11

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

Case $Button12

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

Case $Button13

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

Case $Button14

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

Case $Button15

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

Case $Button16

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

Case $Button17

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

Case $Button18

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

Case $Button19 ; Ausgabe Löschen
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
Case $Button20

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

Case $Button21

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

EndSwitch
WEnd

[/autoit]

BTW: Die Daten der Mannschaften/Spieler solltest Du vielleicht in eine externe Datei auslagern und dann einlesen. Alles ins Skript zu schreiben ist doch viel aufwendiger und macht das Skript unübersichtlich.

**Oscar**

Mein Bestes bisher: 427048
Du musst auf jeden Fall versuchen zusätzlich ein Roulette-Symbol zu bekommen, um auf der Risikoleiter den Gewinn vervielfachen zu können.
So ein Gewinn mal hundert macht sich da schon ganz gut auf dem Konto.
Aber man kann die 400k auch wieder verspielen...
Ich denke, dass das Spiel jetzt doch ausgewogener ist.

**Oscar**

So, die Version 1.0 ist jetzt fertig!

Es sollte nun auch etwas schwerer geworden sein, weil bereits eine oder zwei Bomben zum Verlust des Einsatzes führen (kein Gewinn in der Runde).
Mal sehen, ob es jemand auf die "schwarze Liste" schafft...

**Oscar**

So:

[autoit]

ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") ; Arbeitsplatz
ShellExecute(@UserProfileDir) ; eigene Dateien
ShellExecute("::{21EC2020-3AEA-1069-A2DD-08002b30309d}") ; Systemsteuerung
ShellExecute("::{208D2C60-3AEA-1069-A2D7-08002B30309D}") ; Netzwerkumgebung

[/autoit]

**Oscar**

Habe schnell mal eine Funktion geschrieben:

Spoiler anzeigen

[autoit]

$sWeekday = _WeekdaySelectBox()
ConsoleWrite($sWeekday & @CR)

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

Func _WeekdaySelectBox($iLeft = -1, $iTop = -1, $hParent = 0)
Local $sWeekdays = 'Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag'
Local $hGui, $hCombo, $hOk, $iOpt, $msg, $sRet
$iOpt = Opt('GUIOnEventMode', 0)
$hGui = GUICreate('WeekdaySelectBox', 160, 90, $iLeft, $iTop, BitOR(0x00800000, 0x80000000), Default, $hParent)
GUISetBkColor(0xBBBBBB, $hGui)
GUICtrlCreateLabel('Wochentag auswählen:', 10, 10, 140, 20)
$hCombo = GUICtrlCreateCombo('', 10, 30, 140, 25, 0x0003)
GUICtrlSetData(-1, $sWeekdays, StringLeft($sWeekdays, 6))
$hOk = GUICtrlCreateButton('Ok', 100, 60, 50, 25)
GUISetState()
Do
$msg = GUIGetMsg()
Until $msg = $hOk Or $msg = $hCombo
$sRet = GUICtrlRead($hCombo)
GUIDelete($hGui)
Opt('GUIOnEventMode', $iOpt)
Return $sRet
EndFunc

[/autoit]

**Oscar**

Zitat von [CF[*Gaming*]

Passt jede Grafikkarte in jeden PC? Das man platzt für die Grafikarte braucht is mir klar..Ich meine von der Elektronik her

Entscheidend ist auch, ob das Netzteil einen zusätzlichen 6poligen Stromstecker für die Grafikkarte bietet.
Bei manchen HiEnd-Karten werden auch derer zwei oder zusätzlich noch ein 8poliger Stecker benötigt. Und außerdem muss das Netzteil die zusätzliche Leistung verkraften.

Daher kann man diesen Satz:

Zitat

Passt jede Grafikkarte in jeden PC?

eigentlich nur mit "Nein" beantworten. Es kommt halt darauf an, ob einige Bedingungen erfüllt sind.

**Oscar**

Cool! Vielen Dank!
Man lernt doch immer wieder noch was dazu.

**Oscar**

So, die Sounds sind fertig. Neue Version in Post#1.

**Oscar**

@progandy: leider gibt es zu den beiden Befehlen keine Beispielskripte in der Hilfe, deswegen weiss ich nicht so recht, wie das zu realisieren wäre.
Hättest Du ein Beispiel zur Hand?

**Oscar**

Zu 2.)

[autoit]

#include <WinAPI.au3>
$sExecutable = _WinAPI_FindExecutable(@ScriptDir & "\meine.pps")
MsgBox(4096, "Find Executable", $sExecutable)

[/autoit]

Beiträge von Oscar

Crown-Master

moin moin

Eingabe bis zur Eingabe von Passwort blocken?

AlignComment richtet Kommentare aus Update 13.08.2016

ListviewIntem Checkboxes auslesen

Gleichung gesucht.

Gleichung gesucht.

Gleichung gesucht.

Progresscolor ändern NICHT möglich unter Windows 7 x32...???

Crown-Master

Mehrere Ordner auslesen und bearbeiten

Crown-Master

Crown-Master

Umsetztungshilfe

Absoluter neuling benötigt Hilfe

Neue Grafikkarte!

GDI+ unterschiedliche Icon-Transparenz

Crown-Master

GDI+ unterschiedliche Icon-Transparenz

Programmkontrolle nach Start über SellExecute und .ppt