Record Arrays

[Kernelpanic]

Thanks again for the tips, I was totally off track yesterday.
Now it works also with the display of the book in question. It's not really "practical" yet, but it works.

Code: (Select All)

'Recordarray Uebung mit Buechern mit Bildanzeige - 2. Juli 2024



'$Console:Only

Option _Explicit



Type Buecher

  Buchtitel As String * 30

  Autor As String * 30

  ISBN As String * 20

  Preis As String * 6

End Type



Dim Buchbestand(10) As Buecher



Dim As Integer anzahl, satzNummer, bildNummer



satzNummer = 1

Locate 2, 3

Do

  Locate CsrLin, 3

  Input "Buchtitel : ", Buchbestand(satzNummer).Buchtitel

  Locate CsrLin, 3

  Input "Autor    : ", Buchbestand(satzNummer).Autor

  Locate CsrLin, 3

  Input "ISBN      : ", Buchbestand(satzNummer).ISBN

  Locate CsrLin, 3

  Input "Preis    : ", Buchbestand(satzNummer).Preis



  satzNummer = satzNummer + 1

  Print: Print

Loop Until satzNummer = 3



'Zwei Sekunden Pause, dann Anzeige

Sleep 2



Cls

Locate CsrLin + 1, 3

bildNummer = 1

For anzahl = 1 To satzNummer - 1

  Print Tab(3); "Buchtitel: ", Buchbestand(anzahl).Buchtitel

  Print Tab(3); "Autor    : ", Buchbestand(anzahl).Autor

  Print Tab(3); "ISBN    : ", Buchbestand(anzahl).ISBN

  Print Tab(3); "Preis    : ", Buchbestand(anzahl).Preis

  If bildNummer = 1 Then

    _Clipboard$ = "Revolusi.jpg"

    Shell "BildAnzeigen.exe"

  ElseIf bildNummer = 2 Then

    _Clipboard$ = "Tsushima.jpg"

    Shell "BildAnzeigen.exe"

  End If

  Print: Print Tab(3); "Druecken Sie eine Taste fuer weiter."

  Sleep

  bildNummer = bildNummer + 1

  Print

Next



End

Show picture.

Code: (Select All)

'Programm 2 (benenne und speichere dieses als Bild.bas und kompiliere es als Bild.exe)

'Wird von "BildAufrufen" aufgerufen. - Name muss mit dem Aufruf uebereinstimmen.

'Autor Pete - 19. Oktober 2022



Dim Bild As Long

Dim As String myBild



myBild = _Clipboard$

If _Trim$(myBild) = "" Then System ' Nothing got transferred.



Screen _NewImage(650, 750, 32)



Cls

'Neue Farbe setzen

Color _RGB32(255, 165, 0), _RGB32(0, 0, 0)



Bild = _LoadImage(myBild)



'Neues Fenster - Bildgroesse fuer mittig

'_PutImage (((800 - 689) / 2), ((500 - 459) / 2)), Bild

_PutImage (((650 - 540) / 2), ((750 - 660) / 2)), Bild



End

Display: