Visual Basic – die besten Beiträge

Hallo :)

Ich bin bei Visual Basic mittlerweile soweit das ich diverse Spiele wie (Hangman, vier gewinnt und Schiffe versenken ) leicht hin kriege. Die Gewinnprpfung und alles klappt auch.

Jetzt ist meine Frage auf welche Programmiersprache ich mit den Kentnissen umsteigen kann? Ich hab halt bisschen Angst das ich mit visual Basic irgendwann limitiert bin.

Welche Ideen habt ihr?

Lg

Sehr geehrte Nutzer, ich habe ein Visual Basic Programm erstellt, dass unter anderem zufällige Funktionen durchführen soll. Zufällige Formen sollen dargestellt werden (form2.show, me.hide) Mein bereits erstellter Code ist: Dim random As New System.Random Function zufall() Select Case random.Next(0, 1) Case "0" Return form2.Show Me.Hide() Case "1" Return form3.show me.hide() End Select End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click label1.text = (zufall()) End Sub

Hat jemand Verbesserungsvorschläge für diesen Code? Ich denke mal das "Return" ist falsch aber Warum? Wenn es jemand weiß bitte sofort melden. Danke im Vorraus.

Ich muss für den Informatik Unterricht in einem Programm alle inhalte des Array hintereinanden in einer Zeile ausgeben. Das Problem dabei ist, dass ich die Größe des Array nicht festlegen will.

Das heißt dann:

Dim Array(x) As long

txt_Ausgabe.Text = ....?

txt_Ausgabe ist eine Multiline Textbox

Guten Tag, wir haben eine Arbeit in Informatik bekommen wo lautet „Programmiere einen Kopfrechentrainer der verschiedene Mathematische Aufgaben stellt, diese sollten in einer bestimmten Zeit gelöst werden. Es sollte 3 Schwierigkeitsstufen geben die Aufgaben stellen wo verschieden schwierig sind, es sollten unter den Aufgaben * | + | - | / Aufgaben sein die gleichmäßig verteilt werden, es sollte ein Punktezähler eingebaut sein der nach den 20 Aufgaben eine Punktezahl ausgibt und ein Diagramm wie gut / schlecht man ist. Die Aufgaben dürfen nicht die selben dein.“

Alles muss in der Sprache VisualBasic 2010 verfasst werden.

So ich habe das jetzt mal selber formuliert und mein Problem ist das Informatik nicht wirklich meine Interesse ist und ich überhaupt keine Ahnung habe was ich machen soll... könnte mir irgendwie jemand Methoden schreiben oder etwas in de Art wie ich das in einer Woche hinbekommen?! Dankeschön

Hallo zusammen, vorweg mir sind "vbNewLine" und Streamwriter.WriteLine bekannt aber ich habe folgendes Problem (vielleicht missverstehe ich auch oben genannte Dinge): Ich arbeite an einem Programm (für den privaten Gebrauch), das Einträge speichern und diese mittels eines Streamwriters in eine Textdatei schreiben soll. entsprechender Code: Try

        Dim fs As New System.IO.FileStream("GamemasterSave.txt", IO.FileMode.Create)
        Dim sw As New System.IO.StreamWriter(fs)


        For Each h As String In oPathList

            sw.WriteLine(h + ",")

        Next
        sw.Close()

    Catch ex As Exception

        MessageBox.Show("Beim Speichern ist ein Fehler aufgetreten.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

Das Problem ist, dass kein einfacher Zeilenumbruch eingefügt wird, sondern neben dem Zeilenumbruch noch eine weitere Zeile, was bei einer Funktion der Anwendung Probleme verursacht, die ich in der Textdatei ausbessern muss. Es funktioniert richtig, wenn ich nur "Write" verwende, aber ich finde es so schöner, wenn ich mal etwas in der Textdatei suchen muss/will. Danke schon mal im voraus.

Ich erstelle zurzeit ein Programm mit Visual Basic. Nun stehe ich aber vor einem kleinen Problem. Die Windows Media Player DLL spielt keine HTML Dateien ab. Das Programm ist, um Radio zu hören. Ich habe mir das so gedacht: Wenn man auf einen Button klickt, öffnet sich ein kleines Fenster, mit der Windows Media Player DLL. Und diese soll dann den Stream abspielen. Den Livestream des Weblinkes. Und nun zu meiner Frage: Wie mache ich dass, das ich das HTML am Ende des Links durch ein MP3 oder WAV oder... ersetzen kann, damit der Player es Wiedergeben kann. Danke für Hilfe!

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then  

TextBox1.Text = "5"  

End If

End Sub

Klingt komisch, aber ich möchte ein Ferien Projekt beginnen. Mein Ziel: Mithilfe Visual Basic eine kleine Lichtshow zu machen. Dies würde ich mit LEDs machen wollen.

Meine Idee: Es gibt viele Infos wie man mit Visual Basic über ein "Arduino" LEDs steuern kann. Ich stelle mir dann so eine Pappe vor, in der LEDs verbaut sind, dahinter ist halt der Arduino und so. :P

Meine Fragen: -Wo kann ich ein Arduino kaufen? Finde im Internet nur irgendwelche Kits/Lernsets und so. -Würde es theoretisch funktionieren mit einem Arduiono ungefähr 20 LEDs gleichzeitig zu steuern?

Falls nicht; wie kann ich über Visual Basic LEDs steuern?

Danke für Antworten!

-lg max

Hallo zusammen. Ich habe folgendes Problem. In einer Excel-Datei (ThisWorkbook) habe ich die Tage vom 1.-letzten Tag eines Monats in Reihe 4 stehen. Ein Datum pro Spalte, beginnend in Spalte B. Darunter sollen jeweils Werte aus einer anderen Excel Datei (wbk360) eingetragen werden - mit Hilfe von VBA. In dieser zweiten Datei stehen die Tage untereinander in Spalte A. Ich benutze Worksheetfunction.Match, um die richtige Zeile in der zweiten Datei zu finden, bevor ich von dort Zahlen in meine erste Datei übertragen lasse.

Das hier ist der Teil des VBA Codes, der nicht funktioniert:

    For idatecol = 2 To 21
    On Error Resume Next
    idaterow = WorksheetFunction.Match(ThisWorkbook.ActiveSheet.Cells(4, idatecol).Value, wbk360.ActiveSheet.Range("A:A"), 0)
    
    ThisWorkbook.ActiveSheet.Cells(5, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iOccHeader).Value
    ThisWorkbook.ActiveSheet.Cells(6, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iIndexHeader).Value
Next idatecol

idaterow sollte mir die Zeile in Datei 2 nennen, in der das Datum steht, das ich gerade in Datei 1 bearbeiten möchte. Wenn ich aber mit F8 Zeile für Zeile durch den Code gehe, bleibt der Wert für idaterow immer 0; es wird also kein Match gefunden.

Die Daten in Datei 2 Spalte A werden als Datum in Excel erkannt. Gebe ich eine Match-Formel direkt auf meinem Worksheet in Datei 1 ein, benutze dort den Datumswert aus Zelle B4 in Datei 1 und suche nach einem Match in Spalte A in Datei 2, bekomme ich 5 als Ergebnis, weil dieses Datum in Zelle A5 in Datei 2 steht.

Offensichtlich findet Excel also das entsprechende Match für jedes einzelne Datum in Datei 1. Mit VBA finde ich aber kein einziges Match.

Hat jemand eine Idee, warum das so ist??? Vielen Dank im Voraus. Rene

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!

Ich bin zur Zeit dabei ein Verschlüsselungsprogramm mit VB zu programmieren. Leider gibts hier ein Problem mit den Zeilenumbrüchen. Wenn man im Orginaltext in zwei Zeilen schreibt, dann wir der Zeilenumbruch als 'z' ausgelesen und dann mit dem Schlüsselwort verrechnet und ausgegeben. Das verfälscht die Verschlüsselung und wenn man es dann wieder entschlüsseln lässt. deshalb will ich den String dann irgendwie so machen:

If Eingabe = >Zeilenumbruch< then Ausgabe = >Zeilenumbruch<

oder: If Eingabe = >Zeilenumbruch< then Ausgabe = " "

Sodass der Zeilenumbruch erhalten bleibt oder ein Leerzeichen setzt, aber die Verschlüsselung nicht verfälscht. Ich weis nur nicht, wie ich diesen >Zeilenumbruch< - Teil im Code ausdrücken soll. ich hab schon sowas wie vbCr und vbCrLf versucht, aber hat nicht funktioniert und, dass man die Zeile in () dahinter schreibt, geht in diesem Fall auch nicht. Wisst ihr da vielleicht was?

Wichtig zu wissen wär, dass die Variable Eingabe eine Mid$ - Funktion ist von einem Text, der verschlüsselt werden soll von einer immer größer werdenden Stelle mit der Länge 1:

While Stelle < EingebenerText.length + 1

    Eingabe = Mid$(Ein

    Stelle = Stelle + 1

End While

Hallo,

ich möchte aus dem Bereich A2:A10 alle Werte auslesen und diese dann jeweils immer in A12 kopieren lassen (ja der Wert soll dann immer wieder überschrieben werden!!!).

Ich dachte dabei an eine For-Schleife, weil ich zuvor auslesen lasse, wie viele Werte es in Spalte A wirklich gibt und dann das entsprechend soft durchlaufen lasse. Gibt es eine Funktion, wo ich die Spalte dann festlege und bspw. mit i=2 für die Reihe in jedem Durchlauf dann die Zeile darunter nehme?

LG Syrena

Hintergrundinfos: Habe eine Karte von Deutschland, und verschiedene Orte in einer ListBox, und wenn z.B. das Item in der ListBox "Berlin" ist, soll in der PictureBox in den jeweiligen Koordinaten ein Kreis/Punkt gezeichnet werden.

Ansatz: If Standort.Text = "Berlin" Then - Zeichnen - End If

Und jetzt eben bei z.B. Koordinaten 25, 20 soll ein Kreis "drüber" gezeichnet werden.

Danke für sämtliche Antworten, MfG mczz

Private Sub B_Points_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Points.Click 
    Dim points String = TextBox1.Text

    Try 
        WinteDMAInteger("DeadByDaylight", -00000C88, points)
    Catch ex As Exception
    End Try
End Sub

Fehlermeldung:

WinteDMAInteger

Fehler2 "WinteDMAInteger" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

Guten Morgen liebe Community!

Vorerst: Ich habe nur ganz wenig Kenntnisse über VBA und Makros!

Ich habe folgendes Problem:

Ich arbeite im Sicherheitsdienst und möchte durch eine Durchgangskontrolle Personen aufzeichnen, die durch eine art "Schleuse" mit Barcode-Ausweisen ein- und aus-checken. Das ist soweit alles fertig. Jede Person wird in einem Protokoll festgehalten, zu welcher Zeit Sie durch die Schleuse gegangen ist. (Alles in Excel)

Im Protokoll fehlt lediglich der Eintrag, ob die Person gerade gegangen oder gekommen ist.

Hat irgendjemand eine Idee, wie ich den Eintrag einfüge, dass er sich nicht mehr ändert, wenn die Person wieder aus- bzw eincheckt? (durch wenn-Formel klappt das nicht so ganz)

Ich hoffe meine Frage ist irgendwie verständlich und jemand kann mir dabei weiterhelfen.

Vielen lieben Dank!

Gibt es dazu eine Formel in Excel oder kann mir jemand einen Visual Basic Code für dessen Berechnung geben?

Danke im Vorraus YSwaggerY

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

1. Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.

2. Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

Ich würde gerne ein "Schiffe versenken spiel" programmieren, sodass man im selben Netzwerk zusammen zu 2 spielen kann.
Allerdings bin ich ein ziemlicher Neuling in diesem gebiet und bräuchte dabei Hilfe 🤔 ich habe bis jetzt ein 9x9 Feld aus Buttons und um das Aussehen hab ich mich bereits gekümmert. Der Client kann sich auch schon mit dem server verbinden und man kann ebenfalls chatten. Ich habe allerdings absolut keine Ahnung, was nun in den Programmcode soll.
Ich hatte gerne, dass:
1. sich die Buttons orange färben, wenn man getroffen hat und weiß, wenn man daneben geschossen hat.
2. dass es rundenbasiert ist
3. dass der andere ebenfalls Nachrichten bekommt, wenn man ihn getroffen hat.
Danke schonmal für die Hilfe 😊

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!" 

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

Hallo liebe Community!

Kennt jemand ein gutes Tutorial, wo erklärt wird, wie man eine KI programmiert? Diese muss nicht allzu klug sein; ich möchte nur mal einen Einstieg in die KI-Entwicklung bekommen.

Vorzugsweise möchte ich das in Java oder Python programmieren, damit es möglichst auf allen gängigen Betriebssystemen für Desktop PCs (also Windows, Linux & Mac) laufen kann. Alternativ wäre ich auch mit C# oder Visual Basic zufrieden.

Die Sprache, in der das Tutorial geschrieben wurde, sollte entweder Englisch oder Deutsch sein. Niederländisch würde es zur Not auch noch tun.

Danke schon mal!

EDIT:
Ich möchte eine KI entwickeln, die maschinelles Lernen beherrscht. Also so, wie Watson von IBM (natürlich nicht auf die Sendung Jeapordy beschränkt).