Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26
5 stellige zufallszahl?
Verfasst am: 05.05.2008, 20:39
Kann mir einer bitte einen Code geben?
 
dcm
Poster
Poster

Anmeldedatum: 04.05.2008
Beiträge: 101

Verfasst am: 05.05.2008, 20:51
[/COLOR]
Public Function Rand[COLOR=#66cc66](ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub Form_Load()
randomize 'wichtig, wenns gans zufällig sein soll
end sub
aufruf:
private sub command1_click()
text1.text = rand(10000,99999)
end sub
 
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26


Verfasst am: 05.05.2008, 20:53
danke hab noch ne kleine frage,wie kann ich das im webbrowser abschicken?

webbrowser1.Document.Forms(0).Data[Teilnehmer][glueckscode].value

das Dicke^^,da kommt immer ein fehler
 
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 05.05.2008, 21:20
stichwort: klammern
 
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26


Verfasst am: 06.05.2008, 14:47
Habs anderes gemacht,jetzt wüsst ich noch gern wie ich was bei ner Drop down bzw combo-box verändern und eine checkbox anklicken kann?

hm das mit der checkbox müsste so gehen

.Document.Forms(0).elements("data[Teilnehmer][teilnahmebedingung]").Click

kommt ein fehler "das Objekt unterstützt die aktion nicht" oder so in der Art
Glaub das liegt daran,weil es das objekt 2 mal gibt(also mit dem selben Namen)
1. data[Teilnehmer][teilnahmebedingung] TYP: hidden Aktueller Wert: 0
2. data[Teilnehmer][teilnahmebedingung] TYP: checkbox Aktueller Wert: 1

Wie mach ich das jetzt,dass er die checkbox klickt?

Hab mal Screenshots gemacht
Combo-box
http://img3.imagebanana.com/img/xy1jzw3m/combobox.JPG

Checkboxen(Sind halt immer doppel, "hidden" und "checkbox" und ich will halt das checkbox element
http://img3.imagebanana.com/img/ov6izut9/checkbox.JPG
 
Marduk
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 374


Verfasst am: 06.05.2008, 20:34
Probier mal sowas
document.forms(0).formularname.checkboxname.value = 1
Oder halt mit .click am ende
Und bei der combobox sollte es doch etwas ähnliches geben
....formularname.combobox.value oder .selected
 
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26


Verfasst am: 06.05.2008, 20:43
Ich brings einfach nicht hin
 
ZiuX
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 02.05.2008
Beiträge: 160


Verfasst am: 06.05.2008, 20:51
Code:
Private Function GetRandomString() As String<br />    Dim sChars As String, iLen As Integer, sOutput<br />    sChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"' 'welche Ziffern<br />    iLen = 5 'wie viele Ziffern es sein sollen<br />    For i = 1 To iLen<br />        sOutput = sOutput & Mid(sChars, Int((Rnd * Len(sChars)) + 1), 1)<br />    Next i<br />    GetRandomString = sOutput<br />End Function<br />  <br />Private Sub cmdGenerate_Click()<br />    Dim sRandom As String<br />    sRandom = GetRandomString<br />    txtCode.Text = sRandom<br />End Sub
das mit dem sRandom muss dir nichts zu denken geben.. ich habe es nur ebend aus einem Projekt von mir kopiert..

lg
ziux[ät]jabber.ccc.de
Z1uX.cn
 
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26


Verfasst am: 06.05.2008, 21:19
Es geht um die Combo-box bzw Checkbox^^
 
Marduk
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 374


Verfasst am: 06.05.2008, 22:14
Man sollte schon mal den Thread lesen bevor man drauf antwortet -.-

Erinnert mich an HS -.-
 
psychonitro
Tutorial Leser
Tutorial Leser

Anmeldedatum: 05.05.2008
Beiträge: 26


Verfasst am: 07.05.2008, 12:07

Ich müsste es irgendwie schaffen,dass er das mit wert 1 nimmt

1. data[Teilnehmer][teilnahmebedingung] TYP: hidden Aktueller Wert: 0
2. data[Teilnehmer][teilnahmebedingung] TYP: checkbox Aktueller Wert: 1
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: zufallszahl, stellige

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [Umfrage] Scelus Trojaner (Source Code) 2362 06.10.2007, 11:54
Keine neuen Beiträge Code Snippets 761 13.09.2008, 14:22
Keine neuen Beiträge Code für Pc Herunterfahren?? 3202 17.06.2007, 22:02
Keine neuen Beiträge Code bestimmen, während Laufzeit 780 07.06.2007, 11:49
Keine neuen Beiträge [Text] Source code snippets 2890 06.04.2007, 18:14
 



[ Time: 0.0774s ][ Queries: 110 (0.0289s) ][ GZIP on - Debug on ]