Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc
Trang ChínhTrang Chính  TRANG CHỦTRANG CHỦ  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
AutoIT Việt
CHÀO MỪNG BẠN ĐẾN VỚI
AUTOIT.FORUMVI.COM

AutoIT Việt


 
Trang ChínhTrang Chính  TRANG CHỦTRANG CHỦ  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
>> LIÊN MINH HUYỀN THOẠI (LOL) <<

Share | 
 

 Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Fri Mar 02, 2012 1:08 pm

Mình xin giới thiệu các bạn phần mềm do mình làm với autoit đó là soft soạn thảo Văn Bản
Đây là code cho các bạn tham khảo:

Code:
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ICONS\RED\repeat_off.ico
#AutoIt3Wrapper_Outfile=SoanVBVer1.1.1.0.exe
#AutoIt3Wrapper_Res_Comment=Phần mềm này thuộc về quyền sở hữu của Nguyễn Vũ Trường Giang
#AutoIt3Wrapper_Res_Description=Phần mềm soạn thảo mini sẽ mang đến cho bạn sự tiện ích
#AutoIt3Wrapper_Res_Fileversion=1.1.1.0
#AutoIt3Wrapper_Res_LegalCopyright=Đây là phần mềm của Nguyễn Vũ Trường Giang
#AutoIt3Wrapper_Res_Language=1066
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Tidy=y
#Obfuscator_Parameters=save
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;kết thúc việc khai báo







;Khai báo danh tánh
#cs-----------------------------------------
   Tác giả        Nguyễn Vũ Trường Giang
   Phiên bản          1.0.0.0
   Ứng dụng        Đánh văn bản kết hợp nghe nhạc
#ce----------------------------------------
#include <GUIConstantsEx.au3>

; Không hiện Icon

HotKeySet("{Esc}", "Thoat")
HotKeySet("{End}", "Thong_Tin")
#region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64, "Thông tin", "Phần mềm này được Nguyễn Vũ Trường Giang dựng lên" & @CRLF & _
      "nhằm đem lại sự tiện dụng cho người dùng" & @CRLF & _
      "__________________________________________________" & @CRLF & @CRLF & _
      "Phần mềm chỉ cấp bản quyền khi bạn gọi tới cho" & @CRLF & _
      "anh Giang để đăng kí. ĐT: 01264486180.")
#endregion --- CodeWizard generated code Start ---

;Bắt đầu tạo GUI
$Gui = GUICreate("Soạn thảo văn bản", 600, 600, -1, -1)
$S = GUICtrlCreateLabel("", 10, 5, 100, 20)
GUICtrlSetColor($S, 0x00FE059F)
$A = GUICtrlCreateLabel("Phần mềm soạn thảo Mini của Nguyễn Vũ Trường Giang", 150, 1, 270, 20)
GUICtrlSetBkColor($A, 0x00333B46)
GUICtrlSetColor($A, 0x005EBF00)
$Bang = GUICtrlCreateMenu("File")
$Bang1 = GUICtrlCreateMenuItem("Mở nhạc", $Bang)
GUICtrlCreateMenuItem("", $Bang)
$Bang2 = GUICtrlCreateMenuItem("Lưu", $Bang)
$Bang4 = GUICtrlCreateMenuItem("Mở file", $Bang)
GUICtrlCreateMenuItem("", $Bang)
$Bang3 = GUICtrlCreateMenuItem("Thoát(Bạn có thể nhấn Esc)", $Bang)
$Ban = GUICtrlCreateMenu("Thông tin")
$Ban0 = GUICtrlCreateMenuItem("", $Ban)
$Ban1 = GUICtrlCreateMenuItem("Phần mềm", $Ban0)
$Ban3 = GUICtrlCreateMenuItem("Ổ đĩa, dung lượng máy", $Ban0)
$Ban2 = GUICtrlCreateMenuItem("Trợ giúp (có thể không có)", $Ban)
$Edit = GUICtrlCreateEdit("", 10, 30, 580, 552)
WinMinimizeAll()
GUISetState()
While 1
   GUICtrlSetData($S, "ĐỒNG HỒ: " & @HOUR & ":" & @MIN & ":" & @SEC)
   WinSetTitle($Gui, '', "Soạn thảo|    " & @HOUR & ":" & @MIN & ":" & @SEC)
   $Msg = GUIGetMsg()
   Switch $Msg
      Case $GUI_EVENT_CLOSE
         Thoat()
      Case $Bang3
         Thoat()

      Case $Bang2
         $i = GUICtrlRead($Edit)
         $Mode = 2 + 8 + 128 ;Chế độ Xóa toàn bộ dữ liệu và tạo mới Folder
         Local $Duong
         $Duong = FileSaveDialog("Chọn chỗ lưu", "D:\", "Định dạng (*.txt)|Định dạng Log(*.log)|File thiết đặt(*.ini)|Định dạng AutoIT(*.au3)|Tất cả định dạng(*.*)", 2 + 16, "Nguyễn Vũ Trường Giang.txt")
         $FileName1 = $Duong
         $File1 = FileOpen($FileName1, $Mode)

         $Data = $i
         FileWrite($File1, $Data)

         FileClose($File1)

      Case $Bang1
         Local $path, $e ;đường dẫn và dò tìm có bao nhiêu kí tự : kí tự đầu ....điều kiện

         $path = FileOpenDialog("Chọn Nhạc | Thuộc phần mềm soạn thảo", "D:\", "Định dạng(*.mp3)|Định dạng(*.wmv)|Định dạng(*.flv)", 1 + 2 + 4, "Nhập đường dẫn") ; trả lại danh sách nhạc gồm có đường dẫn. music|music|..|..
         SoundSetWaveVolume(100)
         SoundPlay($path)
         Sleep(1000)
      Case $Bang4
         Tim_txt()

      Case $Ban1
         Thong_Tin()
      Case $Ban2
         Win()
      Case $Ban3
         May()
   EndSwitch
WEnd



Func __Exit()
   For $b = 255 To 0 Step -1
      WinSetTrans($Gui, "", $b)
      Sleep(10)
   Next
   MsgBox(64, "Lời nhắn", "Cảm ơn bạn đã sử dụng phần mềm!" & @CRLF & "Chúng tôi chân thành xin cảm ơn")
   Exit
EndFunc  ;==>__Exit


Func Thong_Tin()
   MsgBox(64, "Thông tin", "Đây là phần mềm soạn thảo được dựng lên dựa trên AutoIT" & @CRLF & "Bất kì sao lưu nào cũng được xem như là trái phép" & @CRLF & "và sẽ bị truy tố nặng trước pháp luật" & @CRLF & "Phần mềm được Nguyễn Vũ Trường Giang viết" & @CRLF & "Liên hệ: 01264486180")
EndFunc  ;==>Thong_Tin

Func Win()
   MsgBox(16, "Trợ giúp", "Lỗi hệ thống! Không có trợ giúp")
EndFunc  ;==>Win

Func Thoat()
   Local $Hoi = MsgBox(33, "Thông báo", "Bạn có muốn thoát không?")

   If $Hoi = 2 Then
      MsgBox(0, "", "Cảm ơn bạn đã ở lại")
   Else
      MsgBox(64, "Thông báo", "Cảm ơn bạn đã sử dụng phần mềm" & @CRLF & "Mọi thắc mắc về phần mềm xin hãy liên hệ qua" & @CRLF & "Yahoo: nguyenvutruongg" & @CRLF & "Hoặc ĐT: 01264486180")
      __Exit()
   EndIf
EndFunc  ;==>Thoat

Func Tim_txt()

   Local $filePath, $file



   $filePath = FileOpenDialog("Mở dữ liệu", @MyDocumentsDir, "Định dạng (*.txt)|Định dạng Log(*.log)|File thiết đặt(*.ini)|Định dạng AutoIT(*.au3)|Tất cả định dạng(*.*)", 1 + 2 + 8)

   If @error <> 1 Then

      $file = FileOpen($filePath, 0)

      If $file = -1 Then

         MsgBox(16, "Lỗi", " Xin lỗi!Phần mềm không đọc được dữ liệu. ")

         Return 0

      Else

         $string = FileRead($file)

         FileClose($file)

         GUICtrlSetData($Edit, "Nội dung văn bản : (Đã được Nguyễn Vũ Trường Giang nâng cấp) " & @CRLF & $string)

      EndIf

   Else

      Return 0

   EndIf

   Return 1

EndFunc  ;==>Tim_txt

Func May()
   MsgBox(64, "Thông tin về máy", "Chỉ áp dụng cho ổ C và D" & @CRLF & _
         "Tên ổ C: " & DriveGetLabel("C:\") & @CRLF & "Tên ổ D: " & DriveGetLabel("D:\") & @CRLF & _
         "Tổng dung lượng ổ C: " & DriveSpaceTotal("C:\") & "  Mb" & @CRLF & "  Trống: " & DriveSpaceFree("C:\") & "  Mb" & @CRLF & _
         "Tổng dung lượng ổ D: " & DriveSpaceTotal("D:\") & "  Mb" & @CRLF & "  Trống: " & DriveSpaceFree("D:\") & "  Mb", -1)
EndFunc  ;==>May
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Giải thích   Fri Mar 02, 2012 1:10 pm

Ai cần giải thích thì liên hệ mình nha
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Bản exe   Fri Mar 02, 2012 1:22 pm

Mình xin Gửi Sản phẩm sau khi chuyển sang file exe : bball:
Pass giải nén là : autoit.forumvi.com
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
zzzkutetuazzz
Mod: Phó Tổng Tư Lệnh
Mod: Phó Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 114
Gia nhập ngày : 01/03/2012
Tuổi : 24


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Fri Mar 02, 2012 9:02 pm

Ngon...cố gắng phát huy
Tài Sản của zzzkutetuazzz
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: File đính kèm để sử dụng thử   Fri Mar 02, 2012 10:53 pm

Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Attachments
SoanThaoVB.zip
Phần Mềm Soạn Thảo Văn Bản kết hợp nghe nhạc
You don't have permission to download attachments.
(275 Kb) Downloaded 18 times
Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Khách vi
Khách viếng thăm
avatar



Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 12:01 pm

Admin đã viết:
Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
sao không download được vậy chủ thớt
Tài Sản của Khách vi
Về Đầu Trang Go down
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 12:19 pm

hieugakt3 đã viết:
Admin đã viết:
Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
sao không download được vậy chủ thớt

Chắc bạn nhấn nhằm ah! Mình vẫn tải bình thường mà!
Cậu nhấn vào chữ SoanThaoVB.zip ah
Có j` thì báo cho mình nha!
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Khách vi
Khách viếng thăm
avatar



Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 12:29 pm

[quote="Admin"]
hieugakt3 đã viết:
Admin đã viết:
Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
sao không download được vậy chủ thớt

[color=red][b]Chắc bạn nhấn nhằm ah! Mình vẫn tải bình thường mà!
Cậu nhấn vào chữ SoanThaoVB.zip ah
Có được đâu. Nó bảo bạn không có quyền tải file đính kèm này (Tạm dịch) Có mà tải bằng niềm tin :?:


Chú ý về phần định dạng của HTML
Tài Sản của Khách vi


Được sửa bởi Admin ngày Sat Mar 03, 2012 1:09 pm; sửa lần 2. (Reason for editing : Sai định dạng html kết thúc phải có [/...])
Về Đầu Trang Go down
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 12:34 pm

?? Nó không cho tải là sao! Tao xài nick mem tải bình thường mà
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 24
Đến từ Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Trảm Phong

Tài Sản
Huân Chương:


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 1:00 pm

Admin đã viết:
Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
Thks chủ thớt. Phần mềm khá Good. Nhưng góp ý thêm với chủ thớt là nên tích hợp thêm vài chức năng chính của word (nếu có thể) Thk so much :cheers:
Tài Sản của Fucktheworld
Tài Sản
Huân Chương:

Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sat Mar 03, 2012 1:05 pm

Fucktheworld đã viết:
Admin đã viết:
Mình xin đính kèm file của chương trình mình giới thiệu ở trên
Pass giải nén là: autoit.forumvi.com

Thấy hay thì thank nha!
Thks chủ thớt. Phần mềm khá Good. Nhưng góp ý thêm với chủ thớt là nên tích hợp thêm vài chức năng chính của word (nếu có thể) Thk so much :cheers:

Mình sẽ cập nhật bản mới có những chức năng vốn có của word
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
khakhaacac
Học Viên
Học Viên
avatar

Posts : 1
Gia nhập ngày : 23/03/2012


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Fri Mar 23, 2012 9:57 pm

Thấy quảng cáo có chức năng mở nhạc nữa mà sao chọn nhạc rồi ko thấy nhạc đâu hết ::.po>>: chém gió à
Tài Sản của khakhaacac
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   Sun Mar 25, 2012 3:02 pm

Máy bạn không chạy nhạc được àh?
Hay là bạn không thấy bài bạn chọn ở đâu?
Bạn phải nói rõ thì mình mới giải quyết được chứ. các mem trong forum ai cũng sử dụng được mà đâu có vấn đề j` đâu! bạn xem lại đi nha
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới







ĐỜI VÔ LỐI
Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Sponsored content





Bài gửiTiêu đề: Re: Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc   

Tài Sản của Sponsored content
Về Đầu Trang Go down
 

Code Phần mềm soạn thảo Văn Bản tích hợp nghe nhạc

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
AutoIT Việt :: Sản Phẩm - Code Mẫu-