Zum Inhalt springen

Smilla

Mitglieder
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    177

  • Benutzer seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge von Smilla

    Access Tabelle nach VB6 exportieren

    in Basic

    Geschrieben

    Hallo zusammen,

    bin dabei ein "Wer wird Millionär" Spiel zu programmieren in VB6. Die Fragen liegen in einer Access Datenbank. Wie kann ich beides miteinander verknüpfen um von meiner VB6 Anwendung auf die Fragen in der Tabelle zugreifen zu können?

    Danke schonmal!

    Outlook Formulare

    in Basic

    Geschrieben

    Habe mir jetzt ein Outlook Formlular erstellt. Jetzt sollte aber beim verschicken, sowohl das Formular als auch die Inhalte mit verschickt werden. Das klappt aber nicht. Hab es getestet und es kommt nur eine ganz leere eMail an.

    Wer kann mir helfen? Müssen beide Seiten mein Formular haben? Wäre ja dann irgendwie sinnlos oder?

    Danke schonmal :)

    Problem bei VBA mit Outlook, Text in eMail schreiben

    in Basic

    Geschrieben

    Hallo zusammen,

    habe ein Problem... geht um VBA.

    Und zwar soll beim Click auf einen Button in der Symbolleiste eine neue eMail mit einem bestimmten Text geöffnet werden.

    Finde leider im Internet nichts passendes dazu, habe schon gegoogelt!

    Also das mit dem Button dürfte nicht das größte Problem werden, erstmal das, das in eine neue eMail der Text geschrieben wird...

    Wär super wenn mir jemand helfen kann...

    [VBA] Schaltjahr oder nicht

    in Basic

    Geschrieben

    Es geht um folgende Aufgabenstellung:

    1.) Schreiben sie eine Prozedur, die nach Eingabe einer Jahreszahl dem Anwender in einer Messagebox mittteilt, ob es sich um ein Schaltjahr handelt oder nicht. Ein Jahr ist Schaltjahr, wenn die Jahreszahl durch 4, aber nicht durch 100 teilbar, oder wenn die Jahreszahl durch 400 teilbar ist (1900 war kein, 2000 war Schaltjahr).

    Ich hab eine Inputbox in die wird die Jahreszahl eingegeben. Das Ergebnis soll in einer MSGBOX ausgegeben werden. Nur wie muss ich die Berechnungen machen? In If-Abfragen verpackt, das ist mir klar, aber sonst?

    Die Jahreszahl steht bei mir in der Variable "jahr" drinnen.

    Kann ich dann einfach jahr / 4 rechnen? Eher nicht oder, wegen den unterschiedlichen Datentypen denk ich mal...

    Vorallem wie unterscheide ich obs Teilbar ist oder nicht? Weil wenn es sogesehen nicht teilbar ist, bekomme ich ja einen Rest... bzw. eine Kommazahl...

    Hoffe mir kann jemand weiterhelfen :)

    VB6: Dateien umbenennen, Zahlen entfernen

    in Basic

    Geschrieben

    Ich bin grad dabei ein Tool zu erstellen mit dem MP3 Dateien umbenannt werden können. Dazu gibt es verschiedene Optionen.

    Eine Option ist eben die führenden Zahlen zu entfernen, also wenn die datei 0815hallo.mp3 heißt z.b. dann soll eben vorne das 0815 entfernt werden und die datei nur noch hallo mp3 heißen :)

    Nur wie prüfe ich ab was Zahl und was buchstabe ist und außerdem wie entferne ich die Zahlen dann? :confused:

    Danke schonmal für eure Hilfe :-)

    VB 6: Line Funktion

    in Basic

    Geschrieben

    Hallo zusammen,

    ich wollte ein bisschen mit der Line Funktion rumexperimentieren.

    Könnt ihr mir ein paar Anhaltspunkte? Wie geht das mit den Koordinaten? Wie und von wo an wird gezählt?

    Finde bisher über Google nix sonderlich brauchbares :(

    VB 6: HangMan

    in Basic

    Geschrieben

    Habe das Problem jetzt mit einer Schleife gelöst! :)

    Funktioniert auch. Nur muss ich noch machen das die Fehleranzahl auf 11 Begrenzt ist, bzw. ab dem 11. Fehler wars das ;)

    Hab nur grad kein Plan wie ich das machen könnt. Genauso ist das Spiel ja auch zu Ende wenn das Wort erraten wurde.

    Private Sub fehlerzahl_erhöhen()


anzahl_fehler = anzahl_fehler + 1

txt_fehler.Text = CStr(anzahl_fehler) + " Fehler"


If anzahl_fehler = 1 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\1.bmp")

ElseIf anzahl_fehler = 2 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\2.bmp")

ElseIf anzahl_fehler = 3 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\3.bmp")

ElseIf anzahl_fehler = 4 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\4.bmp")

ElseIf anzahl_fehler = 5 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\5.bmp")

ElseIf anzahl_fehler = 6 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\6.bmp")

ElseIf anzahl_fehler = 7 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\7.bmp")

ElseIf anzahl_fehler = 8 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\8.bmp")

ElseIf anzahl_fehler = 9 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\9.bmp")

ElseIf anzahl_fehler = 10 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\10.bmp")

ElseIf anzahl_fehler = 11 Then

pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\11.bmp")

End If



End Sub

    VB 6: HangMan

    in Basic

    Geschrieben

    Im Formular hab ich ja bei der Eigenschaft Picture das erste Bild also 0.bmp eingestellt.

    Mit folgender Zeile kann man ein anderes Bild laden, klappt auch :)

    pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\1.bmp")

    Allerdings muss ich ja bei einem weiteren Fehler ein weiteres neues Bild laden... :confused:

    VB 6: HangMan

    in Basic

    Geschrieben

    Danke @ShaaitanTX. So ähnlich habe ich es jetzt auch gelöst. Problem ist nur jetzt, das sich das Bild ja noch ändern muss.

    Wie mache ich das? Momentan ist in der Picture Box Pic1 das Bild 0.bmp drin. Jetzt soll ich das erhöhen.... die folgenden Bilder heißen pic1.bmp, pic2.bmp usw.

    Kann ich das einfach so schreiben:

    Pic_1.Picture = pic1.bmp

    VB 6: HangMan

    in Basic

    Geschrieben

    Neuer Status:

    Wenn ein richtiger Buchstabe eingegeben wird, wird das Strichle an der Richtigen Position durch diesen ersetzt.

    Jetzt gehts um das, was passiert wenn der Buchstabe falsch ist und im ganzen Wort nicht vorkommt.

    Dann soll das Bild geändert werden und in einer Weiteren Textbox soll die Anzahl der Fehler erhöht werden, aber nur wenn im GANZEN Wort keine Übereinstimmung gefunden wurde. Ich komm da grad einfach nicht weiter...

    Private Sub Suchwort_prüfen(zeichen As String)


For i = 0 To Len(wort) - 1


If zielarray(i) = zeichen Then

'MsgBox ("Buchstabe gefunden")

anzeigearray(i) = zeichen


Anzeigearray_ausgeben


Else

'MsgBox ("Buchstabe nicht gefunden")


fehler_erhöhen


End If


Next

End Sub



Private Sub fehler_erhöhen()




End Sub

    Was muss ich in die Sub "fehler_erhöhen" eintragen?

    VB 6: HangMan

    in Basic

    Geschrieben

    @Klotzkopp, die Schleife läuft ja so oft durch das Array wie das Wort Buchstaben hat. Und bei jedem Durchlauf, nach jedem Buchstaben also wird eine MsgBox ausgegeben (Die MsgBox diehnt mommentan noch der Kontrolle, wird später natürlich ersetzt). Verständlich? ;)

    Es hat so ähnlich auch funktioniert, dann ist meine Datei aber bei einem Serverumzug verschütt gegangen und ich musste nochmal von vorn beginnen. Ich war vorher auch schonmal so weit, da hats funktioniert mit den Message Boxen.

    Habs eben nochmal zurück gesetzt, jetzt klappts, bei gefundenem Buchstaben wird die MsgBox "Buchstabe gefunden" Ausgegeben.

    Private Sub Suchwort_prüfen(zeichen As String)


For i = 0 To Len(wort) - 1


If zielarray(i) = zeichen Then

MsgBox ("Buchstabe gefunden")

Else

MsgBox ("Buchstabe nicht gefunden")



End If


Next

End Sub

    Jetzt soll aber bei gefundenem Buchstaben nicht mehr die MSGBox ausgegeben werden, sondern im entsprechenden Array soll das entsprechende Stichle gegen den Buchstaben ersetzt werden. Wie mach ich das?? ;)

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Links

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...