min første gang. Skrivning af kun tal?

Hej.

Du kan tilføje mask-control til dit projekt.  Søg i hjælpen på 'mask property'

Eller du kan teste for ascii-værdien af input i en tekst-boks.  Indsæt under text1_change():


if keyascii(text1.text) > 57 then
  msgbox("Du må kun indtaste cifre")
  exit sub
end if

M.v.h. Jørn

tak for det, jeg prøver rode lidt med det.

der opstod en fejl:
sub- eller funktion-procedure er ikke definderet

Jeg har prøvet at smide
Dim keyascii

ind, men der kom bare en anden fejl

Hej.

Skrev efter hukommelsen.  laver lille test-projekt.  Koden skal i hvert fald ikke stå under chance, men under keypress - sorry.

M.v.h.  Jørn

rgr det prøver jeg lige

Hej.

Så skulle den være der:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii > 57 Then
      MsgBox ("Du må kun indtaste cifre")
      Exit Sub
  End If
End Sub

Der er også ascii-værdier under 48, der ikke er tal.  Strengt taget skulle der jo også testes for dem.

msgbox kan selvfølgelig udelades, så sker der bare ingenting, når der tastes noget, der ikke er cifre.  minus (bindestreg) har ascii(45).  Den skulle være tilladt, ikke?

M.v.h. Jørn

jeg har stadig lidt prob.

erklæringnen til hændelsproceduren passer ikke til beskrivelsen af den hændelse, der har samme navn

okay, jeg kan se jeg lige skal ændre lidt kode, hvis det skal stå sådan ;)

Opsamling.

komma er ascii(44) og punktum har (46).

/jørn

Det går kvikt her.

hvilken VB-version bruger du, det er måske VBA?

/jørn

nej, har stadig en fejl.

Men jeg sidder heller ikk generalt i VB.
jeg sidder under Word VB programmering.
Den kan man kalde frem via ALT+F11

Hej.

ja, så er det VBA.  Det bruger jeg ikke, det er en stærkt amputeret udgave af Visual Basic, der er et selvstændigt udviklingssprog.  Du må kigge i hjælpen til VBA, hvad der tillades af syntaks.  Ellers stil spørgsmålet i kategorien Word eller Excel.

M.v.h. Jørn

Private Sub TextU_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48) Or (KeyAscii > 57) Then
  If Not (KeyAscii = 8) Then
    KeyAscii = 0
    Beep 'For computeren til at sige biib
  End If
End If
End Sub


den har jeg også kigget på, men samme fejl

ok

Hej.

jeg har en word2000.  Den VBA der medfølger dér kender ikke keyascii, men keystroke.  Syntaksen ser dog fuldstændig anderledes ud end det jeg kender til.

VBA er jo tænkt til at udvikle macro'er med.  Du kan ikke lave en lommeregner som et selvstændigt program (en exe-fil) med VBA.  Har du brug for en lommeregner mens du skriver i Word, er det dog nemmere at bruge Windows' egen.

Eller er det bare en øvelse?

M.v.h. Jørn

nej det var bare et forslag.

Min opgave lyder på at jeg skal skrive ohms lov ind i word.
rimlig steneren.
jeg tænkte bare på om det kunne lade sig gøre at kun bruge tal, men det kan det åbenbaret ikke.
Den kan faktisk ikk ret meget ;)

Hej.

Du kan nok med VBA lave det således, at tal indsættes med museklik på nogle knapper, ligesom med en lommeregner.  Men det klares nok ikke på 5 min.

M.v.h. Jørn

jeg har fundet frem til det...

Private Sub TextI_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("-")
        Case Asc(".")
        Case Asc(",")
       
        Case Else
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
End Sub

NU mangler jeg bare at lave udregningen knappen, det klart større problem ;)

Jeg har 3 tal.
Ohm lov består af U, I og R. P/Watt kommer ved siden af.

Anyways.
Hvis jeg nu fx. tager I*R hvorledes gøres dette så?

mit uddrav:
Resultat = textI * textU
Fasit skal så blive lagt ned i en anden boxs som hedder Fasit. skal jeg bruge "VAL" til dette punkt?

Hej.

Du er sandelig vedholdende.  Select case er en udmærket løsning, når If ikke rækker.

Selve VB er ofte tolerant m.h.t. at udføre beregninger på strenge, når disse kun indeholder tal.  Men det korrekt - og sikre - er at tage værdien med 'Val'.
Du har nok også bemærket at man kan udelade .text for en tekst-kontrol.

Resultat = Val(textI.text) * Val(textU.text)

textI har mange properties: Baggrundsfarve, tabulator-indeks, position o.s.v, men når man intet skriver formoder VB at der menes text.

Watt er jo nemmest at regne ud, men bruger man ikke joule i vore dage?

M.v.h. Jørn

det ved jeg ikke :?)

anyways. jeg bøvler lidt med regneknappen.
Hvis man skal regne lidt i ohms lov, ser den sådan ud.
http://www.glemsom.dk/talmaal/ohms_lov.htm
og kort udgave:
http://www.praestkjaer.dk/dk/emner/elektricitet/el-ohm.htm

I selve mit regne stykke, har jeg fået den til at udregne nogle bestemte faktnummere, men har stadig små fejl, som jeg lige skal ligge hoved lidt i blød til :)
Jeg ser gerne at man kan gå ind og "læse" om der står noget i et felt.
Hvis der ikke står noget i nogen af dem sku den sige, msgbox fejl fx.
hvis der kun står noget i 1 box, sku den sige, msgbox fejl fx.
Jeg har lavet dette:

Private Sub Beregn_Click()
'
'Hvad nu, hvis man ikke skriver noget?
'Så popper den jo op med fejl!
'
Dim resultat
If TextU = "" Then GoTo 1
If TextI = "" Then GoTo 2
If TextR = "" Then GoTo 3
'If TextP = "" Then GoTo 4
MsgBox "Du skal skrive noget i 2 af felterne", 64, "Mangler tal"
GoTo 5

1
resultat = TextI * TextR
Fasit = "U= " + CStr(resultat)
GoTo 5
2
resultat = TextU / TextR
Fasit = "I= " + CStr(resultat)
GoTo 5
3
resultat = TextU / TextI
Fasit = "R= " + CStr(resultat)
GoTo 5
'4
'resultat = TextU * TextI
'Fasit = "P= " + CStr(resultat)
GoTo 5
5
End Sub

grunden til at TextP er taget fra med ' er jo mit problem
hvis du kigger på de links før, så kan du se at et eller andet tidspunkt går den jo i kluder i udregningen.

Hvis jeg nu har P og U værdigen, så skal den I = P / U
problemet er så at jeg har U værdigen, så derfor går den til punkt 2. U / R.
Der vil opstå fejl