| |
| |
|
Jörg
Sellmeyer | Mir était es toujours trop compliqué, extra irgendwelche Zeilen einzuprogrammieren, um mir chez qui Entwicklung qui Werte einer Classenstruktur Montrer trop laisser.
je hab mir tout autor quoi geschrieben, avec dem cela très simple machbar ist.
Es muss une Methode trop chacun super hinzugefügt volonté et dans qui Procédure en supplément deux Zeilen angepasst volonté.
Class tTest = hdl&,\
ID%,\
Index%,\
Text$(100),\
tTest@,\
ShowValues@' la méthode muss naturellement dans qui Struktur eingefügt volonté.
Proc tTest.tTest
Paramètres h&,i%,ind%,t$
.hdl& = h&
.ID% = i%
.index% = ind%
.Text$ = t$
ENDPROC
'cet Procédure muss eingefügt volonté.
Proc tTest.ShowValues
Paramètres T#,Titel$
Si %pCount > 2
'cet la ligne muss dem jeweiligen Code angepasst volonté
Var Values$ = "hdl&,\
ID%,\
index%,\
Text$(10)"
Déclarer Wert$,txt$
WhileLoop 3,%pcount
txt$ =$ Substr(Values$,&Boucle - 2,») + " = " + $(&Boucle) + "\n"
Wert$ = Wert$ + txt$
Wend
MessageBox(Wert$,ClassOf(T#) + " " + Titel$, 0)
ElseIf %pcount = 2
'et cet la ligne muss dem jeweiligen Code angepasst volonté
.ShowValues(T#,Titel$,.hdl&,\
.ID%,\
.index%,\
.Text$)
EndIf
ENDPROC
Déclarer Test#[]
Randomiser
Cls
Var hTb& = Créer("Toolbar",%hwnd,0,0,4,0,0)
WhileLoop 4
Toolbar("AddButton",hTb&,&Boucle,2000 + &Boucle,"Text " + Str$(&Boucle))
Test#[&Boucle - 1] = New(tTest,hTb&,Tour(20),2000 + &Boucle,"Text " + Str$(&Boucle))
Wend
Toolbar("Separator",hTb&)
Toolbar("AddButton",hTb&,5,2005,"Zufallswerte")
Toolbar("AddButton",hTb&,6,2006,"beenden")
Tandis que 1
WaitInput
Si Between(%menuitem,2001,2004)
Test#[%menuitem - 2001].ShowValues(Test#[%menuitem - 2001],"Bitte anzeigen")
ElseIf MenuItem(2005)
Test#[Tour(4)].tTest(Tour($FFFFFF),Tour($FFFF),Tour($FF),"Zufall " + Time $(0) + » + Time $(1))
ElseIf MenuItem(2006)
Pause
EndIf
Wend
Dispose Test#[]
|
|
| |
| |
| |
|
|
p.specht
 | |
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 19.05.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | merci 
dans dem Zusammenhang serait mich encore intéresser, si on irgendwie à qui Variablen einer Struktur venez, sans vous de "innen" aufzurufen.
avec Long(Test#,n&) peux on sich im Prinzip durchhangeln, si seulement Longs gespeichert sommes. mais den Bereich pour Werten trop parsen ist pratique unmöglich.
Gibt es alors une Punkt, wohin qui Einsprungadressen eines Bereichs angegeben sommes et peut-être aussi qui Taille des jeweiligen Platzes? |
|
| |
| |
| |
|
|
p.specht
| | RGH fragen ... wird mais peut-être trop versionsabhängig? |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 20.05.2018 ▲ |
|
| |
|
|
H.Brill | là so un Bereich im Grunde seulement un linearer, aneinander
liegender Speicherbereich ist, denke je pas, qui on
là de 'außen' encore anders rankommt. On peut aussi
avec den normalen Bereichs-Befehlen reinschreiben, quoi on
veux. qui Struktur (struct) ist seulement un Hilfsmittel, besonders aussi,
si on plusieurs Strukturen dans so un Bereich reinschieben
veux. voilà ensuite aussi Rechenarbeit annoncé, bzw. qui Longueur
einer solchen Struktur ist ensuite trop berücksichtigen. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 20.05.2018 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Es venez oui sur elle à, comment Roland cela interne verwaltet. qui Einsprungadressen pour chaque Strukturvariablen doit oui zumindest irgendwo abgelegt son.
la fois voyons, quoi Roland en supplément sagt. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.05.2018 ▲ |
|
| |
|
|
H.Brill | là gibt es wahrscheinlich aucun Einsprungsadressen.
je denke la fois, qui Roland qui Strukturvariablen interne
zwar verwaltet, mais den le contenu aussi simple sur
Errechnen qui Position (Byte = 1, Word = 2, Long = 4 usw.)
aus dem Bereich ausliest bzw. reinschreibt.
tout autor doit oui aussi qui Cordes dans einer Struct
un feste Taille avons. comment on à folgendem Code
sieht, schneidet Roland chez einem größeren String
comme dans qui Struct vorgegeben, simple den reste ab.
chez variablen Cordes pourrait il qui Position pas plus
so simple errechnen, mais devrait cela Nullbyte avec
einbeziehen.
si on quelque chose comme braucht, stehen oui toujours qui
normalen Bereichsfunktionen zur Disposition. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 20.05.2018 ▲ |
|
| |
|
(850)
Deutsch
English
Français
Español
Italia