You are not logged in.

Rechenprogramm!

Dear visitor, welcome to AnnoZone Forum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

  • 1
  • 2

Bomi

Meister der Kleintools

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

21

Saturday, November 1st 2003, 10:25am

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

This post has been edited 1 times, last edit by "Bomi" (Nov 1st 2003, 10:25am)

Robinson Crusoe

Ehren-Mitglied

Posts: 1,211

Date of registration: Aug 30th 2003

  • Send private message

22

Saturday, November 1st 2003, 10:36am

Quoted

Original von Bomi

Quoted

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

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

23

Saturday, November 1st 2003, 10:55am

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

drkohler

Master of Editor

Posts: 1,578

Date of registration: Jun 18th 2003

  • Send private message

24

Saturday, November 1st 2003, 11:39am

Quoted

Original von Bomi

Quoted

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-" started this thread

Posts: 79

Date of registration: Oct 25th 2003

  • Send private message

25

Saturday, November 1st 2003, 12:55pm

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

Posts: 809

Date of registration: Sep 12th 2003

  • Send private message

26

Saturday, November 1st 2003, 2:16pm

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-" started this thread

Posts: 79

Date of registration: Oct 25th 2003

  • Send private message

27

Saturday, November 1st 2003, 2:27pm

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

Posts: 1,211

Date of registration: Aug 30th 2003

  • Send private message

28

Saturday, November 1st 2003, 2:38pm

Quoted

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 ;)
--------------------------------------------------------------------------------

This post has been edited 1 times, last edit by "Robinson Crusoe" (Nov 6th 2003, 5:52pm)

-Tobi-

Ausguck

  • "-Tobi-" started this thread

Posts: 79

Date of registration: Oct 25th 2003

  • Send private message

29

Saturday, November 1st 2003, 5:30pm

Oh wie edel :hüpf:

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

Robbie47

Meereskenner

Posts: 809

Date of registration: Sep 12th 2003

  • Send private message

30

Saturday, November 1st 2003, 5:50pm

Quoted

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-" started this thread

Posts: 79

Date of registration: Oct 25th 2003

  • Send private message

31

Saturday, November 1st 2003, 6:56pm

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

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

32

Sunday, November 2nd 2003, 7:52am

Quoted

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

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

Bomi

Meister der Kleintools

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

33

Sunday, November 2nd 2003, 7:54am

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

-Tobi-

Ausguck

  • "-Tobi-" started this thread

Posts: 79

Date of registration: Oct 25th 2003

  • Send private message

34

Sunday, November 2nd 2003, 10:18am

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

Posts: 145

Date of registration: May 8th 2003

  • Send private message

35

Monday, November 3rd 2003, 3:10am

Quoted

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

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

36

Monday, November 3rd 2003, 5:07am

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

Moers

Vollmatrose

Posts: 145

Date of registration: May 8th 2003

  • Send private message

37

Monday, November 3rd 2003, 10:16pm

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

Posts: 3,175

Date of registration: May 2nd 2003

  • Send private message

38

Tuesday, November 4th 2003, 4:58am

Quoted

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

Quoted

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

ANNOTunes • ANNOTools • Metropolaris, Georgolaris • 1602-Zeugs • 1503-Szenarien • Dieter's 1503-Editor

Moers

Vollmatrose

Posts: 145

Date of registration: May 8th 2003

  • Send private message

39

Monday, November 10th 2003, 7:53pm

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.
  • 1
  • 2