Sie sind nicht angemeldet.

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

21

Samstag, 1. November 2003, 10:25

Zitat

Original von -Tobi-
Und wenn das Programm 12,5 Gewürzplantagen ausgibt müsst ihr logischerweise natürlich 13 bauen ;)


Function GanzePlantagen(sngPlantagenBerechnet As Single) As Integer
Dim strTemp As String


strTemp = Format$(sngPlantagenBerechnet, "#.00")
If Val(Mid$(strTemp, InStr(strTemp, ",") + 1)) > 0 Then
GanzePlantagen = Int(sngPlantagenBerechnet) + 1
Else
GanzePlantagen = Int(sngPlantagenBerechnet)
End If

End Function


:D
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Bomi« (1. November 2003, 10:25)


Robinson Crusoe

Ehren-Mitglied

Beiträge: 1 211

Registrierungsdatum: 30. August 2003

  • Nachricht senden

22

Samstag, 1. November 2003, 10:36

Zitat

Original von Bomi

Zitat

Original von -Tobi-
Und wenn das Programm 12,5 Gewürzplantagen ausgibt müsst ihr logischerweise natürlich 13 bauen ;)


Function GanzePlantagen(sngPlantagenBerechnet As Single) As Integer
Dim strTemp As String


strTemp = Format$(sngPlantagenBerechnet, "#.00")
If Val(Mid$(strTemp, InStr(strTemp, ",") + 1)) > 0 Then
GanzePlantagen = Int(sngPlantagenBerechnet) + 1
Else
GanzePlantagen = Int(sngPlantagenBerechnet)
End If

End Function


:D


und was heißt das auf deutsch :scratch: :konfus:

erklär mir das bitte mal so als wär ich 6 jahre alt :D
  Lieber stadtbekannter Annoholiker, als anonymer Alkoholiker.
Annoholismus ist keine schlechte Angewohnheit, es ist mehr eine Krankheit.
Annozone...Da werden Sie geholfen :D

--------------------------------------------------------------------------------
Computerprobleme sitzen in den meisten Fällen zwischen Tastatur und Stuhl ;)
--------------------------------------------------------------------------------

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

23

Samstag, 1. November 2003, 10:55

Zitat

Original von Robinson Crusoe
und was heißt das auf deutsch :scratch: :konfus:

Das ist eine VBA-Funktion für seine Arbeitsmappe - dann kann er das gleich so ausgeben, dass man sieht, dass 13 statt 12,5 Plantagen benötigt werden - er weiss schon, was er damit machen kann...

Du musst das nicht verstehen, es bringt Dich auch nicht irgendwie weiter, wenn ich Dir das jetzt erkläre - auch später nich mit 6 :D
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

drkohler

Master of Editor

Beiträge: 1 578

Registrierungsdatum: 18. Juni 2003

  • Nachricht senden

24

Samstag, 1. November 2003, 11:39

Zitat

Original von Bomi

Zitat

Original von Robinson Crusoe
und was heißt das auf deutsch :scratch: :konfus:

Das ist eine VBA-Funktion für seine Arbeitsmappe - dann kann er das gleich so ausgeben, dass man sieht, dass 13 statt 12,5 Plantagen benötigt werden - er weiss schon, was er damit machen kann...

Du musst das nicht verstehen, es bringt Dich auch nicht irgendwie weiter, wenn ich Dir das jetzt erkläre - auch später nich mit 6 :D

Was bin ich froh, dass ich die Editoren in Delphi programmiere, da heisst es einfach AnzahlPlantagen = trunc(x + 1) :D :D

-Tobi-

Ausguck

  • »-Tobi-« ist der Autor dieses Themas

Beiträge: 79

Registrierungsdatum: 25. Oktober 2003

  • Nachricht senden

25

Samstag, 1. November 2003, 12:55

Hab recht herzlichen dank Bomi :hauwech:

Da werd ich das doch bei Gelegenheit mal einbauen
So is das halt, wenn man wie ich blutiger Anfänger is da macht einem sowas schon zu schaffen :g:

Das ganze geht doch bestimmt auch in einer Sub-Prozedur oder Bomi?
  Wenn einer keine Angst hat, hat er keine Phantasie!
Erich Kästner

Robbie47

Meereskenner

Beiträge: 809

Registrierungsdatum: 12. September 2003

  • Nachricht senden

26

Samstag, 1. November 2003, 14:16

Tobias, das ist sehr schön... Aber zumindest für Anno 1602 habe ich so ein Teil schon 'ne ganze Weile auf dem Rechner...
  ....Gruß ,Robbie

_________________
.... Anno 1602
.... Das Original
_________________

-Tobi-

Ausguck

  • »-Tobi-« ist der Autor dieses Themas

Beiträge: 79

Registrierungsdatum: 25. Oktober 2003

  • Nachricht senden

27

Samstag, 1. November 2003, 14:27

Ich weis, dass es sowas schon lange gibt Robbie ;)
Als ich mit meinem Programm angefangen habe hatte ich ja auch nicht vor das Teil auf ne Seite zu stellen. Ich wollte nur mal wissen ob ich sowas auch selbst in ähnlicher Form hinkriegen würde.
  Wenn einer keine Angst hat, hat er keine Phantasie!
Erich Kästner

Robinson Crusoe

Ehren-Mitglied

Beiträge: 1 211

Registrierungsdatum: 30. August 2003

  • Nachricht senden

28

Samstag, 1. November 2003, 14:38

Zitat

Original von -Tobi-
Ich weis, dass es sowas schon lange gibt Robbie ;)
Als ich mit meinem Programm angefangen habe hatte ich ja auch nicht vor das Teil auf ne Seite zu stellen. Ich wollte nur mal wissen ob ich sowas auch selbst in ähnlicher Form hinkriegen würde.


is dir ja auch gelungen gratz@tobi

@bomi :D
  Lieber stadtbekannter Annoholiker, als anonymer Alkoholiker.
Annoholismus ist keine schlechte Angewohnheit, es ist mehr eine Krankheit.
Annozone...Da werden Sie geholfen :D

--------------------------------------------------------------------------------
Computerprobleme sitzen in den meisten Fällen zwischen Tastatur und Stuhl ;)
--------------------------------------------------------------------------------

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Robinson Crusoe« (6. November 2003, 17:52)


-Tobi-

Ausguck

  • »-Tobi-« ist der Autor dieses Themas

Beiträge: 79

Registrierungsdatum: 25. Oktober 2003

  • Nachricht senden

29

Samstag, 1. November 2003, 17:30

Oh wie edel :hüpf:

Herzlichen dank Robinson
  Wenn einer keine Angst hat, hat er keine Phantasie!
Erich Kästner

Robbie47

Meereskenner

Beiträge: 809

Registrierungsdatum: 12. September 2003

  • Nachricht senden

30

Samstag, 1. November 2003, 17:50

Zitat

Original von -Tobi-
.... Ich wollte nur mal wissen ob ich sowas auch selbst in ähnlicher Form hinkriegen würde.


Dann mein höchstes Lob! :up: In solchen Sachen bin ich nicht so gut...
  ....Gruß ,Robbie

_________________
.... Anno 1602
.... Das Original
_________________

-Tobi-

Ausguck

  • »-Tobi-« ist der Autor dieses Themas

Beiträge: 79

Registrierungsdatum: 25. Oktober 2003

  • Nachricht senden

31

Samstag, 1. November 2003, 18:56

Ach naja das is eigentlich ganz lustig ;)
Mich hat der Infokurs in der Schule drauf gebracht :rofl:
  Wenn einer keine Angst hat, hat er keine Phantasie!
Erich Kästner

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

32

Sonntag, 2. November 2003, 07:52

Zitat

Original von -Tobi-
So is das halt, wenn man wie ich blutiger Anfänger is da macht einem sowas schon zu schaffen :g:

Angefangen hamwer alle mal:


10 Print "Hello World"
20 Goto 10


:D

Zitat

Das ganze geht doch bestimmt auch in einer Sub-Prozedur oder Bomi?

Ihr habt anscheinend noch nicht den Unterschied zwischen Prozedur und Funktion gehabt? Funktion ist für solche Sachen besser - bevor ich da jetzt umständlich in den Downloads suche: schick mir Dein XLS doch mal per EMail, dann baue ich Dir das da ein...
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

33

Sonntag, 2. November 2003, 07:54

Zitat

Original von drkohler
da heisst es einfach AnzahlPlantagen = trunc(x + 1)

Was meinste, wie ich Inc() und Dec() vermisse - diese ewige "Cnt = Cnt +1 " ist sowas von umständlich :))
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

-Tobi-

Ausguck

  • »-Tobi-« ist der Autor dieses Themas

Beiträge: 79

Registrierungsdatum: 25. Oktober 2003

  • Nachricht senden

34

Sonntag, 2. November 2003, 10:18

Hm ich glaube ich werd mal anfangen das mit dem runden so langsam einzubauen das fetzt mehr wie das, was ich gerade mache!---*VBR Hausaufgaben in Ecke werf* :D
  Wenn einer keine Angst hat, hat er keine Phantasie!
Erich Kästner

Moers

Vollmatrose

Beiträge: 145

Registrierungsdatum: 8. Mai 2003

  • Nachricht senden

35

Montag, 3. November 2003, 03:10

Zitat

Original von Bomi
Was meinste, wie ich Inc() und Dec() vermisse - diese ewige "Cnt = Cnt +1 " ist sowas von umständlich :))

Hey :) mit Pascal angefangen und nicht bei i++ gelandet?

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

36

Montag, 3. November 2003, 05:07

Zitat

Original von Moers
Hey :) mit Pascal angefangen und nicht bei i++ gelandet?

Nö - was ist I++? Angefangen habe ich mit Fortran, Forth, PL/I auf IBM-Grosshobeln - dann MS-Basic, Assembler, Business Basic auf 'ner MDT-Kiste, büschen Logo, dann jahrelang TP, büschen "TP für Windows" (heute "Delphi"), nu VB und VBA - C oder so is nix für mich - bevorzuge Programmiersprachen, keine Programmverschlüsselungssprachen :D
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

Moers

Vollmatrose

Beiträge: 145

Registrierungsdatum: 8. Mai 2003

  • Nachricht senden

37

Montag, 3. November 2003, 22:16

Na weil Du Inc() vermißt dachte ich, daß Du nun i++ verwendest stattdessen, also C, aber hast irgendwie schon bißchen Recht damit ... "bevorzuge Programmiersprachen, keine Programmverschlüsselungssprachen", hihi. Aber bevor ich nochmal Cobol programmieren muß ist's mir dann doch lieber ;) Mit TP hab ich auch lange Zeit binäre Heimtücke erzeugt *Hand reich*. Delphi ist dann aber an mir vorübergegangen irgendwie, lag wohl daran, daß ich für PC's dann nichts mehr gemacht hab.

Bomi

Meister der Kleintools

Beiträge: 3 175

Registrierungsdatum: 2. Mai 2003

  • Nachricht senden

38

Dienstag, 4. November 2003, 04:58

Zitat

Original von Moers
Aber bevor ich nochmal Cobol programmieren muß ist's mir dann doch lieber ;)

Achja, stimmt - Cobol war da auch mal 'ne zeitlang angesagt - war nicht sooo schlecht, aber...

Zitat

Mit TP hab ich auch lange Zeit binäre Heimtücke erzeugt *Hand reich*. Delphi ist dann aber an mir vorübergegangen irgendwie, lag wohl daran, daß ich für PC's dann nichts mehr gemacht hab.

...TP habe ich von v1.00 bis v7.nochwas gemacht, das war echt super, hab ich auch mal 'n kleines Büchlein drüber gemacht :rolleyes:

Aber dann kam Access - das hat mich als dBase IIer/IIIer ziemlich fasziniert - und fesselt mich heute noch :] Dagegen und gegen VB/VBA konnte Delphi nie so recht zum Zuge kommen...
  ATH, Bomi

Contests: 2008 BEC BOC 1602 | 2007 BEC BOC | 2006 BEC BOC | 2005 BEC BOC | 2004 BEC

ANNOTunesANNOToolsMetropolaris, Georgolaris1602-Zeugs1503-SzenarienDieter's 1503-Editor

Moers

Vollmatrose

Beiträge: 145

Registrierungsdatum: 8. Mai 2003

  • Nachricht senden

39

Montag, 10. November 2003, 19:53

Hehe, da muß ich doch zu Hause direkt mal gucken, vielleicht habe ich sogar mal Postings - äh ne, Buch heißt das ja, wenn's gedruckt und gebunden ist - von Dir gekauft.