/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Udregn.
Fra : malarico
Vist : 314 gange
100 point
Dato : 10-12-07 20:12

hejsa, håber i kan hjælpe mig her.

Jeg har 4 TextBoxe, kaldet textBox1,TextBox2,TextBox3,TextBox4.
jeg har en knap til udregning, i den har jeg skrevet følgende.


Kode
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Spænding
TextBox2.Text = Strøm
TextBox3.Text = Modstand
TextBox4.Text = Effekt

If TextBox1.Text = "true" And TextBox2.Text = "True" Then
TextBox3.Text = "Spænding / Strøm"
TextBox4.Text = "Spænding * Strøm"
End If


End Sub


Så var det meningen at når jeg skrev noget i textBox1 & i TextBox2 så skulle deb også skrive det i TextBox3/Modstand og i TextBox4/Effekt

Hvorfor sker dette ikke? Håber i kan hjælpe

 
 
Kommentar
Fra : berpox


Dato : 10-12-07 22:35

Prøv noget i denne retning..... jeg har kaldt min userform for Userform1, og knappen hedder Commandbutton1 - herudover har jeg brugt fysikkens benævnelser for støm, spænding, modstand og effekt...
Kode
Private Sub CommandButton1_Click()
Dim U, I, R, P As Double
On Error GoTo errorh
U = CDbl(TextBox1.Text)
I = CDbl(TextBox2.Text)
R = Round(U / I, 3)
P = Round(U * I, 3)
TextBox3.Text = R & " Ohm"
TextBox4.Text = P & " Watt"

Exit Sub

errorh:
MsgBox "Fejl i indtastning", vbCritical

End Sub

Private Sub TextBox1_Enter()
TextBox1.Text = ""
End Sub
Private Sub TextBox2_Enter()
TextBox2.Text = ""
End Sub

Private Sub UserForm_Initialize()

CommandButton1.Caption = "Beregn"
TextBox1.Text = "Volt"
TextBox2.Text = "Spænding"
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox3.BackColor = vbYellow
TextBox4.BackColor = vbYellow

CommandButton1.SetFocus

End Sub


Kommentar
Fra : berpox


Dato : 10-12-07 22:36

...og i den sidste sub skal der selvfølgelig stå:
Kode
Private Sub UserForm_Initialize()

CommandButton1.Caption = "Beregn"
TextBox1.Text = "Spænding"
TextBox2.Text = "Strøm"
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox3.BackColor = vbYellow
TextBox4.BackColor = vbYellow

CommandButton1.SetFocus

End Sub


... ellers gi'r det ingen mening

Kommentar
Fra : berpox


Dato : 11-12-07 14:20

Hvad siger du til det "malarico" ?

Kommentar
Fra : berpox


Dato : 17-01-08 01:07

Hallooooooo malarico ???? Fik du svar på dit spørgsmål?

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173447
Tips : 31650
Nyheder : 719565
Indlæg : 6382274
Brugere : 218247

Månedens bedste
Årets bedste
Sidste års bedste