* Für 3.3 Nutzer *

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 6996
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

* Für 3.3 Nutzer *

Beitrag von STARGÅTE »

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. :wink:

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

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
Zuletzt geändert von STARGÅTE am 22.05.2007 16:47, insgesamt 1-mal geändert.
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Benutzeravatar
hardfalcon
Beiträge: 3447
Registriert: 29.08.2004 20:46
Wohnort: Luxemburg
Kontaktdaten:

Beitrag von hardfalcon »

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...
„Warum siehst du den Splitter im Auge deines Bruders, aber den dicken fetten schwarzen Zensurbalken vor deinem Auge bemerkst du nicht?“
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 6996
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

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 !
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:

Nix dagegen!

Beitrag von Jilocasin »

Die Idee find ich genial :allright: (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....
Bild
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 6996
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Re: Nix dagegen!

Beitrag von STARGÅTE »

Jilocasin hat geschrieben:Die Idee find ich genial :allright: (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 :-)
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Ist euch aufgefallen, dass ihr eine Minderheit seid ;)? Verstehe nicht, wie
man mit einer alten und verbugten Version programmieren kann :twisted:.
Bild
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 6996
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

MVXA hat geschrieben:Ist euch aufgefallen, dass ihr eine Minderheit seid ;)? Verstehe nicht, wie
man mit einer alten und verbugten Version programmieren kann :twisted:.
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 :o )
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

Beitrag von Green Snake »

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

Und:

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

:twisted:
-.-"
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:

Beitrag von ZeHa »

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.
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:

Beitrag von Jilocasin »

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