Notifikationer

Markér alle som læst Log ud

visualdeveloper Nybegynder

30. november 2004 - 22:52 Der er 5 kommentarer og
1 løsning

let spg til visual basic

hej exps.
jeg har lavet dette utrolig simple program:

Private Sub Command1_Click()
Label2.Caption = Text1.Text & " + " & Text2.Text & " = " & Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Text1_Click()
Me.Text1 = ""
End Sub

Private Sub Text2_Click()
Me.Text2 = ""
End Sub

Jeg kunne godt tænke mig at skrive noget i command1_click() så hvis en af de to labels indeholdt "pi" ville den skulle sætte værdien til 3.1415

Synes godt om

kabbak Professor

30. november 2004 - 23:41 #1

Private Sub Text1_Change()
If Text1.Text = "pi" Then Text1.Text = 3.1415
End Sub

Synes godt om

mjense173 Nybegynder

01. december 2004 - 01:54 #2

Du kunne også lave en lille parser til den slags.. ved at indsætte følgende kode istedet for Command1_Click()

Private Sub Command1_Click()
Select case Text1.Text
case "pi"
Text1.Text = "3,1415926"
case "e"
Text1.Text = "2,7"
end select
Label2.Caption = Label2.Caption = Text1.Text & " + " & Text2.Text & " = " & Val(Text1.Text) + Val(Text2.Text)
End Sub

Synes godt om

mjense173 Nybegynder

01. december 2004 - 01:56 #3

På denne måde kan du nemt tilføje flere funktioner ved blot at lave en CASE mere.
Denne skal laves for begge felter, jeg har kun vist det for Text1.

Synes godt om

fizz Nybegynder

02. december 2004 - 22:01 #4

hva med:

text1.text = replace(text1.text,"pi","3.1415")

:)

Synes godt om

visualdeveloper Nybegynder

03. december 2004 - 14:16 #5

har fundet ud af det !!!

Synes godt om

fizz Nybegynder

06. december 2004 - 23:02 #6

æv

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