|
You last visited: Today at 03:28
Advertisement
[UDF] Konsolen UDF
Discussion on [UDF] Konsolen UDF within the AutoIt forum part of the Coders Den category.
01/31/2010, 11:29
|
#1
|
elite*gold: 0 
Join Date: Jun 2009
Posts: 969
Received Thanks: 226
|
[UDF] Konsolen UDF
Ich habe mal eine kleine UDF geschrieben.
Es ist nicht viel und eine arbeit von 10 min aber
ich werde noch readline usw einbauen.
PHP Code:
;===============================================================================
;
; Function Name: _ConsoleCreate ($Title)
; Description:: Erstellt eine Konsole mit schwarzem Hintergrund und weißer Schriftfarbe
; Parameter(s): $Title = Titel des Fensters der Konsole
; Ohne Titelangabe wird "Konsolen UDF by ScOrNi" verwendet
; Author(s): ScOrNi
;
; Information about $Title:
;~ Nur von A-Z, a-z, 0-9, *+~'#!"§$%&/()=?²³{[]}\´`^/*+-:,\,<>
; Examples:
;~ _ConsoleCreate ("Dies ist ein Konsole + weißer Hintergrund²")
;~ _ConsoleCreate ()
;
;===============================================================================
func _ConsoleCreate ($Title="Konsolen UDF by ScOrNi")
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=
$Console1 = GUICreate($Title, 655, 295, 220, 180)
GUISetBkColor(0x000000)
global $edit=GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL,$WS_VSCROLL))
GUICtrlSetBkColor($edit, 0x000000)
GUICtrlSetColor ($edit,0xffffff)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
endfunc
;===============================================================================
;
; Function Name: _ConsoleWait ($Time)
; Description:: Lässt die Konsole so lange wie angegeben warten bis sie geschlossen wird
; Nachdem die Zeit abgelaufen ist schließt sie sich selber. Wenn nix angegeben
; wird, wartet die Konsole unendlich lang.
; Parameter(s): $Time = Die Zeit die gewartet werden soll in Millisekunden.
; Ohne Angaabe wird unendlich lange gewartet.
; Author(s): ScOrNi
;
; Information about $Time:
;~ Zeit bitte in Millisekunden angeben. (1000ms = 1s)
; Examples:
;~ _ConsoleWait(2000)
;~ _ConsoleWait ()
;
;===============================================================================
func _ConsoleWait($Time=9999999999999999)
$start = TimerInit()
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
until timerdiff ($start) >=$Time
EndFunc
;===============================================================================
;
; Function Name: _ConsoleWriteLine ($Text)
; Description:: Gibt $Text als Text in der Konsole aus.
; Parameter(s): $Text = Der Text der ausgegeben werden soll.
; Author(s): ScOrNi
;
; Information about $Text:
;~ Hier dürfen alle Zeichen benutzt werden vorausgesetzt
;~ die Sprache ist auf dem PC Installiert
; Examples:
;~ _ConsoleWriteLine("Ich bin der Text")
;
;===============================================================================
func _ConsoleWriteLine($Text)
guictrlsetdata ($edit,guictrlread($edit)&$Text)
EndFunc
;===============================================================================
;
; Function Name: _ConsoleEndline ()
; Description:: Beendet die Zeile und fängt eine neue an. (Zeilenumbruch)
; Parameter(s): Keine Parameter
; Author(s): ScOrNi
;
; Examples:
;~ _ConsoleWriteLine("Zeile 1")
;~ _ConsoleEndline ()
; _ConsoleWriteLine("Zeile 2")
;===============================================================================
func _ConsoleEndline()
guictrlsetdata ($edit,guictrlread ($edit)&@crlf)
endfunc
func _ConsoleFontColor ($Color)
GUICtrlSetColor ($edit,$Color)
EndFunc
|
|
|
|
01/31/2010, 17:44
|
#2
|
elite*gold: 77
Join Date: May 2008
Posts: 5,423
Received Thanks: 5,858
|
Quote:
Originally Posted by SCORNI
Ich habe mal eine kleine UDF geschrieben.
Es ist nicht viel und eine arbeit von 10 min aber
ich werde noch readline usw einbauen.
PHP Code:
;===============================================================================
;
; Function Name: _ConsoleCreate ($Title)
; Description:: Erstellt eine Konsole mit schwarzem Hintergrund und weißer Schriftfarbe
; Parameter(s): $Title = Titel des Fensters der Konsole
; Ohne Titelangabe wird "Konsolen UDF by ScOrNi" verwendet
; Author(s): ScOrNi
;
; Information about $Title:
;~ Nur von A-Z, a-z, 0-9, *+~'#!"§$%&/()=?²³{[]}\´`^/*+-:,\,<>
; Examples:
;~ _ConsoleCreate ("Dies ist ein Konsole + weißer Hintergrund²")
;~ _ConsoleCreate ()
;
;===============================================================================
func _ConsoleCreate ($Title="Konsolen UDF by ScOrNi")
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=
$Console1 = GUICreate($Title, 655, 295, 220, 180)
GUISetBkColor(0x000000)
global $edit=GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL,$WS_VSCROLL))
GUICtrlSetBkColor($edit, 0x000000)
GUICtrlSetColor ($edit,0xffffff)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
endfunc
;===============================================================================
;
; Function Name: _ConsoleWait ($Time)
; Description:: Lässt die Konsole so lange wie angegeben warten bis sie geschlossen wird
; Nachdem die Zeit abgelaufen ist schließt sie sich selber. Wenn nix angegeben
; wird, wartet die Konsole unendlich lang.
; Parameter(s): $Time = Die Zeit die gewartet werden soll in Millisekunden.
; Ohne Angaabe wird unendlich lange gewartet.
; Author(s): ScOrNi
;
; Information about $Time:
;~ Zeit bitte in Millisekunden angeben. (1000ms = 1s)
; Examples:
;~ _ConsoleWait(2000)
;~ _ConsoleWait ()
;
;===============================================================================
func _ConsoleWait($Time=9999999999999999)
$start = TimerInit()
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
until timerdiff ($start) >=$Time
EndFunc
;===============================================================================
;
; Function Name: _ConsoleWriteLine ($Text)
; Description:: Gibt $Text als Text in der Konsole aus.
; Parameter(s): $Text = Der Text der ausgegeben werden soll.
; Author(s): ScOrNi
;
; Information about $Text:
;~ Hier dürfen alle Zeichen benutzt werden vorausgesetzt
;~ die Sprache ist auf dem PC Installiert
; Examples:
;~ _ConsoleWriteLine("Ich bin der Text")
;
;===============================================================================
func _ConsoleWriteLine($Text)
guictrlsetdata ($edit,guictrlread($edit)&$Text)
EndFunc
;===============================================================================
;
; Function Name: _ConsoleEndline ()
; Description:: Beendet die Zeile und fängt eine neue an. (Zeilenumbruch)
; Parameter(s): Keine Parameter
; Author(s): ScOrNi
;
; Examples:
;~ _ConsoleWriteLine("Zeile 1")
;~ _ConsoleEndline ()
; _ConsoleWriteLine("Zeile 2")
;===============================================================================
func _ConsoleEndline()
guictrlsetdata ($edit,guictrlread ($edit)&@crlf)
endfunc
func _ConsoleFontColor ($Color)
GUICtrlSetColor ($edit,$Color)
EndFunc
|
Total überflüssig , vorallem weil es keine richtige Konsole ist .
Als ich den Namen dieses Threads gelesen habe dachte ich , dass man mit AutoIT jetzt auch endlich ohne großen Probleme/Umwege mit der DOS Konsole arbeiten kann , dem ist aber wie mir scheint nicht so ...
Das ist die wohl sinnloseste UDF , die ich jemals gesehen habe .
Für Soetwas braucht man keine UDF , AutoIT macht es einen doch schon leicht genug ...
Auserdem , wie du selbst schon sagtest hast du dafür 10 min gebraucht (10min ? Ist ein wenig lang wenn man die UDF so anschaut) , also sollte jeder in der Lage sein sich das selbst schnell zu schreiben (bzw Koda macht ja alles für einen) .
Das ist meine Meinung zur UDF ... Es ist nur eine Meinung , also bitte nicht böse sein .
|
|
|
|
|
01/31/2010, 18:28
|
#3
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 436
|
Da muß ich shadow recht geben, mit einer eingabeauforderung hat das wenig zu tun.
Jedoch könnte man es, mit ein parr veränderungen, gut zum debuggen hernehmen. Auch wenns jetzt schon von Haus aus so einige Debug funktionen bei Autoit gibt, richtig gefallen tut mir da keine von 
|
|
|
|
|
02/01/2010, 07:59
|
#4
|
elite*gold: 0
Join Date: Jun 2009
Posts: 969
Received Thanks: 226
|
Quote:
Originally Posted by Shadow992
Total überflüssig , vorallem weil es keine richtige Konsole ist .
Als ich den Namen dieses Threads gelesen habe dachte ich , dass man mit AutoIT jetzt auch endlich ohne großen Probleme/Umwege mit der DOS Konsole arbeiten kann , dem ist aber wie mir scheint nicht so ...
Das ist die wohl sinnloseste UDF , die ich jemals gesehen habe .
Für Soetwas braucht man keine UDF , AutoIT macht es einen doch schon leicht genug ...
Auserdem , wie du selbst schon sagtest hast du dafür 10 min gebraucht (10min ? Ist ein wenig lang wenn man die UDF so anschaut) , also sollte jeder in der Lage sein sich das selbst schnell zu schreiben (bzw Koda macht ja alles für einen) .
Das ist meine Meinung zur UDF ... Es ist nur eine Meinung , also bitte nicht böse sein .
|
1. Die Beschreibungen zu schreiben hat länger gedauert als die funktionen
2. Ich bin dir jetzt Total böse zur hölle mit dir
|
|
|
|
|
02/01/2010, 17:05
|
#5
|
elite*gold: 77
Join Date: May 2008
Posts: 5,423
Received Thanks: 5,858
|
Quote:
Originally Posted by SCORNI
1. Die Beschreibungen zu schreiben hat länger gedauert als die funktionen
|
Das glaube ich dir , war ja nett/gut gemeint , aber ist halt unnütz ...
Quote:
Originally Posted by SCORNI
2. Ich bin dir jetzt Total böse zur hölle mit dir
|
Och Schade ... (Naja was solls XD)
|
|
|
|
|
02/01/2010, 22:25
|
#6
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,295
|
bin gespannt wie du das mit dem readline lösen möchtest!
|
|
|
|
|
02/01/2010, 22:30
|
#7
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 436
|
Projekt wurde vorerst eingestellt. Closed Beta frühestesten Ende des Jahres...
|
|
|
|
|
02/02/2010, 16:59
|
#8
|
elite*gold: 0
Join Date: Jun 2009
Posts: 969
Received Thanks: 226
|
Quote:
Originally Posted by kknb
bin gespannt wie du das mit dem readline lösen möchtest!
|
1. $1=Stringlen (editbox)
2. do until ispressed enter
3. $2=stringlen (editbox)
4. $3=guictrlread (editbox)
5. $4=stringright ($3,$2-$1)
5. return $4
logisch oder ?
|
|
|
|
|
02/02/2010, 22:46
|
#9
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,295
|
eh nein nicht logisch, aber hab ich auch net von dir erwartet.
|
|
|
|
 |
Similar Threads
|
Was habt ihr für Konsolen?
03/20/2012 - Consoles - 138 Replies
hier könnt ihr posten was für konsolen ihr so besitzt...
Also ich hab : DS Lite , PSP Slim&Lite , Ps3
|
[Aufruf]Konsolen RPG
05/18/2010 - General Coding - 4 Replies
Hallo Community,
ich weiß nicht genau, ob das hier rein gehört aber ich verkünde es trotzdem.
Ich habe vor ein Consolenbasierendes RPG mit Visual Basic 2010 zu coden.
Wer mitmachen möchte bitte hier im Thread, als PN oder ICQ.
ICQ: 600585111
|
Konsolen Battle
05/01/2010 - Artist Battles - 3 Replies
So ich mach hier mal ein Battle zum Thema Konsolen.
Na dann, Viel Spaß!
|
Cheatproggy für PS3 bzw Konsolen
03/13/2009 - General Coding - 0 Replies
hi,
ist es möglich sich ein Cheatprogramm für die PS3 zu schreiben bw gibts so eins?
z.b. um unendlich HP bei einem RPG zu haben etc? :)
|
Konsolen-Modding
09/28/2006 - Off Topic - 8 Replies
Ja wollte mal Fragen ob jemand gute Seiten zum Thema Gamecube / Dreamcast-Modding kennt.
Ich meine nicht Hardware-Modding sondern das Aussehen. LED's usw usw ;D
Sprache ist mir egal, ok sollte schon Englisch oder Deutsch sein das mein ich.
Zum Thema Dreamcast-Modding habe ich zwar einige aber da ist auch nicht wirklich viel.
Fürn Gamecube find ich leider nur 1 einziges Tutorial (und ja ich habe bei google gesucht)
Ja ich weiss das man solches Modding meist selber schaffen kann mit etwas...
|
All times are GMT +1. The time now is 03:28.
|
|
![[UDF] Konsolen UDF](https://www.elitepvpers.com/forum/iconimages/autoit/udf-konsolen-udf_ltr.gif){kind=small}
