CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

MortenTV Nybegynder

28. november 2011 - 15:19 Der er 13 kommentarer

Memorere Værdier

Hejsa!

Er der nogen der kan fortælle mig, hvordan man kan memorere en værdi?

Der jeg vil hen er, at når jeg siger

Private Sub Button1_click

'Label2 er der hvor min "resultat"-knap genkender hvilken funktion.
Label2.text = "+"
'Her er mit felt til værdier i min lommeregner.
FirstValue.text = ""

Meningen er så, at når jeg klikker på Button1, så "resetter" den min FirstValue.text og så husker den, hvad der stod i den.
Så vil jeg så gerne være i stand til, at taste et nyt tal ind, sådan at den kan regne forrige værdi og nuværende værdi sammen.

Synes godt om

Ialocin Novice

28. november 2011 - 16:48 #1

Hej Morten :o)

Prøv følgende:
Opret/Indsæt et Modul og kald det hvad du ønsker.
Herunder hedder det Module1 ...

I modulet skriver du følgende linier:
'erklæring af offentlig variabel, som kan tilgåes fra hele projektet
Public t As Long

Herefter kan din Button1 knap se således ud:

Private Sub Button1_Click()

'kald den offentlige variable t i modulet module1
'sæt t = værdien i FirstValue
Module1.t = Me.FirstValue.Text

'tøm FirstValue
Me.FirstValue.Text = ""

End Sub

Med venlig hilsen, Nicolai

Synes godt om

MortenTV Nybegynder

28. november 2011 - 16:56 #2

Vi prøver så.... :-)

Synes godt om

MortenTV Nybegynder

28. november 2011 - 16:58 #3

Men hvor finder du de der moduler? :S

Synes godt om

Ialocin Novice

28. november 2011 - 17:11 #4

Hej Morten

Det er lidt svært at forklare ... har du evt. en anden mailadresse end den her hos Eksperten.dk ? - Så kan jeg evt. sende dig et screendump ?

Og så blot lidt ekstra ....

Følgende koden opsummere en resultat label:

Private Sub Button1_Click()

'tjek om der er en værdi i FirstValue
'hvis der ikke er nogen værdi i FirstValue
If Me.FirstValue.Text = "" Then

MsgBox "Der er ingen værdi indtastst", vbInformation

'giv FirstValue fokus
Me.FirstValue.SetFocus

'hvis der er en værdi i FirstValue
Else

'kald den offentlige variable t i modulet module1
'sæt t = værdien i FirstValue
Module1.t = Me.FirstValue.Text

'første gang der sendes en værdi til resultat label
If Me.lblResultat.Caption = "" Then

'sæt resultat label = værdien af t
Me.lblResultat.Caption = Module1.t

'anden gang eller mere der sendes en værdi til resultat label
Else

'sæt resultat label = resultat label + værdien af t
Me.lblResultat.Caption = Me.lblResultat.Caption + Module1.t

End If

'tøm variablen t
Module1.t = Empty

'tøm FirstValue
Me.FirstValue.Text = ""

End If

End Sub

Med venlig hilsen, Nicolai

Synes godt om

Ialocin Novice

28. november 2011 - 17:20 #5

Hej Morten

Prøver lige alligevel, at forklare :o)

I dit project vindue under ... højreklikker du og vælger Add og vælger igen Module.

Med venlig hilsen, Nicolai

Synes godt om

Ialocin Novice

28. november 2011 - 17:29 #6

Hej Morten

Jeg vender tilbage efter kl. 20 i aften :o)

Med venlig hilsen, Nicolai

Synes godt om

MortenTV Nybegynder

28. november 2011 - 18:37 #7

Hej Nicolai

Jeg ved ikke helt hvordan det der 'module' det fungerer.

'Sådan ser det ud i Module1.vb
Public t As Long
End Sub

End Module

'Og sådan her ser det ud ved knapped
Private Sub Button1_Click
'Dette indikerer hvilken funkiton. Label2.Text = "+"

'Det var dette her du sagde Module.t = Me.FirstValue.Text
'Samme her, for at "resette" Me.FirstValue.Text = ""
End Sub

Men det virker ikke :S

Jeg er væk i et par timer, hjemme igen 21:15, senest.

Synes godt om

Ialocin Novice

28. november 2011 - 21:29 #8

Hej Morten

I modulet skal der kun stå erklæringslinien ... ikke noget med Sub / end sub !

Erklæringslinie:
Public t As Long

Jeg har lavet en lille inspirations lommeregner VB 6.0, som jeg kan poste til dig, hvis du har en mailadresse udenfor Eksperten.dk og kun hvis du er interesseret ?

Med venlig hilsen, Nicolai

Synes godt om

MortenTV Nybegynder

28. november 2011 - 21:46 #9

Du kan bare skrive til den e-mail jeg har oplyst. Bruger den til alt hvad der er skolerelateret, og det er det her jo :-) delvist...

Synes godt om

Ialocin Novice

28. november 2011 - 21:52 #10

Hej Morten

Kan ikke finde din mailadresse ??

Med venlig hilsen, Nicolai

Synes godt om

MortenTV Nybegynder

28. november 2011 - 22:48 #11

mtv6310@gmail.com :-)

Synes godt om

Ialocin Novice

28. november 2011 - 23:22 #12

Hej Morten

Mail afsendt ...

Med venlig hilsen, Nicolai

Synes godt om

Ialocin Novice

03. december 2011 - 22:34 #13

Hej Morten

Har du fået svar på dit spørgsmål ??
Hvis JA, skal jeg så poste et svar, så du kan lukke spørgsmålet ?!

Med venlig hilsen, Nicolai

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS