Versteh das nicht mehr :(
Übersicht
BlitzBasic BlitzPlus
Tidus85Betreff: Versteh das nicht mehr :( |
 So, Mai 13, 2007 13:44Antworten mit Zitat 
|
|
|---|---|---|
Hi und zwar geht es darum wollte in Blitz Plus ein Programm schreiben wo man die File und Imgaehoster vorfindet (mit menü usw.) doch irgendwie meldet der immer nen fehler  habe jetzt schon fast 2 stunden probiert den fehler zu finden und meine augen lassen langsam nach  also ich wäre dankbar für hilfe, wenn mir vielleicht jeman den fehler im code sagen könnte  Vorsicht er ist jetzt ziemlich durcheinander weil hab schon viel versucht nur finde ich keine lösung und durch das hin und her schieben der codefragmente ist das jetzt alles bissel verwirrent Also er meldet entweder immer einen window gadget fehler oder einen normalen gadget fehler und das immer bei dem RS doch weiß nicht was da für ein fehler sein sollte.
Code: [AUSKLAPPEN] ;Menü mit Buttons
window=CreateWindow("Hauptmenü",50,50,200,50,0,5) ;Hauptmenü Button + Untermenüs------------------------------------------------------------- menu1=CreateMenu("Hauptmenü",1,WindowMenu(window)) menu2=CreateMenu("Filehoster",2,menu1) menu3=CreateMenu("Imagehoster",3,menu1) menu4=CreateMenu("",4,menu1) menu5=CreateMenu("Info",5,menu1) menu6=CreateMenu("",6,menu1) menu7=CreateMenu("Beenden",7,menu1) UpdateWindowMenu window ;Buttons für Filehoster-------------------------------------------------------------------- Repeat ;Menücode---------------------------------------------------------------------- ergebnis=WaitEvent() AuswahlPunkt = EventData() Select ergebnis Case $1001 If AuswahlPunkt = 7 Then End If AuswahlPunkt = 5 Then window=CreateWindow("Informationen & Copyright",300,300,500,180,0) SetStatusText window,"Homepage: www.it-plauen.de" textarea=CreateTextArea(10,10,450,90,window) AddTextAreaText textarea,"Jan Wisniewski, Lost Hope Projects und www.it-plauen.de"+Chr$...41;+"übernehmen keine Haftung für Schäden die durch dieses Programm entstehen können"+Chr$(13)+Chr$(10)+"Das Copyright liegt komplett bei den genannten Namen"+Chr$(13)+Chr$(10)+"Bei Problemen, Tipps oder Hilfeanfragen wenden sie sich bitte an"+Chr$(13)+Chr$(10)+"www.it-plauen.de" LockTextArea textarea If Auswahlpunkt = 2 Then window2=CreateWindow("Filehoster",50,50,500,450,0,15) button1=CreateButton("Rapidshare",20,20,100,30,window2,1) button2=CreateButton("Megaupload",20,60,100,30,window2,1) button3=CreateButton("Boost",20,100,100,30,window2,1) button4=CreateButton("Onlinefile",20,140,100,30,window2,1) button5=CreateButton("Materialordner",20,180,100,30,window2,1) button6=CreateButton("My Temp Dir",20,220,100,30,window2,1) button7=CreateButton("Netload",20,260,100,30,window2,1) button8=CreateButton("Load",20,300,100,30,window2,1) button9=CreateButton("Sharebigfile",20,340,100,30,window2,1) button10=CreateButton("Filefactory",150,20,100,30,window2,1) button11=CreateButton("Filecache",150,60,100,30,window2,1) button12=CreateButton("4Shared",150,100,100,30,window2,1) button13=CreateButton("Megashares",150,140,100,30,window2,1) button14=CreateButton("Sendspace",150,180,100,30,window2,1) button15=CreateButton("Oxyshare",150,220,100,30,window2,1) button16=CreateButton("Savefile",150,260,100,30,window2,1) Select EventSource() Case button1 If ButtonState(button1)=0 Then filename$="www.Rapidshare.com" If ButtonState(button1)=1 Then filename$="www.Rapidshare.com" ExecFile(filename$) Case button2 If ButtonState(button2)=0 Then filename$="www.megaupload.com/de/" If ButtonState(button2)=1 Then filename$="www.megaupload.com/de/" ExecFile(filename$) Case button3 If ButtonState(button3)=0 Then filename$="www.boost.am" If ButtonState(button3)=1 Then filename$="www.boost.am" ExecFile(filename$) Case button4 If ButtonState(button4)=0 Then filename$="www.onlinefile.de" If ButtonState(button4)=1 Then filename$="www.onlinefile.de" ExecFile(filename$) Case button5 If ButtonState(button5)=0 Then filename$="www.materialordner.de" If ButtonState(button5)=1 Then filename$="www.materialordner.de" ExecFile(filename$) Case button6 If ButtonState(button6)=0 Then filename$="www.mytempdir.com" If ButtonState(button6)=1 Then filename$="www.mytempdir.com" ExecFile(filename$) Case button7 If ButtonState(button7)=0 Then filename$="www.netload.in" If ButtonState(button7)=1 Then filename$="www.netload.in" ExecFile(filename$) Case button8 If ButtonState(button8)=0 Then filename$="www.load.to" If ButtonState(button8)=1 Then filename$="www.load.to" ExecFile(filename$) Case button9 If ButtonState(button9)=0 Then filename$="www.sharebigfile.com" If ButtonState(button9)=1 Then filename$="www.sharebigfile.com" ExecFile(filename$) Case button10 If ButtonState(button10)=0 Then filename$="www.filefactory.com" If ButtonState(button10)=1 Then filename$="www.filefactory.com" ExecFile(filename$) Case button11 If ButtonState(button11)=0 Then filename$="www.filecache.de" If ButtonState(button11)=1 Then filename$="www.filecache.de" ExecFile(filename$) Case button12 If ButtonState(button12)=0 Then filename$="www.4shared.com" If ButtonState(button12)=1 Then filename$="www.4shared.com" ExecFile(filename$) Case button13 If ButtonState(button13)=0 Then filename$="www.megashares.com" If ButtonState(button13)=1 Then filename$="www.megashares.com" ExecFile(filename$) Case button14 If ButtonState(button14)=0 Then filename$="www.sendspace.com" If ButtonState(button14)=1 Then filename$="www.sendspace.com" ExecFile(filename$) Case button15 If ButtonState(button15)=0 Then filename$="www.oxyshare.com" If ButtonState(button15)=1 Then filename$="www.oxyshare.com" ExecFile(filename$) Case button16 If ButtonState(button16)=0 Then filename$="www.savefile.com" If ButtonState(button16)=1 Then filename$="www.savefile.com" ExecFile(filename$) UpdateWindowMenu window End Select If WaitEvent(1) = $803 Then End Case $803;<<<<obenrechts schliesen End End Select Forever Auf wunsch kann ich euch auch gerne den code mal per icq zu schicken oder so. Achja und die Buttons mit den Links sind auch nicht mehr anklickbar davor (also ohne die Menüs ging es noch einwandfrei) Sry für die Fragen nur Programmiere das erste mal in Blitz Plus
|
||
|
klin |
So, Mai 13, 2007 15:55 Antworten mit Zitat
|
|---|---|---|
|
Welchen Fehler? Expecting 'Case',Default' Or 'Endselect' ?
Also wenn ja (also bei mir steht das, dann hattest du dich vertippt! Code: [AUSKLAPPEN] AddTextAreaText textarea,"Jan Wisniewski, Lost Hope Projects und www.it-plauen.de"+Chr$...41;+"übernehmen keine Haftung für Schäden die durch dieses Programm entstehen können"+Chr$(13)+Chr$(10)+"Das Copyright liegt komplett bei den genannten Namen"+Chr$(13)+Chr$(10)+"Bei Problemen, Tipps oder Hilfeanfragen wenden sie sich bitte an"+Chr$(13)+Chr$(10)+"www.it-plauen.de"
du hast dich sogar gewaltig vertippt! 1. de"+Chr$...41;+"ü Was sollen die punkte bedeuten??? und ; ? und auserden ist es +Chr$(13)+ wenn du nen Abstand willst 
Nur ich hatte den code ausprobiert und halt eben gelesen das dort irgendein Fehler ist... nun jetzt haste einen weniger
Also Hier ist nochmal der ganze komplette code: Code: [AUSKLAPPEN] ;Menü mit Buttons
window=CreateWindow("Hauptmenü",50,50,200,50,0,5) ;Hauptmenü Button + Untermenüs------------------------------------------------------------- menu1=CreateMenu("Hauptmenü",1,WindowMenu(window)) menu2=CreateMenu("Filehoster",2,menu1) menu3=CreateMenu("Imagehoster",3,menu1) menu4=CreateMenu("",4,menu1) menu5=CreateMenu("Info",5,menu1) menu6=CreateMenu("",6,menu1) menu7=CreateMenu("Beenden",7,menu1) UpdateWindowMenu window ;Buttons für Filehoster-------------------------------------------------------------------- Repeat ;Menücode---------------------------------------------------------------------- ergebnis=WaitEvent() AuswahlPunkt = EventData() Select ergebnis Case $1001 If AuswahlPunkt = 7 Then End If AuswahlPunkt = 5 Then window=CreateWindow("Informationen & Copyright",300,300,500,180,0) SetStatusText window,"Homepage: www.it-plauen.de" textarea=CreateTextArea(10,10,450,90,window) AddTextAreaText textarea,"Jan Wisniewski, Lost Hope Projects und www.it-plauen.de"+Chr$(13)+"übernehmen keine Haftung für Schäden die durch dieses Programm entstehen können"+Chr$(13)+Chr$(10)+"Das Copyright liegt komplett bei den genannten Namen"+Chr$(13)+Chr$(10)+"Bei Problemen, Tipps oder Hilfeanfragen wenden sie sich bitte an"+Chr$(13)+Chr$(10)+"www.it-plauen.de" LockTextArea textarea If Auswahlpunkt = 2 Then window2=CreateWindow("Filehoster",50,50,500,450,0,15) button1=CreateButton("Rapidshare",20,20,100,30,window2,1) button2=CreateButton("Megaupload",20,60,100,30,window2,1) button3=CreateButton("Boost",20,100,100,30,window2,1) button4=CreateButton("Onlinefile",20,140,100,30,window2,1) button5=CreateButton("Materialordner",20,180,100,30,window2,1) button6=CreateButton("My Temp Dir",20,220,100,30,window2,1) button7=CreateButton("Netload",20,260,100,30,window2,1) button8=CreateButton("Load",20,300,100,30,window2,1) button9=CreateButton("Sharebigfile",20,340,100,30,window2,1) button10=CreateButton("Filefactory",150,20,100,30,window2,1) button11=CreateButton("Filecache",150,60,100,30,window2,1) button12=CreateButton("4Shared",150,100,100,30,window2,1) button13=CreateButton("Megashares",150,140,100,30,window2,1) button14=CreateButton("Sendspace",150,180,100,30,window2,1) button15=CreateButton("Oxyshare",150,220,100,30,window2,1) button16=CreateButton("Savefile",150,260,100,30,window2,1) Select EventSource() Case button1 If ButtonState(button1)=0 Then filename$="www.Rapidshare.com" If ButtonState(button1)=1 Then filename$="www.Rapidshare.com" ExecFile(filename$) Case button2 If ButtonState(button2)=0 Then filename$="www.megaupload.com/de/" If ButtonState(button2)=1 Then filename$="www.megaupload.com/de/" ExecFile(filename$) Case button3 If ButtonState(button3)=0 Then filename$="www.boost.am" If ButtonState(button3)=1 Then filename$="www.boost.am" ExecFile(filename$) Case button4 If ButtonState(button4)=0 Then filename$="www.onlinefile.de" If ButtonState(button4)=1 Then filename$="www.onlinefile.de" ExecFile(filename$) Case button5 If ButtonState(button5)=0 Then filename$="www.materialordner.de" If ButtonState(button5)=1 Then filename$="www.materialordner.de" ExecFile(filename$) Case button6 If ButtonState(button6)=0 Then filename$="www.mytempdir.com" If ButtonState(button6)=1 Then filename$="www.mytempdir.com" ExecFile(filename$) Case button7 If ButtonState(button7)=0 Then filename$="www.netload.in" If ButtonState(button7)=1 Then filename$="www.netload.in" ExecFile(filename$) Case button8 If ButtonState(button8)=0 Then filename$="www.load.to" If ButtonState(button8)=1 Then filename$="www.load.to" ExecFile(filename$) Case button9 If ButtonState(button9)=0 Then filename$="www.sharebigfile.com" If ButtonState(button9)=1 Then filename$="www.sharebigfile.com" ExecFile(filename$) Case button10 If ButtonState(button10)=0 Then filename$="www.filefactory.com" If ButtonState(button10)=1 Then filename$="www.filefactory.com" ExecFile(filename$) Case button11 If ButtonState(button11)=0 Then filename$="www.filecache.de" If ButtonState(button11)=1 Then filename$="www.filecache.de" ExecFile(filename$) Case button12 If ButtonState(button12)=0 Then filename$="www.4shared.com" If ButtonState(button12)=1 Then filename$="www.4shared.com" ExecFile(filename$) Case button13 If ButtonState(button13)=0 Then filename$="www.megashares.com" If ButtonState(button13)=1 Then filename$="www.megashares.com" ExecFile(filename$) Case button14 If ButtonState(button14)=0 Then filename$="www.sendspace.com" If ButtonState(button14)=1 Then filename$="www.sendspace.com" ExecFile(filename$) Case button15 If ButtonState(button15)=0 Then filename$="www.oxyshare.com" If ButtonState(button15)=1 Then filename$="www.oxyshare.com" ExecFile(filename$) Case button16 If ButtonState(button16)=0 Then filename$="www.savefile.com" If ButtonState(button16)=1 Then filename$="www.savefile.com" ExecFile(filename$) UpdateWindowMenu window End Select If WaitEvent(1) = $803 Then End Case $803;<<<<obenrechts schliesen End End Select Forever Fals du diesen fehler gesucht hattest, dann bidde
EDIT: Aso du fragst dic warum der diesen Gadget Fehler anzeigt! Na das ist doch irgendwie logich... du erstellst wärend du windows erstellst ja auch für windows2! Am besten du Packst das (wie ich damasl) diese in eine Function, dann functioniert es
MFG Klin |
||
Übersicht
BlitzBasic BlitzPlus
Powered by phpBB © 2001 - 2006, phpBB Group