[Dimension]

Ich probiere momentan an einem eigenen Betriebssystem (Codename Nightfly) herum, eine Vorversion mit einem Benchmark gibt es auch schon Bisher sind es rund 150KB C sowie 2KB Assembler-Code.

>> Link zum Benchmark. Bitte eure Resultate posten, besonders wer einen AMD hat! Ich brauche einige Vergleiche zum Optimieren von kritischen Codestellen.

Die Ausgabe sieht zwar noch recht simpel aus, aber die Qualitäten liegen vor allem unter der Haube Präemptives Multitasking auch im Kernel, mehr oder weniger 64-Bit- und SMP-sicher, so wenige Schleifen wie möglich, Demand-Paging usw ...

Dieser Beitrag wurde von Dimension bearbeitet: 28. März 2004 - 00:07

[I3lack0ut]

@doppelwinkel

das programm um logo's einzufügen ist cool B)
danke!

[Odom]

hmm habe auch mal nen paar kleine progs geschrieben

Einmal Bantumi, kennen bestimmt nen paar von ihren Nokia Handys. Das habe ich als Netzwerk/Lan version geschrieben. Hat aber noch nen kleinen fehler wenn man ne 2. runde anfängt, war nur zu faul das bis jetzte zu beheben Download hier

Und dann nen kleines Tool für die AOL Chats, ja ich bin AOL user und das ist auch gut so ;-). Naja das kleine AOL Tool, lohnt nur mehr für die Rollenspieler für das Rollenspiel wo ick bin, aber naja..so zum normal chatten ist es auch nützlich :-)
Download hier

Den Quellecode gebe ick lieber net frei, will verhindern das leute nen Herzinfakt bekommen, weil so sauber code ick leider net :-(

[Doppelwinkel]

Zitat (patrick888: 28.03.2004, 00:40)

das iss ma ein schirers prog! und mir geht dieses Eigene dateien speichern auf sack.

was ist ein schirers bitte?

Zitat (ichbines: 28.03.2004, 00:49)

Was mir überhaupt nicht passt, sind die Savegames im Ordner "Dokumente und Einstellungen".

Das kannste mit dem Programm genauso umschieben, ist vom Prinzip ja das selbe. NFS Underground macht das z.B. so, funktioniert genauso damit.

[Main]
LoadFrom = E:\Home\uwe\Savegames\NFS Underground
SaveTo   = C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\NFS Underground
ExeFile  = D:\Spiele\Need For Speed Underground\speed.exe

Dieser Beitrag wurde von Doppelwinkel bearbeitet: 28. März 2004 - 13:02

[XDestroy]

wollte ich auch sagen. sind doch keine extreme-proggis. ich find das manchmal einfach seltsam, wie auch die in meiner klasse über ihre billigen taschen rechner ein copyright schreiben...

sind aber echt interessante sachen hier dabei...

[B!G]

@patrick88 & mastre1: Sorry, war ein Fehler bei der Implementierung für XP/2K (überarbeitete Version liegt bei). Rapid Batch wird halt nur von einem kleinen Programmierteam entwickelt und da kann es schonmal vorkommen, dass manche Sachen nicht so einwandfrei sind. Hier übrigens der Sourcecode (Feedback erwünscht):

Sourcecode: Renamer | Language: RapidBatch sagte:

rem Renamer by B!G | feel free to use the code for your interests
%renstart
let [ListBox_Height] = '100'
listbox [fod] = 'Renamer', 'single Files|whole Folders'
let [ListBox_Height] = '150'
if [fod] = 'single Files' goto filesselect
if [fod] = 'whole Folders' goto folderselect
if [fod] = '' halt

rem :::::::::::::::::::::::::single Files::::::::::::::::::::::::::::

%filesselect
let [OpenBox_MultiSel] = '0'
openbox [files] = 'Select file(s) to rename','All Files|*.*'
if [files] = ''
msgbox 'Error', 'You have to choose at least 2 Files', '17'
if [errorcode] = '1' goto filesselect
if [errorcode] = '2' goto renstart
endif
getlen [lenfiles] = [files]
gosub foldername
gosub rendetails
let [log] = 'c:\log.txt'
delfile [log]
let [errorcount] = '0'

%next
getlen [lenfiles] = [files]
getpos [line] = [files]: '|'
if [line] = '0' goto lastfile
calcvar [line] = [line] - '1'
copyvar [file] = [files]: '1', [line]
calcvar [line] = [line] + '2'
copyvar [files] = [files]: [line], [lenfiles]
gosub rename
goto next

%lastfile
let [file] = [files]
gosub rename
let [success] = 'Renaming done: ' # [errorcount] # ' Error(s)' # [new_line] # [new_line] # 'Do you want to see the Logfile?'
msgbox 'Operation successfull', [success], '68'
if [errorcode] = '6'
open [log]
else
delfile [log]
endif
goto renstart

%foldername
getpos [line] = [files]: '|'
if [line] = '0'
msgbox 'Error', 'You have to choose at least 2 Files', '17'
if [errorcode] = '1' goto filesselect
if [errorcode] = '2' goto renstart
endif
calcvar [line] = [line] - '1'
copyvar [foldername] = [files]: '1', [line]
getlen [lenfoldername] = [foldername]
let [foldername] = [foldername] # '\'
calcvar [line] = [line] + '2'
copyvar [files] = [files]: [line], [lenfiles]
resume

rem ::::::::::::::::::::::::whole Folders::::::::::::::::::::::::::::::::

%folderselect
inputbox [foldername] = 'Select Folder', 'Please be sure that selected Folder isn´t empty', ''
if [foldername] = '' goto renstart
fileexists [foldername]
chdir [foldername]
getlen [lenfoldername] = [foldername]
calcvar [t] = [lenfoldername] - '1'
copyvar [lastchr] = [foldername]: [t], '1'
if [lastchr] ! '\' let [foldername] = [foldername] # '\'
if [errorcode] = '-1'
msgbox 'Error', 'You have to specify a correct Folder', '17'
if [errorcode] = '1' goto folderselect
if [errorcode] = '2' goto renstart
Endif
gosub dirfolder
gosub rendetails
goto readname

%dirfolder
delfile c:\filelist.tmp
repeat
findfiles [file] = '*.*'
let [filelist] = [filelist] # [file] # [new_line]
until [file] = ''
writefile 'c:\filelist.tmp': [filelist]
readfile [3ndline] = 'c:\filelist.tmp': '3'
if [3ndline] = ''
msgbox 'Error', 'You have to specify a "not empty" Folder', '17'
if [errorcode] = '1' goto folderselect
if [errorcode] = '2' goto renstart
endif
resume

%readname
let [log] = 'c:\log.txt'
delfile [log]
let [errorcount] = '0'
let [i] = '3'
repeat
readfile [file] = 'c:\filelist.tmp': [i]
gosub rename
calcvar [i] = [i] + '1'
until [file] = 'EOF'
delfile c:\filelist.tmp
let [success] = 'Renaming done: ' # [errorcount] # ' Error' # [new_line] # [new_line] # 'Do you want to see the Logfile?'
msgbox 'Operation successfull', [success], '68'
if [errorcode] = '6'
open [log]
else
delfile [log]
endif
goto renstart

rem :::::::::::::::::::::::::::::::Rename Details:::::::::::::::::::

%rendetails
%nameselect
inputbox [name] = 'Name Selection', 'Please choose a general name or term', ''
if [name] = ''
msgbox 'Error', 'You Have To Specify A Filename', '17'
if [errorcode] = '1' goto nameselect
if [errorcode] = '2' goto renstart
else
goto numberselect
endif

%numberselect
inputbox [number] = 'Number Selection', 'Please select a start number', ''
if [number] = ''
msgbox 'Error', 'You have to specify a number', '17'
if [errorcode] = '1' goto numberselect
if [errorcode] = '2' goto renstart
else
goto subst
endif

%subst
listbox [subst] = 'Replacement', 'Sub Dash (_)|Space ( )|Short Dash (-)|Dot (.)'
if [subst] = 'Sub Dash (_)' let [subst] = '_'
if [subst] = 'Space ( )' let [subst] = ' '
if [subst] = 'Short Dash (-)' let [subst] = '-'
if [subst] = 'Dot (.)' let [subst] = '.'
if [subst] = '' goto renstart

%syntax
let [date] = [day] # [subst] # [month] # [subst] # [year]
listbox [syntax] = 'Syntax', 'Name, Number|Number, Name|Date, Name, Number|Number, Name, Date'

if [syntax] = 'Name, Number' let [val] = '1'
if [syntax] = 'Number, Name' let [val] = '2'
if [syntax] = 'Date, Name, Number' let [val] = '3'
if [syntax] = 'Number, Name, Date' let [val] = '4'
if [syntax] = '' goto renstart
resume

rem :::::::::::::::::::::::::::Rename Procedure:::::::::::::::::::::::::::::

%rename
getlen [lenfile] = [file]
getpos [dotpos] = [file]: '.'
calcvar [lenext] = [lenfile] - [dotpos] + '1'
if [file] = '' resume
if [file] = 'EOF' resume
if [dotpos] ! '0' copyvar [extension] = [file]: [dotpos], [lenext]
if [dotpos] = '0' let [extension] = ''
let [oldfile] = [foldername] # [file]
if [val] = '1' let [newfile] = [foldername] # [name] # [subst] # [number] # [extension]
if [val] = '2' let [newfile] = [foldername] # [number] # [subst] # [name] # [extension]
if [val] = '3' let [newfile] = [foldername] # [date] # [subst] # [name] # [subst] # [number] # [extension]
if [val] = '4' let [newfile] = [foldername] # [number] # [subst] # [name] # [subst] # [date] # [extension]

%check
fileexists [newfile]
if [errorcode] = '0' goto err1
renamefile [oldfile]: [newfile]
if [errorcode] = '-1'
goto err2
else
let [logwrite] = 'Done: "' # [oldfile] # '" to "' # [newfile] # '"'
endif

%renameend
writefile [log]: [logwrite]
calcvar [number] = [number] + '1'
resume

%err1
let [e1] = 'File already exists:' # ' ' # [oldfile] # [new_line] # [new_line] # 'Do you want to overwrite the existing one?'
msgbox 'Error', [e1], '20'
if [errorcode] = '6'
delfile [newfile]
goto check
else
calcvar [number] = [number] + '1'
goto rename
endif

%err2
let [e2] = 'Error while renaiming file:' # ' ' # [oldfile]
msgbox 'Error', [e2], '16'
goto errlog

%errlog
let [logwrite] = 'Failed: "' # [oldfile] # '" to "' # [newfile] # '"'
calcvar [errorcount] = [errorcount] + '1'
goto renameend


%theend
end

Angehängte Datei(en)

•  rename_3.rar (57,26K)
  Anzahl der Downloads: 88

Dieser Beitrag wurde von B!G bearbeitet: 28. März 2004 - 13:35

[olcay247]

in den paar wochen in denen ich mit c# programmiere hab ich auch ein paar tools geschrieben. habs sie mal auf meine seite getan -> http://www.olcay-its.de

[TO_Webmaster]

Ein Rennen mit Cheatfunktion

Angehängte Datei(en)

•  Project1.exe (599K)
  Anzahl der Downloads: 89

[olcay247]

ist das in delphi geschrieben?

[TO_Webmaster]

Jo. Sollten wir mal in Informatik machen.

[olcay247]

gut geraten nicht?

[TO_Webmaster]

Sollte ursprünglich ein einfaches Schneckenrennen mit 2 Schnecken werden...

Aber, wie unser Mathelehrer sagen würde, "Das war mir zu primitiv!"

[B!G]

Olcay, die Links auf deiner HP gehen nicht (Downloadlinks).

Edit: Gilt für Firefox, mit Opera und IE klappts.....

Dieser Beitrag wurde von B!G bearbeitet: 28. März 2004 - 20:35

[olcay247]

Zitat (B!G: 28.03.2004, 21:34)

Olcay, die Links auf deiner HP gehen nicht (Downloadlinks).

Edit: Gilt für Firefox, mit Opera und IE klappts.....

sollte jetzt gehen... danke