Ein Euro-Umrechner

roboehler · Beitrag von **roboehler** » 12.01.2005 19:02

Ich hab hier einem Euro-Umrechner geschrieben. Hier ist der Source-code für diejenigen, die sowas brauchen können:


;eurokalk7cb - Vorlage erstellt mit Purebasic Visual IDE
;und später von Hand verfeinert!
;----------------Constants (WINDOW1)
#berechneDM=1 
#dm=2 
#euro=3 
#text=4 
#text0=5
#text2=6
#wertdm=7 
#berechneEuro=8 
#dm1=9 
#euro1=10 
#text1=11 
#werteuro=12 
#W1Image1 = 13
#W1Image2 = 14
#W1Text3 = 15
#W1Text4 = 16
#ende = 17
#W1Btn3 = 18
#Window1 =19
#euro3=20
#help=21
;----------------Constants (WINDOW2)
#Window2 = 1
#W2Btn1 = 2
#W2Text1 = 3
#W2Text2 = 4
#W2Text3 = 5
#W2Text4 = 6
#W2Text5 = 7
#Font = 8

;----------------Flags (WINDOW2)
#Window2Flags = #PB_Event_CloseWindow | #PB_Window_MinimizeGadget 

#Window1Flags = #PB_Window_SystemMenu  | #PB_Window_SizeGadget
;FontID.l = LoadFont(#Font, Name$, Höhe [, Flags]) 
FontID.l = LoadFont(#Font, "Arial", 30 ,1) 


new:
LoadFont (1, "Arial", 30)              ; Load Arial Font, Size 30

If OpenWindow(#Window1 ,200,150,320,350,#Window1Flags, "Euro-Kalkulator") 
  If CreateGadgetList(WindowID()) 

     
    ButtonGadget(#berechneDM,200,60,90,20,"Berechne DM") 
    
    ButtonGadget(#help,200,253,90,25,"Hilfe")
    ButtonGadget(#ende,200,307,90,25,"ENDE")
    ButtonGadget(#W1Btn3,200,280 ,90,25,"about")


    StringGadget(#euro,20,60,60,20,"") 
    TextGadget  (#text0, 90, 60, 100, 24, "Eingabe Euro") 
    ImageGadget(#W1Image2,4,7 ,100,62, Picture2)

    
    StringGadget(#dm,20,90,60,20,"1.95583",#PB_String_ReadOnly   ) 
    TextGadget  (#text, 90, 90, 150, 24, "Umtauschwert Euro in DM") 

    TextGadget  (#wertdm, 20, 120, 250, 24, "")
      
    ButtonGadget(#berechneEURO,200,145,90,20,"Berechne EURO") 
    
    StringGadget(#dm1,20,145,60,20,"") 
    TextGadget  (#text2, 90, 145, 100, 24, "Eingabe DM") 
    
    StringGadget(#euro1,20,175,60,20,"0.51129",#PB_String_ReadOnly   ) 
    TextGadget  (#text1, 90,175, 150, 15, "Umtauschwert DM in EURO")
    
    ;Ergebnis = TextGadget(#Gadget, x, y, Breite, Höhe, Text$ [, Flags]) 
    StringGadget(#euro3,10,220,295,20,"")
    
    ;TextGadget  (#werteuro, 20, 205, 150, 24, "")
    ImageGadget(#W1Image1,63,250 ,100,62, Picture1)
    TextGadget(#W1Text3, 32, 315 ,161,17,"c) Robert Böhler 2005", #PB_Text_CENTER)
    TextGadget(#W1Text4, 79, 330 ,100,15," FREEWARE ")
 EndIf 
 Repeat 
   StartDrawing(WindowOutput())            
    DrawingMode(0)                          ;TextBackground deckend= 0 Transparent =1
  
                    
    DrawingFont(UseFont(1))                 ; Use the Arial font
    BackColor(123, 156, 191)
    FrontColor(211, 19, 223)   
    Locate(3, 7)                          ; Set x,y position
    DrawText(" Euro-Umrechner ")      ; Print our text

    StopDrawing()     ; This is absolutely needed when the drawing operations are 
                                  ; finished !!! Never forget it !   
  
    EventID = WaitWindowEvent() 
      If EventID = #PB_Event_CloseWindow 
        Quit = 1 
      EndIf 
      
      If EventID = #PB_Event_Gadget 
        If EventGadgetID()=#berechneDM 
        
         SetGadgetText(#dm1, ""+StrF(ValF(GetGadgetText(#euro))*ValF(GetGadgetText(#dm)))+"" ) 
         SetGadgetText(#euro3,""+GetGadgetText(#euro)+" E das waren "+StrF(ValF(GetGadgetText(#euro))*ValF(GetGadgetText(#dm)))+" DM" ) 
 
          EndIf
          If EventGadgetID()=#berechneEuro 
         SetGadgetText(#euro, ""+StrF(ValF(GetGadgetText(#dm1))*ValF(GetGadgetText(#euro1)))+"" ) 
         SetGadgetText(#euro3, ""+GetGadgetText(#dm1)+" DM das sind "+StrF(ValF(GetGadgetText(#dm1))*ValF(GetGadgetText(#euro1)))+" E" ) 

          EndIf 
          If EventGadgetID()=#ende 
        End
          EndIf
          Select EventID;we check which window event are we receiving

          Case #PB_EventGadget

              Select EventGadgetID();in case its the event from our gadgets

          Case #W1Btn3 ;----------Code; the user click the button 
                     
                 EndSelect                       
                                          
              Select EventID

          Case #PB_EventGadget

              Select EventGadgetID()
               Case #W1Btn3 ;----------Code zurück
   MessageRequester("INFO ","made with Purebasic 3.92"+Chr(13)+"von ' Robert Böhler '"+Chr(13)+"         Leibbrandstr.8"+Chr(13)+"D 78713 Schramberg"+Chr(13)+"Tel.:07422/23668"+Chr(13)+"E-Mail: roboehler@gmx.de"+Chr(13)+"            roboehler@web.de"+Chr(13)+Chr(13)+"This is Freeware!",0)                        
               Case #help ;----------Code zurück
   ;+ Chr(10)oder Chr(13)  ; Chr(10) wird nur für den Zeilenumbruch benötigt 
   MessageRequester("Hilfe ","Geben Sie einfach den < DM oder Euro-Betrag > in das weiße"+Chr(10)+"Eingabefeld bei < Eingabe DM > oder < Eingabe Euro > ein."+Chr(10)+"Drücken Sie dann < Berechne DM > oder < Berechne Euro >"+Chr(10)+"und das berechnete Umwandlungsergebnis wird angezeigt."+Chr(10)+"Bei wiederholter Eingabe den Text im Eingabefeld einfach"+Chr(13)+ "blau markieren und überschreiben."+Chr(10)+Chr(10)+"Für Zahlen mit Komma - Punkt statt Kommastrich verwenden!"+Chr(10)+Chr(10)+"            c) Robert Böhler - 2005 -This is Freeware!",0)                        
                                                                             

                EndSelect

         EndSelect
          EndSelect
      EndIf 
  Until Quit=1 
EndIf
End

; ExecutableFormat=Windows
; EnableAsm
; EnableNT4
; UseIcon=L:\purebasic392\rbs2.ico
; Executable=L:\purebasic392\eurokalk7z.exe
; EOF

Mfg
roboehler :allright:

JanFredi · Beitrag von **JanFredi** » 27.02.2005 18:34

Super Umrechnen

Ich wollte mir schon mal selbst so etwas programmieren

Aber das Prinzip nicht verstanden.

Jetzt habe ich auch das Prinzip verstanden.

Gut gemacht.

An alle die es wissen wollen der Code geht auch in der Demo.