上低声语言网,帮助你找到适合自己的语言,轻松办事
每日更新手机访问:https://m.dqqdwj.com/
您的位置: 主页>语言代码 >易语言必背100代码:从零开始学习易语言编程

易语言必背100代码:从零开始学习易语言编程

来源:www.dqqdwj.com 时间:2024-05-20 06:47:17 作者:低声语言网 浏览: [手机版]

  易语言OROt一种简单易学的编程语言,适合初学者入门。但,对于初学者来说,学习编程最重要的践,因此我们需要握一些易语言的基础代码。本将介绍易语言必背的100个代码,帮助初学者快速握易语言编程。

一、基础语法

  1. 输出“Hello World!”

  ```

  Print("Hello World!")

```

  2. 定义变量

  ```

  Var a:int

  a=10

  Print(a)

  ```

  3. 条件语句

  ```

Var a:int

  a=10

If a>5 Then

  Print("a大于5")

  Else

Print("a小于等于5")

  End If

  ```

  4. 循环语句

```

  Var i:int

  For i=1 To 10 Step 1

  Print(i)

  Next

  ```

5. 函数的定义和调用

  ```

  Function Add(a:int,b:int):int

  Return a+b

  End Function

Var a:int,b:int,c:int

  a=1

  b=2

  c=Add(a,b)

  Print(c)

  ```

二、字符操作

  6. 字符连接

  ```

  Var str1,str2,str3:string

str1="Hello"

str2="World"

  str3=str1+str2

  Print(str3)

```

7. 字符

  ```

  Var str1,str2:string

  str1="Hello World"

  str2=Mid(str1,1,5) '截从第1个字符开始的5个字符

  Print(str2)

  ```

8. 字符替换

  ```

  Var str1,str2:string

  str1="Hello World"

  str2=Replace(str1,"World","EasyLanguage")

  Print(str2)

```

  9. 字符比较

  ```

Var str1,str2:string

str1="Hello"

  str2="World"

  If str1=str2 Then

  Print("相等")

  Else

  Print("不相等")

  End If

  ```

10. 字符查找

  ```

Var str1,str2:string

str1="Hello World"

str2="World"

  If InStr(str1,str2)>0 Then

  Print("找到")

  Else

Print("没找到")

  End If

  ```

三、数字操作

  11. 数字转字符

```

  Var a:int

a=10

  Print(Str(a))

```

12. 字符转数字

  ```

  Var a:int

  a=Val("10")

Print(a)

  ```

13. 四舍五入

  ```

  Var a:float

  a=3.1415926

  Print(Round(a,2)) '保留两位小数

```

  14.

```

Var a:float

  a=3.1415926

Print(Int(a))

  ```

15. 随机数

  ```

Var a:int

a=Rnd(1,100) '生成1~100之间的随机数

Print(a)低声语言网www.dqqdwj.com

  ```

四、数组操作

  16. 数组定义

  ```

Var arr1:array[1..5] of int

arr1[1]=1

  arr1[2]=2

  arr1[3]=3

  arr1[4]=4

  arr1[5]=5

  Print(arr1[1])

```

17. 数组遍历

  ```

  Var arr1:array[1..5] of int

arr1[1]=1

arr1[2]=2

  arr1[3]=3

  arr1[4]=4

  arr1[5]=5

  Var i:int

  For i=1 To 5 Step 1

Print(arr1[i])

  Next

```

18. 数组排序

  ```

  Var arr1:array[1..5] of int

  arr1[1]=5

  arr1[2]=4

arr1[3]=3

  arr1[4]=2

  arr1[5]=1

  Sort(arr1)

Var i:int

  For i=1 To 5 Step 1

  Print(arr1[i])

  Next

  ```

  19. 数组查找

  ```

  Var arr1:array[1..5] of int

  arr1[1]=1

arr1[2]=2

  arr1[3]=3

  arr1[4]=4

arr1[5]=5

  Var i:int

  For i=1 To 5 Step 1

If arr1[i]=3 Then

  Print("找到")

  Break

  End If

  Next

```

  20. 数组去重

  ```

Var arr1:array[1..5] of int

arr1[1]=1

  arr1[2]=2

  arr1[3]=2

arr1[4]=3

arr1[5]=3

  Var arr2:array[1..5] of int

  Var i,j:int

  For i=1 To 5 Step 1

For j=i+1 To 5 Step 1

  If arr1[i]=arr1[j] Then

Break

  End If

  Next

  If j=6 Then

arr2[i]=arr1[i]

  End If

  Next

For i=1 To 5 Step 1

  If arr2[i]>0 Then

  Print(arr2[i])

End If

Next

  ```

五、件操作

21. 件读

  ```

Var f:file

  Var str1:string

  OpenFile(f,"test.txt",fmOpenRead)

  ReadLine(f,str1)

  Print(str1)

  CloseFile(f)

```

  22. 件写入

```

  Var f:file

  OpenFile(f,"test.txt",fmCreate)

  WriteLine(f,"Hello World")

CloseFile(f)

  ```

  23. 件追加

  ```

  Var f:file

OpenFile(f,"test.txt",fmOpenWrite)

  AppendLine(f,"EasyLanguage")

CloseFile(f)

  ```

24. 件复制

  ```

Var f1,f2:file

  OpenFile(f1,"test1.txt",fmOpenRead)

  OpenFile(f2,"test2.txt",fmCreate)

CopyFile(f1,f2)

  CloseFile(f1)

CloseFile(f2)

```

  25. 件删除

  ```

  DeleteFile("test.txt")

  ```

  六、日期和时间操作

  26. 获前日期

```

Var dt:date

  dt=Now()

  Print(FormatDateTime(dt,"yyyy-mm-dd"))

  ```

  27. 获来源www.dqqdwj.com前时间

  ```

  Var dt:date

dt=Now()

  Print(FormatDateTime(dt,"hh:mm:ss"))

  ```

  28. 获前日期时间

  ```

Var dt:date

  dt=Now()

  Print(FormatDateTime(dt,"yyyy-mm-dd hh:mm:ss"))

  ```

  29. 获前年份

  ```

  Var dt:date

  dt=Now()

  Print(Year(dt))

```

30. 获前月份

  ```

  Var dt:date

  dt=Now()

Print(Month(dt))

  ```

七、图形界面操作

31. 创建窗口

  ```

  Var hwnd:HWND

  hwnd=CreateWindow("EasyLanguage","Hello World",wsOverlappedWindow,100,100,300,200)

  ShowWindow(hwnd,swShow)

  ```

32. 创建按钮

  ```

  Var hwnd:HWND

  hwnd=CreateWindow("EasyLanguage","Hello World",wsOverlappedWindow,100,100,300,200)

  Var hBtn:HWND

  hBtn=CreateWindow("button","Click Me!",wsChild or bsPushbutton or bsCenter,100,50,100,30,hwnd)

ShowWindow(hwnd,swShow)

  ```

  33. 创建本框

  ```

  Var hwnd:HWND

  hwnd=CreateWindow("EasyLanguage","Hello World",wsOverlappedWindow,100,100,300,200)

  Var hEdit:HWND

  hEdit=CreateWindow("edit","",wsChild or wsBorder or esMultiline or esAutoVScroll,10,10,280,150,hwnd)

  ShowWindow(hwnd,swShow)

  ```

  34. 创建列表框

```

  Var hwnd:HWND

hwnd=CreateWindow("EasyLanguage","Hello World",wsOverlappedWindow,100,100,300,200)

  Var hList:HWND

  hList=CreateWindow("listbox","",wsChild or wsBorder or wsVscroll or wsHscroll or lvsReport or lvsSingleSel,10,10,280,150,hwnd)

  ShowWindow(hwnd,swShow)

  ```

  35. 创建菜单

  ```

  Var hwnd:HWND

  hwnd=CreateWindow("EasyLanguage","Hello World",wsOverlappedWindow,100,100,300,200)

  Var hMenu:HWND

hMenu=CreateMenu()

AppendMenu(hMenu,MF_STRING,101,"&File")

AppendMenu(hMenu,MF_STRING,102,"&Edit")

  SetMenu(hwnd,hMenu)

  ShowWindow(hwnd,swShow)

  ```

八、网络操作

  36. 发送HTTP请求

```

  Var http:HTTP

  Var str1:string

  http=New HTTP

  str1=http.Get("http://www.baidu.com")

Print(str1)

```

37. 发送

  ```

  Var mail:Mail

mail=New Mail

  mail.From="sender@163.com"

  mail.To="receiver@163.com"

  mail.Subject="Test"

  mail.Body="This is a test email."

  mail.AttachFile("test.txt")

  mail.Send("smtp.163.com","sender@163.com","password")

  ```

  38. FTP上传

易语言必背100代码:从零开始学习易语言编程(1)

  ```

  Var ftp:FTP

ftp=New FTP

ftp.Connect("ftp.example.com")

  ftp.Login("username","password")

  ftp.PutFile("test.txt","/test.txt")

ftp.Close()

  ```

  39. FTP下载

  ```

  Var ftp:FTP

  ftp=New FTP

  ftp.Connect("ftp.example.com")

  ftp.Login("username","password")

ftp.GetFile("/test.txt","test.txt")

  ftp.Close()

  ```

40. Ping测试

  ```

  Var ping:Ping

ping=New Ping

  If ping.Test("www.baidu.com") Then

  Print("Ping成功")

Else

Print("Ping失败")

  End If

```

  九、数据库操作

41. 连接数据库

```

Var db:Database

  db=New Database

  db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")

  ```

  42. 执行SQL语句

  ```

  Var db:Database

db=New Database

  db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")来源www.dqqdwj.com

  db.Execute("INSERT INTO test(name) VALUES('Tom')")

db.Close()

```

  43. 查询数据

  ```

  Var db:Database

db=New Database

db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")

Var rs:Recordset

  rs=db.Execute("SELECT * FROM test")

  While Not rs.EOF

  Print(rs("name"))

rs.MoveNext()

Wend

  rs.Close()

db.Close()

```

  44. 更新数据

```

Var db:Database

  db=New Database

  db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")

  db.Execute("UPDATE test SET name='Jerry' WHERE id=1")

  db.Close()

```

  45. 删除数据

  ```

Var db:Database

db=New Database

  db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")

  db.Execute("DELETE FROM test WHERE id=1")

  db.Close()

```

  十、操作系统相关

  46. 获操作系统版本

  ```

Var os:OS

Print(os.Version())

  ```

  47. 获CPU信息

  ```

  Var cpu:CPU

  Print(cpu.Name())

  Print(cpu.Frequency())

  ```

  48. 获内存信息

  ```

Var mem:Memory

  Print(mem.Total())

Print(mem.Free())

  ```

  49. 获磁盘信息

  ```

  Var disk:Disk

Print(disk.TotalSpace())

  Print(disk.FreeSpace())

  ```

  50. 获网络连接信息

  ```

  Var net:Net

Var i:int

For i=0 To net.ConnectionCount()-1 Step 1

  Print(net.ConnectionName(i))

Print(net.ConnectionType(i))

Print(net.ConnectionStatus(i))

Next

```

  十一、加密解密

  51. MD5加密

```

  Var str1,str2:string

str1="Hello World"

str2=MD5(str1)

  Print(str2)

  ```

  52. SHA1加密

  ```

  Var str1,str2:string

  str1="Hello World"

  str2=SHA1(str1)

  Print(str2)

  ```

53. Base64编码

  ```

  Var str1,str2:string

  str1="Hello World"

str2=Base64Encode(str1)

Print(str2)

  ```

  54. Base64解码

  ```

  Var str1,str2:string

str1="SGVsbG8gV29ybGQ="

  str2=Base64Decode(str1)

  Print(str2)

  ```

55. DES加密解密

```

  Var str1,str2,str3:string

  str1="Hello World"

  str2=DesEncrypt(str1,"12345678")

str3=DesDecrypt(str2,"12345678")

  Print(str2)

  Print(str3)

  ```

  十二、正则表达式

  56. 匹配

  ```

  Var str1,str2:string

  str1="Hello World"

  str2=RegExpMatch(str1,"[A-Z][a-z]+")

Print(str2)

  ```

57. 替换

  ```

Var str1,str2:string

str1="Hello World"

str2=RegExpReplace(str1,"[A-Z][a-z]+","EasyLanguage")

  Print(str2)

  ```

58. 拆分

```

  Var str1,str2:string

str1="Hello,World"

str2=RegExpSplit(str1,",")

  Print(str2)

  ```

  59. 验证

```

Var str1:string

  str1="123456"

  If RegExpTest(str1,"^\d{6}$") Then来自www.dqqdwj.com

Print("合法")

  Else

  Print("不合法")

  End If

```

  60. 提

  ```

  Var str1,str2:string

  str1="http://www.baidu.com"

  str2=RegExpExtract(str1,"(http://.*?)/")

Print(str2)

  ```

  十三、多线程

  61. 创建线程

  ```

  Var hThread:HANDLE

  hThread=CreateThread(nil,0,@ThreadProc,nil,0,nil)

```

62. 线程函数

  ```

  Function ThreadProc(lpParam:LPVOID):DWORD

Print("线程开始")

  Sleep(3000)

Print("线程结束")

  Return 0

  End Function

```

63. 等待线程结束

  ```

Var hThread:HANDLE

hThread=CreateThread(nil,0,@ThreadProc,nil,0,nil)

WaitForSingleObject(hThread,INFINITE)

```

  64. 互斥锁

```

Var hMutex:HANDLE

  hMutex=CreateMutex(nil,False,nil)

  WaitForSingleObject(hMutex,INFINITE)

  Print("进入临界区")

  ReleaseMutex(hMutex)

  ```

  65. 信号量

  ```

  Var hSemaphore:HANDLE

  hSemaphore=CreateSemaphore(nil,0,1,nil)

  WaitForSingleObject(hSemaphore,INFINITE)

  Print("进入临界区")

  ReleaseSemaphore(hSemaphore,1,nil)

  ```

十四、COM组件

66. 创建COM对象

```

Var obj:IDispatch

obj=CreateObject("Excel.Application")

```

  67. 调用COM方法

  ```

  Var obj:IDispatch

  obj=CreateObject("Excel.Application")

  obj.Visible=True

  obj.Workbooks.Add()

obj.Cells(1,1).Value="Hello World"

```

68. 读COM属性

```

Var obj:IDispatch

  obj=CreateObject("Excel.Application")

obj.Visible=True

  obj.Workbooks.Add()

  Print(obj.Version)

  ```

  69. 枚举COM组件

  ```

Var enum:COMEnumerator

  enum=New COMEnumerator

  Var i:int

For i=0 To enum.Count()-1 Step 1

  Print(enum.Item(i))

Next

  ```

  70. 注册COM组件

  ```

Var reg:Registry

  reg=New Registry

reg.SetStringValue(HKCR,"CLSID\{00000000-0000-0000-0000-000000000001}\InprocServer32","","C:\example.dll")

reg.SetStringValue(HKCR,"CLSID\{00000000-0000-0000-0000-000000000001}\InprocServer32","ThreadingModel","Apartment")

  ```

十五、Windows API

71. 调用MessageBox

  ```

Var ret:int

  ret=MessageBox(0,"Hello World","EasyLanguage",MB_OK or MB_ICONINFORMATION)

```

  72. 调用CreateProcess

  ```

Var si:STARTUPINFO

  Var pi:PROCESS_INFORMATION

  CreateProcess(nil,"notepad.exe",nil,nil,False,0,nil,nil,si,pi)

```

  73. 调用FindWindow

  ```

Var hwnd:HWND

  hwnd=FindWindow("Notepad",nil)

  If hwnd0 Then

  SetForegroundWindow(hwnd)

  End If

```

74. 调用GetWindowText

```

Var hwnd:HWND

hwnd=FindWindow("Notepad",nil)

  Var str1:string

str1=GetWindowText(hwnd)

  Print(str1)

```

  75. 调用GetModuleFileName

```

  Var hModule:HMODULE

hModule=GetModuleHandle(nil)

Var str1:string

  str1=GetModuleFileName(hModule)

  Print(str1)

```

十六、音视处理

  76. 播放音

  ```

  Var hWaveOut:HWAVEOUT

  Var waveHdr:WAVEHDR

  Var waveFormat:WAVEFORMATEX

waveFormat.wFormatTag=WAVE_FORMAT_PCM

  waveFormat.nChannels=2

  waveFormat.nSamples

0% (0)
0% (0)
版权声明:《易语言必背100代码:从零开始学习易语言编程》一文由低声语言网(www.dqqdwj.com)网友投稿,不代表本站观点,版权归原作者本人所有,转载请注明出处,如有侵权、虚假信息、错误信息或任何问题,请尽快与我们联系,我们将第一时间处理!

我要评论

评论 ( 0 条评论)
网友评论仅供其表达个人看法,并不表明好好孕立场。
最新评论

还没有评论,快来做评论第一人吧!
相关文章
  • 中文传统节日——端午节

    端午节,又称端阳节、午日节、五月节、龙舟节等,是中国传统节日之一,时间在农历五月初五。这一节日源远流长,有着悠久的历史和丰富的文化内涵,是中华民族的重要文化遗产之一。一、端午节的起源端午节的起源有多种说法,其中最为流行的是纪念屈原的说法。屈原是春秋时期楚国的大夫和爱国诗人,他忠于国家,反对外来侵略,但最终被贵族排挤,被流放到汨罗江畔。

    [ 2024-05-20 01:00:55 ]
  • 栈的c语言源代码

    栈是一种常见的数据结构,具有先进后出(Last In First Out,LIFO)的特点。栈的操作只能在栈顶进行,包括入栈(push)和出栈(pop)两种操作。栈在计算机科学中有广泛的应用,例如函数调用、表达式求值、括号匹配等。下面是一个基于C语言的栈的实现:```c#include #include

    [ 2024-05-19 14:41:59 ]
  • 简单的c语言程序代码例子

    一、C语言的基础知识1. 变量和数据类型在C语言中,变量是存储数据的一种方式。在使用变量之前,需要先定义变量的数据类型。C语言中支持的数据类型包括整型、浮点型、字符型、指针型等。以下是一些常见的数据类型及其范围:- char:表示字符类型,通常占用一个字节,范围为-128到127。

    [ 2024-05-19 14:15:39 ]
  • 中文阅读习惯的影响及对翻译的启示

    中文是一种象形文字,与其他语言的字母和音素不同,中文的阅读习惯也与之不同。中文的阅读习惯对于翻译工作有着深远的影响,同时也为翻译提供了一些启示。一、中文阅读习惯的特点中文阅读习惯与其他语言不同,主要表现在以下几个方面:1. 顺序阅读:中文读者通常按照从左到右,从上到下的顺序阅读文章,而不是像英语一样从左到右,从上到下的阅读方式。

    [ 2024-05-19 08:13:34 ]
  • c语言模糊代码(如何提高写作能力?)

    写作是一项非常重要的技能,无论是在学校还是工作中都有着广泛的应用。然而,很多人在写作时会遇到各种各样的问题,比如不知道如何开头、不知道如何组织文章、不知道如何表达自己的想法等等。那么,如何提高写作能力呢?下面我们来分享一些实用的方法。1. 培养阅读习惯

    [ 2024-05-19 04:53:29 ]
  • 弯月的编程代码c语言_如何成为一名优秀的程序员

    在当今信息时代,程序员已经成为了一个备受追捧的职业。然而,要成为一名优秀的程序员却不是一件容易的事情。下面,我们将介绍一些成为一名优秀程序员的方法和技巧。一、学习基础知识学习基础知识是成为一名优秀程序员的第一步。无论是学习C语言、Python还是Java,都需要先掌握基础知识。这包括数据类型、变量、运算符、流程控制语句等等。

    [ 2024-05-19 03:18:52 ]
  • 编程语言:C语言的基础知识

    C语言是一种广泛应用于系统编程和应用程序开发的高级编程语言。它是一种强类型、过程化的编程语言,由Dennis Ritchie在20世纪70年代开发。C语言具有高效、可移植、可扩展性强等特点,在计算机科学领域得到了广泛的应用。基础语法C语言的基础语法包括数据类型、变量、常量、运算符、控制语句等。

    [ 2024-05-19 00:39:26 ]
  • 高考加油,用努力成就梦想

    高考,是每一个学子人生中的一次重要考试。它不仅仅是一次普通的考试,更是一次能够改变命运的考试。在这个时刻,我们需要用努力成就梦想,为自己的未来打下坚实的基础。首先,要有一个明确的目标。高考是一个长期的过程,需要在这个过程中不断地调整自己的学习方法和学习计划。而这些,都需要有一个明确的目标来指引自己。

    [ 2024-05-18 17:31:39 ]
  • c语言数字代码_中国传统文化的魅力与现代价值

    中国是一个拥有悠久历史和灿烂文化的国家,其传统文化源远流长,渗透在人民的生活和思想中。中国传统文化的魅力不仅体现在它独特的艺术形式和哲学思想上,更体现在它对现代社会的积极影响和价值。一、中国传统文化的艺术魅力中国传统文化的艺术形式丰富多样,包括绘画、书法、音乐、戏曲、民间艺术等等。其中,中国绘画和书法以其独特的笔墨风格和深刻的哲学思想而著名于世。

    [ 2024-05-18 16:28:50 ]
  • 生活中的小确幸(c语言人机对话程序代码)

    生活中,我们总是被各种烦恼和压力所困扰,但是如果我们仔细观察,就会发现生活中还有很多小确幸,让我们感到温暖和幸福。下面,我将分享一些我所经历过的小确幸。突然想起某个人有时候,我们会在忙碌的工作中突然想起某个人,这个人可能是我们很久没有联系的朋友,也可能是我们曾经喜欢过的人。当我们想起他们时,心里会涌起一股暖流,让我们感到温馨和幸福。

    [ 2024-05-18 12:29:30 ]