PureBasic Forums - English

Code: Select all

;Vanity-Calculator
;2005 Hroudtwolf
;-----------------------------------------------------
Declare FensterCallBack(WindowID, Message, wParam, lParam)
Declare String2Numbers()
Declare Numbers2String()

Global Dim nummern$(10)
Global ColorBrush, hString

ColorBrush = CreateSolidBrush_($ECFADE)

nummern$(1)=" "
nummern$(2)="ABC"
nummern$(3)="DEF"
nummern$(4)="GHI"
nummern$(5)="JKL"
nummern$(6)="MNO"
nummern$(7)="PQRS"
nummern$(8)="TUV"
nummern$(9)="WXYZ"
nummern$(0)="+"

flags=#PB_Window_ScreenCentered|#PB_Window_SystemMenu

If CreateImage (1,10,10)
  If StartDrawing (ImageOutput (1))
      DrawingMode(0)
      Box(0,0,10,10,RGB(50,50,250))
      
      For x=0 To 10 Step 2
        Line (0,x,10,0,RGB(0,0,100))
      Next x
    StopDrawing()
  EndIf
EndIf

font1=LoadFont(1,"ARIAL",10,#PB_Font_Bold)
font2=LoadFont(2,"MSFIXEDSYS",8,#PB_Font_Bold)

If OpenWindow (1,0,0,300,230,"VANITY-CALC",flags)
  HideWindow(1,1)
  hBrush = CreatePatternBrush_(ImageID(1))
  SetClassLong_(WindowID(1), #GCL_HBRBACKGROUND, hBrush)
  InvalidateRect_(WindowID(1), #Null, #True)
 
  If font2
    SetGadgetFont(#PB_Default,Font2)   
  EndIf
  FrameGadget(1,10,10,280,30,"", #PB_Frame_Double)
  hString=StringGadget(2,15,15,270,20,"",#PB_Text_Right)
  If font1:SetGadgetFont(2,font1):EndIf   
  FrameGadget(15,160,50,5,170,"", #PB_Frame_Single )
  FrameGadget(16,10,215,150,5,"", #PB_Frame_Single )
  ButtonGadget (3,10,50,45,35,"1")
  ButtonGadget (4,60,50,45,35,"2"+Chr(10)+"ABC",#PB_Button_MultiLine)
  ButtonGadget (5,110,50,45,35,"3"+Chr(10)+"DEF",#PB_Button_MultiLine)
  ButtonGadget (6,10,90,45,35,"4"+Chr(10)+"GHI",#PB_Button_MultiLine)
  ButtonGadget (7,60,90,45,35,"5"+Chr(10)+"JKL",#PB_Button_MultiLine)
  ButtonGadget (8,110,90,45,35,"6"+Chr(10)+"MNO",#PB_Button_MultiLine)
  ButtonGadget (9,10,130,45,35,"7"+Chr(10)+"PQRS",#PB_Button_MultiLine)
  ButtonGadget (10,60,130,45,35,"8"+Chr(10)+"TUV",#PB_Button_MultiLine)
  ButtonGadget (11,110,130,45,35,"9"+Chr(10)+"WXYZ",#PB_Button_MultiLine)
  ButtonGadget (12,10,170,45,35,"*")
  ButtonGadget (13,60,170,45,35,"0"+Chr(10)+"+",#PB_Button_MultiLine)
  ButtonGadget (14,110,170,45,35,"#")
  ButtonGadget (17,180,50,110,25,"String2Numbers")
  ButtonGadget (18,180,80,110,25,"Numbers2String")
  ButtonGadget (19,180,110,110,25,"Clear Display")
  ButtonGadget (20,180,140,110,25,"Info")
  ButtonGadget (21,180,190,110,25,"End")
  
  HideWindow(1,0)
  
  SetWindowCallback(@FensterCallBack())
  
  Repeat
    eventid=WaitWindowEvent()
    Select eventid
      Case #PB_Event_CloseWindow
        fertig=1
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 3
            SetGadgetText(2,GetGadgetText(2)+"1")
          Case 4
            SetGadgetText(2,GetGadgetText(2)+"2")
          Case 5
            SetGadgetText(2,GetGadgetText(2)+"3")
          Case 6
            SetGadgetText(2,GetGadgetText(2)+"4")
          Case 7
            SetGadgetText(2,GetGadgetText(2)+"5")
          Case 8
            SetGadgetText(2,GetGadgetText(2)+"6")
          Case 9
            SetGadgetText(2,GetGadgetText(2)+"7")
          Case 10
            SetGadgetText(2,GetGadgetText(2)+"8")
          Case 11
            SetGadgetText(2,GetGadgetText(2)+"9")
          Case 12
            SetGadgetText(2,GetGadgetText(2)+"*")
          Case 13
            SetGadgetText(2,GetGadgetText(2)+"0")
          Case 14
            SetGadgetText(2,GetGadgetText(2)+"#")
          Case 19
            SetGadgetText(2,"")
          Case 20
            MessageRequester ("Info","This source was written by Hroudtwolf 2005(c)",0)
          Case 21
            fertig=1
          Case 17
            string2Numbers()
          Case 18
            Numbers2String()
        EndSelect
    EndSelect
    
  Until fertig=1
  DeleteObject_(hBrush)
  CloseWindow(1)
  End
EndIf

Procedure FensterCallBack(WindowID, Message, wParam, lParam)
  Result = #PB_ProcessPureBasicEvents
  Select Message
    Case #WM_CTLCOLOREDIT
      Select lParam
        Case GadgetID(2)
          SetTextColor_(wParam, $5C5C5C)
          SetBkMode_(wParam, #TRANSPARENT)
          Result = ColorBrush 
      EndSelect             
  EndSelect
  ProcedureReturn Result
EndProcedure

Procedure String2Numbers()
  text.s=UCase(GetGadgetText(2))
  
  For x=1 To Len(text.s)
    For y=0 To 9 
      If FindString (nummern$(y),Mid(text.s,x,1),1)
        SetGadgetText(2,GetGadgetText(2)+Str(y))
      EndIf
    Next y
  Next x
EndProcedure

Procedure Numbers2String()
  text.s=GetGadgetText(2)
  SetGadgetText(2,"")
  For x=1 To Len(text.s)
    zahl=Val(Mid(text.s,x,1))
    vinlang=Len(nummern$(zahl))
    SetGadgetText(2,GetGadgetText(2)+Mid(nummern$(zahl),1+Random(vinlang),1))
  Next x
EndProcedure