Beiträge von RR04

RR04

Hallo Magnus,

Danke für den Hinweis, ich habe es gleich nachgeholt (siehe TimeStamp).

RR04

Hi, hier mal ein Beispiel:

[autoit]

#Region - TimeStamp
; 2011-05-03 20:24:08
#EndRegion

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

;$WS_GROUP —> WindowsConstants.au3
;$GUI_CHECKED —> GUIConstantsEx.au3
;$GUI_EVENT_CLOSE —> GUIConstantsEx.au3

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $radio1, $radio2, $radio3, $radio4, $msg
GUICreate("Meine GUI mit Radiobuttons") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

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

$radio1 = GUICtrlCreateRadio("Radiobutton 1", 10, 10, 120, 20, $WS_GROUP) ; alle folgenden gehören zu einer Gruppe
$radio2 = GUICtrlCreateRadio("Radiobutton 2", 10, 40, 120, 20)

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

$radio3 = GUICtrlCreateRadio("Radiobutton 3", 10, 70, 120, 20, $WS_GROUP) ; bis ein neues "$WS_GROUP" erscheint
$radio4 = GUICtrlCreateRadio("Radiobutton 4", 10, 100, 120, 20)
GUICtrlSetState($radio2, $GUI_CHECKED)

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

GUISetState() ; Zeigt das GUI-Fenster mit 2 Radiobuttons

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64, 'Info:', 'Es wurde Radiobutton 1 angeklickt und ausgewählt')
Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64, 'Info:', 'Es wurde Radiobutton 2 angeklickt und ausgewählt')
Case $msg = $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64, 'Info:', 'Es wurde Radiobutton 3 angeklickt und ausgewählt')
Case $msg = $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64, 'Info:', 'Es wurde Radiobutton 4 angeklickt und ausgewählt')
EndSelect
WEnd
EndFunc ;==>Example

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

; Ende

[/autoit]

RR04

_ListView_HTMLprint dient zur Darstellung von Tabellen und Generierung einer Druckvorschau die optimal auf die Seitenbreite formatiert ist und im Hoch- oder Querformat ausgegeben werden kann. Auch das Einrichten der Kompletten Seite vor dem Ausdruck ist möglich.

_ListView_HTMLprint

[autoit]

#region - TimeStamp
; 2011-05-06 11:08:15
#endregion - TimeStamp
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

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

#include <GUIListView.au3>
Global $titel = "_ListView_HTMLprint"
_Example()

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

Func _Example()
Local $GUI, $ListView, $Columns = 12
$GUI = GUICreate($titel, 400, 300)
$ListView = _GUICtrlListView_Create($GUI, "", 2, 2, 394, 268)
GUISetState(@SW_SHOW)

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

For $A = 0 To $Columns - 1
_GUICtrlListView_InsertColumn($ListView, $A, "Überschrift " & $A + 1, 50)
Next
For $A = 0 To 99
_GUICtrlListView_AddItem($ListView, Chr(Random(65, 90)) & " - Zeile " & $A + 1 & ": Spalte 1", $A)
For $B = 1 To $Columns
_GUICtrlListView_AddSubItem($ListView, $A, "Zeile " & $A + 1 & ": Spalte " & $B + 1, $B)
Next
Next
MsgBox(262144 + 64, "Information", "Hoch- oder Querformat in der Druckvorschau wählen !" _
& @TAB & @CRLF & "(Browser-Menü => Datei => Druckvorschau ... )" & @CRLF & @CRLF & _
'Die Komplette Seite einrichten in "Seite einrichten" !' & @CRLF & "(Browser-Menü => Datei => Seite einrichten ... )")
Local $PrintOut = _ListView_HTMLprint($ListView, @ScriptDir & "\ListView_HTMLprint.html")
ShellExecuteWait($PrintOut)
FileDelete($PrintOut)
EndFunc ;==>_Example

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

; #_ListView_HTMLprint# =========================================================================================================
; Hinweis........: Die Funktion "_GUICtrlListView_PrintOut", im englischen Forum kann nicht mit dt. Umlauten umgehen und
; reagiert auch nicht auf das Hoch- oder Querformat. Die Funktion "_GUICtrlListView_PrintOut" wurde von mir angepasst!

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

; Title .........: _ListView_HTMLprint
; AutoIt Version : v3.2.12.1 oder höher
; Language ......: Deutsch
; Description ...: ListView-Inhalte als HTML-Datei speichern und ausdrucken.
; Note ..........: Ein Ausdruck in Hoch- oder Querformat und das Einrichten der Kompletten Seite ist möglich
; Author(s) .....: Ritzelrocker04
; Remarks .......:
; ===============================================================================================================================
Func _ListView_HTMLprint($hListView, $hFileName)
Local $HTMLBody, $HTMLBody_End, $Index, $HTMLColumns, $aColumn
Local $iItemCount = _GUICtrlListView_GetItemCount($hListView)
Local $iColumnCount = _GUICtrlListView_GetColumnCount($hListView)

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

$HTMLColumns = '<table border="1" width="100%">' & @CRLF & _ ; ListView Columns
'<colgroup span="' & $iColumnCount & '"></colgroup>' & @CRLF & '<tr>' & @CRLF
For $A = 0 To $iColumnCount - 1
$aColumn = _GUICtrlListView_GetColumn($hListView, $A)
$HTMLColumns &= @TAB & '<th>' & $aColumn[5] & '</th>' & @CRLF
Next
$HTMLColumns &= '</tr>' & @CRLF

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

For $A = 0 To $iItemCount - 1 ; ListView Items.
$Index = _GUICtrlListView_GetItemText($hListView, $A)
If $iColumnCount > 0 Then
For $B = 1 To $iColumnCount - 1
$HTMLBody_End &= @TAB & '<td>' & _GUICtrlListView_GetItemText($hListView, $A, $B) & '</td>' & @CRLF
Next
Else
$HTMLBody_End = @CRLF & '</tr>' & @CRLF
EndIf
$HTMLBody &= '<tr>' & @CRLF & _
@TAB & '<td>' & $Index & '</td>' & @CRLF & _
$HTMLBody_End & @CRLF & _
'</tr>' & @CRLF
$HTMLBody_End = ""
Next

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

Local $HTMLHeader = '<html>' & @CRLF & '<head>' & @CRLF & _
'<title>' & $titel & ' - Druckansicht' & '</title>' & @CRLF & _
'</head>' & @CRLF & @CRLF & '<body>' & @CRLF & _
'<h3>' & $titel & '</h3>' & @CRLF

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

Local $HTMLFooter = '</table>' & @CRLF & '</body>' & @CRLF & '</html>'

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

Local $hFileOpen = FileOpen($hFileName, 2)
FileWrite($hFileOpen, $HTMLHeader & $HTMLColumns & $HTMLBody & $HTMLFooter)
FileClose($hFileOpen)
If Not @error Then Return $hFileName
Return SetError(1, 1, $hFileName)
EndFunc ;==>_ListView_HTMLprint
; Ende

[/autoit]

Danke für die bisherigen 57 downloads.
Viel Spaß wünscht Ritzelrocker04!

RR04

Raupi , Du solltest auch lieber "iniwrite" verwenden !

So jetzt zu Dir SlinJD:

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

Global $ini = @ScriptDir & "\Programm.ini"

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

$Form1_1 = GUICreate("Form1", 337, 143, 192, 124)
$Input2 = GUICtrlCreateInput("max", 24, 56, 137, 21)
$Input3 = GUICtrlCreateInput("peter", 24, 80, 137, 21)
$Input4 = GUICtrlCreateInput("lutz", 24, 104, 137, 21)
$Button1 = GUICtrlCreateButton("Speichern", 167, 104, 75, 22)
$Label1 = GUICtrlCreateLabel("Setze dein Skype Status!", 8, 8, 268, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
GUISetState(@SW_SHOW)

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

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $Button1
_iniWrite()
Exit
EndSwitch
WEnd

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

Func _iniWrite()
IniWrite($ini, "Status", "Status1", GUICtrlRead($Input2))
IniWrite($ini, "Status", "Status2", GUICtrlRead($Input3))
IniWrite($ini, "Status", "Status3", GUICtrlRead($Input4))
EndFunc ;==>_iniWrite
; Ende

[/autoit]

RR04

Hi DJJonny,

ich war gerade unterwegs als ich das gesehen habe und könnte mir vorstellen, dass Du vielleicht so etwas meinst?

Spoiler anzeigen

[autoit]

; Kein #include <GUIConstantsEx.au3> nötig!
; $GUI_EVENT_CLOSE —> GUIConstantsEx.au3

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

GUICreate("Anderes Beispiel", 300, 100)
$bnGo = GUICtrlCreateButton("Start", 10, 24, 75, 22)
$bnClose = GUICtrlCreateButton("Beenden", 100, 24, 75, 22)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;schließen über X bzw. F4 oder ESC
Exit
Case $bnGo
For $i = 10 To 0 Step -1
GUICtrlSetData($bnClose, "Beenden (" & $i & ")")
Sleep(1000)
Next
Exit
Case $bnClose
Exit
EndSwitch
WEnd

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

; Ende

[/autoit]

Viel Spaß hier im Forum!

RR04

Hallo AspirinJunkie,

großen Dank für die ausführliche Erklärung zu meinem ersten DLL-Versuch.
Da hab ich doch wieder dazu gelernt.

RR04

BugFix ,
das hast Du richtig erkannt und Danke für den Hinweis.
@Spenger120,
veilleicht ist mein Beispiel etwas unglücklich gewählt?
Die Höhere Geschwindikeit kommt bei größeren Suchaufträgen und Kopierarbeiten besser zum Ausdruck.
Da Du das schon kennst, hast Du noch weitere Hinweise/Ratschläge?

RR04

ScreenShot eingefügt.

Schönes WE!

RR04

IdealGewichtsRechner - IGR

Der IGR errechnet Ihr Idealgewicht und den BMI. Für ausreichend Humor sorgen die eingebauten Smileys.
Bitte beachten Sie auch den Hinweis zu BMI.
Dynamic Link Library einer autoitfremden Sprache zur Weiterverwendung in AutoIt
kann manchmal vorteilhaft sein. Dafür spricht zum Beispiel die höhere Verarbeitungsgeschwindigkeit der autoitfremden Sprache oder das Mitführen, bündeln und bereitstellen von Ressourcen.
Diese kleine Präsentation soll erste Anhaltspunkte liefern.

Sprache: Deutsch
Betriebssysteme: Windows XP, 2003, Vista, Seven
Version: IGRv8300
Dateigröße: 323 K

IGR.au3

[autoit]

#region - TimeStamp
; 2011-05-16 14:31:14
#endregion - TimeStamp

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

#include <AVIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

Global $title = "IGR & BMI v8.3"
Global $dll = @ScriptDir & "\igr.dll"
Global $dllo = DllOpen($dll) ; Open the DLL (faster with DLL-handle)
Global $ini = @ScriptDir & "\igr.ini"
Global $var = IniRead($ini, "Settings", "maennlich", "0")

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

If Not FileExists($dll) Then Exit _
MsgBox(262144 + 16, 'Error ' & $title, $dll & @CRLF & @CRLF & "File Not Found ! ")

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

Global $GUI = GUICreate($title, 258, 322)
GUISetOnEvent(-3, '_quit')
GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
Global $tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, 8192)
GUICtrlSetState(-1, 256)
Global $tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, 8192)
Global $rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
Global $rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ico_Icon = GUICtrlCreateIcon($dll, 2, 200, 160, 32, 32)
Global $lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 180, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
Global $lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
Global $lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
Global $bn_About = GUICtrlCreateButton("&About", 15, 256, 55, 22, 0)
GUICtrlSetOnEvent(-1, '_about')
Global $bn_Hinweis = GUICtrlCreateButton("&Info", 75, 256, 55, 22, 0)
GUICtrlSetOnEvent(-1, '_Info')
Global $bn_Del = GUICtrlCreateButton("&Del", 135, 256, 50, 22, 0)
GUICtrlSetOnEvent(-1, '_Del')
Global $bn_Update = GUICtrlCreateButton("&Update", 190, 256, 55, 22, 0)
GUICtrlSetOnEvent(-1, '_UpdateCheck')
Global $bn_Rechnen = GUICtrlCreateButton("&Rechnen", 15, 290, 170, 22, 0)
GUICtrlSetOnEvent(-1, '_start')
GUICtrlSetState(-1, 512)
Global $bn_Close = GUICtrlCreateButton("&Beenden", 190, 290, 55, 22, 0)
GUICtrlSetOnEvent(-1, '_quit')

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

Switch $var
Case 1
GUICtrlSetState($rb_Maennlich, 1)
Case 0
GUICtrlSetState($rb_Weiblich, 1)
EndSwitch

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

GUISetState(@SW_SHOW, $GUI)

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

Global $AboutGUI = GUICreate("About", 324, 260, -1, -1, 0x00080000, -1, $GUI)
GUICtrlCreateGroup("", 8, 8, 300, 185)
GUICtrlCreateLabel("Produkt-Name :", 88, 24, 78, 17)
GUICtrlCreateLabel("IdealGewicht und BMI Rechner", 88, 48, 155, 17)
GUICtrlCreateAvi($dll, 150, 24, 48, 40, 44, 4)
GUICtrlCreateLabel("Version :", 88, 72, 45, 17)
GUICtrlCreateLabel("8.3.03 Build 2011-05-16", 88, 96, 117, 17)
GUICtrlCreateLabel('© ' & @YEAR & ' by Ritzelrocker04', 88, 120, 133, 17)
GUICtrlCreateIcon($dll, 1, 24, 128, 32, 32)
GUICtrlCreateLabel("Erstellt mit AutoIt", 88, 144, 86, 17)
GUICtrlCreateLabel("Dank an das http://www.AutoIt.de - Team", 88, 168, 213, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $bn_Ok = GUICtrlCreateButton("&OK", 120, 200, 75, 22)
GUICtrlSetOnEvent(-1, '_aboutClose')

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

While Sleep(1000)
WEnd

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

Func _start()
Switch GUICtrlRead($rb_Maennlich)
Case 1
IniWrite($ini, "Settings", "maennlich", "1")
Case 4
IniWrite($ini, "Settings", "maennlich", "0")
EndSwitch
If GUICtrlRead($tb_Groesse) >= 100 And GUICtrlRead($tb_Groesse) <= 230 Then
;### DLL BMI berechnen ###
Global $bmi = DllCall($dllo, "double:cdecl", "_bmi", "double", GUICtrlRead($tb_Gewicht), "double", GUICtrlRead($tb_Groesse))
;Global $_Ergebnis_BMI = Round($bmi[0], 2)
Global $_Ergebnis_BMI = Round($bmi[0], 2)
If BitAND(GUICtrlRead($rb_Maennlich), 1) = 1 Then
;### IdealGewicht eines Mannes berechnen ###
Global $_Ergebnis_IGR = _IdealGewicht()

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

Switch $_Ergebnis_BMI
Case 0 To 20
Global $_Ergebnis_Klasse = "Sie haben Untergewicht ,"
Global $_Smileys = "5"
Case 20 To 25
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = "2"
Case 25 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = "4"
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = "3"
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_IGR = "?"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = "8"
EndSwitch
Else
;### IdealGewicht einer Frau berechnen ###
$_Ergebnis_IGR = _IdealGewicht()

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

Switch $_Ergebnis_BMI
Case 0 To 19
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = "5"
Case 19 To 24
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = "2"
Case 24 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = "4"
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = "3"
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_IGR = "?"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = "8"
EndSwitch
EndIf
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg")
GUICtrlSetImage($ico_Icon, $dll, $_Smileys)
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $dll, $_Smileys)
EndIf
If GUICtrlRead($tb_Gewicht) = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $dll, $_Smileys)
EndIf
EndFunc ;==>_start

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

Func _Info()
MsgBox(64, "Wichtige Information !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @TAB & @CR & _
"nur gering ist. " & @CRLF & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
"die zu schnell als zu dick klassifiziert werden." & @CRLF & _
" " & @CRLF & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndFunc ;==>_Info

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

Func _quit()
DllClose($dllo) ; Dont forget to close your DLL-Handle
Exit
EndFunc ;==>_quit

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

Func _Del()
GUICtrlSetData($tb_Gewicht, "")
GUICtrlSetData($tb_Groesse, "")

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

GUICtrlSetData($lb_BMI, "Willkommen,")
GUICtrlSetData($lb_Klasse, "ich errechne Ihren BMI")
GUICtrlSetData($lb_IGR, "und das Idealgewicht !")
GUICtrlSetImage($ico_Icon, $dll, 2)
EndFunc ;==>_Del

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

Func _about()
GUISetState(@SW_SHOW, $AboutGUI)
EndFunc ;==>_about

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

Func _aboutClose()
GUISetState(@SW_HIDE, $AboutGUI)
EndFunc ;==>_aboutClose

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

Func _UpdateCheck()
ShellExecute("http://ritzelrocker04.bplaced.net/thema1.htm")
EndFunc ;==>_UpdateCheck

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

Func _IdealGewicht()
Local $op, $igr
Switch GUICtrlRead($rb_Maennlich)
Case 1
$op = 0.9
Case 4
$op = 0.85
EndSwitch
;### DLL IdealGewicht-Rechnung ###
$igr = DllCall($dllo, "float:cdecl", "_ig", "int", GUICtrlRead($tb_Groesse), "float", $op)
;Local $_Ergebnis_IGR = Round($igr[0], 2)
Local $_Ergebnis_IGR = Round($igr[0], 2)
Return $_Ergebnis_IGR
EndFunc ;==>_IdealGewicht

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

; Ende

[/autoit]

dll.cpp

Code

// erstellt mit CodeBlocks
extern "C" __declspec(dllexport) float _ig(int a,float b){
float c = (a - 100) * b;
return c;


}


extern "C" __declspec(dllexport) double _bmi(double d,double e){
double f = d * 10000 / (e * e);
return f;


}


// Ende

Alles anzeigen

Edit: Anpassungen vorgenommen, siehe Post #8 !

RR04

[autoit]

;Include-Beispiel aus der de. Hilfe angepasst !

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

;;; TIME.AU3 ;;;
MsgBox(0,"", "Die Zeit ist " & @HOUR & ":" & @MIN & ":" & @SEC)

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

;;; SCRIPT.AU3 ;;;
#include <c:\aaa\TIME.AU3>
MsgBox(0,"", "Beispiel")
#include <c:\MeineIncludeSammlung\TIME.AU3>

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

MsgBox(0,"", "Falsches Beispiel")

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

;filename >> Der Dateiname des Skriptes, das eingebunden werden soll.
;Der Pfad ist optional. Er muss ein String sein - er darf keine Variable sein.

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

;$path = "c:\aaa\TIME.AU3"
;#include <$path> funktioniert also nicht !!!
Exit

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

; Das Ausführen von script.au3 zeigt 3 Dialogboxen an
; Eine mit der Zeit, eine mit 'Beispiel' und eine weitere mit der Zeit.

[/autoit]

RR04

Hi lumb,

hier habe mal einige Möglichkeiten als Beispiel:

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

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

$Form1_1 = GUICreate("Big Radiobox", 210, 180, 300, 233)
;i normale Radiobox
$Radiobox0 = GUICtrlCreateRadio("Radiobox basic", 10, 10, 180, 35)
;i Radiobox color
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$Radiobox1 = GUICtrlCreateRadio("Radiobox color", 10, 50, 180, 35)
GUICtrlSetColor(-1, 0xFF0000) ;i rot
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
;i große Radiobox Schriftart und Größe anders
$Radiobox2 = GUICtrlCreateRadio("Radiobox", 10, 90, 180, 35, $BS_PUSHLIKE)
GUICtrlSetFont(-1, 12, 400, 0, "Wingdings")
;i große Radiobox mit Icon
$Radiobox3 = GUICtrlCreateRadio("&s", 10, 130, 180, 35, BitOR($BS_ICON, $BS_PUSHLIKE))
GUICtrlSetImage(-1, "shell32.dll", 7)

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

GUISetState(@SW_SHOW)

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

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

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

;i ENDE

[/autoit]

RR04

Hi Manne363,

hier ist noch ein Vorschlag von mir:
RD Daten sichern

RR04

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Global $aCheckbox[3]
$Form1 = GUICreate("Form1", 355, 345, 192, 124)

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

For $i = 0 To 2
$aCheckbox[$i] = GUICtrlCreateCheckbox("Hier steht was " & $i + 1, 16 + $i * 112, 16, 97, 17)
Next

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

$Edit1 = GUICtrlCreateEdit("", 16, 40, 321, 257)
$Button = GUICtrlCreateButton("Button", 88, 312, 171, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$sData = ""
For $i = 0 To 2
If BitAND(GUICtrlRead($aCheckbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= $i + 1 & ". Checkbox ist angeCHECKED" & @CRLF
Next
GUICtrlSetData($Edit1, $sData)
EndSwitch
WEnd

[/autoit]

sollte auch gehen

RR04

Ein Update von "The Stick" ist erschienen. Aktualisierungen, Anpassungen und Weiterentwicklungen wurden vorgenommen (siehe Post #1).

RR04

"C:\RECYCLER" für XP

RR04

[autoit]

;i Der Verzeichnispfad, des Laufwerkes dessen Papierkorb geleert werden soll
;i wenn nicht angegeben, werden alle Papierkörbe geleert
;i (siehe auch Hilfe).
FileRecycleEmpty("")

[/autoit]

RR04

[autoit]

DirRemove(@UserProfileDir & "\Lokale Einstellungen\Temporary Internet Files",1)
;i Löscht gleich den ganzen Ordner! Soll das so sein?

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

FileRecycle(@UserProfileDir & "\Lokale Einstellungen\Temporary Internet Files\*.*")
;i Verschiebt nur den Inhalt des Ordners in den Papierkorb! So besser!?

[/autoit]

RR04

Du warst schon auf der richtigen Seite - "@TempDir"

Ja, Du hast Recht und ich mich falsch ausgedrückt. Ich meinte dem User die Möglichkeit geben auch den Pfad zu SEINER Datei zu wählen.

RR04

Hallo Autotim!
Eine tolle Idee, gefällt mir gut. Vielleicht kannst Du ja noch eine Möglichkeit einbauen, bei der der Nutzer selbst, zu löschende Dateien wählen kann.

RR04

Hi,

da der Nutzer die Beträge wählen kann reicht es aus die Dezimalstelle als Punkt vorzugeben.

[autoit]

$Karotte = GUICtrlCreateListViewItem("Karotte|0,15€", $ListView1) ;Deine Voreinstellung
$Karotte = GUICtrlCreateListViewItem("Karotte|0.15€", $ListView1) ; Besser so

[/autoit]

Bei Rechnern muss man die Eingaben des Nutzers berücksichtigen und verarbeiten z.B. mit "StringReplace".

Da Du aber Variablen mehrfach vergeben hast denke ich, dass Du auch mit Zitronen gehandelt hast (Scherz- Variable Form1) .

Beiträge von RR04

_ListView_HTMLprint

Was genau bedeutet $WS_GROUP und wann benutzt man es?

_ListView_HTMLprint

INI Problem

Skript abkürzen

Dynamic Link Library zur Weiterverwendung in AutoIt

Dynamic Link Library zur Weiterverwendung in AutoIt

Dynamic Link Library zur Weiterverwendung in AutoIt

Dynamic Link Library zur Weiterverwendung in AutoIt

#include Problem

Radio Buttons auf Hintergrundbild

Wie automatische Auswahl Txt als Msgbox oder Txt in ini- am Anffang des Scripts?

Checkboxenabfrage - Ausgabe in Edit

The Stick

cmd

cmd

cmd

cmd

cmd

Kassenprogramm - AutoIT kann nicht mit Kommazahlen rechnen :(