der code:Dim plax, play, plbx, plby, prax, pray, prbx, prby, poax, poay, pobx, poby, puax, puay, pubx, puby As Double 'Messpunkte auf den Geraden
Dim ml, mr, mo, mu As Double 'Steigungen der 4 Geraden
'punkte definieren:
plax = Round(Sheets("Strahlenfeld-Einlesen").Cells(1, 11).Value)
plbx = Round(Sheets("Strahlenfeld-Einlesen").Cells(5, 11).Value)
prax = Round(Sheets("Strahlenfeld-Einlesen").Cells(2, 11).Value)
prbx = Round(Sheets("Strahlenfeld-Einlesen").Cells(6, 11).Value)
poax = Round(Sheets("Strahlenfeld-Einlesen").Cells(3, 11).Value)
pobx = Round(Sheets("Strahlenfeld-Einlesen").Cells(7, 11).Value)
puax = Round(Sheets("Strahlenfeld-Einlesen").Cells(4, 11).Value)
pubx = Round(Sheets("Strahlenfeld-Einlesen").Cells(8, 11).Value)
play = Round(Sheets("Strahlenfeld-Einlesen").Cells(1, 10).Value)
plby = Round(Sheets("Strahlenfeld-Einlesen").Cells(5, 10).Value)
pray = Round(Sheets("Strahlenfeld-Einlesen").Cells(2, 10).Value)
prby = Round(Sheets("Strahlenfeld-Einlesen").Cells(6, 10).Value)
poay = Round(Sheets("Strahlenfeld-Einlesen").Cells(3, 10).Value)
poby = Round(Sheets("Strahlenfeld-Einlesen").Cells(7, 10).Value)
puay = Round(Sheets("Strahlenfeld-Einlesen").Cells(4, 10).Value)
puby = Round(Sheets("Strahlenfeld-Einlesen").Cells(8, 10).Value)
'steigungen:
ml = steigung(play, plax, plby, plbx)
mr = steigung(pray, prax, prby, prbx)
mo = steigung(poay, poax, pobx, poby)
mu = steigung(puay, puax, pubx, puby)
ganz oben (ausserhalb des sub) ist steigung definiert:
Function steigung(y1, x1, y2, x2 As Double)
steigung = (y2 - y1) / (x2 - x1)
End Function
'
Watch : : ml : : Empty : Tabelle6.öffnen_Click