Ну там цвет фона  цвет текста,  может можно какую нибудь картинку на фон консоли можно поставить ?

Отредактировано Игорь (29.12.2014 13:31:09)

спосибо

А можно изменит размер шрифта в Консоле ???

Я просто только начал изучать этот язык. КАК окна и гаджеты  прописывать я знаю но как к этим гаджетам значения приписать.   Как сделать эту программу в окне

If OpenConsole()
  ConsoleColor(9, 10)
  start:
  PrintN("Введите букву ")
  en$ =Input()
 Select (en$)
    Case "f"
      rus$ = "ф"
    Case "g"
      rus$ = "г"
    Default  
      rus$ = en$ 
EndSelect
PrintN("значения  " + rus$ )
  PrintN("хотите остатся нажмите N" )
  If Input() = "N"
    Goto start
    
  EndIf
  CloseConsole()
EndIf
End

Отредактировано Игорь (30.12.2014 20:36:58)

подскажите  пожалуйста  что означает   "Define"

справка на английском

А где можно скачать самоучитель по purebasic

Помогите разобраться  с программой!

Enumeration
  #Window_0
EndEnumeration

;
Enumeration
  #String_0
  #Button_0
  #Text_0
  #Text_1
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 561, 204, 374, 288, "Окно",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget| #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 120, 100, 140, 30, "")
      ButtonGadget(#Button_0, 140, 170, 90, 70, "Создать")
      TextGadget(#Text_0, 210, 20, 10, 10, "")
      TextGadget(#Text_1, 120, 50, 130, 20, "Введите цифру")

    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat 
   
   Event  = WaitWindowEvent()
  Gadget = EventGadget()
  Type   = EventType()
 
 
  If Event=#PB_Event_Gadget
     If Gadget=#Button_0
     String0.s=GetGadgetText(#String_0)
     R.f=ValF(String0)
     If R=0
       MessageRequester("Ошибка"," поле не заполнено или введены неверные  значения!",16)
     Else
       
MessageRequester("","Документ был успешно создан ",#PB_MessageRequester_Ok  )

Select  String0.s
Case "1"
CreateFile(0,"D:\Проба.Txt")
WriteString(0,"Текст")
CloseFile(0)
Case "2"
CreateFile(0,"D:\Проба.txt")
WriteString(0,"Текст2")
CloseFile(0)
Default
  CreateFile(0,"D:\Проба.txt")
WriteString(0,"Текст3")
CloseFile(0)
EndSelect

EndIf
EndIf
EndIf

Until Event=#PB_Event_CloseWindow
End

Здесь если водится цифра 1 то программа создает текстовый документ  "Проба" в диск D аналогично если нажать 2 3 4 5 и так далее. Как сделать так чтобы в этом окне можно было выбрать куда сохранить файл "Проба"???

подскажите пожалуйста как этот треугольник в окне опустить чуть чуть ниже и можно этот треугольник изобразить с помощью визуального конструктора

#WINDOW_MAIN = 1
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#WINDOW_MAIN, 0, 0, 300, 300, "Window Drawing", #FLAGS)
    If StartDrawing(WindowOutput(#WINDOW_MAIN))
       
     
        LineXY(50, 150, 100, 200, RGB(0, 0, 255))
        LineXY(100, 200, 12, 200, RGB(0, 0, 255))
        LineXY(12, 200, 50, 150, RGB(0, 0, 255))
     
    StopDrawing()
EndIf
    Repeat
        Event.l = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
EndIf
End

Отредактировано Игорь (14.03.2015 14:11:10)

Спасибо.  А есть справка на русском а то через переводчик "краказябра" получается.

Подскажите в чем проблема: набираю текст,  нажимаю кнопку схоронить, сохраняетcя но только не  в формате txt хотя прописано txt. Что здесь не так???

Enumeration
  #Window_0
EndEnumeration
Enumeration
  #String_0
  #String_1
  #Button_1
  #Button_2
  #Button_3
  #Button_12
  #Text_0
  #Button_26
EndEnumeration



Procedure SaveFile(Gadget,FileName.s)
 If CreateFile(2,FileName) ; Создаём пустой файл
  Text.s=GetGadgetText(Gadget) ; Считываем данные из редактора в строковую переменную "Text"
  WriteString(2,Text) ; и сохраняем их как одну большую строку
  CloseFile(2) ; Закрываем файл
 Else
  MessageRequester("Ошибка","Не удалось сохранить файл!")
 EndIf
EndProcedure
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 241, 40, 1068, 712, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 320, 70, 740, 630, "")
      StringGadget(#String_1, 330, 10, 710, 40, "")
      ButtonGadget(#Button_1, 10, 40, 40, 30, "1")
      ButtonGadget(#Button_2, 60, 40, 40, 30, "2")
      ButtonGadget(#Button_3, 110, 40, 40, 30, "3")
      ButtonGadget(#Button_12, 60, 120, 40, 30, "12")
  
      TextGadget(#Text_0, 60, 10, 190, 20, "Выберете любую кнопку")
      ButtonGadget(#Button_26, 60, 660, 140, 40, "Сохранить")
      
    EndIf
  EndIf
EndProcedure

Open_Window_0() 

Repeat  
   
   Event  = WaitWindowEvent() 
  Gadget = EventGadget()
  Type   = EventType() 


If Event=#PB_Event_Gadget
     If Gadget=#Button_1 
     

       SetGadgetText(#String_1,"Текст") 
       SetGadgetText(#String_0,"ТЕксттт ") 
EndIf 
 If Gadget=#Button_2 
     SetGadgetText(#String_1,"ТЕКСТТТ") 
       SetGadgetText(#String_0,"ТЕксТ") 
     EndIf
If Gadget=#Button_12 
      SetGadgetText(#String_1,"22222") 
       SetGadgetText(#String_0,"11111") 
     EndIf
      File.s =GetGadgetText(#String_0) 
            
     If Gadget=#Button_26     
     ; 
       File.s=SaveFileRequester("Сохранение файла", "", "*.txt|*.txt;|All Files|*.*", 0) 
        
          If GetExtensionPart(File)="" 
           File1.s=File+".txt" 
                           SaveFile(1,File) 
   
  EndIf

EndIf 
 
 EndIf 
Until Event=#PB_Event_CloseWindow 
End

Отредактировано Игорь (18.03.2015 16:41:39)