Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.12.2009 17:19:44 |
mb |
|
|
|
07.12.2009 20:43:10 |
Holger |
|
|
|
08.12.2009 12:21:27 |
mb |
|
|
Aw:Aw:Aw:Umgang mit einem Array vom Typ der eigene |
08.12.2009 13:07:33 |
Holger |
|
|
Von:
Holger |
Datum:
08.12.2009 13:07:33 |
Views:
903 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Umgang mit einem Array vom Typ der eigene |
Hallo mb,
arbeitest du mit VB oder VBA? Bei VBA 2007 (Visual Basic for Applications) ist der Befehl vorhanden und wird für Zuweisungen für Objekte etc. verwendet. Das hier ist ein VBA-Forum.
Gruß
Holger
mb schrieb am 08.12.2009 12:21:27:
Funktioniert leider so noch nicht...angeblich gibt es set gar nicht mehr sagt mir visual studio...
Holger schrieb am 07.12.2009 20:43:10:
Hallo mb,
ich habe nicht die Zeit, mich jetzt wirklich mit deinem Problem auseinander zu setzen. Versuche einmal
set stahlsorte(i)
Ob das auch mit einem Array klappt, habe ich nocht probiert. Berichte bitte über das Ergebnis.
Gruß
Holger
mb schrieb am 07.12.2009 17:19:44:
Hallo...
Ich habe die Klasse Stahlsorte innerhalb einer anderen Klasse erstellt. Später erstelle ich ein array mit dieser klasse als Datentyp. In einer anschließenden if-abfrage möchte ich diese (neue)stahlsorte mit den variablenwerten füttern...allerdings kommt dann folgende warnung bzw fehlermeldung :"Die stahlsorte-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird".
Hier die entsprechenden Auszüge aus meinem Quellcode (den ort der fehlermeldung habe ich mit !!!...!!! gekennzeichnet:
Public Class Stahlsorte
Public name As String
Public fy As Double
Public R_m As Double 'tensile stress
Public Emodul As Double 'elastic modulus
'material (UML)
Public K_strich As Double 'UML
Public n_strich As Double 'UML
Public B As Double 'UML
Public c As Double 'UML
Public epsilon_f_strich As Double 'UML
Public psi As Double 'UML
Public sigma_f_strich As Double 'UML
Public Sub New(ByVal name As String, ByVal fy As Double, ByVal R_m As Double, ByVal Emodul As Double)
name = name
fy = fy
R_m = R_m
End Sub
End Class
...
...
Dim stahlsorte() As Stahlsorte
Dim i As Integer
i = 0
If Me.Material.Text = "NEUES MATERIAL" Then
!!!stahlsorte(i)!!! = New Stahlsorte("temp", 1, 2, 3)
stahlsorte(i).name = InputBox("Geben Sie bitte den Materialnamen ein: ", "Neues Material")
stahlsorte(i).fy = InputBox("Geben Sie bitte die Stahlfließgrenze fy ein: ", "Neues Material")
stahlsorte(i).R_m = InputBox("Geben Sie bitte die Zugfestigkeit R_m ein: ", "Neues Material")
stahlsorte(i).Emodul = InputBox("Geben Sie bitte den elastizitätsmodul E ein: ", "Neues Material")
end if
Wäre echt cool,wenn mir jemand helfen könnte...besten dank |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.12.2009 17:19:44 |
mb |
|
|
|
07.12.2009 20:43:10 |
Holger |
|
|
|
08.12.2009 12:21:27 |
mb |
|
|
Aw:Aw:Aw:Umgang mit einem Array vom Typ der eigene |
08.12.2009 13:07:33 |
Holger |
|
|