vb6 Frage zu Rechenschleife

[Dayn]

Hallo,
Ich versuche mich seit gestern mit vb6 und habe alle TuT's von Reed-Blog angesehen.
Dann war ich drann ein "Taschenrechner" zu bauen es ging auch soweit ganz gut mit PLUS,MINUS,MAL aber ich hab keine ahnung wie ich DURCH rechnen kann ?? ??

Hier mal mein Ergebnis :

Private Sub cmd_mal_Click()

'MULTIPLIZIEREN


Dim zahl1 As Integer
Dim zahl2 As Integer

erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text

For i = 1 To zahl2

erg = erg + zahl1


Next i


lbl_ausgabe.Caption = erg


End Sub

Private Sub cmd_minus_Click()

'SUBTRAIEREN


Dim zahl1 As Integer
Dim zahl2 As Integer

erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text

For i = 1 To 1

erg = zahl1 - zahl2


Next i


lbl_ausgabe.Caption = erg


End Sub

Private Sub cmd_ok_Click()

'ADDIEREN


Dim zahl1 As Integer
Dim zahl2 As Integer

erg = 0
zahl1 = txt_eingabe.Text
zahl2 = txt_eingabe2.Text

For i = 1 To 1

erg = zahl1 + zahl2


Next i


lbl_ausgabe.Caption = erg


End Sub

Private Sub Command1_Click()

End Sub

Private Sub Picture1_Click()

End Sub

Also könnte mir jemand sagen wie ich den code für DURCH schreibe ? und wenn mäglich Wurzelziehen , Hochrechnen (x²) ...

Hoffe das mir jemand Helfen kann THX schonmal :wink:

[Darkraiser]

erg = zahl1 / zahl2

[Dayn]

THX !!!

aber ...
Ich schikte das Teil grad n Freund und sein Pc erkennt es als Virus ...
Dann hab ich die datei bei virustotal hochgeladen und das Ergebnis schockt mich ...

ERGEBNIS

Warum wird er als Trojaner / Virus erkannt ??

[sk!lled]

wurzel = SQR()

hoch² = z.b. bei 4

erg = 4 * 4


hoch x = z.b. hoch 4
erg = 4 * 4 * 4 * 4
(mach es mit ner for schleife ganz einfach)

Dim i As Integer
Dim erg As Integer
X = 3
zahl = 2
erg = zahl

For i = 1 To X - 1
erg = erg * zahl
Next

MsgBox erg



sollte stimmen

[Darkraiser]

hmm ... dass das als Virus angesehen wird .. verwundert mich aber auch vllt haste dir en Polymorphen eingefangen....

aber sonst.. normal compiliert passiert da normalerweise nix

mfg

[Dayn]

sry aber....
Polymorphen << ?was ist das ?

sry bin noob.. :wink:

[Darkraiser]

naja es ist ein Virus der sich selber weiterverbreited und er schreibt sich meistens selber in .exe dateien, heißt wenn man sie auf einem Fremdsystem ausführt, ist auch das Fremdsystem infiziert

ich würde deinen PC mal nach Viren checken lassen

mfg

[Dayn]

ok ich kill ma alles xD

wenn mein pc viren frei ist ..
muss ich dann VB neuinst. ??
oder reicht es wenn ich dann die exe dann nochma neu mache ?

... -.- ...... :evil:

//Edit:

Also mein Antivir ist drübergegangen und joa xD
VIRENSCANN !!
--> 498 Viren ist nicht schlecht oder ? :shock: :roll:

//Edit 2:

So nun wo ich alle viren gelöscht hab .weiß ich woran es liegt ...
es war nicht ir-wie n virus , sondern ich habe so ein komisches ICON genommen und dies muss den "virus" dargestellt haben ...

>><< Geschlossen ? >><<