Funktion "Neustarten"???

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Thunderbolt.

    Funktion "Neustarten"???

    Hallo,
    ich probiere gerade einen Zufallsgenerator zu programmien,
    er soll mir eine Zahl ausgeben die,
    aus 9 Ziffern besteht, die Zahl "0" darf nicht vorkommen,
    und in der gesamten Zufallszahl darf keine Zahl doppelt vorkommen,
    also dürfte die Zahl "112233445" nicht vorkommen,
    wobei die Zahl "568794231" eine mögliche wäre.
    Ich hoffe ihr wisst was ich meine, denn es gibt viele Threads in denen nach einem Zufallsgenerator gefragt wird, in dem keine Zufallszahl doppelt vorkommen darf.


    Mein Problem ist, dass ich nicht weiß wie ich die Funktion bzw. die ganze Abfrage neustarte...
    Ich hab Google und die SuFu benutzt, aber nichts gefunden...


    Und noch was anderes: Gibt es vielleicht eine andere möglichkeit zu prüfen ob Zahlen doppelt vorkommen, die auch einfacher wäre? ?(


    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim a(8) As Integer
    5. Public Function ZufallszahlErstellen()
    7. Dim rnd As New Random
    8. Dim Random As Integer = rnd.Next(123456789, 987654321) ' Erst wird die Zahl generiert
    10. For i As Integer = 1 To 9 'Hier wird abgespeichert, wie oft welche Zahl in der generierten Zufallszahl vorhanden ist
    12. For u As Integer = 0 To 8 'Hier wird jeder Wert im Array auf 0 gesetzt
    13. a(u) = 0
    14. Next
    16. Dim Zahl As Integer
    17. Zahl = Mid$(Random, i, 1)
    18. Select Case Zahl
    19. Case 0
    20. 'Hier soll er die Funktion von vorne starten!
    21. Case 1
    22. a(0) += 1
    23. Case 2
    24. a(1) += 1
    25. Case 3
    26. a(2) += 1
    27. Case 4
    28. a(3) += 1
    29. Case 5
    30. a(4) += 1
    31. Case 6
    32. a(5) += 1
    33. Case 7
    34. a(6) += 1
    35. Case 8
    36. a(7) += 1
    37. Case 9
    38. a(8) += 1
    40. End Select
    42. Next
    44. If a(0) & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) = 1 Then 'Hier wird geprüft ob eine Zahl mehrmals vorhanden ist
    45. ListBox1.Items.Add(Random)
    46. Else
    48. 'Hier soll er Funktion von vorne starten!
    50. End If
    52. End Function
    54. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    55. ZufallszahlErstellen()
    56. End Sub
    57. End Class


    P.S. Bitte nicht auslachen :D Ich bin noch ein Anfänger :saint:

    VB.NET-Quellcode

    1. Public Function ZufallszahlErstellen() As Integer
    2. Dim out As String = String.Empty
    3. Dim rad As New Random(Environment.TickCount)
    4. While out.Length < 9
    5. Dim rndVal As Integer = rad.Next(1, Integer.MaxValue) Mod 9 + 1
    6. Dim rndValStr As String = rndVal.ToString()
    7. If Not out.Contains(rndValStr) Then
    8. out += rndValStr
    9. End If
    10. End While
    11. Return Integer.Parse(out)
    12. End Function

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Me.Label1.Text = New UniqueRandom().GetUniqueRandom().ToString()
    4. End Sub
    5. End Class
    7. Public Class UniqueRandom
    8. Private _rnd As New Random()
    10. Public Function GetUniqueRandom() As Integer
    11. Return Convert.ToInt32(String.Concat(Enumerable.Range(1, 9).OrderBy(Function() _rnd.Next())))
    12. End Function
    13. End Class


    Mir gefällt zwar die Umwandlung zu String und dann wieder zu Int nicht wirklich, sollte aber nicht so die Tragweite haben. Wenn jemand nen Einzeiler kennt, der aus einem Int-Array nen Int macht => würd mich freuen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    SpaceyX schrieb:

    Wenn jemand nen Einzeiler kennt, der aus einem Int-Array nen Int macht => würd mich freuen.

    Geht sicher noch einfacher, aber geht :D :

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim rnd = New Random(Environment.TickCount)
    3. Dim randomNumbers = Enumerable.Range(1, 9).OrderBy(Function(x) rnd.Next()).Take(9).Select(Function(t, i) t * Convert.ToInt32(Math.Pow(10, 8 - i))).Sum()
    5. Console.WriteLine(randomNumbers)
    6. Console.ReadKey()
    7. End Sub


    So und nun als Einzeiler :) :

    VB.NET-Quellcode

    1. Dim shuffleTest As Integer = Enumerable.Range(1, 9).OrderBy(Function() Guid.NewGuid()).Select(Function(t, i) t * Convert.ToInt32(Math.Pow(10, 8 - i))).Sum()



    0.4 Sekunden für 100.000 dieser Zufallszahlen - das sieht gar nicht mal so schlecht aus :)



    Beiträge zusammengeführt. Nächstes Mal bitte editieren! ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Vielen Dank für die Codes! Nur leider bringt es mir nicht viel wenn ich sie garnicht verstehe... deshalb wollte ich fragen ob mir jemand die Fettgedruckten "Befehle" erklären könnte.

    Dim Rnd = New Random(Environment.TickCount)
    Dim randomNumbers = Enumerable.Range(1, 9).OrderBy(Function(x) Rnd.Next()).Take(9).Select(Function(t, i) t * Convert.ToInt32(Math.Pow(10, 8 - i))).Sum()

    Ich verstehe das Math.Pow zwar, aber nicht direkt im zusammenhang mit den anderen Befehlen.


    Ich will mit dem Programm erreichen, dass er mir Codes ausgibt, um die Android Muster Sperre zu knacken, nun hab ich zwar die Zahlen, aber wenn ich z.B. die Zahl "192345678" habe, kann ich nicht den Punkt oben links mit dem unten rechts verbinden, da dazwischen ja noch ein Punkt liegt ( Ich hoffe das es hier im Forum Android Nutzer gibt, sonst hab ich ein Problem... :D )

    Ich hab diesen Code ( ist ein bisschen länger aber er wiederholt sich oft ) geschrieben, aber das Programm gibt mir immernoch Zahlenreihen aus, die man dann nicht benutzen kann...

    Quellcode

    1. Public Class Form1
    3. Function ZahlGenerieren() As Integer
    4. Dim Rnd = New Random(Environment.TickCount)
    5. Dim randomNumbers = Enumerable.Range(1, 9).OrderBy(Function(x) Rnd.Next()).Take(9).Select(Function(t, i) t * Convert.ToInt32(Math.Pow(10, 8 - i))).Sum()
    6. Return randomNumbers
    7. End Function
    8. 'mögliche Zahl = true ; nicht mögliche Zahl = false
    9. Function Erste(ByVal Zufallszahl As Integer) As Boolean
    10. Dim Zahl As Integer = Mid$(Zufallszahl, 1, 1)
    11. Select Case Zahl
    12. Case 1
    14. If Mid$(Zufallszahl, 2, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    15. Return True
    16. Else
    17. Return False
    18. End If
    20. Case 2
    22. If Mid$(Zufallszahl, 2, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    23. Return True
    24. Else
    25. Return False
    26. End If
    28. Case 3
    30. If Mid$(Zufallszahl, 2, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    31. Return True
    32. Else
    33. Return False
    34. End If
    36. Case 4
    38. If Mid$(Zufallszahl, 2, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    39. Return True
    40. Else
    41. Return False
    42. End If
    44. Case 5
    46. If Mid$(Zufallszahl, 2, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    47. Return True
    48. Else
    49. Return False
    50. End If
    52. Case 6
    54. If Mid$(Zufallszahl, 2, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    55. Return True
    56. Else
    57. Return False
    58. End If
    60. Case 7
    62. If Mid$(Zufallszahl, 2, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    63. Return True
    64. Else
    65. Return False
    66. End If
    68. Case 8
    70. If Mid$(Zufallszahl, 2, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    71. Return True
    72. Else
    73. Return False
    74. End If
    76. Case 9
    78. If Mid$(Zufallszahl, 2, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    79. Return True
    80. Else
    81. Return False
    82. End If
    84. Case Else
    85. Return True
    86. End Select
    88. End Function
    89. Function Zweite(ByVal Zufallszahl As Integer) As Boolean
    90. Dim Zahl As Integer = Mid$(Zufallszahl, 2, 1)
    91. Select Case Zahl
    92. Case 1
    94. If Mid$(Zufallszahl, 3, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    95. Return True
    96. Else
    97. Return False
    98. End If
    100. Case 2
    102. If Mid$(Zufallszahl, 3, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    103. Return True
    104. Else
    105. Return False
    106. End If
    108. Case 3
    110. If Mid$(Zufallszahl, 3, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    111. Return True
    112. Else
    113. Return False
    114. End If
    116. Case 4
    118. If Mid$(Zufallszahl, 3, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    119. Return True
    120. Else
    121. Return False
    122. End If
    124. Case 5
    126. If Mid$(Zufallszahl, 3, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    127. Return True
    128. Else
    129. Return False
    130. End If
    132. Case 6
    134. If Mid$(Zufallszahl, 3, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    135. Return True
    136. Else
    137. Return False
    138. End If
    140. Case 7
    142. If Mid$(Zufallszahl, 3, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    143. Return True
    144. Else
    145. Return False
    146. End If
    148. Case 8
    150. If Mid$(Zufallszahl, 3, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    151. Return True
    152. Else
    153. Return False
    154. End If
    156. Case 9
    158. If Mid$(Zufallszahl, 3, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    159. Return True
    160. Else
    161. Return False
    162. End If
    164. Case Else
    165. Return True
    166. End Select
    168. End Function
    169. Function Dritte(ByVal Zufallszahl As Integer) As Boolean
    170. Dim Zahl As Integer = Mid$(Zufallszahl, 3, 1)
    171. Select Case Zahl
    172. Case 1
    174. If Mid$(Zufallszahl, 4, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    175. Return True
    176. Else
    177. Return False
    178. End If
    180. Case 2
    182. If Mid$(Zufallszahl, 4, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    183. Return True
    184. Else
    185. Return False
    186. End If
    188. Case 3
    190. If Mid$(Zufallszahl, 4, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    191. Return True
    192. Else
    193. Return False
    194. End If
    196. Case 4
    198. If Mid$(Zufallszahl, 4, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    199. Return True
    200. Else
    201. Return False
    202. End If
    204. Case 5
    206. If Mid$(Zufallszahl, 4, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    207. Return True
    208. Else
    209. Return False
    210. End If
    212. Case 6
    214. If Mid$(Zufallszahl, 4, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    215. Return True
    216. Else
    217. Return False
    218. End If
    220. Case 7
    222. If Mid$(Zufallszahl, 4, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    223. Return True
    224. Else
    225. Return False
    226. End If
    228. Case 8
    230. If Mid$(Zufallszahl, 4, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    231. Return True
    232. Else
    233. Return False
    234. End If
    236. Case 9
    238. If Mid$(Zufallszahl, 4, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    239. Return True
    240. Else
    241. Return False
    242. End If
    244. Case Else
    245. Return True
    246. End Select
    248. End Function
    249. Function Vierte(ByVal Zufallszahl As Integer) As Boolean
    250. Dim Zahl As Integer = Mid$(Zufallszahl, 4, 1)
    251. Select Case Zahl
    252. Case 1
    254. If Mid$(Zufallszahl, 5, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    255. Return True
    256. Else
    257. Return False
    258. End If
    260. Case 2
    262. If Mid$(Zufallszahl, 5, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    263. Return True
    264. Else
    265. Return False
    266. End If
    268. Case 3
    270. If Mid$(Zufallszahl, 5, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    271. Return True
    272. Else
    273. Return False
    274. End If
    276. Case 4
    278. If Mid$(Zufallszahl, 5, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    279. Return True
    280. Else
    281. Return False
    282. End If
    284. Case 5
    286. If Mid$(Zufallszahl, 5, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    287. Return True
    288. Else
    289. Return False
    290. End If
    292. Case 6
    294. If Mid$(Zufallszahl, 5, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    295. Return True
    296. Else
    297. Return False
    298. End If
    300. Case 7
    302. If Mid$(Zufallszahl, 5, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    303. Return True
    304. Else
    305. Return False
    306. End If
    308. Case 8
    310. If Mid$(Zufallszahl, 5, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    311. Return True
    312. Else
    313. Return False
    314. End If
    316. Case 9
    318. If Mid$(Zufallszahl, 5, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    319. Return True
    320. Else
    321. Return False
    322. End If
    324. Case Else
    325. Return True
    326. End Select
    328. End Function
    329. Function Fünfte(ByVal Zufallszahl As Integer) As Boolean
    330. Dim Zahl As Integer = Mid$(Zufallszahl, 5, 1)
    331. Select Case Zahl
    332. Case 1
    334. If Mid$(Zufallszahl, 6, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    335. Return True
    336. Else
    337. Return False
    338. End If
    340. Case 2
    342. If Mid$(Zufallszahl, 6, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    343. Return True
    344. Else
    345. Return False
    346. End If
    348. Case 3
    350. If Mid$(Zufallszahl, 6, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    351. Return True
    352. Else
    353. Return False
    354. End If
    356. Case 4
    358. If Mid$(Zufallszahl, 6, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    359. Return True
    360. Else
    361. Return False
    362. End If
    364. Case 5
    366. If Mid$(Zufallszahl, 6, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    367. Return True
    368. Else
    369. Return False
    370. End If
    372. Case 6
    374. If Mid$(Zufallszahl, 6, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    375. Return True
    376. Else
    377. Return False
    378. End If
    380. Case 7
    382. If Mid$(Zufallszahl, 6, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    383. Return True
    384. Else
    385. Return False
    386. End If
    388. Case 8
    390. If Mid$(Zufallszahl, 6, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    391. Return True
    392. Else
    393. Return False
    394. End If
    396. Case 9
    398. If Mid$(Zufallszahl, 6, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    399. Return True
    400. Else
    401. Return False
    402. End If
    404. Case Else
    405. Return True
    406. End Select
    408. End Function
    409. Function Sechste(ByVal Zufallszahl As Integer) As Boolean
    410. Dim Zahl As Integer = Mid$(Zufallszahl, 6, 1)
    411. Select Case Zahl
    412. Case 1
    414. If Mid$(Zufallszahl, 7, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    415. Return True
    416. Else
    417. Return False
    418. End If
    420. Case 2
    422. If Mid$(Zufallszahl, 7, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    423. Return True
    424. Else
    425. Return False
    426. End If
    428. Case 3
    430. If Mid$(Zufallszahl, 7, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    431. Return True
    432. Else
    433. Return False
    434. End If
    436. Case 4
    438. If Mid$(Zufallszahl, 7, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    439. Return True
    440. Else
    441. Return False
    442. End If
    444. Case 5
    446. If Mid$(Zufallszahl, 7, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    447. Return True
    448. Else
    449. Return False
    450. End If
    452. Case 6
    454. If Mid$(Zufallszahl, 7, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    455. Return True
    456. Else
    457. Return False
    458. End If
    460. Case 7
    462. If Mid$(Zufallszahl, 7, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    463. Return True
    464. Else
    465. Return False
    466. End If
    468. Case 8
    470. If Mid$(Zufallszahl, 7, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    471. Return True
    472. Else
    473. Return False
    474. End If
    476. Case 9
    478. If Mid$(Zufallszahl, 7, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    479. Return True
    480. Else
    481. Return False
    482. End If
    484. Case Else
    485. Return True
    486. End Select
    488. End Function
    489. Function Siebte(ByVal Zufallszahl As Integer) As Boolean
    490. Dim Zahl As Integer = Mid$(Zufallszahl, 7, 1)
    491. Select Case Zahl
    492. Case 1
    494. If Mid$(Zufallszahl, 8, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    495. Return True
    496. Else
    497. Return False
    498. End If
    500. Case 2
    502. If Mid$(Zufallszahl, 8, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    503. Return True
    504. Else
    505. Return False
    506. End If
    508. Case 3
    510. If Mid$(Zufallszahl, 8, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    511. Return True
    512. Else
    513. Return False
    514. End If
    516. Case 4
    518. If Mid$(Zufallszahl, 8, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    519. Return True
    520. Else
    521. Return False
    522. End If
    524. Case 5
    526. If Mid$(Zufallszahl, 8, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    527. Return True
    528. Else
    529. Return False
    530. End If
    532. Case 6
    534. If Mid$(Zufallszahl, 8, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    535. Return True
    536. Else
    537. Return False
    538. End If
    540. Case 7
    542. If Mid$(Zufallszahl, 8, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    543. Return True
    544. Else
    545. Return False
    546. End If
    548. Case 8
    550. If Mid$(Zufallszahl, 8, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    551. Return True
    552. Else
    553. Return False
    554. End If
    556. Case 9
    558. If Mid$(Zufallszahl, 8, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    559. Return True
    560. Else
    561. Return False
    562. End If
    564. Case Else
    565. Return True
    566. End Select
    568. End Function
    569. Function Achte(ByVal Zufallszahl As Integer) As Boolean
    570. Dim Zahl As Integer = Mid$(Zufallszahl, 8, 1)
    571. Select Case Zahl
    572. Case 1
    574. If Mid$(Zufallszahl, 9, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    575. Return True
    576. Else
    577. Return False
    578. End If
    580. Case 2
    582. If Mid$(Zufallszahl, 9, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    583. Return True
    584. Else
    585. Return False
    586. End If
    588. Case 3
    590. If Mid$(Zufallszahl, 9, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    591. Return True
    592. Else
    593. Return False
    594. End If
    596. Case 4
    598. If Mid$(Zufallszahl, 9, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    599. Return True
    600. Else
    601. Return False
    602. End If
    604. Case 5
    606. If Mid$(Zufallszahl, 9, 1) = 1 Or 2 Or 3 Or 4 Or 6 Or 7 Or 8 Or 9 Then
    607. Return True
    608. Else
    609. Return False
    610. End If
    612. Case 6
    614. If Mid$(Zufallszahl, 9, 1) = 1 Or 2 Or 3 Or 5 Or 7 Or 8 Or 9 Then
    615. Return True
    616. Else
    617. Return False
    618. End If
    620. Case 7
    622. If Mid$(Zufallszahl, 9, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    623. Return True
    624. Else
    625. Return False
    626. End If
    628. Case 8
    630. If Mid$(Zufallszahl, 9, 1) = 1 Or 3 Or 4 Or 5 Or 6 Or 7 Or 9 Then
    631. Return True
    632. Else
    633. Return False
    634. End If
    636. Case 9
    638. If Mid$(Zufallszahl, 9, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    639. Return True
    640. Else
    641. Return False
    642. End If
    644. Case Else
    645. Return True
    646. End Select
    648. End Function
    651. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    652. Dim a As Integer = ZahlGenerieren()
    653. If Erste(a) = True Then
    654. If Zweite(a) = True Then
    655. If Dritte(a) = True Then
    656. If Vierte(a) = True Then
    657. If Fünfte(a) = True Then
    658. If Sechste(a) = True Then
    659. If Achte(a) = True Then
    661. If Not ListBox1.Items.Contains(a) Then
    662. ListBox1.Items.Add(a)
    663. Else
    664. 'nichts
    665. End If
    666. Else
    667. 'nichts
    669. End If
    670. End If
    671. End If
    672. End If
    673. End If
    674. End If
    675. End If
    677. End Sub
    678. End Class


    Damit ihr es nachvollziehen könnt:

    VB.NET-Quellcode

    1. Case 1
    3. If Mid$(Zufallszahl, 2, 1) = 2 Or 4 Or 5 Or 6 Or 8 Then
    4. Return True
    5. Else
    6. Return False
    7. End If


    Die Zahlen 2;4;5;6;8 , sind mögliche Zahlen bzw. Punkte die man in der Android Mustersperre vom Punkt 1 verbinden kann.



    Gibt es hier vielleicht auch eine andere möglichkeit so wie beim letzten Problem?


    Noch eine ganz andere Frage: Wie kann ich den Thread in eine andere Kategorie verschieben?

    Ich hoffe das sind nicht zu viele Fragen :D

    Problem schrieb:

    um die Android Muster Sperre zu knacken


    Iss klar.

    Problem schrieb:

    Punkt oben links mit dem unten rechts verbinden


    Ein scheinbar unwichtiger Fakt, der es nicht wert ist, eingangs erwähnt zu werden, bevor sich die Leute hier Gedanken über Dein sinnloses Vorhaben machen.

    Problem schrieb:

    sonst hab ich ein Problem


    Ja. Keiner wird Dir jetzt mehr helfen.

    Problem schrieb:

    Ich hab diesen Code


    Hau bloß ab mit dem Mist.

    Bin auch raus. Schade um die verschwendete Energie.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende