proggie für das ohmsche Gesetz ?

[Shocklite]

Hi,

ihr müsst mir helfen Jungs ich schreibe morgen meine VB Arbeit und ich hab gerade aus zuverlässiger Quell erfahren, dass wir ein Proggier zur ´Berechnung des Ohmschen Gesetzes schreiben müssen, da ich aber in dem Fach nie aufgepasst habe kann ich die Arbeit knicken wenn ich nich irgendwo nen code für so ein Proggier herkriege...

sollte aber nur ein ganz simples sein also eins das nur aus einem Fenster besteht...

Biiiiiiiitte helft mir ich werde mich auch bessern versprochen

ciao, shocklite

 

[Tim C.]

Dann sollte bitte deine erste Besserung, und zwar noch vor der Klausur, darin bestehen, dich an Punkt 12 unserer Netiquette zu halten.

Danke im Vorraus, im Namen aller, die den Thread noch lesen (sollen)

Tim

 

[TopManiac]

Hilfe zu Ohmisches Gesetz Proggie

Probier mal diesen Code. Diese Fassung funktioniert ohne jedes Formular:

Option Explicit
Dim U, R, I As Single

Sub Main()

      'Einlesen der Werte      
      R = val(InputBox("Bitte R in Ohm angeben:"))
      I = val(InputBox("Bitte I in Ampere angeben:"))
 
      ' Berechnung     
       U = R * I
       
       ' Ausgabe in MsgBox
       MsgBox("Das Ergebnis ist: " & I & " Volt!")

End Sub

Alle Angaben ohne Gewähr... ;-)

 

[Shocklite]

hey danke dir top maniac und sorry nochmal ich wuste das echt nicht mit den Regeln, sonst hätte ich mich auf jeden Fall dran gehalten

ihr habt mich gerettet