Automatische Variablen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
The_Dark_Zim-.-
Beiträge: 372
Registriert: 18.03.2008 16:53

Automatische Variablen

Beitrag von The_Dark_Zim-.- »

Hey ich bin gerade mal wieder am Rumbasteln :P
Da wollte ich mir einen ganz einfachen Regeneffekt basteln und merke es ist nicht einfach :D
Naja mein Problem ist das ich die einzelnen Tropfen mit line() darstellen möchte. Ich möchte diese dann einfach runter laufen lassen, Sprich Prosition y bei jedem durchlauf + 10. Da ich aber keine lusst hab für so 200 Tropfen jeweils die Variablen zu vergeben, hatte ich gedacht das dies doch auch "Automatisch" gehen muss Oo ??

Vllt. hat ja jemand eine Idee.

Gruß Zim
PB: 5.xx LTS x86/x64 | WIN: 10 Pro x64, Linux Mint x64
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

ne LinkedList oder ein Array? ;)
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Benutzeravatar
The_Dark_Zim-.-
Beiträge: 372
Registriert: 18.03.2008 16:53

Beitrag von The_Dark_Zim-.- »

XD wenn man nu wüste was das ist :P
Ich mach mich mal schlau, wenn ich nicht weiter komme melde ich mich wieder :D THX
PB: 5.xx LTS x86/x64 | WIN: 10 Pro x64, Linux Mint x64
Benutzeravatar
The_Dark_Zim-.-
Beiträge: 372
Registriert: 18.03.2008 16:53

Beitrag von The_Dark_Zim-.- »

Hey das mit dem Array klapt :) THX

Wie ist das wenn ich ganze Wörter, bzw. Pfarde abspeichern will ?
ZB. wenn ich einen Ordner durchsuchen lasse und alle *.jpg auflisten will, aber diese dann erst später abfrage ?
Bisher hab ich sowas immer als Textdatei gespeichert :roll:

LinkedList ist auch nur für Zahlenwerte oder ?

Gruß Zim
PB: 5.xx LTS x86/x64 | WIN: 10 Pro x64, Linux Mint x64
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Beitrag von RSBasic »

@The_Dark_Zim-.-
In einer LinkedList kann man auch Strings speichern.

Hier ein einfaches Beispiel:

Code: Alles auswählen

EnableExplicit

Define Pfad$="C:\"

NewList Files.s()

If ExamineDirectory(0,Pfad$,"*.*")  
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      AddElement(Files.s())
      Files() = Pfad$+DirectoryEntryName(0)
    EndIf
  Wend
  FinishDirectory(0)
EndIf

ForEach Files()
  Debug Files()
Next
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
The_Dark_Zim-.-
Beiträge: 372
Registriert: 18.03.2008 16:53

Beitrag von The_Dark_Zim-.- »

Oh :oops: okey

Thx
PB: 5.xx LTS x86/x64 | WIN: 10 Pro x64, Linux Mint x64
Antworten