Hjælp - har brug for en der kan programmere visual basic

hvis man så i programmet lavede et felt hvor man skulle indtaste antal gange - og en start knap eks 500 gange

det kan jeg da godt lave :0)

skal det være store eller små bogstaver (eller en blanding af disse og hvad med tal ???

det er sådan set lige meget - bare en blanding :-)

ok hvor lang skal strengen være??

bare 2-3 tegn

hvornåpr regner du med at kunne have programmet færdig ?

nu....

Dim tal(0 To 32) As String
Dim m, a, i, k, z As Integer
Dim word As String
Public Function find_ord()
For i = 0 To 3
Randomize
m = (Rnd * 32) + 1
word = word & tal(m)
Next i
Text1.Text = \"\"
End Function

Private Sub Command1_Click()
z = Val(TxtAntal.Text)
For k = 1 To z
find_ord: Text1.Text = word: word = \"\"
Command2.SetFocus
SendKeys (\"{ENTER}\") \'så laves der noget søgeværk.
Next k
End Sub

Private Sub Form_Load()
For i = 0 To 24
tal(i) = Chr(i + 65)
Next i
For i = 0 To 8
  a = i + 24
  tal(a) = Chr(i + 48)
Next i
End Sub

skal jeg kommentere det ud ???

øhh - jeg har ikke lige vb her - kan du ikke sende programmet til wizard@events.dk

i en exe fil alså *S*

Nej - der behøves ikke være kommentare...

jo men så du kan jo ikke bruge det direkt uden at det er kombileret sammen med dit søgemodul.

så skal jeg ihvertfald lige lave det lidt om.

alså jeg har et felt - markøren holder sig i feltet lige meget hvad - dvs hvis jeg skriver abc og tykker enter. bliver markøren i feltet - jeg kan så skrive noget nyt og trykke enter igen så søger dne igen... kan du følge hvad jeg mener ?

jep dette her skal bare ligge i baggrunden og spytte ting ud til søgefeltet.

nør man trykke enter bliver feltet tømt - for det som stod i forvejen...

netop :-)

det laver jeg.....

alså enter virker som send...

så ser koden sådan her ud.

Dim tal(0 To 32) As String
Dim m, a, i, k, z As Integer
Dim word As String
Public Function find_ord()
For i = 0 To 3
Randomize
m = (Rnd * 32) + 1
word = word & tal(m)
Next i
Text1.Text = \"\"
End Function

Private Sub Command1_Click()
z = Val(TxtAntal.Text)
For k = 1 To z
find_ord:
  SendKeys (word)
  SendKeys (\"{ENTER}\") \'så laves der noget søgeværk.
  word = \"\"
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
Next k
End Sub

Private Sub Form_Load()
For i = 0 To 24
tal(i) = Chr(i + 65)
Next i
For i = 0 To 8
  a = i + 24
  tal(a) = Chr(i + 48)
Next i
End Sub

exefilen kan hentes på :
www.friserverplads.dk/jelzin101/projekt1.exe

øhh - filen findes ikke på serveren ?

tror det er noget med friserverplads ikke understøtter downloadning af filer...

Men min E-mail er wizard@events.dk

min smtp server har det slet ikke godt :0)

prøv igen
http://www.friserverplads.dk/jelzin101/pro.ex1

jeg har bare omdøbt den.

jo - nu virker den - Takker mange gange :-))

np.