Problemm mit Panels

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Problemm mit Panels

    Guten Abend,

    ich habe ein eignes Programm geschrieben und bei einigen sachen hatt mein Ex Kollege mir geholfen und somit auch das Problemm das ich euch schildere.
    Es geht hier um ein Patientenprotokoll für Rettungsdienst das ist zuerst ein Ausfüllbogen der Funktioniert einmanfrei und wenn mann dieses abgespeichert hat wird alles in der Datenbank gespeichert und danach kann mann sich mit einem Viever sich die eingaben die der RS oder RSA gemacht hatt anschauen.
    Nur mein Ex Kollege hat was eingebaut wo ich nicht wollte unzwar wir wenn man den Protokoll Viever im Progarmm aufrucht nur der Button 1 = Patienten Daten und das Panel 2 angezeigt, aber ich möchte ja das mann die Buttons nacheinander anklicken kann und das mann dan die Verschiedene Panels angezeigt bekommt.

    1 Bild zeigt den Viever
    2 Bild zeigt wenn man das Protokoll ausgewählt hatt

    und beim zweiten bild sieht mann das nur das Panel 2 ersichtlich ist, aber wir wollen das ja das wenn man auf die Buttons Klickt die Panels angezeigt bekommen.

    Hier nun den code

    Spoiler anzeigen

    Quellcode

    1. Public Class RD_DIVI_Viever_PI
    3. Private db As New MySqlLib("http://meine seite wo die query.php gespeichert ist/query.php", True)
    5. Private Sub RD_DIVI_Viever_PI_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. Dim result As MySqlLib.ResultCollection = db.Query("SELECT `einsatznr` FROM `ils_divi` WHERE `fsid` = '" & Main.FSID.Text & "'")
    8. If result.Row.Count > 0 Then
    9. For xy As Integer = 1 To result.Row.Count Step 1
    10. ComboBox18.Items.Add(result.Row(xy - 1).Column("einsatznr"))
    11. Next
    12. Else
    13. MessageBox.Show("Im aktuellen Funkspiel existieren keine DIVI-Protkolle", "Funkspiel-ILS", MessageBoxButtons.OK, MessageBoxIcon.Information)
    14. Me.Close()
    15. End If
    16. End Sub
    18. Private Sub ComboBox18_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox18.SelectedIndexChanged
    19. ComboBox19.Items.Clear()
    20. If ComboBox18.SelectedIndex > -1 Then
    21. Dim result As MySqlLib.ResultCollection = db.Query("SELECT `funkruf` FROM `ils_divi` WHERE `fsid` = '" & Main.FSID.Text & "' AND `einsatznr` = '" & ComboBox18.Text & "'")
    23. If result.Row.Count > 0 Then
    24. For xy As Integer = 1 To result.Row.Count Step 1
    25. ComboBox19.Items.Add(result.Row(xy - 1).Column("funkruf"))
    26. Next
    27. Else
    28. MessageBox.Show("Ein unerwarteter Fehler ist aufgetreten. Der DIVI-Viewer wird geschlossen.", "Funkspiel-ILS", MessageBoxButtons.OK, MessageBoxIcon.Error)
    29. Me.Close()
    30. End If
    31. End If
    32. End Sub
    34. Private Sub RD_DIVI_Viever_PI_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    35. Me.Dispose()
    36. End Sub
    38. Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
    39. Try
    40. Dim result As MySqlLib.ResultCollection = db.Query("SELECT * FROM `ils_divi` WHERE `fsid` = '" & Main.FSID.Text & "' AND `einsatznr` = '" & ComboBox18.Text & "' AND `funkruf` = '" & ComboBox19.Text & "'")
    42. Panel2.Visible = True
    43. Panel3.Visible = False
    44. Panel4.Visible = False
    45. Panel5.Visible = False
    46. Panel6.Visible = False
    47. Panel7.Visible = False
    48. Panel8.Visible = False
    49. Panel9.Visible = False
    51. Button1.BackColor = Color.Yellow
    52. Button2.BackColor = SystemColors.Control
    53. Button3.BackColor = SystemColors.Control
    54. Button4.BackColor = SystemColors.Control
    55. Button5.BackColor = SystemColors.Control
    56. Button6.BackColor = SystemColors.Control
    57. Button7.BackColor = SystemColors.Control
    58. Button8.BackColor = SystemColors.Control
    60. TextBox1.Text = result.Row(0).Column("pat_name")
    61. TextBox2.Text = result.Row(0).Column("pat_vorname")
    62. Label21.Text = result.Row(0).Column("pat_gebdat")
    64. Dim GTag As Date = Label21.Text
    65. Dim Alter As String = Now.Year - GTag.Year
    67. If Alter > 0 Then
    68. If Alter > 1 Then
    69. Label81.Text = Alter & " Jahre"
    70. Else
    71. Label81.Text = Alter & " Jahr"
    72. End If
    73. Else
    74. Alter = Now.Month - GTag.Month
    75. If Alter > 1 Then
    76. Label81.Text = Alter & " Monate"
    77. Else
    78. Label81.Text = Alter & " Monat"
    79. End If
    80. End If
    82. TextBox4.Text = result.Row(0).Column("pers_rtw_ra")
    83. TextBox5.Text = result.Row(0).Column("pers_rtw_rs")
    84. TextBox6.Text = result.Row(0).Column("pers_nef_na")
    85. TextBox7.Text = result.Row(0).Column("pers_nef_ra")
    87. TextBox8.Text = result.Row(0).Column("einsatzort")
    88. TextBox9.Text = result.Row(0).Column("transportziel")
    89. ComboBox4.Text = result.Row(0).Column("tz_art")
    90. ComboBox2.Text = result.Row(0).Column("e_zusammenfassung")
    91. ComboBox3.Text = result.Row(0).Column("grund_fehleinsatz")
    92. ComboBox5.Text = result.Row(0).Column("ersteintr_rm")
    93. ComboBox6.Text = result.Row(0).Column("nachforderung")
    95. TextBox18.Text = result.Row(0).Column("anamnese")
    97. TextBox10.Text = result.Row(0).Column("m1_gcs_augen")
    98. TextBox13.Text = result.Row(0).Column("m1_gcs_verbal")
    99. TextBox15.Text = result.Row(0).Column("m1_gcs_motorik")
    101. If TextBox10.Text = "4" Then
    102. TextBox11.Text = "spontan"
    103. ElseIf TextBox10.Text = "3" Then
    104. TextBox11.Text = "auf Aufforderung"
    105. ElseIf TextBox10.Text = "2" Then
    106. TextBox11.Text = "auf Schmerzreiz"
    107. ElseIf TextBox10.Text = "1" Then
    108. TextBox11.Text = "keine Reaktion"
    109. Else
    110. TextBox11.Text = ""
    111. TextBox10.Text = ""
    112. End If
    114. If TextBox13.Text = "5" Then
    115. TextBox12.Text = "orientiert konversationsfähig"
    116. ElseIf TextBox13.Text = "4" Then
    117. TextBox12.Text = "desorientiert konversationsfähig"
    118. ElseIf TextBox13.Text = "3" Then
    119. TextBox12.Text = "inadäquate Äußerungen"
    120. ElseIf TextBox13.Text = "2" Then
    121. TextBox12.Text = "unverständliche Laute"
    122. ElseIf TextBox13.Text = "1" Then
    123. TextBox12.Text = "keine Reaktion"
    124. Else
    125. TextBox12.Text = ""
    126. TextBox13.Text = ""
    127. End If
    129. If TextBox15.Text = "6" Then
    130. TextBox14.Text = "auf Aufforderung"
    131. ElseIf TextBox15.Text = "5" Then
    132. TextBox14.Text = "auf Schmerzreiz gezielt"
    133. ElseIf TextBox15.Text = "4" Then
    134. TextBox14.Text = "normale Beugeabwehr"
    135. ElseIf TextBox15.Text = "3" Then
    136. TextBox14.Text = "abnorme Abwehr"
    137. ElseIf TextBox15.Text = "2" Then
    138. TextBox14.Text = "Strecksynergismen"
    139. ElseIf TextBox15.Text = "1" Then
    140. TextBox14.Text = "keine Reaktion"
    141. Else
    142. TextBox14.Text = ""
    143. TextBox15.Text = ""
    144. End If
    146. Dim mees As Integer = 1 * (TextBox10.Text + TextBox13.Text + TextBox15.Text)
    147. If mees = 15 Then
    148. Button9.Text = "4"
    149. ElseIf mees >= 12 Then
    150. Button9.Text = "3"
    151. ElseIf mees >= 8 Then
    152. Button9.Text = "2"
    153. ElseIf mees < 8 Then
    154. Button9.Text = "1"
    155. End If
    157. ComboBox7.Text = result.Row(0).Column("m1_moni_ekg")
    158. TextBox19.Text = result.Row(0).Column("m1_hf")
    159. TextBox16.Text = result.Row(0).Column("m1_rr")
    160. TextBox39.Text = result.Row(0).Column("m1_o2")
    162. Dim hilf As Integer = 0
    163. If ComboBox7.Text = "Sinusrhythmus" Then
    164. hilf += 4
    165. ElseIf ComboBox7.Text = "SVES" Then
    166. hilf += 3
    167. ElseIf ComboBox7.Text = "VES, monomorph" Then
    168. hilf += 3
    169. ElseIf ComboBox7.Text = "VES, polymorph" Then
    170. hilf += 2
    171. ElseIf ComboBox7.Text = "Arrhythmia absoluta" Then
    172. hilf += 2
    173. ElseIf ComboBox7.Text = "STEMI" Then
    174. hilf += 2
    175. ElseIf ComboBox7.Text = "AV-Block" Then
    176. hilf += 2
    177. ElseIf ComboBox7.Text = "Vetrikuläre Tachykardie" Then
    178. hilf += 1
    179. ElseIf ComboBox7.Text = "Asystolie" Then
    180. hilf += 1
    181. ElseIf ComboBox7.Text = "Pulslose elektrische Aktivität" Then
    182. hilf += 1
    183. ElseIf ComboBox7.Text = "Kammerflimmern" Then
    184. hilf += 1
    185. End If
    187. If TextBox19.Text >= "60" And TextBox19.Text <= "100" Then
    188. hilf += 4
    189. ElseIf TextBox19.Text <= "59" And TextBox19.Text >= "50" Then
    190. hilf += 3
    191. ElseIf TextBox19.Text >= "101" And TextBox19.Text <= "130" Then
    192. hilf += 3
    193. ElseIf TextBox19.Text >= "40" And TextBox19.Text <= "49" Then
    194. hilf += 2
    195. ElseIf TextBox19.Text >= "131" And TextBox19.Text <= "160" Then
    196. hilf += 2
    197. ElseIf TextBox19.Text >= "160" Then
    198. hilf += 1
    199. ElseIf TextBox19.Text <= "39" Then
    200. hilf += 1
    201. End If
    203. If TextBox16.Text >= "120" And TextBox16.Text <= "140" Then
    204. hilf += 4
    205. ElseIf TextBox16.Text >= "100" And TextBox16.Text <= "119" Then
    206. hilf += 3
    207. ElseIf TextBox16.Text >= "141" And TextBox16.Text <= "159" Then
    208. hilf += 3
    209. ElseIf TextBox16.Text >= "80" And TextBox16.Text <= "99" Then
    210. hilf += 2
    211. ElseIf TextBox16.Text >= "160" And TextBox16.Text <= "229" Then
    212. hilf += 2
    213. ElseIf TextBox16.Text >= "230" Then
    214. hilf += 1
    215. ElseIf TextBox16.Text <= "79" Then
    216. hilf += 1
    217. End If
    219. If TextBox39.Text >= "96" And TextBox39.Text <= "100" Then
    220. hilf += 4
    221. ElseIf TextBox39.Text >= "91" And TextBox39.Text <= "95" Then
    222. hilf += 3
    223. ElseIf TextBox39.Text >= "86" And TextBox39.Text <= "90" Then
    224. hilf += 2
    225. ElseIf TextBox39.Text <= "85" Then
    226. hilf += 1
    227. End If
    229. Button10.Text = hilf
    231. TextBox24.Text = result.Row(0).Column("m1_af")
    232. ComboBox8.Text = result.Row(0).Column("m1_atemform")
    233. ComboBox9.Text = result.Row(0).Column("m1_schmerz")
    235. hilf = 0
    237. If TextBox24.Text >= "12" And TextBox24.Text <= "18" Then
    238. hilf += 4
    239. ElseIf TextBox24.Text >= "8" And TextBox24.Text <= "11" Then
    240. hilf += 3
    241. ElseIf TextBox24.Text >= "19" And TextBox24.Text <= "24" Then
    242. hilf += 3
    243. ElseIf TextBox24.Text >= "5" And TextBox24.Text <= "7" Then
    244. hilf += 2
    245. ElseIf TextBox24.Text >= "25" And TextBox24.Text <= "30" Then
    246. hilf += 2
    247. ElseIf TextBox24.Text >= "31" Then
    248. hilf += 1
    249. ElseIf TextBox24.Text <= "4" Then
    250. hilf += 1
    251. End If
    253. If ComboBox9.Text = "keine Schmerzen" Then
    254. hilf += 4
    255. ElseIf ComboBox9.Text = "leichte Schmerzen" Then
    256. hilf += 3
    257. ElseIf ComboBox9.Text = "starke Schmerzen" Then
    258. hilf += 2
    259. ElseIf ComboBox9.Text = "entfällt" Then
    260. hilf += 0
    261. End If
    263. Button11.Text = hilf
    265. TextBox40.Text = result.Row(0).Column("m1_bz")
    266. TextBox41.Text = result.Row(0).Column("m1_temp")
    268. TextBox38.Text = result.Row(0).Column("erstbef_erkrankung")
    269. Label32.Text = result.Row(0).Column("erstbef_t_sht")
    270. Label33.Text = result.Row(0).Column("erstbef_t_ges")
    271. Label34.Text = result.Row(0).Column("erstbef_t_hws")
    272. Label35.Text = result.Row(0).Column("erstbef_t_thorax")
    273. Label36.Text = result.Row(0).Column("erstbef_t_abdomen")
    274. Label37.Text = result.Row(0).Column("erstbef_t_rws")
    275. Label38.Text = result.Row(0).Column("erstbef_t_becken")
    276. Label39.Text = result.Row(0).Column("erstbef_t_oex")
    277. Label40.Text = result.Row(0).Column("erstbef_t_uex")
    278. Label41.Text = result.Row(0).Column("erstbef_t_weicht")
    279. ComboBox10.Text = result.Row(0).Column("erstbef_traumaart")
    280. ComboBox11.Text = result.Row(0).Column("erstbef_unfallmech")
    282. TextBox33.Text = result.Row(0).Column("massn_hkl")
    283. TextBox17.Text = result.Row(0).Column("massn_atmung")
    284. TextBox20.Text = result.Row(0).Column("massn_lagerung")
    285. TextBox21.Text = result.Row(0).Column("massn_sonst")
    287. TextBox32.Text = result.Row(0).Column("medis")
    289. TextBox22.Text = result.Row(0).Column("verlauf")
    291. TextBox35.Text = result.Row(0).Column("m2_gcs_augen")
    292. TextBox31.Text = result.Row(0).Column("m2_gcs_verbal")
    293. TextBox29.Text = result.Row(0).Column("m2_gcs_motorik")
    295. If TextBox35.Text = "4" Then
    296. TextBox34.Text = "spontan"
    297. ElseIf TextBox35.Text = "3" Then
    298. TextBox34.Text = "auf Aufforderung"
    299. ElseIf TextBox35.Text = "2" Then
    300. TextBox34.Text = "auf Schmerzreiz"
    301. ElseIf TextBox35.Text = "1" Then
    302. TextBox34.Text = "keine Reaktion"
    303. Else
    304. TextBox35.Text = ""
    305. TextBox34.Text = ""
    306. End If
    308. If TextBox31.Text = "5" Then
    309. TextBox30.Text = "orientiert konversationsfähig"
    310. ElseIf TextBox31.Text = "4" Then
    311. TextBox30.Text = "desorientiert konversationsfähig"
    312. ElseIf TextBox31.Text = "3" Then
    313. TextBox30.Text = "inadäquate Äußerungen"
    314. ElseIf TextBox31.Text = "2" Then
    315. TextBox30.Text = "unverständliche Laute"
    316. ElseIf TextBox31.Text = "1" Then
    317. TextBox30.Text = "keine Reaktion"
    318. Else
    319. TextBox31.Text = ""
    320. TextBox30.Text = ""
    321. End If
    323. If TextBox29.Text = "6" Then
    324. TextBox28.Text = "auf Aufforderung"
    325. ElseIf TextBox29.Text = "5" Then
    326. TextBox28.Text = "auf Schmerzreiz gezielt"
    327. ElseIf TextBox29.Text = "4" Then
    328. TextBox28.Text = "normale Beugeabwehr"
    329. ElseIf TextBox29.Text = "3" Then
    330. TextBox28.Text = "abnorme Abwehr"
    331. ElseIf TextBox29.Text = "2" Then
    332. TextBox28.Text = "Strecksynergismen"
    333. ElseIf TextBox29.Text = "1" Then
    334. TextBox28.Text = "keine Reaktion"
    335. Else
    336. TextBox29.Text = ""
    337. TextBox28.Text = ""
    338. End If
    340. ComboBox14.Text = result.Row(0).Column("m2_moni_ekg")
    341. TextBox27.Text = result.Row(0).Column("m2_hf")
    342. TextBox26.Text = result.Row(0).Column("m2_rr")
    343. TextBox25.Text = result.Row(0).Column("m2_o2")
    345. hilf = 0
    346. If ComboBox14.Text = "Sinusrhythmus" Then
    347. hilf += 4
    348. ElseIf ComboBox14.Text = "SVES" Then
    349. hilf += 3
    350. ElseIf ComboBox14.Text = "VES, monomorph" Then
    351. hilf += 3
    352. ElseIf ComboBox14.Text = "VES, polymorph" Then
    353. hilf += 2
    354. ElseIf ComboBox14.Text = "Arrhythmia absoluta" Then
    355. hilf += 2
    356. ElseIf ComboBox14.Text = "STEMI" Then
    357. hilf += 2
    358. ElseIf ComboBox14.Text = "AV-Block" Then
    359. hilf += 2
    360. ElseIf ComboBox14.Text = "Vetrikuläre Tachykardie" Then
    361. hilf += 1
    362. ElseIf ComboBox14.Text = "Asystolie" Then
    363. hilf += 1
    364. ElseIf ComboBox14.Text = "Pulslose elektrische Aktivität" Then
    365. hilf += 1
    366. ElseIf ComboBox14.Text = "Kammerflimmern" Then
    367. hilf += 1
    368. End If
    370. If TextBox25.Text >= "60" And TextBox25.Text <= "100" Then
    371. hilf += 4
    372. ElseIf TextBox25.Text <= "59" And TextBox25.Text >= "50" Then
    373. hilf += 3
    374. ElseIf TextBox25.Text >= "101" And TextBox25.Text <= "130" Then
    375. hilf += 3
    376. ElseIf TextBox25.Text >= "40" And TextBox25.Text <= "49" Then
    377. hilf += 2
    378. ElseIf TextBox25.Text >= "131" And TextBox25.Text <= "160" Then
    379. hilf += 2
    380. ElseIf TextBox25.Text >= "160" Then
    381. hilf += 1
    382. ElseIf TextBox25.Text <= "39" Then
    383. hilf += 1
    384. End If
    386. If TextBox23.Text >= "120" And TextBox23.Text <= "140" Then
    387. hilf += 4
    388. ElseIf TextBox23.Text >= "100" And TextBox23.Text <= "119" Then
    389. hilf += 3
    390. ElseIf TextBox23.Text >= "141" And TextBox23.Text <= "159" Then
    391. hilf += 3
    392. ElseIf TextBox23.Text >= "80" And TextBox23.Text <= "99" Then
    393. hilf += 2
    394. ElseIf TextBox23.Text >= "160" And TextBox23.Text <= "229" Then
    395. hilf += 2
    396. ElseIf TextBox23.Text >= "230" Then
    397. hilf += 1
    398. ElseIf TextBox23.Text <= "79" Then
    399. hilf += 1
    400. End If
    402. If TextBox22.Text >= "96" And TextBox22.Text <= "100" Then
    403. hilf += 4
    404. ElseIf TextBox22.Text >= "91" And TextBox22.Text <= "95" Then
    405. hilf += 3
    406. ElseIf TextBox22.Text >= "86" And TextBox22.Text <= "90" Then
    407. hilf += 2
    408. ElseIf TextBox22.Text <= "85" Then
    409. hilf += 1
    410. End If
    412. Button23.Text = hilf
    414. TextBox23.Text = result.Row(0).Column("m2_af")
    415. ComboBox13.Text = result.Row(0).Column("m2_atemform")
    416. ComboBox12.Text = result.Row(0).Column("m2_schmerz")
    418. TextBox3.Text = result.Row(0).Column("m2_bz")
    419. TextBox36.Text = result.Row(0).Column("m2_temp")
    421. hilf = 0
    423. If TextBox21.Text >= "12" And TextBox21.Text <= "18" Then
    424. hilf += 4
    425. ElseIf TextBox21.Text >= "8" And TextBox21.Text <= "11" Then
    426. hilf += 3
    427. ElseIf TextBox21.Text >= "19" And TextBox21.Text <= "24" Then
    428. hilf += 3
    429. ElseIf TextBox21.Text >= "5" And TextBox21.Text <= "7" Then
    430. hilf += 2
    431. ElseIf TextBox21.Text >= "25" And TextBox21.Text <= "30" Then
    432. hilf += 2
    433. ElseIf TextBox21.Text >= "31" Then
    434. hilf += 1
    435. ElseIf TextBox21.Text <= "4" Then
    436. hilf += 1
    437. End If
    439. If ComboBox12.Text = "keine Schmerzen" Then
    440. hilf += 4
    441. ElseIf ComboBox12.Text = "leichte Schmerzen" Then
    442. hilf += 3
    443. ElseIf ComboBox12.Text = "starke Schmerzen" Then
    444. hilf += 2
    445. ElseIf ComboBox12.Text = "entfällt" Then
    446. hilf += 0
    447. End If
    449. Button22.Text = hilf
    451. ' DELTA-MEES berechnen
    452. Button25.Text = 1 * ((Button23.Text + Button22.Text + Button24.Text) - (Button9.Text + Button10.Text + Button11.Text))
    454. ComboBox15.Text = result.Row(0).Column("m2_zustandsverlauf")
    455. ComboBox16.Text = result.Row(0).Column("notfallkat")
    456. ComboBox17.Text = result.Row(0).Column("naca-score")
    457. TextBox37.Text = result.Row(0).Column("pers_einsatzkomm")
    459. Label4.Text = "Patient erfasst am " & result.Row(0).Column("erstellt_am") & " durch " & result.Row(0).Column("erstellt_durch")
    460. Catch ex As Exception
    461. MessageBox.Show("Es ist folgender Fehler aufgetreten:" & vbNewLine & "(" & ex.HResult & ") " & ex.Message, "Funkspiel-ILS", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    462. End Try
    463. End Sub
    465. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    467. End Sub
    469. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    471. End Sub
    473. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    475. End Sub
    477. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    479. End Sub
    481. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    483. End Sub
    485. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    487. End Sub
    489. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    491. End Sub
    493. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    495. End Sub
    496. End Class


    leider habe ich keinen Kontakt mehr zu meinem Ex Kollege aus Gründen die man hammer nennen darf

    Ich hoffe um Zahlreiche Hilfe

    MFG


    EDIT by LaMa5:
    - bei langen Quelltexten, Fehlermeldungen etc. bitte den Expander verwenden
    --> Expander eingefügt
    Bilder

    • Viever.png

      42,97 kB, 1.920×1.080, 125 mal angesehen

    • viver 2.png

      40,95 kB, 1.920×1.080, 112 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Norman18vk“ ()

    Norman18vk schrieb:

    VB.NET-Quellcode

    1. If TextBox21.Text >= "12" And TextBox21.Text <= "18" Then
    Da hilft nicht mal Option Strict On.
    Schmeiß den Code weg, schreib eine belastbare Aufgabenstellung und mach das ordentlich.
    ===
    Bei diesem Code wäre "120" kleiner als "18". :S
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    immer diese doofen Antworten ich hab gesagt ich habe den Code nicht geschrieben dies ist ja nur ein Code für die Leseansicht und für die richtige wo man alles eingeben muss und speichert ist ein anderer Code.


    EDIT by LaMa5:
    - Das vollständige Zitieren von Beiträgen ('Fullquotes'), die direkt über dem eigenen stehen, ist völlig unnötig und daher nicht erlaubt. (Boardregeln §4.3f)
    --> Vollzitat entfernt.

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

    Das sind keine doofe Antworten! Das sind RATSCHLÄGE von Usern, die Dir helfen wollen.
    wenn der Code zum Speichern genauso grotte ist, brauchst Dich über Probleme nicht zu wundern. Lad doch ein Testprojekt hoch, erkläre was Du möchtest und nimm die Ratschläge an!
    "Hier könnte Ihre Werbung stehen..."

    ein Test Objekt hochladen kann ich machen zu laden unter


    Email zum einloggen



    Also was ich möchte das ist wen ein User bei RD --> DIVI Patientenprotokolle ausgefüllt hat und diese gespeichrt ist und dan unter Protokol-Viever --> DIVI-Patienten-Protokolle anzeigen lassen da soll alles angezeigt werden nur dies geht nicht.
    Also ein Protokoll hab ich schon erstellt.
    Vorab bei dem 1 Schritt wo der User ausfüllen muss und speichern tut müssen als Pflicht alle Felde also Buttons ausgefüllt werden.

    Hoffe dies hilft nun weiter

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

    Norman18vk schrieb:

    diese doofen Antworten
    Als Dir Dein Chef dieses Projekt übertragen hat, hättest Du sofort sagen müssen:
    • Dieser Code ist Scheiße, wir müssen das Projekt neu aufsetzen (das ist letztenendes billiger als es zu pflegen!!!)
      oder
    • Ich hab davon keine Ahnung.
    Patientenprotokolle für Rettungsdienste sind Sachen, wo unter Umständen Leben davon abhängen :!:
    Deswegen sage ich noch mal:

    RodFromGermany schrieb:

    Schmeiß den Code weg, schreib eine belastbare Aufgabenstellung und mach das ordentlich.
    oder lass es sein.
    @All: Nehmt die Finger davon weg.
    Ich will nicht krank sein und mit solches Software in einem Rettungswagen sein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mal davon abgesehen, dass man von so einem Wirrwarr nicht viel retten kann und maximal neu schreiben kann... Von Funkspielen steht da nirgends was. Ich weiß nur, dass ich selber seit Jahren im Rettungsdienst elektronische Protokolle verwende und garantiert nicht sowas als Werkzeug möchte.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Ich glaube, niemand hier hat Lust, Hirnschmalz, Energie und Zeit, 200+ Zeilen Code zu investieren, der dermaßen .... (Sorry, ich kann es nicht besser formulieren) .... scheiße ist !
    Option strict off, miserable benamt, VB.Net-VB6-Mix und zum Nachtisch leere Methoden ! :cursing:

    Ich rate ausdrücklich dazu folgenden Empfehlungen nachzukommen ! ;)

    nafets schrieb:

    Wie wäre es mit einem einfachen TabControl? Du musst ja nicht unbedingt gleich das Rad neu erfinden.

    RodFromGermany schrieb:

    ... Schmeiß den Code weg, schreib eine belastbare Aufgabenstellung und mach das ordentlich. ...

    Norman18vk schrieb:

    was kann es sein.
    Da hast Du offensichtlich was falsch gemacht.
    Falls Deine Panels im Designer korrekt aussehen, kann es sein, dass da iein Code aktiv ist, der das rumwürfelt.
    Wenn das so ist, ist anzunehmen, dass da noch mehr Code sein Unwesen treibt.
    Ich empfehle Dir also:

    RodFromGermany schrieb:

    Schmeiß den Code weg, schreib eine belastbare Aufgabenstellung und mach das ordentlich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende