Posts

BASIC Commodore 64

Poke ve Peek Poke= Eylem / Peek=Okuma Ekran orta kisim 53281  cerceve kisim 53280 Ekran karakter hafizasi 1024`ten 2023`e kadar 39 sutun (X) 24 satir (Y) toplam 1000 karakter Hesaplama sekli: POKE 1024+X+40*Y  Ekran renk Hafizasi 55296`dan 56295`e kadar 39 sutun (X) 24 satir (Y) toplam 1000 renk bolgesi Hesaplama sekli: POKE 55296+X+40*Y Sylphe Video Interface Chip : Video Affichage: Adresi 53248 46 konum ON/OFF her konum 8 blok`a sahip her blok on/off konuma sahip Her Sylphe 24 sutun ve 21 satir genisliginde Ayni anda 8 sylphe`e komuta edilebilir bir tane sylphe degeri 1/2/4/8/16/32/64 veya128 (exhaustif) POKE 53248+21,4 iki sylphe degeri ornek: 1+2 veya 1+4 veya 32+16 veya 4+128 vs..POKE 53248+21,3 veya POKE 53248+21,5 uc sylphe degeri 1+2+8 veya 1+64+128 vs..POKE 53248+21,11 veya POKE 53248+21,193 dort sylphe degeri 1+2+4+16 vs.. POKE 53248+21,23 bes sylphe degeri 1+2+4+64+128 vs..POKE 53248+21, alti sylphe degeri 1+2+4+32+64+128 vs..POKE 53248+21,231 yedi sylphe degeri 1+2...
Post a Comment
Read more

bypass shift key

  Sub SetBypassProperty() Const DB_Boolean As Long = 1 ChangeProperty " AllowBypassKey ", DB_Boolean, False End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Be carefull, there are some problems, your database can become unusable.  I think this code lacks the password form, which will make it possible to disable the setbypassproperty or enabling it. Search internet for the answer for it. Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ...
Post a Comment
Location: Ankara, Türkiye
Read more

VBA links

  Microsoft Access https://blueclawdb.com https://www.utteraccess.com
Post a Comment
Location: Ankara, Türkiye
Read more

find and filter with vba

Image
 Here are the screenshots: label names here are important And Here is the vba code : '------------------------------------FIND---------------------------------------------- Private Sub cmd_find_Click() fctfind_a_field         End Sub Function fctfind_a_field() As String Dim RecSrcFrmPersIdSql As String Select Case Me!txtfield.Value 'santral;fabrika_entry;aktif_status;max_km;max_dk;ALL Case Is = "santral" RecSrcFrmPersIdSql = "SELECT [tbl_ref_021_1_santral].[santral],[tbl_data_01_10_01_mesafe_limit].[mesafe_limit_id], [tbl_data_01_10_01_mesafe_limit].[santral_id], [tbl_data_01_10_01_mesafe_limit].[fabrika_entry_limit], [tbl_data_01_10_01_mesafe_limit].[aktif_status_id], [tbl_data_01_10_01_mesafe_limit].[max_km], [tbl_data_01_10_01_mesafe_limit].[max_dk], [tbl_data_01_10_01_mesafe_limit].[auto_date], [tbl_data_01_10_01_mesafe_limit].[auto_time]" & _ "FROM [tbl_ref_021_1_santral] INNER JOIN [tbl_data_01_10_01_mesafe_limit] ON [tbl_ref_021_1_santral].[s...
Post a Comment
Read more

HTML files management with vba

'these were for updating more than 300 html files just with one code 'their objective was to make html content uniform  Private Sub cmdopnnotepad_Click() Dim dTaskID As Double, path As String, file As String path = "C:\WINDOWS\notepad.exe" Dim filevalname As String Dim filenumopn As String     For xtc = 1 To 1     simxtc = xtc + 1     filenumopn = "00" & simxtc & ".html"     filevalname = "C:\models\" & filenumopn     Me!txtfilename.Value = filenumopn     file = filevalname     dTaskID = Shell(path + " " + file, vbNormalFocus)     'MsgBox ("Text loaded")          textsd As Document          textsd = file     '****************replace************************ 'REPLACE ALL kodu asagida : txtFind = "sokolag" txtReplace = "yarrakkurek" SandR '---------------------CODE  'Private Sub makenormallistIPlist()        tx...
Post a Comment
Location: Ankara, Türkiye
Read more

use of variable

 Sub SetFilter()     Dim LSQL  As String          LSQL = "select * from tbl_not_data_010_notlar"     LSQL = LSQL & " where madde = '" & cboShowCat & "'"          Form_frm_not_data_010_notlar.RecordSource = LSQL      End Sub
Post a Comment
Location: Ankara, Türkiye
Read more

VBA - Fun - timer

 The following code does not belong to me, comment at below if you know the coder name / link . I will happily edit to put the source . Private Sub Form_Timer()     Dim CurTime As Date     Dim ValHours As Integer     Dim ValMinutes As Integer     Dim ValSeconds As Integer          CurTime = Time     ValHours = Hour(CurTime)     ValMinutes = Minute(CurTime)     ValSeconds = Second(CurTime)          pgrHours.Value = ValHours     pgrMinutes.Value = ValMinutes     pgrSeconds.Value = ValSeconds          lblHours.Caption = CStr(ValHours)     lblMinutes.Caption = ValMinutes     lblSeconds.Caption = CStr(ValSeconds) End Sub
Post a Comment
Location: Ankara, Türkiye
Read more