hej hur gör jag en class modul där jag med en if then sats testar om variabeln kop är ett decimaltal och isåfall avrundar upp det till närmaste heltal t.ex koden"
If kop <> Round(kop) Then kop = Int(kop) + 1"
variabeln kop beräknas i formulärkoden.
hur anropar jag classmodulen i formulärkoden????

tacksam om någon har tid och hjälpa mej!!

Varför en klassmodul? Känns som att det är smidigare med en vanlig funktion här som ser ut som du har skrivet, eller?

/Johan

försöker lära mig det här med classmoduler... kanske inte bästa exemplet men ändå
form koden ser ut ungefär så här
Private Sub cmdberakna_Click()
Dim area As Double
Dim frp As Double
Dim langd As Double
Dim bredd As Double
Dim kop As Single
Dim pris1 As Single
Dim klpris As Single
Dim fixpris As Single
Dim fogpris As Single
Dim summa As Single
'deklarerar variablerna

langd = txtlangd
bredd = txtbredd
'läser in längd och bredd från textboxarna

frp = txtfrp
area = langd * bredd
kop = area / frp 'räknar ut hur många förpackningar
'kop avrundas till närmast högre heltal i en classmodul

'lblkop=resultatet av avrundning iclassmodulen skriver ut hur många förp som behöver köpas

pris1 = txtpris1 'läser in priset från textboxen
klpris = kop * pris1 'räknar ut klinkerskostnaden
lblsumma = klpris + txtfixpris + txtfogpris 'räknar ut totalkostnaden






End Sub

Private Sub lbllangd_Click()

End Sub



Private Sub cmdend_Click()
End
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Hej
Det där med ClassModuler har blivit en modefluga som används
i alla möjliga och omöjliga sammanhang. Enl. min uppfattning.

När man ger sig till att skriva en ClassModul måste man svara
på frågan, kommer jag att ha användning för denna modul
många många ggr. För det mesta blir svaret Nej.Kommer jag att
behöva ärva egenskaperna från denna modul,samma där oftast Nej.

Alltså som JohanD skriver var smidig gör en Function istället.
Iofs tycker jag nog att det verkar som ditt exempel kan användas
i Polymorfism ,så att det kan platsa som ClassModul.

/Sven

du har inte ett förslag hur jag skall lösa det med polymorfism då?

Hmmm modefluga? Folk har gjort bort sig förr genom att kalla saker för modefluga, så det är ett modigt påstående :-)

Hur som helst, vill bara tillägga att en vanlig modul i vb inte är något annat än en klass som inte behöver instansieras, dvs alla funktioner är static. Jämför med C# som inte har "moduler" utan bara klasser.

Här är IL:en för en funktion GetAge (som inte gör annat än att returnera 32) som ligger i en module som heter Module1. Som ni ser så blir det en klass med en static funktion :

VB-koden :
<code>

Module Module2
Public Function GetAge() As Integer
Return 10
End Function
End Module

</code>
IL-koden :
<code>

.class private auto ansi sealed Module2 <----- Klass
extends [mscorlib]System.Object
{
.custom instance void [Microsoft.VisualBasic]Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute::.ctor() = ( 01 00 00 00 )
} // end of class Module2

.method public static int32 GetAge() cil managed <----- Static funktion i klass
{
// Code size 8 (0x8)
.maxstack 1
.locals init ([0] int32 GetAge)
IL_0000: nop
IL_0001: ldc.i4.s 32
IL_0003: stloc.0
IL_0004: br.s IL_0006
IL_0006: ldloc.0
IL_0007: ret
} // end of method Module2::GetAge

</code>

Insåg just att jag gjort bort mig :-)

Detta är ju inte ett VB.Net-forum, sorry guys! Jag tänker bara .Net nuförtiden...Glöm mitt inlägg, det hörde inte hemma här...

Hej Neh,

För att utveckla Niclas svar litegrand...Lägg till en klassmodul och skriv :

<code>
Public Function Avrunda(ByVal kop As Single) As Single
If kop <> Round(kop) Then Avrunda=Int(kop) + 1
End Function
</code>

Anropa den med :

<code>
Dim mMyClass As MyClass
Set mMyClass=New MyClass
kop=mMyClass.Avrunda(kop)
mMyClass=nothing
</code>

Sen vill jag bara ge dig ett tips. Att skriva :

<code>
langd=txtlangd
</code>

är inte speciellt snyggt, men det går eftersom VB tar hand om några saker här. Dels så lägger VB till default propertyn Text till koden och dels så görs en konvertering från String till Double för att kunna lagras i variabeln langd. Att utnyttja implicita konverteringar och defaultproperties anses av många vara "dålig/slarvig programmeringsstil". Jag tillhör dom som tycker att detta ser illa ut, av flera skäl. Teoretiskt kan ett defaultbeteende förändras från version till version (vilket det har gjort i o m VB.Net), och dessutom så om du av misstag råkat skriva txtlangd i stället för en annan doublevariabel så får du aldrig veta det (förrän du kör koden och programmet inte fungerar som det ska). Du får alltså ett runtimefel som i princip alltid är svårare att lösa än compiletime fel. Genom att skriva :

<code>
langd = CDbl(txtLangd.Text)
</code>

har du visat att denna konvertering är medvetet utförd (och den är explicit och tydlig) och koden är också lättare att konvertera till t ex VB.Net som inte accepterar defaultparametrar.

Som sagt, det finns delade meningar om detta, en del vill slippa skriva så mycket som möjligt och tycker det är värt priset att utnyttja sådana här "tricks" som VB ändå tillåter. Jag tycker det inte...

Lycka till...

/Per Hultqvist

tackar och bockar ....skall se om det fungerar...

Hej
Tur att Ni skriver i så otydligt textformat "modefluga" så jag orkar
inte ta fram förstoringsglaset och läsa, skriv så det går att läsa.

Tänk på alla som är hörselskadade , hur skall dom kunna läsa den
färgsatta småstilade texten !!
/Sven

Vad svamlar du om SvenPon? Synpunkter på fonterna kan nog med större framgång framföras till Pelle(Sysop). Och att code-taggen inte verkar fungera korrekt är inget jag tar ansvar för...

/Per Hultqvist

Hej
Mitt fel webläsaren ställer om sig till minsta text
Så var det med det.
No hard feelings
/Sven

funkar kanonfint tack HULTAN!!!

Jag skulle vilja påstå att klassmoduler är bra IBLAND.

Ofta används det till helt fläppade saker... Men inte då de behövs! :)
Behövs: Om man ska ha flera instanser av något, t.ex. om man skrivit ett finurligt data-objekt som kan skicka och ta emot data samtidigt eller likn.
Behövs inte: För att anropa DLL:er där modulen ändå inte innehåller några egna variabler.