有償編程

㈠ 有償編程 VB access rs232 實現串口通信

就算有人幫你做了，後期維護呢？每次都是用rmb嗎？
不合理，應該試著自己做，碰到問題再提問。

㈡ 有沒有學編程的，有償寫代碼

俺，以前常寫代碼，現在學習英文的編程，有時候製作一些軟體

㈢ 有償編程！！關於vb串口通信的！！

將接到的數據賦值於全局變數,通過ADO數據控制項連接資料庫及表,用以下代碼保存數據:
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text3 = sum_zj
'校準
If sum_zj >= 3 Then
sum_zj1 = sum_zj1 + 1
sum_zj = sum_zj - 3
Text4 = sum_zj1
Adodc1.Recordset.AddNew '每3秒記錄一組數據
Adodc1.Recordset(0) = shiYAnH
Adodc1.Recordset(1) = Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '記錄time
Adodc1.Recordset(2) = record_jm(0) '記錄數據
Adodc1.Recordset(3) = record_jm(1) '記錄數據
Adodc1.Recordset(4) = record_jm(2) '記錄數據
Adodc1.Recordset(5) = record_jm(3) '記錄數據
Adodc1.Recordset(6) = record_jm(4) '記錄數據
Adodc1.Recordset(7) = record_jm(5) '記錄數據
Adodc1.Recordset(8) = record_jm(6) '記錄數據
Adodc1.Recordset(9) = record_jm(7) '記錄數據
Adodc1.Recordset(10) = record_jm(8) '記錄數據
Adodc1.Recordset(11) = record_jm(9) '記錄數據
Adodc1.Recordset(12) = record_jm(10) '記錄數據
Adodc1.Recordset(13) = record_jm(11) '記錄數據
Adodc1.Recordset.Update
End If
End If
End Sub
Private Sub Timer2_Timer()
Picture4.DrawStyle = 0

以下代碼繪制實時曲線(6點):
Picture4.DrawWidth = 3 ' = dash
Picture4.Line (sum_z1 * 18 + 500, record_jm(0) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(2) * -150 + 7900), vbRed ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(1) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(3) * -150 + 7900), vbCyan ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(2) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(4) * -150 + 7900), vbBlack ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(3) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(5) * -150 + 7900), vbMagenta ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(4) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(6) * -150 + 7900), vbGreen ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(5) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(7) * -150 + 7900), vbBlue ', BF
End Sub

Private Sub Timer3_Timer()
If Label32 <> CStr(Time$) Then 'Label1.Caption
Label32.Caption = Time$
sum_z = sum_z + 1
Text31 = sum_z
'校準
If sum_z >= 5 Then
sum_z = sum_z - 5
sum_z1 = sum_z1 + 1
Text30 = sum_z1
End If
End If
End Sub

以下代碼繪制曲線的坐標:
Private Sub Form_Load()
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kongtiao\cartemp.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * form car_bm"
End With
Text1 = ""
Text2 = "": Text3 = "": Text4 = "":
Text5 = "": Text6 = "": Text7 = "": Text12 = ""
Text8 = "": Text9 = "": Text10 = "": Text11 = ""
Text13 = "": Text14 = "": Text15 = "": Text16 = ""
'Load frmMain
colvb = vbBlack
xx = 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 350
txt = "50"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 1850
txt = "40"
wp = xp(colvb, xx, yy, txt)
yy = 3350
xx = 200
txt = "30"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 4850
txt = "20"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 6350
txt = "10"
wp = xp(colvb, xx, yy, txt)
'Time坐標
colvb = vbRed
yy = 6500
xx = 400
txt = "0"
wp = xp(colvb, xx, yy, txt)
xx = 1480
txt = "5"
wp = xp(colvb, xx, yy, txt)
xx = 2560
txt = "10"
wp = xp(colvb, xx, yy, txt)
xx = 3640
txt = "15"
wp = xp(colvb, xx, yy, txt)
xx = 4720
txt = "20"
wp = xp(colvb, xx, yy, txt)
xx = 5800
txt = "25 min"
wp = xp(colvb, xx, yy, txt)
xx = 6880
txt = "30"
wp = xp(colvb, xx, yy, txt)
xx = 7960
txt = "35"
wp = xp(colvb, xx, yy, txt)
xx = 9040
txt = "40"
wp = xp(colvb, xx, yy, txt)
xx = 10120
txt = "45"
wp = xp(colvb, xx, yy, txt)
xx = 11200
txt = "50"
wp = xp(colvb, xx, yy, txt)
'畫格
Picture1.DrawWidth = 1 ' = dash
Picture1.DrawStyle = 0
Picture1.ForeColor = vbCyan
For i = 0 To 39
Picture4.Line (450, 550 + i * 150)-(500, 550 + i * 150)
Next
Picture4.DrawStyle = 2
For i = 0 To 8
Picture4.Line (450, 400 + i * 750)-(11300, 400 + i * 750)
Next
For i = 0 To 15
Picture4.Line (450, 1000 + i * 300)-(500, 1000 + i * 300)
Next
For i = 0 To 10
Picture4.Line (500 + i * 1080, 400)-(500 + i * 1080, 6400)
Next
Picture4.DrawStyle = 0
End Sub
上述代碼供參考.

㈣ javascript 求助有償編程

this是一個系統關鍵字.你不能把它做為一個變數來命名.所以出錯了.

<div id="div3" onmousemove="show(this)" onmouseout="hide(this)"</div>
這里用this表示的是這個DIV對象,我們把這個對象傳進這個函數中去.然後再對這個對象進行操作.

但是你下面
function show(this){
this.parentNode.childNodes[0].style.display="inline"
}
這里的this就不是表示你傳入的這個DIV對象了,而是表示你show這個函數,當然後不可能以style屬性了,所以會出錯.所以這里我們不能用this來表示我們接收的變數.

換一個a,那就是把DIV對象賦值給a了,那我對a的所有操作就是對那個DIV進行的操作了.

如果對您有幫助，請記得採納為滿意答案，謝謝！祝您生活愉快！

㈤ 有償找編程人員製作游戲腳本，電腦高手請進

目前我也在學習製作游戲腳本，算下來也差不多學習了一個月了吧，在網上找了好多的資料，看看到底哪個最好用，最先看到的是按鍵，但發現好多的教程都是要收費的，免費的教程有限，最終就選擇了目前在用的TC腳本開發工具，由於支持中英文雙語言編寫腳本程序，官方的教程也是免費的，論壇也有好多的資源。學習了一個月，現在基本上能寫出我自己想要的功能腳本，建議你也去學習下TC。個人意見，僅供參考！

㈥ 請問哪裡有有償代編程序的，謝謝（matlab的）

MATLAB程序編寫
MATLAB程序代寫，主要面向基礎程序、數學程序和應用程序的編寫，為畢業設計、實驗報告提供技術指導並解決相關問題，具體收費標准如下。
一、入門級別的MATLAB基礎程序，屬於MATLAB語言學習范疇。
￥100元/起（根據具體問題工作量大小協商最終價格）
二 、數學程序：程序不具有理論和實際的應用意義和價值。比如高等數學、計算方法等相關課程上的擬合插值、數值微積分、圖形繪制、方程求解、簡單優化等。
￥200元起（根據具體問題工作量大小協商最終價格）
三、應用程序：程序具有相應的應用背景，能夠用於理論的開發和研究。比如論文畢設、演算法編寫、優化擬合、統計概率等。
￥300元起（根據具體問題工作量大小協商最終價格）
實行無押金預約，請將問題發送至郵箱：[email protected]，解決問題後，會通知您淘寶付款，之後會將您需要的程序發送至您的郵箱。

㈦ 大學生有償網上教編程會被學校處分嗎

不會，大學是可以邊兼職邊學習的，這是不會被處分的在勤工儉學的概念上和服務的內容上，應該將勤工儉學與學生經商區別開來。學校主持勤工儉學，依法保護學生以誠信和服務獲得收入 ，但不提倡參與以贏利為目的的經商活動。嚴禁大學生在酒店歌廳等娛樂場所陪酒陪舞。勤工儉學內容很廣泛，但不能只為賺錢什麼事都干。大學生陪酒陪舞或從事非法職業將給個人和學校帶來嚴重的安全問題。遵紀守法，憑誠信獲得報酬。

社會上有形形色色的求職陷阱；涉世之初的學生稍不注意就會上當受騙。由於大學生利用業余時間打工已成為大學校園里的一個普遍現象，不少中介公司以此為「契機」，抓住大學生社會經驗不足的弱點，明目張膽地進行欺詐活動。如：發布虛假招聘信息、預交押金、不服報酬、臨時苦工等等

㈧ 數控編程 有償

需要編寫什麼內容，給圖紙給我們，這樣大家可以幫到您

㈨ 找專門編數控程序的師傅編一個程序需要多少錢

可以通過以下方法解決問題：
1、有償提供數控編程，這個主要看編程零件的復雜程度，50——1000不等。