编程

2020-02-08 10:41:36 550 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

米思齐编程之认识编程编程是一种非常重要的技能，它可以培养我们的逻辑思维能力、创造力、解决问题的能力，为未来职业发展打下坚实的基础，促进跨学科学习。在米思齐中，编程的过程就像是在拼接积木一样，我们通过将不同的模块组合在一起，就可以创建出各种有趣的程序。例如，当我们在学习中遇到一个难题时，我们需要先分析问题的本质和难点，然后寻找解决问题的方法，最后通过不断的尝试和实践来解决问题。例如，在科技行业中，程序员是一种非常热门的职业。编程教育可以促进学科融合，将不同学科的知识融合在一起，让学生在学习编程的同时，也能够学到其他学科的知识。阅读详情

情人节想编程个惊喜给女朋友，求帮助

...全文

深入解析AMBA5 AXI与ACE协议：从基础到高级应用本文深入解析了AMBA5 AXI与ACE协议的核心机制与应用。AXI协议通过分离通道、突发传输和乱序完成实现高性能数据传输，而ACE协议在此基础上构建了硬件级缓存一致性解决方案，通过监听机制和状态模型确保多核系统数据统一。文章还探讨了在异构计算等复杂场景下的实战应用与AMBA5的新特性。阅读详情

渴望️

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

渴望️ 2020-02-13

打赏
举报

哇塞，你们很有效率耶，统一回复，谢谢大佬们了

libo349 2020-02-13

打赏
举报

建议你加入一个 Flash播放器插件网上下一个你满意的示爱 Flash文件然后窗体播放就行了！

脆皮大雪糕 2020-02-12

打赏
举报

加强版，配色挺难看的，宅家里纯玩，有用就拿去，跟他嘚瑟数学。心形函数公式：x^2+(y-x^(2/3)) = 1 但是要用像素在窗体坐标系里画出来，还有旋转啥事的要做相应的函数变形


Option Explicit


Private Sub Form_Click()
    Me.ScaleMode = 3
    Const size = 80 '尺寸常量，自己调
    Dim i As Double, j As Double
    For i = 0 To Me.ScaleWidth
        For j = 0 To Me.ScaleHeight
            If (i < Me.ScaleWidth / 2 + 20 And i > Me.ScaleWidth * 1 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
            If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbBlue
            If (i > Me.ScaleWidth / 2 + 20 And i < Me.ScaleWidth * 4 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 + Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.29) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.28) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.27) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.26) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
        Next
    Next
End Sub

脆皮大雪糕 2020-02-12

打赏
举报

用最少代码画个心之类的？送你一个，心形函数的VB实现。


Option Explicit


Private Sub Form_Click()
    Me.ScaleMode = 3
    Const size = 80 '尺寸常量，自己调
    Dim i As Double, j As Double
    For i = 0 To Me.ScaleWidth
        For j = 0 To Me.ScaleHeight
            If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
        Next
    Next
End Sub

无·法 2020-02-10

打赏
举报

https://download.csdn.net/download/sysdzw/3958137?utm_source=bbsseo 祝你好运

Eritque arcus 2020-02-10

打赏
举报

百度很多

编程

相关推荐