 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
 Verfasst am: 03.12.2006, 00:15 Titel: Finde den BUG net.... |
 |
|
Also ich hatte nen nettes progg gefunden und des großteils umgeändert...(ich weiß net woher ich es habe sonst fürde ich nen copyright machen..)
des geht so
| Code: | Dim Eingabe As String
Dim x as integer
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" Alias _
"GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) _
As Long
Declare Function ShowWindow Lib "user32" Alias _
"ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowPos Lib "user32" Alias _
"SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Const GW_CHILD = 5
Const SW_HIDE = 0
Const SW_RESTORE = 9
Const SWP_NOSIZE = &H1
Dim ret As Long
ret = FindWindow("shell_traywnd", "")
ret = GetWindow(ret, GW_CHILD)
Print "Start Button wurde versteckt!"
ShowWindow ret, SW_HIDE
Sleep
PRINT " Willste den Sart Button wieder haben??Dann beantworte eine Frage....."
sleep
Do
Input "Bist du cool?Antworte mit JA oder NEIN: ";Eingabe
If Eingabe = "J" or ucase(Eingabe) = "JA" then
Print "Falsch,du bist nicht cool!Aber eingebildet!!xD"
Geantwortet = 1
exit do
sleep
elseif Eingabe = "N" or ucase(Eingabe) = "NEIN" then
PRINT "DU bist cool!!!DEN du BIST DEUTSCHLAND!!!!!"
Geantwortet = 1
sleep
exit do
else
Print "Tippe bitte Ja oder Nein ein"
end if
sleep
Loop
Print "Du hattest die Frage FALSCH !!!Brauchst du den deinen Start Button?Wenn Ja beantworte die naechste Frage...."
DO
Input "Was ergibt 23*654??",x
IF x =15042 then
Print "KLASSE,du hast einen Taschenrechner gezueckt!!Jetzt siehst du wie wichtig dir dein Sart button Ist!!!
exit do
else
Print "Streng dich an ich weiss das du es packst!!!!!"
endif
loop
Print "HIER haste ihn"
ShowWindow ret, SW_RESTORE
Sleep
Print "Der Sart Button ist ein NAZI er ist RECHTS!!!"
SetWindowPos ret, 0&, 950&, 0&, 0&, 0&, SWP_NOSIZE
sleep
SetWindowPos ret, 0&, 0&, 0&, 0&, 0&, SWP_NOSIZE
Print "Ach was, des geht hier schon viel zu lang^^gruss Black-Chilla"
Sleep
End |
Ihr könnt es ja mal ausführen hat noch paar bugs könnt ihr die vll beheben ich bekomms net hin....DANKE
gruß chilla |
|
| Nach oben |
|
 |
Progger_X
Mr. Lagg
Anmeldungsdatum: 24.11.2004
Beiträge: 784
Wohnort: Leipzig
|
| Verfasst am: 03.12.2006, 01:05 Titel: |
|
|
Ich habs nur überflogen, aber ein wenig genauer könntest du die Bugs schon beschreiben xD
/EDIT:
Hab FB mal ausgegraben, das ausgeführt, ich seh keine größeren Bugs, wenn man von den Umlauten absieht(CHR hilft  ) absieht...du kannst ja mal dass, was du bemänglelst, nennen, dann könnte man den Bug besser beheben.
| Zitat: | | Der Sart Button ist ein NAZI er ist RECHTS!!! |
1. So n Quatsch
2. Das is ja wohl total daneben...
Der Startbutton ist nähmlich nicht rechts außen^^ |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 03.12.2006, 09:53 Titel: |
|
|
Naja ...
Der Startbutton geht an eine Fixe stelle.
Bei kleiner Auflösung geht er aus dem Bild und bei grosse in die Mitte ...
Hat die Variabel "Geantwortet" irgendeine Funktion?!
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 03.12.2006, 12:15 Titel: |
|
|
Ich glaube auch nicht, es sei denn er würde sich das schenken und an Stelle dessen ein | Code: | | LOOP UNTIL Geantwortet |
einfügen...
jb
_________________
Elektronik und Programmieren |
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 03.12.2006, 14:33 Titel: |
|
|
| könnt ihr mal jetzt bitte den komplette richtigen code posten??ich glaube ich mach irgendwas falsch es kommt immer nen fehler...danke |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 03.12.2006, 15:48 Titel: |
|
|
da kommt immer: Illegal outside a compound statement, found: 'LOOP'
LOOP UNTIL Geantwortet
Und ich finde in der hilfe datei kein verzeichnis für fehler... |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 03.12.2006, 15:54 Titel: |
|
|
Der Fehler liegt hier:
| Code: |
IF x =15042 then
Print "KLASSE,du hast einen Taschenrechner gezueckt!!Jetzt siehst du wie wichtig dir dein Sart button Ist!!!
exit do
else
Print "Streng dich an ich weiss das du es packst!!!!!"
endif
|
Du befindest dich in einer IF-Schleife, und daher kannst du nicht einfach EXIT DO schreiben.
Eine bessere Alternative ist es daher, an Stelle von [ode]EXIT DO [/code]einfach zu schreiben, und dann das am Ende durch ein | Code: | | LOOP UNTIL Geantwortet |
zu ersetzen.
jb
_________________
Elektronik und Programmieren
Zuletzt bearbeitet von jb am 03.12.2006, 16:42, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 03.12.2006, 16:23 Titel: |
|
|
also ich habe jetzt alles mögliche befolgt aber es sind immer noch mehrere bugs da!!!könnte ihr den code nicht bitte mal komplett entbuggt auflisten??wäre echt super nett ich fang schon an zu ver zweifeln 
danke |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 03.12.2006, 16:45 Titel: |
|
|
Ähm, jb, man kann innerhalb eines IF blocks Exit Do schreiben, das geht schon.
| Code: | #include "windows.bi"
Dim Eingabe As String
Dim x as integer
Dim As Integer sx, sy
Screeninfo sx, sy
Dim ret As Hwnd
ret = FindWindow(strptr("shell_traywnd"), 0)
ret = GetWindow(ret, GW_CHILD)
Print "Start Button wurde versteckt!"
ShowWindow ret, SW_HIDE
Sleep 10000
PRINT " Willste den Sart Button wieder haben??Dann beantworte eine Frage....."
sleep 3000
Do
Input "Bist du cool?Antworte mit JA oder NEIN: ";Eingabe
If ucase(Eingabe) = "JA" then
Print "Falsch,du bist nicht cool!Aber eingebildet!!xD"
exit do
elseif ucase(Eingabe) = "NEIN" then
PRINT "Du bist cool, denn DU BIST DEUTSCHLAND!!!!!"
Exit Do
else
Print "Tippe bitte Ja oder Nein ein"
end if
Sleep 3000
Loop
Sleep 10000
Print "Du hattest die Frage FALSCH !!!Brauchst du den deinen Start Button?Wenn Ja beantworte die naechste Frage...."
DO
Input "Was ergibt 23*654??",x
IF x =15042 then
Print "KLASSE,du hast einen Taschenrechner gezueckt!!Jetzt siehst du wie wichtig dir dein Sart button Ist!!!
exit do
else
Print "Streng dich an ich weiss das du es packst!!!!!"
end if
Sleep 3000
loop
Print "HIER haste ihn"
ShowWindow ret, SW_RESTORE
Sleep 3000
Print "Der Sart Button ist ein NAZI er ist RECHTS!!!"
SetWindowPos ret, 0&, sx-100, 0&, 0&, 0&, SWP_NOSIZE
sleep
SetWindowPos ret, 0&, 0&, 0&, 0&, 0&, SWP_NOSIZE
Print "Ach was, des geht hier schon viel zu lang^^gruss Black-Chilla"
Sleep |
Teste mal, wenns nicht geht, dann geb ich dir mal mein Prog.
Hab vor langer Zeit mal eins gemacht, was so ähnlich war.
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 03.12.2006, 19:06 Titel: |
|
|
| also es sind fast alle bugs leider geblieben...... |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 03.12.2006, 19:10 Titel: |
|
|
Dann poste mal bitte compile-logs und beschreib die Bugs besser, sonst kann man dir nicht helfen...
FB-Version/OS wäre auch hilfreich.
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
Progger_X
Mr. Lagg
Anmeldungsdatum: 24.11.2004
Beiträge: 784
Wohnort: Leipzig
|
| Verfasst am: 04.12.2006, 12:45 Titel: |
|
|
| Ich versteh gar net, was für Probleme du hast. Also ich kann das völlig einwandfrei kompilieren... ev. mal die Version aktuellisieren. |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 04.12.2006, 13:35 Titel: |
|
|
Genau, desswegen hätte ich gerne eine genaue Fehlerbeschreibung....
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 04.12.2006, 16:47 Titel: |
|
|
es liegt net am copiling.....
das programm vom inhalt selbst hat bugs...
wenn man bei der Frage " BIst du cool?" was eingeben will komm des erst nach dreimal eingabe taste drücken.....
Ich hätte auch gerne des das programm mal mein sleep beatchen würde^^die fragen sollen nämlich nicht gleich untereinander kommm sondere erst nach drücken der eingabetaste.....
Naja ich hoffe ich konnte euch helfen wenn net einfach mal ausführen und als endbenutzer nach bedienungs bugs gucken.... |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 04.12.2006, 17:01 Titel: |
|
|
Das Programm ist sicherlich nicht optimal verfaßt, läßt sich aber fehlerfrei mit FB0.16bSE kompilieren und ausführen, deshalb kann ich mich programmierer nur anschließen: Poste doch mal deine Fehlermeldungen.
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 04.12.2006, 18:22 Titel: |
|
|
| programmierer hat Folgendes geschrieben: | Dann poste mal bitte compile-logs und beschreib die Bugs besser, sonst kann man dir nicht helfen...
FB-Version/OS wäre auch hilfreich. |
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
black-chilla
Anmeldungsdatum: 02.12.2006
Beiträge: 15
|
| Verfasst am: 04.12.2006, 19:10 Titel: |
|
|
| Zitat: | | wenn man bei der Frage " BIst du cool?" was eingeben will komm des erst nach dreimal eingabe taste drücken..... |
| Zitat: | | die fragen sollen nämlich nicht gleich untereinander kommm sondere erst nach drücken der eingabetaste..... |
|
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 04.12.2006, 19:21 Titel: |
|
|
| programmierer hat Folgendes geschrieben: | | FB-Version/OS wäre auch hilfreich. |
Die Frage scheint im Moment wohl wichtig zu sein, vor allem FB-Version.
Vielleicht hast du eine mit Input/inkey bug erwischt, die auf manchen windows version nen fehler verursacht hat.
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 04.12.2006, 20:15 Titel: |
|
|
Hi,
..hier, probier mal dies: | Code: | Option Explicit
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" Alias _
"GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) _
As Long
Declare Function ShowWindow Lib "user32" Alias _
"ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowPos Lib "user32" Alias _
"SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Const GW_CHILD = 5, SW_HIDE = 0, SW_RESTORE = 9, SWP_NOSIZE = &H1
Dim Eingabe As String
Dim As Long x, Ret
Ret=FindWindow("shell_traywnd", "")
Ret=GetWindow(Ret, GW_CHILD)
?"Start Button wurde versteckt!"
ShowWindow Ret, SW_HIDE
Sleep
?" Willste den Startbutton wieder haben??Dann beantworte eine Frage.."
Sleep
While Inkey<>"":Wend 'manchmal ist es sinnvoll den Tastaturpuffer zu löschen
Do
Input "Bist du cool?Antworte mit JA oder NEIN: ";Eingabe
Eingabe=UCase(Left(Eingabe, 1))
Select Case Eingabe
Case "J"
?"Falsch, du bist nicht cool!Aber eingebildet!!xD"
' Geantwortet = 1
Case "N"
PRINT "DU bist cool!!!DENN du BIST DEUTSCHLAND!!!!!"
' Geantwortet = 1
Case Else
Print "Tippe bitte Ja oder Nein ein"
End Select
Sleep
Loop Until Instr("JN", Eingabe)
Print "Du hattest die Frage FALSCH !!!Brauchst du denn deinen Start Button?Wenn Ja, beantworte die naechste Frage.."
Do
Input "Was ergibt 23*654?", x
If x=15042 Then
?"KLASSE, du hast einen Taschenrechner gezueckt!!Jetzt siehst du, wie wichtig dir dein Startbutton ist!!!"
Else
?"Streng dich an, ich weiss, dass du es packst!!"
End If
Loop Until x=15042
Print "HIER haste ihn"
ShowWindow Ret, SW_RESTORE
Sleep
SetWindowPos Ret, 0&, 0&, 0&, 0&, 0&, SWP_NOSIZE
Print "Ach was, des geht hier schon viel zu lang^^gruss Black-Chilla"
Sleep
End |
btw:
In meinen Programmen kommen keine Texte vor, die mit 'Na' beginnen und mit 'zi' enden..
..und wieder liegt programmierer richtig
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
