php-resource



Zurück   PHP-Scripte PHP-Tutorials PHP-Jobs und vieles mehr > Entwicklung > ASP, PERL, CGI, C und alles andere
 

Login

 
eingeloggt bleiben
star Jetzt registrieren   star Passwort vergessen
 

 

 


ASP, PERL, CGI, C und alles andere Wolle ma net so sein. Obwohl Perl, ASP, C und TCL zu den minderwertigen Internet-Skriptsprachen zählen, dürfen ab sofort hierzu auch Fragen gestellt werden. ;)

Antwort
 
LinkBack Themen-Optionen Thema bewerten
  #1 (permalink)  
Alt 19-11-2009, 19:01
ccceeerrr
 Registrierter Benutzer
Links : Onlinestatus : ccceeerrr ist offline
Registriert seit: Nov 2009
Beiträge: 5
ccceeerrr befindet sich auf einem aufstrebenden Ast
Standard fraage

will meinen eigenen icm-calculator basteln (poker-programm) und
kriege folgende Fehlermeldung, unten markiert:
"Unzulässiger Wert oder Datentyp. Index außerhalb des definierten Bereichs."
Sieht jemand meinen Fehler?

Sub Main
mydoc= thisComponent
mysheet=mydoc.sheets(0)

Spielerzelle=mysheet.getCellByPosition(1,15)
Spieler=Spielerzelle.value

Dim payouts(1 to Spieler) as double
anzpayouts=Spieler
for i=1 to Spieler
piz=mysheet.getCellByPosition(4,2+i)
payouts(i)=piz.value
if payouts(i)=0 then
anzpayouts=i-1
end if
next i

Dim stacks(1 to Spieler) as double
total=0
for j=1 to Spieler
stz=mysheet.getCellByPosition(1,2+j)
stacks(j)=stz.value
total= total+stacks(j)
next j

Bis hier hin müsste alles passen

Dim equity(1 to Spieler) as double
for k=1 to Spieler
eqz=mysheet.getCellByPosition(7,17+k)
equity(k)=getequity(k, payouts, stacks,total,1,anzpayouts)
eqz.value=equity(k)
next k

End Sub

Function getequity(player as integer, payoffs() as double, chipstacks() as double, totalchips as double, depth as integer,priceplaces as integer) as double

eq = (chipstacks(player)/totalchips)*payoffs(depth)

if depth<priceplaces then
for l=l ubound(chipstacks())
if l<>player then
c = chipstacks (l) [HIER]
chipstacks (l) = 0
eq = eq+getequity(player, payoffs, chipstacks, totalchips - c, depth+1,priceplaces) * (c/totalchips)
chipstacks(i)= c
end if
next l
end if
getequity=eq

End Function


/// ich frage für einen freund würd mich echt freuen wenn uns jemand so schnell wie möglich helfen könte wuste auch nicht wohin damit

Gruss
Mit Zitat antworten
  #2 (permalink)  
Alt 19-11-2009, 19:42
unset
  Moderator
Links : Onlinestatus : unset ist offline
Registriert seit: Jan 2007
Ort: Düsseldorf
Beiträge: 3.782
unset befindet sich auf einem aufstrebenden Ast
Standard

1.) Falsches Forum
2.) Code-Tags benutzen
3.) Warum fragt dein Freund nicht selbst?
Mit Zitat antworten
  #3 (permalink)  
Alt 19-11-2009, 20:39
ccceeerrr
 Registrierter Benutzer
Links : Onlinestatus : ccceeerrr ist offline
Registriert seit: Nov 2009
Beiträge: 5
ccceeerrr befindet sich auf einem aufstrebenden Ast
Standard

er ist auf kurs und hat kein i-net...

sorry weis nicht was der code-tag ist...

kann mir jemand helfen?

gruss
Mit Zitat antworten
  #4 (permalink)  
Alt 19-11-2009, 20:43
unset
  Moderator
Links : Onlinestatus : unset ist offline
Registriert seit: Jan 2007
Ort: Düsseldorf
Beiträge: 3.782
unset befindet sich auf einem aufstrebenden Ast
Standard

Dann hurtigst die Regeln lesen: PHP script resource - Ankündigungen im Forum : ASP, PERL, CGI, C und alles andere
Mit Zitat antworten
  #5 (permalink)  
Alt 19-11-2009, 20:47
pekka
 PHP Master
Links : Onlinestatus : pekka ist offline
Registriert seit: Jun 2001
Ort: Köln
Beiträge: 6.608
pekka befindet sich auf einem aufstrebenden Ast
Standard

Das Code-Tag dient hier im Forum zur Markierung von Code. 3. Knopf von rechts in der 2. Reihe.

Dein Freund soll mal den Firefox installieren und sich die Fehlerkonsole anschauen, die gibt brauchbarere Meldungen zurück und zeigt die genaue Stelle. Dafür braucht er allerdings Internet.
Mit Zitat antworten
  #6 (permalink)  
Alt 19-11-2009, 20:49
unset
  Moderator
Links : Onlinestatus : unset ist offline
Registriert seit: Jan 2007
Ort: Düsseldorf
Beiträge: 3.782
unset befindet sich auf einem aufstrebenden Ast
Standard

Auch für VB-Code (oder was das sein soll)?
Mit Zitat antworten
  #7 (permalink)  
Alt 19-11-2009, 20:49
ccceeerrr
 Registrierter Benutzer
Links : Onlinestatus : ccceeerrr ist offline
Registriert seit: Nov 2009
Beiträge: 5
ccceeerrr befindet sich auf einem aufstrebenden Ast
Standard

PHP-Code:
Sub Main
mydoc
thisComponent
mysheet
=mydoc.sheets(0)
 
Spielerzelle=mysheet.getCellByPosition(1,15)
Spieler=Spielerzelle.value
 
Dim payouts
(1 to Spieler) as double 
anzpayouts
=Spieler
for i=1 to Spieler
piz
=mysheet.getCellByPosition(4,2+i)
payouts(i)=piz.value
if payouts(i)=0 then
anzpayouts
=i-1
end 
if
next i
 
Dim stacks
(1 to Spieler) as double
total
=0
for j=1 to Spieler
stz
=mysheet.getCellByPosition(1,2+j)
stacks(j)=stz.value
total
total+stacks(j)
next j
 
Dim equity
(1 to Spieler) as double
for k=1 to Spieler 
eqz
=mysheet.getCellByPosition(7,17+k)
equity(k)=getequity(kpayoutsstacks,total,1,anzpayouts)
eqz.value=equity(k)
next k
 
End Sub
 
Function getequity(player as integerpayoffs() as doublechipstacks() as doubletotalchips as doubledepth as integer,priceplaces as integer) as double
 
eq 
= (chipstacks(player)/totalchips)*payoffs(depth)
 
if 
depth<priceplaces then 
for l=l ubound(chipstacks())
if 
l<>player then 
chipstacks (l) [HIER]
chipstacks (l) = 
eq 
eq+getequity(playerpayoffschipstackstotalchips cdepth+1,priceplaces) * (c/totalchips)
chipstacks(i)= c
end 
if
next l
end 
if
getequity=eq
 
End 
Function 
richtig so :S sorry aber ich habe überhaupt keine ahnung von dem Zeug aber wäre euch wirklich sehr dankbar wenn mir jemand weiterhelfen würde...

gruss
Mit Zitat antworten
  #8 (permalink)  
Alt 19-11-2009, 20:51
pekka
 PHP Master
Links : Onlinestatus : pekka ist offline
Registriert seit: Jun 2001
Ort: Köln
Beiträge: 6.608
pekka befindet sich auf einem aufstrebenden Ast
Standard

Zitat:
Zitat von unset Beitrag anzeigen
Auch für VB-Code (oder was das sein soll)?
Ach das ist BASIC. Ich dachte, es geht um Javascript.
Mit Zitat antworten
  #9 (permalink)  
Alt 19-11-2009, 21:41
ccceeerrr
 Registrierter Benutzer
Links : Onlinestatus : ccceeerrr ist offline
Registriert seit: Nov 2009
Beiträge: 5
ccceeerrr befindet sich auf einem aufstrebenden Ast
Standard

kann mir keiner helfen? =(
Mit Zitat antworten
  #10 (permalink)  
Alt 19-11-2009, 21:42
pekka
 PHP Master
Links : Onlinestatus : pekka ist offline
Registriert seit: Jun 2001
Ort: Köln
Beiträge: 6.608
pekka befindet sich auf einem aufstrebenden Ast
Standard

Zunächst mal solltest du erklären, was das für Code ist und womit du ihn laufenläßt
Mit Zitat antworten
  #11 (permalink)  
Alt 19-11-2009, 23:41
ccceeerrr
 Registrierter Benutzer
Links : Onlinestatus : ccceeerrr ist offline
Registriert seit: Nov 2009
Beiträge: 5
ccceeerrr befindet sich auf einem aufstrebenden Ast
Standard

VB und läuft in Excel als Macro
Mit Zitat antworten
Antwort

Lesezeichen


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Themen-Optionen
Thema bewerten
Thema bewerten:

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


PHP News

ebiz-trader 7.5.0 mit PHP7 Unterstützung veröffentlicht
ebiz-trader 7.5.0 mit PHP7 Unterstützung veröffentlichtDie bekannte Marktplatzsoftware ebiz-trader ist in der Version 7.5.0 veröffentlicht worden.

28.05.2018 | Berni

Wissensbestand in Unternehmen
Wissensbestand in UnternehmenLebenslanges Lernen und Weiterbilden sichert Wissensbestand in Unternehmen

25.05.2018 | Berni


 

Aktuelle PHP Scripte

PHP Server Monitor

PHP Server Monitor ist ein Skript, das prüft, ob Ihre Websites und Server betriebsbereit sind.

11.09.2018 Berni | Kategorie: PHP/ Security
PHP WEB STATISTIK ansehen PHP WEB STATISTIK

Die PHP Web Statistik bietet Ihnen ein einfach zu konfigurierendes Script zur Aufzeichnung und grafischen und textuellen Auswertung der Besuchern Ihrer Webseite. Folgende zeitlichen Module sind verfügbar: Jahr, Monat, Tag, Wochentag, Stunde Folgende son

28.08.2018 phpwebstat | Kategorie: PHP/ Counter
Affilinator - Affilinet XML Produktlisten Skript

Die Affilinator Affilinet XML Edition ist ein vollautomatisches Skript zum einlesen und darstellen der Affili.net (Partnerprogramm Netzwerk) Produktlisten und Produktdaten. Im Grunde gibt der Webmaster seine Affilinet PartnerID ein und hat dann unmittelb

27.08.2018 freefrank@ | Kategorie: PHP/ Partnerprogramme
 Alle PHP Scripte anzeigen

Alle Zeitangaben in WEZ +2. Es ist jetzt 12:50 Uhr.