Basic 256 Programm?

Hallo liebe Community, heute habe ich mir vorgenommen etwas in Basic 256 zu programmieren, da diese Sprache ja gut für Anfänger sein soll. Mein Programm stellt eine Multiplikationsaufgabe, dann kann der Spieler die Lösung eingeben. Ist die Lösung richtig wird der Punktestand um 1 erhöht. Wenn der Spieler die falsche Antwort angibt, endet das Spiel und der Punktestand soll angezeigt werden. Wie ihr aber im Bild sehen könnt, spuckt mein Computer eine Fehlermeldung aus. Ich habe doch ein end if gesetzt?

Bitte entschuldigt wenn ich dort einen blöden Fehler gemacht habe, wie gesagt bin ich ganz neu in diesem Gebiet unterwegs.

Bild zum Beitrag

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Franky1962

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Technik

19.04.2022, 18:39

Das next d darf nicht in deiner if else endif Bedingung stehen.

Ich würde nur die do until Schleife stehenlassen mit den Abbruchbedingungen(z<>a*b oder d>100).

Woher ich das weiß:Berufserfahrung – Computer- und Techniknerd seit den 80ern.

alpha489

Beitragsersteller

19.04.2022, 18:55

Wie genau soll ich das umsetzten?

Franky1962

19.04.2022, 19:17

@alpha489

Aus Zeile 1 machst du d=1
Zeile 15 kommt komplett weg.
Vor der until Bedingung wird d erhöht: d=d+1
In der Until-Zeile kommt noch ein or d>100

ItachiUchihaLX

19.04.2022, 18:32

Ich kenn diese Programmiersprache zwar nicht, aber wie wäre es, wenn du versuchen würdest vor dem else in Zeile 16 in einer Zeile ein end if zu platzieren?

alpha489

Beitragsersteller

19.04.2022, 18:37

Das funktioniert leider nicht

gfntom

19.04.2022, 18:36

Du darfst nicht das NEXT zwischen IF und ELSE plazieren.

Du hast hier 2 Strukturen (for und if) überlappend.

Franky1962

19.04.2022, 18:37

Sehe ich auch so.

Ähnliche Beiträge

Mein C++ Qt creator Programm stürzt bei eingaben von umlauten in ein Textfeld ab wie kann ich das verhindern?

Hallo in meinem Programm soll man wenn man einen text eingibt bestimmte dinge analysieren können(Zahl der Buchstaben, Zahl der Vokal ,...) ? allerdings stürzt das Programm ab, sobald man Umlaute eingibt

Mein bisheriger code aus mainwindow.cpp

#include "mainwindow.h"
#include "ui_mainwindow.h"

MainWindow::MainWindow(QWidget *parent) :
    QMainWindow(parent),
    ui(new Ui::MainWindow)
{
    ui->setupUi(this);
    ui->pushButton->hide();
}

MainWindow::~MainWindow()
{
    delete ui;
}

void MainWindow::on_btnBuchstaben_clicked()
{
    DeleteLetter();
    CountLetter();
    ShowLetter();

}

void MainWindow::DeleteLetter()
{
    for (int i=0;i<256;i++)
        Buchstaben[i]=0;
}

void MainWindow::ShowLetter()
{
    QString work="";
    QString einzel;
    QString zahl;
    ui->AnalyseWidget->clear();
    ui->AnalyseWidget->addItem("Auswertung");
    for (int i=0;i<256;i++){
        einzel ="  _____ ";
        if (i>=32)
            einzel[0]=char(i);
        else {
            if (i<10){
                einzel[0]='0';
                einzel[1]='0'+i;
            }
            else if (i< 20) {
                einzel[0]='1';
                einzel[1]='0'+i-10;
            }
            else if (i<30) {
                einzel[0]='2';
                einzel[1]='0'+i-20;

            }
            else {
                einzel[0]='3';
                einzel[1]='0'+i-30;
            }
        }
        zahl = QString::number(Buchstaben[i]);
        for (int j = zahl.length()-1;j>=0;j--)
            einzel[7-zahl.length()+j]=zahl[j];
        work = work + einzel;
        if ((i+1)%8==0)
        {
            ui->AnalyseWidget->addItem(work);
            work="";
        }
    }

}

void MainWindow::CountLetter()
{
    QString Area = ui -> EingabeEdit -> toPlainText();
    for(int i = 0; i < Area.length();i++)
        Buchstaben[Area[i].toLatin1()]++;
}

void MainWindow::on_btnWoerter_clicked()
{
    CountWords();
}

void MainWindow::CountWords()
{
    QString Area;
    Area = ui -> EingabeEdit -> toPlainText();
    int i = 0, w = 0;
    bool Word = false;
    while (i < Area.length())
    {
        if (Area[i] == ' ' && Word)
        {
            Word = false;
            w++;
        }
        if (Area[i] == ' ' && !Word)
        {

        }
        if (Area[i] != ' ' && Word)
        {

        }
        if (Area[i] != ' ' && !Word)
        {
            Word = true;
        }
        i++;
    }
    if (Word == true)
    {
        w++;
    }
    QString o = QString::number(w);
    QString output = "Der Text hat " + o + " Wörter";
    ui -> AnalyseWidget -> clear();
    ui -> AnalyseWidget -> addItem(output);

}

//Vokale - aus vorhandenem Array rausholen
//Zahlen nachschauen und ausgeben

...zum Beitrag

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zum Beitrag

char in einer if Anweisung?

Hallo. Das Programm führt die Lösung wie gewollt aus, wenn ich bei der eingabe "1" eingebe. Wenn ich jedoch, wie es eigentlich vorgesehen ist, k (für korrekt) eingebe, führt er mir sinnfrei alles aus. Wie kann ich das Problem umgehen, wie erkennt er das "k" richtig? Vielen Dank.

Bitte auch darum, wie kann ich ein Programm kopieren, damit ihr den Code direkt bearbeiren lönnt?

...zum Beitrag

Programm schreiben, Problem bei größte und zweitgrößte Zahl (Java)?

Ich darf für die Bearbeitung keine(!!!!!!) While oder For Schleife nutzen und auch keine Zuweisungen. Nur mit Fallunterscheidung, also nur mit if Anweisungen.

Es klappt soweit, wenn ich jedoch zweimal die selbe Zahl habe, dann spuckt es mir die Eingabe 2 mal aus. Wie kann ich das umgehen?

(Hab das >= eingefügt damit das Programm überhaupt weiterläuft, denn sonst bspw. 30>30 nicht funktionieren würde)

...zum Beitrag

Java if?

Ich habe die aufgabe bekommen zu programmieren das bei einer divison wenn man 0 angibt das Programm sagt das die zahl größer als 0 sein soll. Ich habe schon was versucht weiß aber nicht mehr weiter. Kann mir da jemand helfen und vielleicht erklären was ich genau falsch mache? (Bin Anfänger)

...zum Beitrag

Über Windows ein Programm auf Raspberry Pi ausführen?

Hallo zusammen,

Ich habe hier einen Windows-PC als Server laufen. Nun möchte ich, dass ich durch das Ausführen einer Datei/eines kleinen Programms (Batch?) auf dem Windows-PC eine MP3-Datei auf meinem Raspberry Pi 4 abspielen kann. Beide Geräte befinden sich in dem selben Netzwerk.
Alternativ könnte auch ein Netzwerkereignis die MP3 auf dem Pi starten?

Ich habe schon den Nachmittag in diversen Foren verbracht, scheine aber auf dem Schlauch zu stehen, da ich keine Lösung gefunden habe (zu dumm zum googlen?).

Daher hier nun die Frage, ob mir ein Experte auf dem Gebiet vielleicht weiterhelfen kann? Bin eher Amateur und komme nicht weiter.

Vielen Dank schonmal für eure Bemühungen!

...zum Beitrag

Visual Basic: CSV Datei einlesen und durchsuchen?

Moin liebe Community,

Ich möchte mir ein kleines Programm schreiben (In VB, weil es für mich relativ einfach war einzusteigen). Mir liegt eine CSV Datei vor (Mit ; getrennt), in diesem Format:

Staffel;VarianteA;VarianteB
1;27,10;15,50
2;31,40;19,95
3;35,50;24,60

Nun Stelle ich mir die Frage, wie ich es schaffe, folgendes Problem zu lösen:

Variable (decimal) ist z. B. 2
Variable (string) ist z.B: VarianteB

Lösung: suche aus der CSV unter Staffel die 2. und gebe den wert für VarianteB (also 19,95) aus.

Nur weiß ich nicht, wie ich dahin komme.

Ist übrgends ein kleines Abfrageprogramm für ein Spiel von mir und ein paar Kollegen entwickelt, was einen Markt hat, wo Preise sich über die API auslesen und als CSV exportieren lassen. (Ist alles noch in der Entwicklung)

...zum Beitrag

Java Folgen und Reihen?

Hallo zusammen!!!

Ich schreibe gerade an einem Programm für den Unterricht, wobei mir folgene Frage aufkam: Wie kann ich die Summe aus x zahlen berechnen, wenn dies durch einen Scanner geschieht, z.B. gebe ich die Zahl 5 ein und java rechnet mir dann die Summe aus: 1 + 2 + 3 + 4 + 5 zusammen...

Folgenden code habe ich bereits erstellt:

public class Reihe {

public static void main(String[] args) {

Scanner myConsole = new Scanner(System.in);

System.out.println("Dieses Programm ermöglicht das Berechnen der Summe aus den Brüchen: 1/1^2+1/2^2+1/3^2+1/N^2") ;

System.out.print("Geben Sie ihre Zahl ein");

int adder = myConsole.nextInt();

if (adder == 0) //Programm muss bei der Eingabe von 0 0.0 ausgeben, ansonsten das Resultat auf 2 Stellen nach Komma...

System.out.println("0.0");

else

for (int i = adder; i == adder; i = i+1) {

System.out.println();

}

Ich muss nähmlich dies für folgendes Problem lösen: 1 / N^2 (gleiches Prinzip nur mit Bruch...

Ich hoffe mir kann jemand beim Schema helfen, so dass ich es für mein Problem übernehmen kann!!! Möchte selber noch auf die Lösung kommen :)))

Vielen Dank bereits im Vorraus!!!

Gruss

...zum Beitrag

[Visual Basic] Prüfen ob bestimmter Prozess läuft

Hallo,

ich möcht überprüfen ob ein bestimmter Prozess, in meinem Fall eine .exe Datei schon geöffnet ist.

Ich hatte es bereits mit

    Dim p As process
if p.responding then    
...

Hier finde ich aber einfach keine Möglichkeit den Prozessnamen einzutragen (es liegt wahrscheinlich an meinem Halbwissen)

Der Prozess wird nicht aus dem Programm heraus gestartet.

Ich hoffe ihr könnt mir helfen, am besten mit eienm Code Beispiel.

Danke.

...zum Beitrag

Java Rechenaufgabe?

import java.util.Scanner;
public class Zusammenrechnen {
  public static void main(String[] args) {
    Scanner scan = new Scanner(System.in); int zahl = scan.nextInt();
  while(zahl > 0) {
    zahl = scan.nextInt();
  }
  if(zahl < 0) { System.out.println("Programm beendet"); }
  scan.close();
  }
}

Frage: Was muss ich ändern, damit das Programm die Summe der eingegebenen Zahlen (ohne die letzte, negative Zahl) angibt?😕

...zum Beitrag

C++ Code für LGS?

Ich möchte mit einen C++-Programm alle LGS lösen können (endlich, unendlich und keine Lösungen). Ich habe auch einen Code. Endlich viele und keine Lösungen kann er recht gut (bisher), aber unendlich viele Lösungen kann er nicht anzeigen lassen (soll dann auch t einführen, nicht einfach einen Wert einsetzen).

Wo liegt der Fehler?

#include <iostream>
#include <vector>
#include <cmath>

using namespace std;

// Funktion zur Berechnung des Determinanten einer Matrix
double determinant(vector<vector<double>>& matrix, int n) {
  double det = 0;

  if (n == 1) {
    return matrix[0][0];
  }

  if (n == 2) {
    return matrix[0][0] * matrix[1][1] - matrix[0][1] * matrix[1][0];
  }

  for (int i = 0; i < n; i++) {
    vector<vector<double>> subMatrix(n - 1, vector<double>(n - 1));

    for (int j = 1; j < n; j++) {
      for (int k = 0; k < n; k++) {
        if (k < i) {
          subMatrix[j - 1][k] = matrix[j][k];
        }
        else if (k > i) {
          subMatrix[j - 1][k - 1] = matrix[j][k];
        }
      }
    }

    det += pow(-1, i) * matrix[0][i] * determinant(subMatrix, n - 1);
  }

  return det;
}
 
// Funktion zur Durchführung der Gauss-Jordan-Elimination
void gaussJordan(vector<vector<double>>& matrix, vector<double>& constants) {
  int n = matrix.size();

  for (int i = 0; i < n; i++) {
    int maxIndex = i;

    for (int j = i + 1; j < n; j++) {
      if (abs(matrix[j][i]) > abs(matrix[maxIndex][i])) {
        maxIndex = j;
      }
    }

    if (maxIndex != i) {
      swap(matrix[maxIndex], matrix[i]);
      swap(constants[i], constants[maxIndex]); // Korrektur hier
    }

    double factor = matrix[i][i];

    for (int j = i; j < n; j++) {
      matrix[i][j] /= factor;
    }

    constants[i] /= factor;

    for (int j = 0; j < n; j++) {
      if (j != i) {
        double factor = matrix[j][i];

        for (int k = i; k < n; k++) {
          matrix[j][k] -= factor * matrix[i][k];
        }

        constants[j] -= factor * constants[i];
      }
    }
  }
}

// Funktion zur Überprüfung der Invertierbarkeit und zur Lösung des LGS
vector<double> solveLinearSystem(vector<vector<double>>& matrix, vector<double>& constants) {
  int n = matrix.size();
  double det = determinant(matrix, n);

  // Überprüfung auf unendlich viele Lösungen
  bool allZero = true;

  for (double constant : constants) {
    if (constant != 0) {
      allZero = false;
      break;
    }
  }

  if (det == 0) {
    if (allZero) {
      cout << "Das LGS hat unendlich viele Lösungen." << endl;
      return {}; // Leerer Vektor, da unendlich viele Lösungen existieren
    }
    else {
      cout << "Das LGS hat keine Lösung." << endl;
      return {}; // Leerer Vektor, da keine Lösung existiert
    }
  }

  // Anwendung der Gauss-Jordan-Elimination
  gaussJordan(matrix, constants);

  vector<double> solution(n);

  for (int i = 0; i < n; i++) {
    solution[i] = constants[i];
  }

  return solution;
}

int main() {
  vector<vector<double>> matrix = {
    { 1, -3,  5 },
    { 2, -5,  12 },
    { 3, -11,  11 }
  };
  vector<double> constants = { 2, 1, 12 };

  vector<double> solution = solveLinearSystem(matrix, constants);

  if (!solution.empty()) {
    cout << "Die Lösung des LGS ist: ";

    for (int i = 0; i < solution.size(); i++) {
      cout << "x" << i + 1 << " = " << solution[i] << ", ";
    }

    cout << endl;
  }
  else {
    cout << "Das LGS hat keine Lösung." << endl;
  }

  return 0;
}

...zum Beitrag

Arduino und Visual Basic?

Hi,

ich habe folgendes Problem: Also, ich habe es geschafft mit VB, daten an meinen Arduino zu senden und der Arduino dann auf die Daten reagiert und Befehle ausführt. Ich sage einfach in VB Serialport1.write("A") und dann einfach im Arduino if(Serial.read() == 'A') {Irgend ein Befehl}

Das klappt auch Super!

Nur jetzt weiß ich nicht wie das anders herum gehen soll.

Ich habe es probiert indem ich dem Arduino sage: Serial.println("A"); Und in VB: if(Serialport1.readLine = "A") then

msgbox("Hallo")

end if

Doch dann hängt sich mein Programm auf.

Weiß wer von euch wie das gehen könnte?

Danke im Voraus!

...zum Beitrag

MATLAB to Python Compiler?

Hi,

Ich habe die Aufgabe ein Programm von MATLAB nach Python zu übersetzen.

Ich kenne den OMPC (http://ompclib.appspot.com/m2py) bereits.

Die Fragen:

Gibt es bessere Compiler?

Gibt es ein Verzeichnis das angibt wie z.B. ein MATLAB Befehl in Python aussieht? (Also eine Art Wörterbuch)

Und generell habt ihr Tipps für mich, ich bin relativ neu auf dem Gebiet?

Danke im voraus!

Josh

...zum Beitrag

Java: Prüfen ob ein Array "null" ist?

Hallo, ich habe in Java einen String[] dessen Wert über Usereingaben ins Programm festgelegt wird. Dabei kann der Wert auch leer sein und dann crasht es immer mit dem Fehler "java.lang.NullPointerException". Ich habe mir dafür schon eine Lösung überlegt dass ich prüfe ob der Wert null ist und wenn ja wird der wert zu "default" geändert. Aber wenn ich das überprüfen möchte crasht es wieder wegen java.lang.NullPointerException weil ich ja versuche darauf zuzugreifen.

//Ich habe es auch schon mit equals und isEmpty probiert
if (user_input[0]==null) { //Fehlerzeile
    user_input="default";
}

java.lang.NullPointerException

Wie kann ich das überprüfen ohne dass es crasht?

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen