PureBoard

Verfasst: **29.04.2006 01:48**

TACHCHEN

Weil ich gesehen habe das noch viele PB 3.3 haben und dazu fragen stellen (welche 4.0 nutzer nicht verstehen), stelle ich dieses Thema rein, damit 3.3 nutzer HIER ihre Frage stellen können.

Ich benutze selber schon sehr lange 3.3 und kann sie vielleicht beantworten.

CODE-ARCHIV FÜR DIE VERBESSERUNG VON 3.3

Auflösung

Code: Alles auswählen

; Auflösung des Bildschirms/Screens ermitteln
Procedure DesktopWidth()
 ProcedureReturn GetSystemMetrics_(0)
EndProcedure
Procedure DesktopHeight()
 ProcedureReturn GetSystemMetrics_(1)
EndProcedure

Datum und Zeit

Code: Alles auswählen

; Gibt die Zeit zurück. String$ kann z.B. "HH':'mm':'ss" sein
Procedure.s Time(String$) 
 time$=Space(1000)
 GetTimeFormat_(#LOCALE_USER_DEFAULT,0,0,String$,@time$,1000) 
 ProcedureReturn time$ 
EndProcedure 
; Gibt das Datum zurück. String$ kann z.B. "dd'.'MM'.'yyyy" sein
Procedure.s Date(String$) 
 Date$=Space(1000) 
 GetDateFormat_(#LOCALE_USER_DEFAULT ,0 ,0,String$,@Date$,1000) 
 ProcedureReturn Date$ 
EndProcedure 

; Mist die Zeit in ms.
Global COUNTERTIME.l
Procedure StartCounter()
 COUNTERTIME = GetTickCount_()
EndProcedure
Procedure.l StopCounter()
 ProcedureReturn GetTickCount_()-COUNTERTIME
EndProcedure

Zeichenketten

Code: Alles auswählen

; Füllt das Ende(L) oder den Anfang(R) eines Strings mit Zeichen auf
Procedure.s RSet(String$, Laenge, Zeichen$)
 RSet$ = Space(Laenge-Len(String$))
 ReplaceString(RSet$, " ", Zeichen$, 2)
 NewString$ = RSet$+Mid(String$,1,Laenge)
 ProcedureReturn NewString$
EndProcedure
Procedure.s LSet(String$, Laenge, Zeichen$)
 LSet$ = Space(Laenge-Len(String$))
 ReplaceString(LSet$, " ", Zeichen$, 2)
 NewString$ = Mid(String$,1,Laenge)+LSet$
 ProcedureReturn NewString$
EndProcedure

; Löscht alle LoeschStrings aus einem String
Procedure.s RemoveString(String$, LoeschString$, Modus)
 NewString$ = ReplaceString(String$, LoeschString$, "", Modus)
 ProcedureReturn NewString$
EndProcedure

; Gibt einen Stringabschnitt (getrennt durch 'TrennString') an der stelle 'Index' zurück 
Procedure.s StringField(String$, Index, TrennString$)
 Stelle = 1-Len(TrennString$)
 For n = 1 To Index
  x = Stelle+Len(TrennString$)
  Stelle = FindString(String$+TrennString$, TrennString$, x)
  If Stelle = 0 : n = Index : EndIf
 Next n
 If Stelle
  NewString$ = Mid(String$, x, Stelle-x)
 EndIf
 ProcedureReturn NewString$
EndProcedure

; Zählt die Anzahl der 'StringToCount' in einem String
Procedure CountString(String$, StringToCount$)
 x = FindString(String$, StringToCount$, 1)
 While x
  n + 1
  x = FindString(String$, StringToCount$, x+1)
 Wend
 ProcedureReturn n
EndProcedure

Verfasst: **13.05.2006 17:50**

Wär vielleicht nen Gedanken wert, 3 Foren zu machen: eins für 3.30 (aka TOPOS), eins für 4.0+ und eins für den ganzen Rest...

Verfasst: **14.05.2006 01:35**

hardfalcon hat geschrieben:Wär vielleicht nen Gedanken wert, 3 Foren zu machen: eins für 3.30 (aka TOPOS), eins für 4.0+ und eins für den ganzen Rest...

diese Antwort bitte zum SUB-Forum "Foren-Support",
danke Admin

Ist aber eine gute idee !

Verfasst: **14.05.2006 08:20**

Die Idee find ich genial

(ich hab auch nur 3.3)!
Sowas wär echt gut für alle, die noch mit der "alten" Version rumprogrammieren.
Ich glaub, da gibts schon noch ne Menge....

Verfasst: **14.05.2006 12:01**

Jilocasin hat geschrieben:Die Idee find ich genial (ich hab auch nur 3.3)!
Sowas wär echt gut für alle, die noch mit der "alten" Version rumprogrammieren.
Ich glaub, da gibts schon noch ne Menge....

JAJA

Aber ist schon mal ein erster Schritt das wir 3.3 nutzen ein Thema haben was Wichtig ist haben

Verfasst: **14.05.2006 13:46**

Ist euch aufgefallen, dass ihr eine Minderheit seid

? Verstehe nicht, wie
man mit einer alten und verbugten Version programmieren kann

.

Verfasst: **14.05.2006 18:31**

MVXA hat geschrieben:Ist euch aufgefallen, dass ihr eine Minderheit seid ? Verstehe nicht, wie
man mit einer alten und verbugten Version programmieren kann .

naja also ich habe euch über mehr bugs in 4.0 schimpfen höhren als bei mir in 3.3

(SIEHE SUBFORUM ^^^^^ 4.0 Beta, 270 THEMEN

)

Verfasst: **14.05.2006 18:46**

Liegt wohl eher daran, dass (fast) niemand mehr mit 3.30 arbeitet

Und:

Wo weniger Befehle sind, können auch weniger verbugt sein

Verfasst: **14.05.2006 18:50**

Wär vielleicht nen Gedanken wert, 3 Foren zu machen: eins für 3.30 (aka TOPOS), eins für 4.0+ und eins für den ganzen Rest...

Das würde meiner Meinung nach nix bringen. Wonach soll man dann gehen, wenn man was fragen will? Der 3.3-User könnte seine Fragen natürlich in das 3.3-Forum posten - aber woher weiß er, daß sein Problem nicht auch für die anderen Versionen relevant ist? Auch ist die Frage, wer wird ihm dann helfen können? So viele 3.3-User gibt's ja auch wieder nicht und es kann eben gut sein, daß die anderen User in das Unterforum gar nicht erst reingehen, weil sie selbst ja die 3.3 gar nicht benutzen.

Also ich glaub nicht, daß die Idee so gut ist. Ein allgemeines Programmierforum in BlitzBasic und PureBasic zu unterteilen ist sinnvoll. Aber das PureBasic-Forum nach Versionen zu unterteilen wird das ganze nur zerpflücken und wohl eher für weniger Hilfe sorgen.

Das 4.0-Forum ist ja auch nur für die Bugs da, und nicht damit man die Programmier-Probleme nach Version unterteilen kann. Wird ja auch bald entfernt.

Wenn einer wirklich was spezifisches hat, wo er der Meinung ist, daß das mit seiner Version zu tun hat, kann er in den Thread-Titel auch vorne ein [3.94] oder [3.3] hinschreiben.

Verfasst: **14.05.2006 18:51**

Dann wird "die Minderheit" wohl kaum drumrumkommen und sich eben 4.0 holen müssen

PureBoard

* Für 3.3 Nutzer *

* Für 3.3 Nutzer *

Nix dagegen!

Re: Nix dagegen!